Kamis, 02 Desember 2010

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