Menghitung Gaji Karyawan Di vb 6

Hai Sobat Blooger Ketemu Lagi Dengan saya Kali ini saya Akan share Tentang Tutorial Vb6 yaitu Menghitung Gaji karyawan Di vb 6 Bagi anda Berkenan silahkan Simak Baik-baik :
Pertama-tama yang harus dilakukan


Siapkan Sebuah
Textbox 6 buah,Combobox 1 Buah Dan Command Button 3 buah..
Dan Ini Screnshot Nya Silahkan Dikembangkan lagi oleh Anda :



Dan Ini Source Code nya :

Private Sub Combo1_Click()

If Combo1.Text = "NIKAH" Then

Text5.Text = 0.1 * Val(Text4.Text)

Else

Text5.Text = 0

End If

End Sub

Private Sub Command1_Click()

Text6.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text4.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

End Sub

Private Sub Command3_Click()

MsgBox "Terima Kasih", vbInformation, "ZalART"

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "NIKAH"

Combo1.AddItem "BELUM NIKAH"

Combo1.ListIndex = 0

End Sub

Private Sub Text2_Change()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 lalu jalankan Dengan Menekan Tombol F5
Lalu Lihat Hasilnya Mudah Mudah Bermanfaat ea..