YUK! BELAJAR PEMROGRAMAN VISUAL BASIC DOT NET DI MESRAN.NET

Public Class Form1

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

        rancangtabel()

  

        kb.Items.Add("TS001")

        kb.Items.Add("TS002")

        kb.Items.Add("VG001")

        kb.Items.Add("VG002")

        kb.Items.Add("KG001")

        kb.Items.Add("KG002")

    End Sub

    Sub rancangtabel()

        lv.Items.Clear()

        With lv

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

            .Columns.Add("No")

            .Columns.Add("Kode Barang", 100)

            .Columns.Add("Nama Barang", 150)

            .Columns.Add("Merek", 120)

            .Columns.Add("Harga", 130)

            .Columns.Add("Jumlah", 100)

            .Columns.Add("Total", 130)

        End With

    End Sub

    Sub addIsiTabel()

        Dim lst As New ListViewItem

        With lst

            .Text = no.Text

            .SubItems.Add(kb.Text)

            .SubItems.Add(nb.Text)

            .SubItems.Add(m.Text)

            .SubItems.Add(Harga.Text)

            .SubItems.Add(Jumlah.Text)

            .SubItems.Add(Total_harga.Text)

        End With

        lv.Items.Add(lst)

    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged

        Dim x As String

        Dim a As String

        a = Microsoft.VisualBasic.Right(kb.Text, 3)

        x = Microsoft.VisualBasic.Left(kb.Text, 2)

        Select Case x

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

                Select Case a

                    Case "001" : nb.Text = "Falshdisk 1GB" : Harga.Text = "10500"

                    Case "002" : nb.Text = "Flashdisk 2GB" : Harga.Text = "7500"

                End Select

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

                Select Case a

                    Case "001" : nb.Text = "Falshdisk 4GB" : Harga.Text = "9000"

                    Case "002" : nb.Text = "Flashdisk 8GB" : Harga.Text = "6000"

                End Select

            Case "KG" : m.Text = "Kingston"

                Select Case a

                    Case "001" : nb.Text = "Falshdisk 12GB" : Harga.Text = "90000"

                    Case "002" : nb.Text = "Flashdisk 16GB" : Harga.Text = "120000"

                End Select

        End Select

        Jumlah.Focus()

    End Sub

    Private Sub lv_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lv.DoubleClick

        If lv.SelectedItems.Count <> 0 Then

            lv.Items.Remove(lv.SelectedItems(0))

        Else

            MsgBox("Pilih dulu list data yang dihapus")

        End If

    End Sub

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

        Me.Close()

    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 Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        Total_harga.Text = Val(Harga.Text) * Val(Jumlah.Text)

    End Sub

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

        addIsiTabel()

    End Sub

End Class

Public Class Form2

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

        nama_barang.Items.Add("SONY KLD-32CX520")

        nama_barang.Items.Add("SONY KLV-40BX320")

        nama_barang.Items.Add("SONY KLV-40BX350")

        nama_barang.Items.Add("SONY KLV-40BX420")

    End Sub

    Private Sub nama_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama_barang.SelectedIndexChanged

        If nama_barang.Text = "SONY KLD-32CX520" Then

            harga.Text = 1990000

        ElseIf nama_barang.Text = "SONY KLV-40BX320" Then

            harga.Text = 590000

        ElseIf nama_barang.Text = "SONY KLV-40BX350" Then

            harga.Text = 536000

        ElseIf nama_barang.Text = "SONY KLV-40BX420" Then

            harga.Text = 910000

        End If

    End Sub

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

    

    End Sub

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

        total_harga.Text = Val(harga.Text) * Val(jumlah.Text)

        If total_harga.Text >= 2500000 Then

            discount.Text = Val(total_harga.Text) * 0.1

            Total_pembayaran.Text = Val(total_harga.Text) - Val(discount.Text)

        Else

            discount.Text = 0

            Total_pembayaran.Text = total_harga.Text

        End If

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        Me.Close()

    End Sub

End Class

Demikianlah Postingan Saya : 

Nama :Frangky Simanjuntak

NPM:1111403

Selamat Pemrograman VB NET