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*