welcome
Jumat, 29 Mei 2009
TUGAS VISUAL BASIC
Kode Programnya:
Private Sub Command1_Click()
If TJABATAN.Text = "MANAGER" Then
TGAPOK.Text = "3000000"
Else
If TJABATAN.Text = "DIREKTUR" Then
TGAPOK.Text = "2000000"
Else
If TJABATAN.Text = "BENDAHARA" Then
TGAPOK.Text = "1500000"
Else
If TJABATAN.Text = "SEKRETARIS" Then
TGAPOK.Text = "1200000"
Else
If TJABATAN.Text = "OPERATOR" Then
TGAPOK.Text = "1000000"
End If
End If
End If
End If
End If
TPPH.Text = TGAPOK * 0.1
LGAJIBERSIH.Caption = "GAJI BERSIH: " & (TGAPOK.Text - TPPH.Text)
End Sub
Private Sub Command2_Click()
TNIK.Text = ""
TNAMA.Text = ""
TJABATAN.Text = ""
TGAPOK.Text = ""
TPPH.Text = ""
LGAJIBERSIH.Caption = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Label7 = Time
End Sub
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar