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

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

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