program menghitung gaji karyawan dgn VB

buat ente2 yang mau belajar pemograman visual basic (VB),ne ane sedikit mau sharing sebuah program sederhana bagaimana menghitung gaji karyawan dengan menggunakan VB, buat tampilan Form ente seperti dibawah ini :

1.Ketik script dibawah ini pada commant  “HITUNG”

Private Sub Command1_Click()
Text7 = 10000 * Val(Text4)
Text8 = 5000 * Val(Text4)
Text9 = 15000 * Val(Text5)
Text10 = Val(Text3) + Val(Text7) + Val(Text8) + Val(Text9) - Val(Text6)
Text11 = 0.1 * Val(Text10)
Text12 = Val(Text10) - Val(Text11)
End Sub


2. ketik script dibawah ini pada commant  “BERSIH” :

Private Sub Command2_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
Text9 = Clear
Text10 = Clear
Text11 = Clear
Text12 = Clear
Text1.SetFocus
End Sub

3. ketikan script dibawah ini pada commant  “SELESAI” :

Private Sub Command3_Click()
MsgBox ("good by...!!!")
End
End Sub

Pada component text yang berwarna abu2 ubah poperties Loked nya menjadi true, agar hasil outputnya tidak bisa di edit, caranya : klik text yang ingin dirubah propertiesnya lalu cari LOKED pada properties pilih true. 
Setelah itu jalankan programnya dengan menekan F5 pada keyboard
Semoga bermanfaat….

by Facebook Comment , Mau ?