Tuesday, November 17, 2009

wayolooo!

Combo1_click
Check1.setfocus
End sub

Command_2
Text1.text = ""
Sampe text7.text = ""
Combo1.text = ""
Check1.value = 0
sampe check3.value = 0
Option1.value = false
Option2.value = false
End sub

Command_1
Dim gapok as currency
Dim tunjangan as currency
Sama semua : gator, pajak, gaber
If combo1.text = "direktur" then
Gapok = 5juta (pake angka)
Elseif combo1.text = "manager" then
Gapok = 3juta
Sama semua sampe"staff","office boy", "receptionist"
End if
If option1.value = true then
Tunjangan = 0,5 * gapok
Else tunjangan = 0
End if
Gator = gapok + tunjangan
Pajak = 0.1 * gator
Gaber = gator-pajak
text3.text = gapok
Sampe text7.text = gaber
End sub

Command_3
Unload me
End sub

Form_load
Combo1.additem "direktur"
Sampe "receptionist"
End sub

Text1_keypress (keyascii as interger)
If keyascii = 13 then
Combo1.setfocus
End if
End sub

Text2_keypress
If keyascii = 13 then
Text1.setfocus
End if
End sub

Jam.timer
Label(label keberapa).caption = format (now, "hh:mm:dd")
End sub

No comments:

Post a Comment