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

Listing Program

Public Class Form1

    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", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)

        Lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kodebarang.Text

        lst.SubItems.Add(nopembelian.Text)

        lst.SubItems.Add(namabrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlahbeli.Text)

        lst.SubItems.Add(totalharga.Text)

        Lv.Items.Add(lst)

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        kodebarang.Text = ""

        namabrg.Text = ""

        nopembelian.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

        Dim x, Y As String

        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)

        Y = Microsoft.VisualBasic.Right(kodebarang.Text, 3)

        Select Case x

            Case "TS" : merk.Text = "THOSIBA"

            Case "VG" : merk.Text = "V-Gen"

        End Select

        Select Case Y

            Case "001" : namabrg.Text = "Flashdisk 4 GB"

            Case "002" : namabrg.Text = "Flashdisk 2 GB"

        End Select

        If x = "TS" And Y = "001" Then

            harga.Text = 105000

        ElseIf x = "TS" And Y = "002" Then

            harga.Text = 75000

        ElseIf x = "VG" And Y = "001" Then

            harga.Text = 90000

        ElseIf x = "VG" And Y = "002" Then

            harga.Text = 60000

        Else

            harga.Text = 0

        End If

    End Sub

    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalharga.TextChanged

        totalharga.Text = Val(harga.Text) * Val(jumlahbeli.Text)

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress

        Dim x1 As Integer = Asc(e.KeyChar)

        If x1 = 13 Then

            totalharga.Text = Val(harga.Text) * Val(jumlahbeli.Text)

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        kodebarang.Items.Add("TS001")

        kodebarang.Items.Add("TS002")

        kodebarang.Items.Add("VG001")

        kodebarang.Items.Add("VG002")

    End Sub

   

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

    End Sub

   

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.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 keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

End Class

 Dan Hasilnya.....

Tugas Mahasiswa

Public Class Form1

    Sub addnik()

        With CNik

            .Items.Add("001")

            .Items.Add("002")

            .Items.Add("003")

        End With

    End Sub

    Sub rancangtabel()

        With LV

            .Columns.Add("NIK", 100, HorizontalAlignment.Center)

            .Columns.Add("Nama", 100, HorizontalAlignment.Center)

            .Columns.Add("Jabatan", 100, HorizontalAlignment.Center)

            .Columns.Add("Gaji", 100, HorizontalAlignment.Center)

            .Columns.Add("Status", 100, HorizontalAlignment.Center)

            .Columns.Add("Tunj Istri", 100, HorizontalAlignment.Center)

            .Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)

            .Columns.Add("Tunj Anak", 100, HorizontalAlignment.Center)

            .Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)

            .Columns.Add("Honor Lembur", 100, HorizontalAlignment.Center)

            .Columns.Add("Pajak", 100, HorizontalAlignment.Center)

            .Columns.Add("Total", 100, HorizontalAlignment.Center)

            .GridLines = True

            .View = View.Details

            .FullRowSelect = True

        End With

    End Sub

    Sub isitabel()

        Dim x As New ListViewItem

        x.Text = CNik.Text

        x.SubItems.Add(TNama.Text)

        x.SubItems.Add(CJabatan.Text)

        x.SubItems.Add(TGaji.Text)

        x.SubItems.Add(CStatus.Text)

        x.SubItems.Add(Ttunjistri.Text)

        x.SubItems.Add(CJmlhAnk.Text)

        x.SubItems.Add(TTunjAnk.Text)

        x.SubItems.Add(CJmLmbur.Text)

        x.SubItems.Add(THnorLmbur.Text)

        x.SubItems.Add(TPajak.Text)

        x.SubItems.Add(TTotal.Text)

        LV.Items.Add(x)

    End Sub

    Sub addjabatan()

        With CJabatan

            .Items.Add("Mandor")

            .Items.Add("Kepala Bagian")

            .Items.Add("Staf")

        End With

    End Sub

    Sub addstatus()

        With CStatus

            .Items.Add("menikah")

            .Items.Add("Belum menikah")

        End With

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        rancangtabel()

        CNik.Items.Add("001")

        CNik.Items.Add("002")

        CNik.Items.Add("003")

        CJabatan.Items.Add("Mandor")

        CJabatan.Items.Add("Kepala Bagian")

        CJabatan.Items.Add("Staf")

        CStatus.Items.Add("Menikah")

        CStatus.Items.Add("Belum Menikah")

        For i = 1 To 4

            CJmlhAnk.Items.Add(i)

        Next i

        For i = 1 To 10

            CJmLmbur.Items.Add(i)

        Next i

    End Sub

    Private Sub CJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJabatan.SelectedIndexChanged

        Select Case CJabatan.Text

            Case "Mandor" : TGaji.Text = 1750000

            Case "Kepala Bagian" : TGaji.Text = 2500000

            Case "Staf" : TGaji.Text = 1250000

        End Select

        TPajak.Text = 0.015 * TGaji.Text

    End Sub

    Private Sub CStatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CStatus.SelectedIndexChanged

        Select Case CStatus.Text

            Case "Menikah" : Ttunjistri.Text = 0.09 * TGaji.Text

            Case "Belum Menikah" : Ttunjistri.Text = 0

        End Select

    End Sub

    Private Sub CJmlhAnk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJmlhAnk.SelectedIndexChanged

        If CJmlhAnk.Text >= 2 And CStatus.Text = "Menikah" Then

            TTunjAnk.Text = 0.07 * TGaji.Text

        ElseIf CJmlhAnk.Text = 1 And CStatus.Text = "Menikah" Then

            TTunjAnk.Text = 0.03 * TGaji.Text

        Else

            TTunjAnk.Text = 0

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If CJabatan.Text = "Mandor" Then

            THnorLmbur.Text = 7500

        ElseIf CJabatan.Text = "Kepala Bagian" Then

            THnorLmbur.Text = 10000

        ElseIf CJabatan.Text = "Staf" Then

            THnorLmbur.Text = 5000

        Else

            THnorLmbur.Text = 0

        End If

        TTotal.Text = Val(THnorLmbur.Text * CJmLmbur.Text) + Val(TGaji.Text) + Val(Ttunjistri.Text) + Val(TTunjAnk.Text) - Val(TPajak.Text)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        CNik.Text = ""

        TNama.Text = ""

        CJabatan.Text = ""

        TGaji.Text = ""

        CStatus.Text = ""

        Ttunjistri.Text = ""

        CJmlhAnk.Text = ""

        TTunjAnk.Text = ""

        CJmLmbur.Text = ""

        THnorLmbur.Text = ""

        TPajak.Text = ""

        TGaji.Text = ""

    End Sub

    Private Sub CNik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CNik.SelectedIndexChanged

        Select Case CNik.Text

            Case "001" : TNama.Text = "Desy"

            Case "002" : TNama.Text = "Tiwi"

            Case "003" : TNama.Text = "Dini"

        End Select

    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        isitabel()

    End Sub

End Class

Dan hasilnya adalah