Kamis, 06 Juni 2013

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









Berikut syntaxnya..


Public Class Form1
    Sub buattabel()
        lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.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)
        lv.Items.Add(lst)
    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

    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 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
        Select Case kode.Text
            Case "TS001" : nama.Text = "flashdisk 4 Gb"
            Case "TS002" : nama.Text = "flashdisk 2 Gb"
            Case "VG001" : nama.Text = "flashdisk 4 Gb"
            Case "VG002" : nama.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

    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 nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

    End Sub

    Private Sub semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles semua.Click
        lv.Items.Clear()


    End Sub

    Private Sub pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    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

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End

    End Sub
End Class


SEPERTI INILAH HASILNYA

 

Tidak ada komentar:

Posting Komentar