Minggu, 02 Juni 2013
Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net
Yuk! Belajar Pemrograman Visual Basic dot Net Di Mes-ran.Net
Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumbel.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 15 Then
totalharga.Text = Val(harga.Text) * Val(jumlahbeli.Text)
End If
End Sub
Sub buattabel()
lv.Columns.Add("No Pembelian", 50, HorizontalAlignment.Left)
lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
lv.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
lv.Columns.Add("Merk", 120, HorizontalAlignment.Left)
lv.Columns.Add("Harga", 120, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Pembelian", 120, HorizontalAlignment.Left)
lv.Columns.Add("Total Harga", 120, HorizontalAlignment.Left)
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.Text)
lst.SubItems.Add(barang.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jmlahpembelian.Text)
lst.SubItems.Add(totalharga.Text)
Lv.Items.Add(lst)
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitabel()
End Sub
Sub bersih()
No_beli.Text = ""
kode.Text = ""
barang.Text = ""
merk.Text = ""
harga.Text = ""
jumlahpembelian.Text = ""
totalharga.Text = ""
End Sub
Public Class Form1
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 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)
Select Case x
Case "TS" : merk.Text = "Toshiba"
Case "VG" : merk.Text = "V-Gen"
End Select
Dim x2 As String
x2 = Microsoft.VisualBasic.Right(kode.Text, 3)
Select Case x2
Case "001" : barang.Text = "Flashdisk 4GB"
Case "002" : barang.Text = "Flashdisk 2GB"
End Select
Select Case kode.Text
Case "TS001" : harga.Text = "105000"
Case "TS002" : harga.Text = "75000"
Case "VG001" : harga.Text = "90000"
Case "VG002" : harga.Text = "60000"
End Select
End Sub
End Class
demikianlah postingan saya nama;ayuwulandari
npm 1111868
mesran.net
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar