Sorry ya kalo nih program agak TJADTJAD dan gak jelas . heheheh
Soalnya baru belajar visual basic, dan itu gak mudah ^^ mau nyoba2 aja, nih prog nya :

Mulai dari belajar
[You must be registered and logged in to see this link.]

Berlanjut, nyoba2 buat
[You must be registered and logged in to see this link.]

Terus nyoba buat lagi
[You must be registered and logged in to see this link.]

Semakin semangat
[You must be registered and logged in to see this link.]


Baru belajar 1 hari nih, sorry kalo jelek ...

Yang mau script yang billing/ penghitung . nih !

Quote :

Private Sub Form_Activate()
Combo1.AddItem "Paket 2"
Combo1.AddItem "Paket 3"
Combo1.AddItem "Paket 4"
Combo1.AddItem "Paket 5"
txtpembayaran.Enabled = False
txtjenis.Enabled = False
txtbil.Enabled = False
End Sub
Private Sub cmdtut_Click()
MsgBox ("-Pilih jenis billing")
MsgBox ("-Masukan uang konsumen")
MsgBox ("Tekan HITUNG !")
End Sub

Private Sub cmdclear_Click()
Combo1 = ""
txtbayar = ""
txtpembayaran = ""
txtbil = ""
txtjenis = ""
txtuang = ""
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub CMDHITUNG_Click()
txtpembayaran = (txtuang - txtbil)
End Sub
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
txtjenis = "1 jam"
txtbil = "3000"
ElseIf Combo1.ListIndex = 1 Then
txtjenis = "2 jam"
txtbil = "5000"
ElseIf Combo1.ListIndex = 2 Then
txtjenis = "3 jam"
txtbil = "8000"
Else
txtjenis = "4 jam"
txtbil = "10000"
End If
End Sub

Scriptnya asli!! dari gue... capek juga ...

@TS
owhh .. Visual basic kyk gini
cariin Script bwt lock flaskDisk dong fred
waktu itu gue contohin dari Forum orang lain .. tp ternyata gk work

susah juga lho script ini ~_~ sampe2 untuk selesaikan 1 program butuh waktu sekitar setengah jam

Nih lagi..

[You must be registered and logged in to see this link.]

@^
itu yg lu kasih smacem kode" itu .. mesti di ketik dimana pke notepad kah