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

Readmore »» form perpustakaan

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

Readmore »» form bengkel

form penjualan

Private Sub cinput_Click()

aktif

bersih

End Sub

Private Sub ckeluar_Click()

If MsgBox("yakin lu mau keluar", vbYesNo + vbQuestion, "informasi") Then End

End Sub

Private Sub Combo1_Click()

Select Case Combo1.Text

Case "B-001"

tnama.Text = "Pasta Gigi"

tharga.Text = 7000

Case "B-002"

tnama.Text = "Obat Kumur"

tharga.Text = 15000

Case "B-003"

tnama.Text = "SikatGigi"

tharga.Text = 3000

End Select

End Sub

Private Sub Form_Load()

Combo1.AddItem "B-001"

Combo1.AddItem "B-002"

Combo1.AddItem "B-003"

nonaktif

End Sub

Private Sub ogold_Click()

tpot.Text = Val(tharga.Text) * 0.1

End Sub

Private Sub osilver_Click()

tpot.Text = Val(tharga.Text) * 0.05

End Sub

Private Sub tbeli_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ttotal.Text = Val(tbeli.Text * (tharga.Text - tpot.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 OptionButton Then x.Value = True

Next

End Sub

Sub nonaktif()

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 OptionButton Then x.Value = False

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 OptionButton Then x.Value = False

If TypeOf x Is OptionButton Then x.Enabled = True

Next

End Sub

Selamat Mencoba :D

Readmore »» form penjualan