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

Design Form:

Listing Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RancangTabel()
        kode_barang.Items.Add("TSF001")
        kode_barang.Items.Add("TSF002")
        kode_barang.Items.Add("VGR001")
        kode_barang.Items.Add("VGR002")
        kode_barang.Items.Add("VGR003")
        no_pembelian.Focus()
    End Sub
    Sub RancangTabel()
        lv.Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Merek", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub hapus()
        no_pembelian.Text = ""
        kode_barang.Text = ""
        nama_barang.Text = ""
        merek.Text = ""
        harga.Text = ""
        jumlah_beli.Text = ""
        total.Text = ""
    End Sub
    Sub MasukTabel()
        Dim frendiks As New ListViewItem
        With frendiks
            .Text = no_pembelian.Text
            .SubItems.Add(kode_barang.Text)
            .SubItems.Add(nama_barang.Text)
            .SubItems.Add(merek.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(jumlah_beli.Text)
            .SubItems.Add(total.Text)
            lv.Items.Add(frendiks)


        End With
    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged

        Dim x As String
        Dim x2 As String
        x = Microsoft.VisualBasic.Mid(kode_barang.Text, 3, 1)
               x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
        If x = "TS" Then
            merek.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            merek.Text = "V-Gen"
        End If


        x2 = Microsoft.VisualBasic.Right(kode_barang.Text, 3)
        If x2 = "001" Then
            nama_barang.Text = "Leptop"
        ElseIf x2 = "002" Then
            nama_barang.Text = "Flashdisk"
        End If

        If x = "TS" And x2 = "001" Then
            harga.Text = 105000
        ElseIf x = "TS" And x2 = "002" Then
            harga.Text = 75000
        ElseIf x = "VG" And x2 = "001" Then
            harga.Text = 90000
        ElseIf x = "VG" And x2 = "002" Then
            harga.Text = 60000
        Else
            harga.Text = 0
        End If
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
        If e.KeyChar = Chr(13) Then
            total.Text = Val(harga.Text) * jumlah_beli.Text
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_beli.TextChanged

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        MasukTabel()
        hapus()
        no_pembelian.Focus()
    End Sub

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

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click
        If lv.SelectedItems.Count <> 0 Then
            lv.Items.Remove(lv.SelectedItems(0))
        Else
            MsgBox("Pilih yang akan dihapus")
        End If
    End Sub

    Private Sub hapus_satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_satu.Click
        lv.Items.Clear()
    End Sub

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

0 Sekilas tentang mesran.net

Mungkin saat ini anda masih bingung belajar bahasa pemrograman !!! Tapi saya berusaha utk memahami bahasa pemrograman ini,Karena bahasa pemrograman ini sangat penting untuk kita ke depan nya.

Mesran[dot]Net merupakan website yang membantu anda khususnya yang ingin selalu belajar tentang pembahasan materi
bahasa pemrograman, karena di Mesran[dot]Net kita bisa banyak belajar tetang bahasa pemrogaman, mulai dari Bahasa Pemrograman Pascal, Pemrograman C/C++, Pemrograman VB6, Pemrograman Visual Basic.Net, dan disamping itu juga
anda bisa mengetahui tips/trik bagaimana cara belajar bahasa pemrograman.

    Di Mesran[dot]Net juga kita bisa menambah ilmu atau pun pengetahuan tentang Bahasa Pemrograman yang kurang kita pahami ketika saat belajar-mengajar diruangan kampus. Jadi menurut saya anda jangan takut ataupun tidak bisa
dalam belajar bahasa pemrograman.

Bagi yang ingin belajar tentang bahasa Pemrograman,jangan ragu lagi segera kunjungi website Mesran.Net, website ini bisa menjadi salah satu referensi dalam mempelajari bahasa pemrograman yang dapat membantu menjadikan anda seorang programer yang handal.
       Demikianlah menurut  postingan saya kali ini,semoga bisa bermanfaat.

0 PENGGAJIAN KARYAWAN MENGGUNAKAN LISTVIEW PADA PROGRAM MICROSOFT VISUAL STUDIO 2008

1.      Design form:

2.  Listing program

Public Class Form1

    Sub buattabel()

        Lv.Columns.Add("nik", 40, HorizontalAlignment.Center)

        Lv.Columns.Add("nama", 40, HorizontalAlignment.Center)

        Lv.Columns.Add("jabatan", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("gaji", 60, HorizontalAlignment.Center)

        Lv.Columns.Add("status", 60, HorizontalAlignment.Center)

        Lv.Columns.Add("tunj_istri", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("jmlh_anak", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("tunj_anak", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("jmlh_lembur", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("honor_lembur", 90, HorizontalAlignment.Center)

        Lv.Columns.Add("pajak", 50, HorizontalAlignment.Center)

        Lv.Columns.Add("total", 50, HorizontalAlignment.Center)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nik.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gaji.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(tunj_istri.Text)

        lst.SubItems.Add(jmlh_anak.Text)

        lst.SubItems.Add(tunj_anak.Text)

        lst.SubItems.Add(jam_lembur.Text)

        lst.SubItems.Add(honor_lembur.Text)

        lst.SubItems.Add(pajak.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

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("kepala bagian")

        jabatan.Items.Add("staff")

        For i = 1 To 4

            jmlh_anak.Items.Add(i)

        Next i

        For i = 1 To 10

            jam_lembur.Items.Add(i)

        Next i

        status.Items.Add("menikah")

        status.Items.Add("tidak menikah")

        buattabel()

    End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "mandor" : gaji.Text = 1750000

            Case "kepala bagian" : gaji.Text = 2500000

            Case "staff" : gaji.Text = 1250000

        End Select

        pajak.Text = 0.015 * gaji.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "menikah" : tunj_istri.Text = 0.09 * gaji.Text : jmlh_anak.Enabled = True

            Case "tidak menikah" : tunj_istri.Text = 0 : jmlh_anak.Enabled = False : tunj_anak.Text = 0

        End Select

    End Sub

    Private Sub jmlh_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlh_anak.SelectedIndexChanged

        If jmlh_anak.Text >= 2 Then

            tunj_anak.Text = 0.07 * gaji.Text

        ElseIf jmlh_anak.Text = 1 Then

            tunj_anak.Text = 0.03 * gaji.Text

        Else

            jmlh_anak.Text = 0

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim honor As Double

        If jabatan.Text = "mandor" Then

            honor = 7500

        ElseIf jabatan.Text = "kepala bagian" Then

            honor = 10000

        ElseIf jabatan.Text = "staff" Then

            honor = 5000

        Else

            honor = 0

        End If

        honor_lembur.Text = honor * jam_lembur.Text

        total.Text = Val(honor_lembur.Text) + Val(gaji.Text) + Val(tunj_istri.Text) + Val(tunj_anak.Text) - Val(pajak.Text)

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj_anak.Text = ""

        tunj_istri.Text = ""

        jmlh_anak.Text = ""

        jam_lembur.Text = ""

        honor_lembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

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

        Dim i As MsgBoxResult

        i = MsgBox("Apa anda ingin keluar dari program ini?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Daftar Nilai")

        If i = MsgBoxResult.Yes Then

            Close()

        End If

    End Sub

  

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

        isitabel()

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj_istri.Text = ""

        jmlh_anak.Text = ""

        tunj_anak.Text = ""

        jam_lembur.Text = ""

        honor_lembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

End Class