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