Wednesday, July 31, 2013
Baik sekarang kita belajar untuk membuat billing Warnet menggunakan VB (visual Basic). untuk lebih lanjut Baca2 dulu gan dan ada saran dari saya usahakan anda sudah memiliki softwarenya. hehehe..Mari kawan kita belajar visual basic mungkin lama-lama nanti kita semakin suka buat pemoggraman.
sekarang coba kita peraktekkan yang hoby visual basic ne..
dengan memakai coding di bawah ini:
(1) Command 1 (start) --------------------- click
Private Sub Command1_Click()
mulai = Now()
Text2.Text = Format(mulai, "hh:mm:ss")
End Sub
(2) Command 2 (finish) -------------------click
Private Sub Command2_Click()
selesai = Now
lama = selesai - mulai
lm_menit = (Hour(lama) * 60 + Minute(lama))
biaya = lm_menit * 50
Text3.Text = Format(selesai, "hh:mm:ss")
Text4.Text = lm_menit
Text5.Text = "Rp." & biaya
End Sub
(3) Command 3 (tri again) ------------click
Private Sub Command3_Click()
Text1.Text = "5"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
(4) Command 4 (exit)-------------------click
Private Sub Command4_Click()
Unload Me
End Sub
(5) Form ----------------------------load
Private Sub Form_Load()
Text1.Text = "5"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
(General)----------------------(Declerations)
Dim mulai, selesai, lama As Variant
Sekian dari saya untuk info lebih lanjut klik Disini.
.jpg)
