Kumpulan 10 Latihan Semester 3

Menghitung Nilai Persegi Panjang

        Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Luas.Text = Panjang.Text * Lebar.Text

    End Sub

         Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Panjang.Text = ""
        Lebar.Text = ""
        Luas.Text = ""
    End Sub
End Class

Perulangan (Looping)

 

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer

For i = 1 To 1000

ComboBox1.Items.Add(i)

Next i

i = 1000

Do While i >= 1

ComboBox2.Items.Add("STMIK" & i)

i = i - 1

Loop

For i = 1000 To 1 Step -1

ListBox1.Items.Add(i)

Next (i)

End Sub

End Class

Program Nilai Semester

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

Jika anda perhatikan listing program menjadi seperti ini :


Public Class frmHitung

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class

Struktur Keputusan Case

Public Class Form1

             Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

             End Sub

             Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Kode.Items.Add("TS001")

Kode.Items.Add("TS002")

Kode.Items.Add("VG001")

Kode.Items.Add("VG002")

             End Sub

             Private Sub Nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.TextChanged

             End Sub

             Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

                       Select Case Kode.Text

                                  Case "TS001"

                                       Merk.Text = "TS"

                                       Nama.Text = "Flashdisk 4G"

                                  Case "TS002"

                                       Merk.Text = "TS"

                                       Nama.Text = "Flashdisk 2G"

                                  Case "VG001"

                                       Merk.Text = "VG"

                                       Nama.Text = "Flashdisk 4G"

                                  Case "VG002"

                                       Merk.Text = "VG"

                                       Nama.Text = "Flashdisk 2G"

                   End Select

            End Sub

   End Class

Struktur Keputusan (Pencabangan Case)

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs) Handles btnhapus.Click

          Matakuliah.Text = ""

          Dosen.Text = ""

          Nmid.Text = ""

          Nsem.Text = ""

          NA.Text = ""

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

          NA.Text = 0.3 * Nmid.Text + 0.45 * Nsem.Text + 0.1 * Nhadir.Text + 0.15 * Ntugas.Text

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

    End

  End Sub

    Private Sub Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Matakuliah.SelectedIndexChanged

  End Sub

    Private Sub Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dosen.SelectedIndexChanged

  End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As    System.EventArgs) Handles MyBase.Load

          Matakuliah.Items.Add("Pemograman")

          Matakuliah.Items.Add("PTI")

          Matakuliah.Items.Add("Struktur Data")

          Matakuliah.Items.Add("Komunikasi Data")

          Dosen.Items.Add("Tonni Limbong,Skom,Mkom")

          Dosen.Items.Add("Sinar Sinurat,ST,Mkom")

          Dosen.Items.Add("Yasir Hasan,Skom")

          Dosen.Items.Add("Guidio,Skom,Mkom")

    Dim i As Integer

    For i = 1 To 100

          Nhadir.Items.Add(i)

          Ntugas.Items.Add(i)

          Nmid.Items.Add(i)

          Nsem.Items.Add(i)

    Next i

  End Sub

Friend WithEvents na As System.Windows.Forms.TextBox

  End Class

Pembuatan Piramida

PublicClass Form3

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

Dim y, q, z AsByte

        y = 1

        q = Val(Nilai.Text)

        Hasil.Clear()

DoWhile y <= q

            z = 1

DoWhile z <= y

                Hasil.Text = Hasil.Text &" "& z

                z += 1

Loop

            Hasil.Text = Hasil.Text & vbCrLf

            y += 1

Loop

EndSub

Gaji Pegawai Telkom 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NamaPeg.Items.Add("maijor Josua")

        NamaPeg.Items.Add("Andy Pratama")

        NamaPeg.Items.Add("Maulana")

        GolPeg.Items.Add("A")

        GolPeg.Items.Add("B")

        GolPeg.Items.Add("c")

        StaPeg.Items.Add("Menikah")

        StaPeg.Items.Add("Tidak Menikah")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Pajak.Text = 0.1 * GaPo.Text

        TG.Text = GaPo.Text - Pajak.Text + TK.Text

    End Sub

    Private Sub GolPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GolPeg.SelectedIndexChanged

        Select Case GolPeg.Text

            Case "A"

                GaPo.Text = "1500000"

            Case "B"

                GaPo.Text = "2500000"

            Case "C"

                GaPo.Text = "3500000"

        End Select

    End Sub

    Private Sub StaPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StaPeg.SelectedIndexChanged

        Select Case StaPeg.Text

            Case "Menikah"

                TK.Text = 0.05 * GaPo.Text

            Case "Tidak Menikah"

                TK.Text = GaPo.Text

        End Select

    End Sub

