Daftar Gaji Pegawai Pada Vb.net 2008

Posted by Sabtu, 29 Juni 2013







 Listing Programnya :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nik.Items.Add("K1001")
        Nik.Items.Add("K2003")
        Nik.Items.Add("S1001")
        Nik.Items.Add("S2002")
        Nik.Items.Add("S3003")
        Nik.Items.Add("A1001")
        Nik.Items.Add("A2002")
        Nik.Items.Add("A3003")
        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Nik.Text, 1)
        Select Case X
            Case "K"
                Bagian.Text = "Keuangan"
                Nama.Text = "Muhammad Syahril"

            Case "A"
                Bagian.Text = "Administrasi"
                Nama.Text = "Rina Miranda"

            Case "S"
                Bagian.Text = "Pengamanan"
                Nama.Text = "Soni sugiarto"
        End Select
        X = Microsoft.VisualBasic.Mid(Nik.Text, 2, 1)
        Select Case X
            Case "1"
                Jabatan.Text = "bedahara"
            Case "2"
                Jabatan.Text = "Serkertaris"
            Case "3"
                Jabatan.Text = "Security"
        End Select
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Golongan.Text, 4)
        Select Case X
            Case "IIIA"
                Gaji.Text = "2500000"
            Case "IIIB"
                Gaji.Text = "3000000"
            Case "IIIC"
                Gaji.Text = "3500000"
        End Select
    End Sub
End Class


Berikut Hasilnya :


 

Daftar Pembelian Barang Menggunakan Vb.net 2008

Posted by









Listing Programnya :

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 "TS" : Merk.Text = "Toshiba"
            Case "VG": Merk.Text = " V-GEN"
            Case "VG" : Merk.Text = "V-GEN"

        End Select
        X = Microsoft.VisualBasic.Right(Kode.Text, 3)
        Select X
            Case "001" : NamaBarang.Text = "Flashdisk 4GB"
            Case "002" : NamaBarang.Text = "Flashdisk 2GB"
            Case "001" : NamaBarang.Text = "Flashdisk 4GB"
            Case "002" : NamaBarang.Text = "Flashdisk 2GB"
        End Select

    End Sub
End Class



Berikut Hasilnya :



Penggunaan Listview pada Vb.net 2008

Posted by






Listing Program :

  
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        Lv.Items.Add(lst)
    End Sub
   
    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
    End Sub
End Class




Berikut Hasilnya :