Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net
Berikut Jawaban Program
Public Class Form1
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(Kode.Text, 2)
If x = "TS" Then
Merk.Text = "TOSHIBA"
ElseIf x = "VG" Then
Merk.Text = "V-GEN"
End If
Dim y As String
y = Microsoft.VisualBasic.Mid(Kode.Text, 3)
If y = "001" Then
Nama.Text = "FLASHDISK 4GB"
ElseIf y = "002" Then
Nama.Text = "FLASHDISK 2GB"
End If
Dim z As String
z = Microsoft.VisualBasic.Left(Kode.Text, 5)
If z = "TS001" Then
Harga.Text = "105000"
ElseIf z = "TS002" Then
Harga.Text = "75000"
ElseIf z = "VG001" Then
Harga.Text = "90000"
ElseIf z = "VG002" Then
Harga.Text = "60000"
End If
End Sub
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()
btnLV.Columns.Add("NO.PEMBELIAN", 100, HorizontalAlignment.Center)
btnLV.Columns.Add("KODE BARANG", 100, HorizontalAlignment.Center)
btnLV.Columns.Add("NAMA BARANG", 100, HorizontalAlignment.Center)
btnLV.Columns.Add("MERK", 100, HorizontalAlignment.Center)
btnLV.Columns.Add("HARGA", 100, HorizontalAlignment.Center)
btnLV.Columns.Add("JUMLAH BELI", 100, HorizontalAlignment.Center)
btnLV.Columns.Add("TOTAL HARGA", 100, HorizontalAlignment.Center)
btnLV.View = View.Details
btnLV.GridLines = True
btnLV.FullRowSelect = True

End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = No.Text
Lst.SubItems.Add(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)
btnLV.Items.Add(Lst)
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
Simpan_Click(sender, e)
End If
End Sub
Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
Total.Text = Val(Harga.Text) * Val(Jumlah.Text)
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
IsiTabel()
No.Text = " "
Kode.Text = " "
Nama.Text = " "
Merk.Text = " "
Harga.Text = " "
Jumlah.Text = " "
Total.Text = " "
End Sub
Private Sub HapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusSemua.Click
btnLV.Items.Clear()
End Sub
Private Sub Hapusyangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapusyangdipilih.Click
btnLV.Items.Remove(btnLV.SelectedItems(0))
End Sub
Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
No.Text = " "
Kode.Text = " "
Nama.Text = " "
Merk.Text = " "
Harga.Text = " "
Jumlah.Text = " "
Total.Text = " "
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
End Class
Hasil Program

Demikilahlah postingan saya Nama : Yuli Safitri NPM : 1111513
Selamat Belajar Pemrograman VB Net