Program gaji karyawan
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
0 comments:
Post a Comment