V

pemograman visual 2

Private Sub Check1_Click()
tot = "15000"
Text1.SetFocus
End Sub
Private Sub Check2_Click()
tot1 = "15000"
Text2.SetFocus
End Sub
Private Sub Check3_Click()
tot2 = "25000"
text3.SetFocus
End Sub
Private Sub Check4_Click()
tot3 = "25000"
Text4.SetFocus
End Sub
Private Sub Cmb_nip_Click()
Select Case Cmb_nip
Case "1201"
namapetugas = "ALI"
Case "1202"
namapetugas = "MALIK"
Case Else
namapetugas = "HADI"
End Select
End Sub
Sub nonaktif()
Me.Cmb_nip.Enabled = False
Me.Option1.Enabled = False
Me.Option2.Enabled = False
Me.Option3.Enabled = False
Me.Command3.Enabled = False
Me.Command4.Enabled = False
Me.Command5.Enabled = False
Me.Check1.Enabled = False
Me.Check2.Enabled = False
Me.Check3.Enabled = False
Me.Check4.Enabled = False
End Sub

Sub aktif()
Me.Cmb_nip.Enabled = True
Me.Option1.Enabled = True
Me.Option2.Enabled = True
Me.Option3.Enabled = True
Me.Command3.Enabled = True
Me.Command4.Enabled = True
Me.Command5.Enabled = True
Me.Check1.Enabled = True
Me.Check2.Enabled = True
Me.Check3.Enabled = True
Me.Check4.Enabled = True
Me.namapetugas.Text = ""
Me.tot.Text = ""
Me.tot1.Text = ""
Me.tot2.Text = ""
Me.tot3.Text = ""
Me.biayaadministrasi.Text = ""
Me.biayatransaksi.Text = ""
Me.jumlah1.Text = ""
Me.jumlah2.Text = ""
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.text3.Text = ""
Me.Text4.Text = ""
End Sub

Private Sub Command1_Click()
aktif
End Sub

Private Sub Command3_Click()
jumlah1 = (Val(Text1) * Val(tot)) + (Val(Text2) * Val(tot1))
End Sub
Private Sub Command4_Click()
jumlah2 = (Val(text3) * Val(tot2)) + (Val(Text4) * Val(tot3))
End Sub
Private Sub Command5_Click()
biayatransaksi = Val(jumlah1) + Val(jumlah2)
End Sub


Private Sub Form_Load()
nonaktif
End Sub




Private Sub keluar_Click()
P = MsgBox("Anda Yakin Keluar", vbQuestion + vbOKCancel, "Informasi")
If P = vbOK Then
End
End If
End Sub
Private Sub Option1_Click()
biayaadministrasi = "10000"
End Sub
Private Sub Option2_Click()
biayaadministrasi = "8500"
End Sub
Private Sub Option3_Click()
biayaadministrasi = "5000"
End Sub
Private Sub Timer1_Timer()
Label11.Caption = Format(Date, "dddd dd mmmm yyyy")
Label12.Caption = Format(Time, "hh mm ss")
End Sub
Private Sub biayaadministrasi_change()
tobay = Val(biayatransaksi) + Val(biayaadministrasi)
tobay.SetFocus
End Sub

Pemograman Visual 1

 

Private Sub cmb_kode_click()

Select Case cmb_kode

Case "C01"

merk.Text = "Pepsodent"

hrg = 6000

stock = 100

Case "C02"

merk.Text = "Close Up"

hrg = 5000

stock = 200

Case Else

merk.Text = "Enzim"

hrg = 8000

stock = 400

End Select

End Sub

Private Sub cmd_beli_Click()

tgl.Text = " "

jam.Text = " "

cmb_kode.Text = " "

merk.Text = " "

hrg.Text = " "

stock.Text = " "

jumbel.Text = " "

total.Text = " "

uabay.Text = " "

uakem.Text = " "

tgl.SetFocus

End Sub

Private Sub cmd_keluar_Click()

p = MsgBox("Anda Yakin Keluar", vbQuestion + vbOKCancel, "Informasi")

If p = vbOK Then

End

End If

End Sub

Private Sub Command2_Click()

total = Val(jumbel) * Val(hrg)

total.SetFocus

End Sub

Private Sub uabay_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

uakem = Val(uabay) - (Val(jumbel) * Val(hrg))

uabay.SetFocus

End If

End Sub