CARA MEMBUAT PROGRAM PENGGAJIAN DENGAN VISUAL BASIC 6.0
1. BUKA PROGRAM VISUAL BASIC 6.0
2. BUKA STANDARD EXE
3. BUAT FORM SEPERTI GAMBAR BERIKUT :
KEMUDIAN KLIK PADA BIDANG ATAU AREA YANG KOSONG KEMUDIAN MASUKKAN SCRIPT/CODING BERIKUT :
Private Sub CBGOL_Change()
Cbgol.AddItem "IIIA"
Cbgol.AddItem "IIIB"
Cbgol.AddItem "IIIC"
Cbgol.AddItem "IIID"
Cbgol.AddItem "IIIE"
End Sub
Private Sub cbstatus_Change()
Cbstatus.AddItem "MENIKAH"
Cbstatus.AddItem "BELUM MENIKAH"
End Sub
Private Sub Cbgol_Click()
If Cbgol = "III A" Then
Txtgapok.Text = 1600000
txtpph.Text = 0.01 * Val(1600000)
ElseIf Cbgol.Text = "III B" Then
Txtgapok.Text = 1800000
txtpph.Text = 0.02 * Val(1800000)
ElseIf Cbgol.Text = "III C" Then
Txtgapok.Text = 2000000
txtpph.Text = 0.03 * Val(2000000)
ElseIf Cbgol.Text = "III D" Then
Txtgapok.Text = 2200000
txtpph.Text = 0.04 * Val(2200000)
ElseIf Cbgol.Text = "III E" Then
Txtgapok.Text = 2500000
txtpph.Text = 0.05 * Val(2500000)
End If
End Sub
Private Sub Cmdhitung_Click()
If Cbgol = "III A" Then
Txtgapok.Text = 1600000
txtpph.Text = 0.01 * Val(1600000)
txtgaber.Text = Val(1600000) - 0.01 * Val(1600000)
ElseIf Cbgol = "III B" Then
Txtgapok.Text = 1800000
txtpph.Text = 0.02 * Val(1600000)
txtgaber.Text = Val(1800000) - 0.02 * Val(1800000)
ElseIf Cbgol = "III C" Then
Txtgapok.Text = 2000000
txtpph.Text = 0.03 * Val(2000000)
txtgaber.Text = Val(2000000) - 0.03 * Val(2000000)
ElseIf Cbgol = "III D" Then
Txtgapok.Text = 2200000
txtpph.Text = 0.04 * Val(2200000)
txtgaber.Text = Val(2200000) - 0.04 * Val(2200000)
ElseIf Cbgol = "III E" Then
Txtgapok.Text = 2500000
txtpph.Text = 0.05 * Val(2500000)
txtgaber.Text = Val(2500000) - 0.05 * Val(2500000)
End If
End Sub
Private Sub cbstatus_Click()
If Cbstatus = "MENIKAH" Then
Txtgapok.Text = 1600000
txttun.Text = 0.4 * Val(1600000)
ElseIf Cbstatus = "BELUM MENIKAH" Then
Txtgapok.Text = 1600000
txttun.Text = 0 * Val(1600000)
ElseIf Cbstatus = "MENIKAH" Then
Txtgapok.Text = 1800000
txttun.Text = 0.4 * Val(1800000)
ElseIf Cbstatus = "BELUM MENIKAH" Then
Txtgapok.Text = 1800000
txttun.Text = 0 * Val(1800000)
ElseIf Cbstatus = "MENIKAH" Then
Txtgapok.Text = 2000000
txttun.Text = 0.4 * Val(2000000)
ElseIf Cbstatus = "BELUM MENIKAH" Then
Txtgapok.Text = 2000000
txttun.Text = 0 * Val(2000000)
ElseIf Cbstatus = "MENIKAH" Then
Txtgapok.Text = 2200000
txttun.Text = 0.4 * Val(2200000)
ElseIf Cbstatus = "BELUM MENIKAH" Then
Txtgapok.Text = 2200000
txttun.Text = 0 * Val(2200000)
ElseIf Cbstatus = "MENIKAH" Then
Txtgapok.Text = 2500000
txttun.Text = 0.4 * Val(2500000)
ElseIf Cbstatus = "BELUM MENIKAH" Then
Txtgapok.Text = 2500000
txttun.Text = 0 * Val(2500000)
End If
End Sub
Private Sub Form_Load()
Cbgol.AddItem "III A"
Cbgol.AddItem "III B"
Cbgol.AddItem "III C"
Cbgol.AddItem "III D"
Cbgol.AddItem "III E"
End Sub
Private Sub Cmdulang_Click()
List1.Clear
End Sub
DEMIKIAN PEMOGRAMAN SEDERHANA UNTUK PENGGAJIAN. TERIMA KASIH
