form perpustakaan

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