End Class

Program Pemakain Listrik

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

    End Sub

    Private Sub No_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles No.TextChanged

        Dim x As String

        No.Text = "1" & Microsoft.VisualBasic.Right(kode.Text, 2)

        x = Microsoft.VisualBasic.Mid(kode.Text, 4, 3)

        If x = "MED" Then

            Daerah.Text = "MEDAN"

            pjk.Text = 0.015

        ElseIf x = "BEL" Then

            Daerah.Text = "BELAWAN"

            pjk.Text = 0.015

        ElseIf x = "TEM" Then

            Daerah.Text = "AKSARA"

            pjk.Text = 0.015

        ElseIf x = "MAR" Then

            Daerah.Text = "MARENDAL"

            pjk.Text = 0.015

        ElseIf x = "BIN" Then

            Daerah.Text = "BINJAI"

            pjk.Text = 0.015

        ElseIf x = "PAK" Then

            Daerah.Text = "LUBUK PAKAM"

            pjk.Text = 0.015

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 1, 3)

        If x = "TOK" Then

            Tipe.Text = "TOKO"

            harga.Text = "500"

            biaya.Text = "150000"

        ElseIf x = "RUM" Then

            Tipe.Text = "RUMAH"

            harga.Text = "200"

            biaya.Text = "50000"

        ElseIf x = "SWA" Then

            Tipe.Text = "SWALAYAN"

            harga.Text = "1500"

            biaya.Text = "400000"

        ElseIf x = "PAB" Then

            Tipe.Text = "PABRIK"

            biaya.Text = "1000000"

            harga.Text = "10000"

        End If

    End Sub

    Sub buattabel()

        Lv.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = tgl.Text

        lst.SubItems.Add(No.Text)

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(Daerah.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(biaya.Text)

        lst.SubItems.Add(meterlalu.Text)

        lst.SubItems.Add(metersekarang.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(besar.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(tagihan.Text)

        lst.SubItems.Add(total.Text)

        Lv.Items.Add(lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        isitabel()

        kode.Text = ""

        Daerah.Text = ""

        biaya.Text = ""

        Tipe.Text = ""

        meterlalu.Text = ""

        harga.Text = ""

        total.Text = ""

        metersekarang.Text = ""

        No.Text = ""

        tagihan.Text = ""

        besar.Text = ""

        pjk.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        kode.Text = ""

        Daerah.Text = ""

        biaya.Text = ""

        Tipe.Text = ""

        meterlalu.Text = ""

        harga.Text = ""

        total.Text = ""

        metersekarang.Text = ""

        No.Text = ""

        tagihan.Text = ""

        besar.Text = ""

        pjk.Text = ""

    End Sub

    Private Sub No_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles No.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Proses_Click(sender, e)

        End If

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        besar.Text = metersekarang.Text - meterlalu.Text

        tagihan.Text = biaya.Text + (harga.Text * besar.Text)

        total.Text = tagihan.Text * 0.015

    End Sub

End Class

Listview Latihan 2

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        Kode.Items.Add("TS001")

        Kode.Items.Add("TS002")

        Kode.Items.Add("VG001")

        Kode.Items.Add("VG002")

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Merk", 85, HorizontalAlignment.Left)

        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Total", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Kode.Text

        Lst.SubItems.Add(Nama.Text)

        Lst.SubItems.Add(Merk.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Total.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim X As String

        Dim A As String

        Dim H As String

        X = Microsoft.VisualBasic.Left(Kode.Text, 2)

        A = Microsoft.VisualBasic.Right(Kode.Text, 3)

        H = Microsoft.VisualBasic.Right(Kode.Text, 5)

        Select Case X

            Case "TS" : Merk.Text = "Toshiba"

            Case "VG" : Merk.Text = "V-Gen"

        End Select

        Select Case A

            Case "001" : Nama.Text = "Flashdisk 4Gb"

            Case "002" : Nama.Text = "Flashdisk 2Gb"

        End Select

        Select Case H

            Case "TS001" : Harga.Text = "105000"

            Case "TS002" : Harga.Text = "75000"

            Case "VG001" : Harga.Text = "90000"

            Case "VG002" : Harga.Text = "60000"

        End Select

    End Sub

    Private Sub Btn_HapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_HapusPilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Btn_HapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_HapusSemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click

        Me.Close()

    End Sub

    Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Simpan.Click

        IsiTabel()

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        Dim Tombol As Integer = Asc(e.KeyChar)

        If Tombol = 13 Then

            Jumlah_TextChanged(sender, e)

            Total.Text = Jumlah.Text * Harga.Text

        End If

    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

    End Sub

End Class

Mesran.Net
Mesran.blogspot.com

Pengolahan Citra

Public Class Form1

Dim gambar2 As Bitmap

Private Sub btngray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngray.Click

Dim pb, pc As Integer

Dim rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For pb = 0 To PictureBox2.height - 1

For pc = 0 To PictureBox2.width - 1

vM = gambar2.GetPixel(pc, pb).R

vH = gambar2.GetPixel(pc, pb).G

vB = gambar2.GetPixel(pc, pb).B

rt = (vM + vH + vB) / 3

gambar2.SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

PictureBox2.Image = PictureBox1.Image

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R - 10

vH = gambar2.GetPixel(Pc, Pb).G

vB = gambar2.GetPixel(Pc, Pb).B

If vM <= 0 Then vM = 0

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R + 10

vH = gambar2.GetPixel(Pc, Pb).G

vB = gambar2.GetPixel(Pc, Pb).B

If vM >= 255 Then vM = 255

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R + 5

vH = gambar2.GetPixel(Pc, Pb).G + 5

vB = gambar2.GetPixel(Pc, Pb).B + 5

If vM >= 255 Then vM = 255

If vB >= 255 Then vB = 255

If vH >= 255 Then vH = 255

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R - 5

vH = gambar2.GetPixel(Pc, Pb).R - 5

vB = gambar2.GetPixel(Pc, Pb).R - 5

If vM <= 0 Then vM = 0

If vB <= 0 Then vB = 0

If vH <= 0 Then vH = 0

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

Private Sub btnRotate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRotate.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

Dim gambar3 As Bitmap = New Bitmap(PictureBox1.Image)

For Pb = gambar2.Height - 1 To 0 Step -1

For Pc = gambar2.Width - 1 To 0 Step -1

vM = gambar2.GetPixel(Pc, Pb).R

vH = gambar2.GetPixel(Pc, Pb).G

vB = gambar2.GetPixel(Pc, Pb).B

gambar3.SetPixel(gambar2.Width - 1 - Pc, gambar2.Height - 1 - Pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar3

PictureBox2.Refresh()

Next

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R

vH = gambar2.GetPixel(Pc, Pb).G + 10

vB = gambar2.GetPixel(Pc, Pb).B

If vH >= 255 Then vH = 255

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R

vH = gambar2.GetPixel(Pc, Pb).G - 10

vB = gambar2.GetPixel(Pc, Pb).B

If vH <= 0 Then vH = 0

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

Private Sub btnNegatif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNegatif.Click

Dim pb, pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For pb = 0 To gambar2.Height - 1

For pc = 0 To gambar2.Width - 1

vM = 255 - gambar2.GetPixel(pc, pb).R

vH = 255 - gambar2.GetPixel(pc, pb).G

vB = 255 - gambar2.GetPixel(pc, pb).B

If vM <= 0 Then vM = 0

If vM <= 0 Then vM = 0

If vM <= 0 Then vM = 0

gambar2.SetPixel(pc, pb, Color.FromArgb(vM, vH, vB))

Next

PictureBox2.Image = gambar2

PictureBox2.Refresh()

Next

End Sub

End Class