kalo yang ini tetang salon.....

gaya dikit ok!!

Private Sub aktif()

tnama.Enabled = True

c1.Enabled = True

c2.Enabled = True

c3.Enabled = True

c4.Enabled = True

opt1.Enabled = True

opt2.Enabled = True

cmbk.Enabled = True

tubay.Enabled = True

End Sub

---

Private Sub nonaktif()

tnama.Enabled = False

c1.Enabled = False

c2.Enabled = False

c3.Enabled = False

c4.Enabled = False

opt1.Enabled = False

opt2.Enabled = False

cmbk.Enabled = False

tubay.Enabled = False

ttgl.Enabled = False

twkt.Enabled = False

th1.Enabled = False

th2.Enabled = False

th3.Enabled = False

th4.Enabled = False

th5.Enabled = False

tnk.Enabled = False

ttobay.Enabled = False

tukem.Enabled = False

End Sub

---

Private Sub bersih()

tnama.Text = ""

c1.Value = 0

c2.Value = 0

c3.Value = 0

c4.Value = 0

opt1.Value = 0

opt2.Value = 0

cmbk.Text = ""

tubay.Text = ""

th1.Text = ""

th2.Text = ""

th3.Text = ""

th4.Text = ""

th5.Text = ""

tnk.Text = ""

ttobay.Text = ""

tukem.Text = ""

End Sub

---

Private Sub c1_Click()

If c1.Value = 1 Then

th1.Text = 75000

Else

th1.Text = 0

End If

End Sub

---

Private Sub c2_Click()

If c2.Value = 1 Then

th2.Text = 65000

Else

th2.Text = 0

End If

End Sub

---

Private Sub c3_Click()

If c3.Value = 1 Then

th3.Text = 55000

Else

th3.Text = 0

End If

End Sub

---

Private Sub c4_Click()

If c4.Value = 1 Then

th41.Text = 45000

Else

th4.Text = 0

End If

End Sub

---

Private Sub cmbk_Click()

If cmbk.Text = "A001" Then

tnk.Text = "Heni"

ElseIf cmbk.Text = "A002" Then

tnk.Text = "Shinta"

Else

tnk.Text = "Nova"

End If

End Sub

---

Private Sub cmddata_Click()

bersih

aktif

tnama.SetFocus

cmbk.Text = "-Pilih-"

cmddata.Enabled = False

cmdhitung.Enabled = True

cmdkeluar.Enabled = True

End Sub

---

Private Sub cmdhitung_Click()

ttobay.Text = Val(th1.Text) + Val(th2.Text) + Val(th3.Text) + Val(th4.Text) + Val(th5.Text)

tubay.SetFocus

cmddata.Enabled = True

cmdhitung.Enabled = False

cmdkeluar.Enabled = True

End Sub

---

Private Sub cmdkeluar_Click()

X = MsgBox("Tutup Form?", vbYesNo + vbQuestion, "Konfirmasi")

If X = vbYes Then

Unload Me

End If

End Sub

---

Private Sub Form_Activate()

bersih

nonaktif

cmbk.AddItem "A001"

cmbk.AddItem "A002"

cmbk.AddItem "A003"

ttgl.Text = Date

twkt.Text = Time

cmddata.Enabled = True

cmdhitung.Enabled = False

cmdkeluar.Enabled = True

End Sub

---

Private Sub opt1_Click()

If opt1.Value = True Then

th5.Text = 100000

End If

End Sub

---

Private Sub opt2_Click()

If opt2.Value = True Then

th5.Text = 200000

End If

End Sub

---

Private Sub tubay_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Val(tubay.Text) < Val(ttobay.Text) Then

    MsgBox "Maaf Uang Bayar Kurang Rp. " & (Val(ttobay.Text) - Val(tubay.Text)) & "," & "Silahkan Input Kembali", vbOKOnly + vbInformation, "Informasi"

tubay.Text = ""

tubay.SetFocus

ttukembali = ""

Else

tukem.Text = Val(tubay.Text) - Val(ttobay.Text)

End If

End If

End Sub