form bengkel

Private Sub Check1_Click()

If Check1.Value = 1 Then

    tjumlah.Text = 200000 + Val(tjumlah.Text)

ElseIf Check1.Value = 0 Then

    tjumlah.Text = Val(tjumlah.Text) - 200000

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

    tjumlah.Text = 400000 + Val(tjumlah.Text)

ElseIf Check2.Value = 0 Then

    tjumlah.Text = Val(tjumlah.Text) - 400000

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

    tjumlah.Text = 100000 + Val(tjumlah.Text)

ElseIf Check3.Value = 0 Then

    tjumlah.Text = Val(tjumlah.Text) - 100000

End If

End Sub

Private Sub chitung_Click()

ttotal.Text = Val(tjumlah.Text) + Val(tbiaya.Text)

End Sub

Private Sub cinput_Click()

bersih

aktif

End Sub

Private Sub ckeluar_Click()

If MsgBox("Yakin Mau Keluar?", vbYesNo + vbQuestion, "Informasi") Then End

End Sub

Private Sub Combo1_Click()

Select Case Combo1.Text

Case "F2009LK"

twil.Text = "Bogor"

Case "B3328XY"

twil.Text = "Jakarta"

Case "D490BO"

twil.Text = "Bandung"

End Select

End Sub

Private Sub Form_Activate()

Dim x As Control

For Each x In Me

If TypeOf x Is TextBox Then x.Enabled = False

If TypeOf x Is ComboBox Then x.Enabled = False

If TypeOf x Is Frame Then x.Enabled = False

Next

End Sub

Private Sub Form_Load()

Combo1.AddItem "F2009LK"

Combo1.AddItem "B3328XY"

Combo1.AddItem "D490BO"

List1.AddItem "RN"

List1.AddItem "DR"

List1.AddItem "BD"

End Sub

Private Sub List1_Click()

Select Case List1.Text

Case "RN"

tnama.Text = "Ramdan"

tbiaya.Text = 400000

Case "DR"

tnama.Text = "Deri"

tbiaya.Text = 300000

Case "BD"

tnama.Text = "Budi"

tbiaya.Text = 250000

End Select

End Sub

Private Sub tbayar_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tkembali.Text = Val(tbayar.Text) - Val(ttotal.Text)

End If

End Sub

Sub aktif()

Dim x As Control

For Each x In Me

If TypeOf x Is TextBox Then x.Enabled = True

If TypeOf x Is ComboBox Then x.Enabled = True

If TypeOf x Is Frame Then x.Enabled = True

Next

End Sub

Sub bersih()

Dim x As Control

For Each x In Me

If TypeOf x Is TextBox Then x.Text = ""

If TypeOf x Is ComboBox Then x.Text = ""

If TypeOf x Is CheckBox Then x.Value = False

If TypeOf x Is CheckBox Then x.Enabled = True

Next

End Sub