Kamis, 03 April 2014

Tutorial Pembuatan Program Data Gaji Pegawai Pada Visual Basic






Assalamualaikum
    

       Pada kesempatan kali ini saya akan menjelaskan tutorial bagaimana membuat pengkodingan sebuah program pada Visual Basic. Berikut ini adalah langkag - langkah nya:


Pertama - tama buka aplikasi Visual Basic






Kemuadian pilih menu Create Project dan masukkan nama program yang akan kita buat. kemudian klik visual basic lalu pilih windows forms application dan klik Ok seperti ini





Ketika kita menekan tombol Ok, maka akan muncul tampilan form application visual basic seperti dibawah ini 
 
 
 
 

 Kemudian drag beberapa komponen yang dibutuhkan dari toolbox seperti TextBox, ComboBox, Label dan Button pada Form yang sudah ada







 Lalu kita bisa mengubah nama label, button, textbox dan combobox nya sesuai dengan yang kita inginkan pada option properties dan ketika dirubah akan seperti ini


 



Lalu setelah melakukan lagkah-langkaah diatas maka kita akan mulai mencoba melakukan pengkodingannya dengan klik 2 kali button mulai, button tutup, combobox golongan, combobox jenis kelamin, button proses dan pada daerah form nya itu sendiri. Lalu masukkan pengkodingan di bawah ini




















Agar lebih jelas ini merupakan koding diatas  :

Public Class Form1
   
    Private Sub btnmulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmulai.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        txtjabatan.Text = ""
        txtgajibersih.Text = ""
        txtgajipokok.Text = ""
        txtpph.Text = ""
        txtTistri.Text = ""
        txtTjabatan.Text = ""
        txttotal.Text = ""
        cnbgolongan.Text = ""
        cnbjeniskelamin.Text = ""
        cnbstatus.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
        Me.Close()
    End Sub

    Private Sub cnbgolongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cnbgolongan.SelectedIndexChanged

        Select Case cnbgolongan.Text
            Case "1"
                txtjabatan.Text = "MANAGER"
                txtgajipokok.Text = "2000000"
            Case "2"
                txtjabatan.Text = "SUPERVISOR"
                txtgajipokok.Text = "1500000"
            Case "3"
                txtjabatan.Text = "STAFF"
                txtgajipokok.Text = "1000000"
            Case "4"
                txtjabatan.Text = "ASS.STAFF"
                txtgajipokok.Text = "750000"
            Case "5"
                txtjabatan.Text = "JUNIOR STAFF"
                txtgajipokok.Text = "500000"
        End Select
        Select Case cnbgolongan.Text
            Case 1, 2
                txtTjabatan.Text = (15 / 100 * txtgajipokok.Text)
            Case 3, 4
                txtTjabatan.Text = (5 / 100 * txtgajipokok.Text)
            Case Else
                txtTjabatan.Text = "0"
        End Select
    End Sub

    Private Sub cnbjeniskelamin_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cnbjeniskelamin.SelectedIndexChanged

        If cnbstatus.Text = "Menikah" And cnbjeniskelamin.Text = "Laki-laki" Then
            txtTistri.Text = (10 / 100 * txtgajipokok.Text)
        Else
            txtTistri.Text = "0"
        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        txttotal.Text = Val(txtgajipokok.Text) + Val(txtTistri.Text) + Val(txtTjabatan.Text)
        If txttotal.Text >= 1000000 Then
            txtpph.Text = (3 / 100 * txttotal.Text)
        Else
            txtpph.Text = "0"
        End If
        txtgajibersih.Text = txttotal.Text - txtpph.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tanggal As Integer
        Dim bulan As Integer
        Dim tahun As Integer
        For tanggal = 1 To 31
            Cmbtanggal.Items.Add(tanggal)
        Next
        For bulan = 1 To 12
            CmbBulan.Items.Add(bulan)
        Next
        For tahun = 2000 To 1990 Step -1
            Cmbtahun.Items.Add(tahun)
        Next
    End Sub
End Class