GUDANG MOTOR INDAH

 SOAL

MODE NON AKTIF

MODE AKTIF

TOMBOL HITUNG DI CLICK PADA 2 TRANSAKSI

TOMBOL HITUNG DI CLICK PADA 4 TRANSAKSI

TOTAL BIAYA

TOMBOL KELUAR MUNCUL INFORMASI

#CODING PROGRAM#

 Sub nonaktif()

 nip.Enabled = False

 tnama.Enabled = False

 Check1.Enabled = False

 Check2.Enabled = False

 Check3.Enabled = False

 Check4.Enabled = False

 thorn.Enabled = False

 tflesher.Enabled = False

 tspedo.Enabled = False

 tstater.Enabled = False

 tqtyhorn.Enabled = False

 tqtyflesher.Enabled = False

 tqtyspedo.Enabled = False

 tqtystater.Enabled = False

 tjumlah1.Enabled = False

 tjumlah2.Enabled = False

 tbiayatrans.Enabled = False

 cmdjumlah1.Enabled = False

 cmdjumlah2.Enabled = False

 cmdhitung.Enabled = False

 Option1.Enabled = False

 Option2.Enabled = False

 Option3.Enabled = False

 tbiaya.Enabled = False

 ttotal.Enabled = False

 End Sub

Private Sub Form_Activate()

nonaktif

End Sub

Sub aktif()

nip.Enabled = True

tnama.Enabled = True

 Check1.Enabled = True

 Check2.Enabled = True

 Check3.Enabled = True

 Check4.Enabled = True

 thorn.Enabled = True

 tflesher.Enabled = True

 tspedo.Enabled = True

 tstater.Enabled = True

 tqtyhorn.Enabled = True

 tqtyflesher.Enabled = True

 tqtyspedo.Enabled = True

 tqtystater.Enabled = True

 tjumlah1.Enabled = True

 tjumlah2.Enabled = True

 tbiayatrans.Enabled = True

 cmdjumlah1.Enabled = True

 cmdjumlah2.Enabled = True

 cmdhitung.Enabled = True

 Option1.Enabled = True

 Option2.Enabled = True

 Option3.Enabled = True

 ttotal.Enabled = True

End Sub

Sub bersih()

 tnama.Text = ""

 Check1.Enabled = True

 Check2.Enabled = True

 Check3.Enabled = True

 Check4.Enabled = True

 thorn.Text = ""

 tflesher.Text = ""

 tspedo.Text = ""

 tstater.Text = ""

 tqtyhorn.Text = ""

 tqtyflesher.Text = ""

 tqtyspedo.Text = ""

 tqtystater.Text = ""

 tjumlah1.Text = ""

 tjumlah2.Text = ""

 tbiayatrans.Text = ""

 Option1.Enabled = True

 Option2.Enabled = True

 Option3.Enabled = True

 tbiaya.Enabled = True

 ttotal.Enabled = True

End Sub

 Sub form_load()

nip.AddItem ("1201")

nip.AddItem ("1202")

nip.AddItem ("1203")

 End Sub

 

 

Private Sub nip_Click()

If nip.Text = "1201" Then

 tnama.Text = "ALI"

 ElseIf nip.Text = "1202" Then

 tnama.Text = "MALIK"

 Else: tnama.Text = "HADI"

 End If

 Check1.SetFocus

End Sub

Private Sub Option1_Click()

tbiaya.Text = "10000"

End Sub

Private Sub Option2_Click()

tbiaya.Text = "8500"

End Sub

Private Sub Option3_Click()

tbiaya.Text = "5000"

End Sub

Private Sub tbiaya_Click()

tbiaya = Val(tbiaya) + Val(tbiayatrans)

End Sub

Private Sub Timer1_Timer()

ttanggal.Text = Format(Date, "dddd dd mmmm yyyy")

jam.Text = Format(Time, "h:m:s")

End Sub

Private Sub tqtyflesher_Change()

tqtyflesher.SetFocus

End Sub

Private Sub tqtyhorn_Change()

tqtyhorn.SetFocus

End Sub

Private Sub ttotal_Click()

ttotal = Val(tbiaya) + Val(tbiayatrans)

End Sub

Private Sub Check1_Click()

thorn.Text = "15000"

tqtyhorn.SetFocus

End Sub

Private Sub Check2_Click()

tflesher.Text = "15000"

End Sub

Private Sub Check3_Click()

tstater.Text = "25000"

End Sub

Private Sub Check4_Click()

tspedo.Text = "25000"

tqtyspedo.SetFocus

End Sub

Private Sub cmdhitung_Click()

tbiayatrans = Val(tjumlah1) + Val(tjumlah2)

End Sub

Private Sub cmdinput_Click()

aktif

bersih

End Sub

Private Sub cmdjumlah1_Click()

tjumlah1 = (Val(thorn) * Val(tqtyhorn)) + (Val(tflesher)) * (Val(tqtyflesher))

Check4.SetFocus

End Sub

Private Sub cmdjumlah2_Click()

tjumlah2 = (Val(tspedo) * Val(tqtyspedo)) + (Val(tstater) * Val(tqtystater))

End Sub

Private Sub cmdkeluar_Click()

alam = MsgBox("Apakah anda yakin akan keluar dari form ?", vbQuestion + vbOKCancel, "Informasi")

If alam = vbOK Then

End

End If

End Sub

*TUTORIAL PROJEC*

PEMPROGAMAN VISUAL BASIC 1

Soal 

1.Kode barang berisikan : CO1,CO2,C03

2.Jika kode CO1 maka merk Pepsodent, Harga 6000, dan Stok 100

3.Jika kode CO2 maka merk Close Up Harga 5000, dan Stok 200

4.Jika kode CO3 maka merk Enzim, Harga 8000, dan Stok 400

5.Klik Beli, maka dapat menginput data baru

6.Klik Hitung tampil total

7.Di enter tampil kembali

7.Coding Program 

Private Sub cmdbarang_Click()

Select Case (cmdbarang.Text)

Case "CO1"

    merk = "Pepsodent"

    harga = 6000

    stock = 100

    

Case "CO2"

    Me.merk = "close up"

    Me.harga = 5000

    Me.stock = 200

    

Case "CO3"

    Me.merk = "Enzim"

    Me.harga = 8000

    Me.stock = 400

End Select

End Sub

Private Sub cmdbeli_Click()

merk.Text = ""

harga.Text = ""

stock.Text = ""

jumbel.Text = ""

total.Text = ""

ubay.Text = ""

ukem.Text = ""

cmdbarang.SetFocus

End Sub

Private Sub cmdhitot_Click()

total.Text = Val(harga.Text) * Val(jumbel.Text)

End Sub

Private Sub cmdkel_Click()

acs = MsgBox("Yakin Ingin Keluar", vbQuestion + vbYesNo, "Keluar")

If acs = vbYes Then

Unload Me

End If

End Sub

Private Sub Timer1_Timer()

tanggal = Date

jam = Time()

End Sub

Private Sub ubay_KeyPress(Keyascii As Integer)

If Keyascii = 13 Then

ukem.Text = Val(ubay.Text) - Val(total.Text)

ubay.SetFocus

End If

End Sub

TUTORIAL PEMPROGAMAN VISUAL BASIC 1