Private Sub cbaru_Click()
BERSIH
AKTIF
End Sub
Private Sub Check1_Click()
Dim a As String
Dim i As Byte
If Check1.Value = 1 Then
For i = 1 To 3
a = "TA0" & i
Combo1.AddItem a
Next
Else
Combo1.Clear
End If
End Sub
Private Sub Check2_Click()
Dim a As String
Dim i As Byte
If Check2.Value = 1 Then
For i = 1 To 3
a = "KKP0" & i
Combo2.AddItem a
Next
Else
Combo2.Clear
End If
End Sub
Private Sub Check3_Click()
Dim a As String
Dim i As Byte
If Check3.Value = 1 Then
For i = 1 To 3
a = "11.A0" & i
Combo3.AddItem a
Next
Else
Combo3.Clear
End If
End Sub
Private Sub ckeluar_Click()
If MsgBox("MAU KELUAR YA?", vbYesNo + vbQuestion, "PERTANYAAN") Then End
End Sub
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "TA01"
tj1.Text = "PERANCANGAN PROGRAM"
tb1.Text = 1500
Case "TA02"
tj1.Text = "SISTEM ANALISIS"
tb1.Text = 1500
Case "TA03"
tj1.Text = "ECOMMERCE-WEB"
tb1.Text = 1500
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo2.Text
Case "KKP01"
tj2.Text = "SISTEM PENGGAJIAN"
tb2.Text = 1000
Case "KKP02"
tj2.Text = "SISTEM PEMBAYARAN KREDIT"
tb2.Text = 1000
Case "KKP03"
tj2.Text = "SISTEM PEMBAYARAN PAJAK"
tb2.Text = 1000
End Select
End Sub
Private Sub Combo3_Click()
Select Case Combo3.Text
Case "11.A01"
tj3.Text = "BASIS DATA"
tb3.Text = 500
Case "11.A02"
tj3.Text = "SISTEM INFORMASI"
tb3.Text = 500
Case "11.A03"
tj3.Text = "PENGENALAN KOMPUTER"
tb3.Text = 500
End Select
End Sub
Private Sub ctotal_Click()
tas.Text = Val(ts1.Text) + Val(ts2.Text) + Val(ts3.Text)
End Sub
Private Sub Form_Activate()
NONAKTIF
End Sub
Sub NONAKTIF()
Dim X As Control
For Each X In Me
If TypeOf X Is CheckBox Then X.Enabled = False
If TypeOf X Is ComboBox Then X.Enabled = False
If TypeOf X Is TextBox Then X.Enabled = False
Next
End Sub
Sub BERSIH()
Dim X As Control
For Each X In Me
If TypeOf X Is CheckBox Then X.Enabled = True
If TypeOf X Is CheckBox Then X.Value = False
If TypeOf X Is ComboBox Then X.Text = ""
If TypeOf X Is TextBox Then X.Text = ""
Next
End Sub
Private Sub tl1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ts1.Text = tl1.Text * tb1.Text
End If
End Sub
Private Sub tl2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ts2.Text = tl2.Text * tb2.Text
End If
End Sub
Private Sub tl3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ts3.Text = tl3.Text * tb3.Text
End If
End Sub
Sub AKTIF()
Dim X As Control
For Each X In Me
If TypeOf X Is CheckBox Then X.Enabled = True
If TypeOf X Is ComboBox Then X.Enabled = True
If TypeOf X Is TextBox Then X.Enabled = True
Next
End Sub
