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

Hasil Program




Listing Program

Public Class Form1
Private Sub Kode_Brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Brg.SelectedIndexChanged
Dim h As String
h = Microsoft.VisualBasic.Left(Kode_Brg.Text, 2)
Select Case h
Case “TS” : Merk.Text = “TOSHIBA”
Case “VG” : Merk.Text = “V-GEN”
End Select
Dim r As String
r = Microsoft.VisualBasic.Right(Kode_Brg.Text, 3)
Select Case r
Case “001″ : Nama_Brg.Text = “FLASHDISK 4GB”
Case “002″ : Nama_Brg.Text = “FLASHDISK 2GB”
End Select
If h = “TS” And r = “001″ Then
Harga.Text = 105000
ElseIf h = “TS” And r = “002″ Then
Harga.Text = 75000
ElseIf h = “VG” And r = “001″ Then
Harga.Text = 90000
ElseIf h = “VG” And r = “002″ Then
Harga.Text = 60000
End If
End Sub
Sub buattabel()
LV.Columns.Add(“No.Pembelian”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Kode Barang”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Merk”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Harga”, 90, HorizontalAlignment.Center)
LV.Columns.Add(“Jumlah Beli”, 65, HorizontalAlignment.Center)
LV.Columns.Add(“Total Harga”, 90, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim LST As New ListViewItem
Lst.Text = No_Pembelian.Text
Lst.SubItems.Add(Kode_Brg.Text)
Lst.SubItems.Add(Nama_Brg.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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode_Brg.Items.Add(“TS001″)
Kode_Brg.Items.Add(“TS002″)
Kode_Brg.Items.Add(“VG001″)
Kode_Brg.Items.Add(“VG002″)
buattabel()
End Sub
Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
IsiTabel()
No_Pembelian.Text = “”
Kode_Brg.Text = “”
Nama_Brg.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
Me.Close()
End Sub
Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
No_Pembelian.Text = “”
Kode_Brg.Text = “”
Nama_Brg.Text = “”
Merk.Text = “”
Harga.Text = “”
Jumlah.Text = “”
Total.Text = “”
End Sub
Private Sub Hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_semua.Click
LV.Items.Clear()
End Sub
Private Sub Hapus_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_dipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged
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
Total.Text = Harga.Text * Jumlah.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


Demikilahlah postingan saya
Nama : DODI KURNIAWAN TRIONO
NPM : 1111547
Pemrograman VB.Net