Kamis, 02 Desember 2010

SOURCE CODE FORM PERHITUNGAN

lia.aliya@hotmail.com

TOMBOL HITUNG

Private Sub Command1_Click()
If Option1.Value = True Then
Text3.Text = Text1.Text + Text2.Text * 1
Else

If Option2.Value = True Then
Text3.Text = Text1.Text - Text2.Text * 1
Else

If Option3.Value = True Then
Text3.Text = Text1.Text * Text2.Text * 1
Else

If Option4.Value = True Then
Text3.Text = Text1.Text / Text2.Text * 1

End If
End If
End If
End If
End Sub

TOMBOL HAPUS

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End Sub


TOMBOL KELUAR

Private Sub Command3_Click()
Unload Me
End Sub

SOURCE CODE FORM PASSWORD

lia.aliya@hotmail.com

TOMBOL OK

Private Sub Command1_Click()
Dim ulangi As Boolean
ulangi = True
Do While (ulangi)
If (Text1.Text = "labkomb" And Text2.Text = "123456") Then
MsgBox "GOOD! it's MATCH!!", vbInformation, "I LIKE IT!!"
Unload Form1
Form2.Show
ulangi = False
Else
MsgBox "salah tuh passwordnya!", vbExclamation, "NACHHH lhooo!!"
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus
Exit Do
ulangi = True
End If
Loop
End Sub


TOMBOL KELUAR

Private Sub Command2_Click()
Unload Me
End Sub

SOURCE CODE UNTUK FORM KAFE

lia.aliya@hotmail.com

TOMBOL BAYAR

Private Sub Command1_Click()
If Check1.Value = Checked Then
A = 12000 * Text1.Text
End If
If Check2.Value = Checked Then
B = 10000 * Text2.Text
End If
If Check3.Value = Checked Then
C = 18500 * Text3.Text
End If
If Check4.Value = Checked Then
D = 15000 * Text4.Text
End If
If Check5.Value = Checked Then
E = 8500 * Text5.Text
End If
If Check6.Value = Checked Then
F = 10000 * Text6.Text
End If
If Check7.Value = Checked Then
G = 5000 * Text7.Text
End If
If Check8.Value = Checked Then
H = 17000 * Text8.Text
End If
If Check9.Value = Checked Then
I = 15000 * Text9.Text
End If
If Check10.Value = Checked Then
J = 5000 * Text10.Text
End If
Text11.Text = A + B + C + D + E + F + G + H + I + J
End Sub


TOMBOL HAPUS

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
Text11.Text = " "
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Check5.Value = False
Check6.Value = False
Check7.Value = False
Check8.Value = False
Check9.Value = False
Check10.Value = False
End Sub


TOMBOL KELUAR

Private Sub Command3_Click()
Unload Me
End Sub

mAu cArI aPA SEH tulis disini