Cara Membuat Program Penghitungan Gaji Menggunakan Visual Basic 6.0

Cara Membuat Program Penghitungan Gaji Menggunakan Visual Basic 6.0

Kali ini HotToIndo.Blogspot.com akan memberikan informasi tentang cara membuat program penghitungan gaji menggunakan visual basic 6.0.

Oke langsung saja.

Gambar di atas adalah tampilan form dari program penghitungan gaji yang kita ingin bikin.

Berikut adalah source code nya.

Private Sub Command5_Click()
Text14.Text = Val(Text7.Text) + Val(Text13.Text) + Val(Text12.Text) + Val(Text16.Text)
End Sub

Private Sub Command6_Click()
Text1.Text = ""
End Sub

Private Sub Command7_Click()
Text2.Text = ""
End Sub

Private Sub Command8_Click()
Text3.Text = ""
End Sub

Private Sub Command9_Click()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
End Sub


Private Sub Form_Load()
Combo1.AddItem ("00001")
Combo1.AddItem ("00002")
Combo1.AddItem ("00003")
Combo1.AddItem ("00004")
Combo1.AddItem ("00005")
Combo1.AddItem ("00006")
Combo1.AddItem ("00007")
Combo1.AddItem ("00008")
Combo1.AddItem ("00009")
Combo1.AddItem ("00010")


Combo2.AddItem ("1")
Combo2.AddItem ("2")
Combo2.AddItem ("3")
Combo2.AddItem ("4")
Combo2.AddItem ("5")
Combo2.AddItem ("7")
Combo2.AddItem ("8")
Combo2.AddItem ("9")
Combo2.AddItem ("10")
Combo2.AddItem ("11")
Combo2.AddItem ("12")
Combo2.AddItem ("13")
Combo2.AddItem ("14")
Combo2.AddItem ("15")
Combo2.AddItem ("16")
Combo2.AddItem ("17")
Combo2.AddItem ("18")
Combo2.AddItem ("19")
Combo2.AddItem ("20")
Combo2.AddItem ("21")
Combo2.AddItem ("22")
Combo2.AddItem ("23")
Combo2.AddItem ("24")
Combo2.AddItem ("25")
Combo2.AddItem ("26")
Combo2.AddItem ("27")
Combo2.AddItem ("28")
Combo2.AddItem ("29")
Combo2.AddItem ("30")
Combo2.AddItem ("31")

Combo4.AddItem ("1")
Combo4.AddItem ("2")
Combo4.AddItem ("3")
Combo4.AddItem ("4")
Combo4.AddItem ("5")
Combo4.AddItem ("7")
Combo4.AddItem ("8")
Combo4.AddItem ("9")
Combo4.AddItem ("10")
Combo4.AddItem ("11")
Combo4.AddItem ("12")
Combo4.AddItem ("13")
Combo4.AddItem ("14")
Combo4.AddItem ("15")
Combo4.AddItem ("16")
Combo4.AddItem ("17")
Combo4.AddItem ("18")
Combo4.AddItem ("19")
Combo4.AddItem ("20")
Combo4.AddItem ("21")
Combo4.AddItem ("22")
Combo4.AddItem ("23")
Combo4.AddItem ("24")
Combo4.AddItem ("25")
Combo4.AddItem ("26")
Combo4.AddItem ("27")
Combo4.AddItem ("28")
Combo4.AddItem ("29")
Combo4.AddItem ("30")
Combo4.AddItem ("31")

Combo3.AddItem ("1")
Combo3.AddItem ("2")
Combo3.AddItem ("3")
Combo3.AddItem ("4")
Combo3.AddItem ("5")
Combo3.AddItem ("7")
Combo3.AddItem ("8")
Combo3.AddItem ("9")
Combo3.AddItem ("10")
Combo3.AddItem ("11")
Combo3.AddItem ("12")
Combo3.AddItem ("13")
Combo3.AddItem ("14")
Combo3.AddItem ("15")
Combo3.AddItem ("16")
Combo3.AddItem ("17")
Combo3.AddItem ("18")
Combo3.AddItem ("19")
Combo3.AddItem ("20")
Combo3.AddItem ("21")
Combo3.AddItem ("22")
Combo3.AddItem ("23")
Combo3.AddItem ("24")
Combo3.AddItem ("25")
Combo3.AddItem ("26")
Combo3.AddItem ("27")
Combo3.AddItem ("28")
Combo3.AddItem ("29")
Combo3.AddItem ("30")
Combo3.AddItem ("31")

Label28 = FormLogin.Text1

End Sub



Private Sub Text11_Change()
Text11.Text = Text1.Text

End Sub

Private Sub Text15_Change()
Text15.Text = Text1.Text
End Sub

Private Sub Timer1_Timer()
ljam.Caption = Time
ltanggal.Caption = Format(Date, "mmmm,yyyy")
End Sub


Oke mungkin itu saja, jika ada yang ingin di tanyakan silahkan tulis di komentar.

Semoga bermanfaat :)

Posted by Unknown