Global | You can find anything here!
If you dont have any account,please to register or 'Log In' if you already have account.

Please always read Forum General Rules before you start posting here

Thanks for your attention!

Regards,
Global Team

Global | You can find anything here!

Anything can you find in global.cinebb.com
 
HomeCalendarFAQSearchRegisterLog in
Welcome in Global forum.Please read our rules before posting

Share | 
 

 [Share] Berbagai program cacad ^^

View previous topic View next topic Go down 
AuthorMessage
Alfred
Admin
Admin
avatar

Jumlah posting Jumlah posting : 577
Voltage COIN's Voltage COIN's : 4578
Join date : 2010-04-03
Lokasi : Depok
Humor : Mr bean

PostSubject: [Share] Berbagai program cacad ^^   Thu Aug 26, 2010 5:40 pm

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 ...

___________




Welcome in voltage community. Forum diskusi cheat dan sebagainya


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

Jangan ragu ragu untuk menekan button REPORT jika ada junker/perbuatan salah
Dengan klik button tanda seru di post junker yang ingin kamu report

Regards,
Alfred as Admin
Wink


Last edited by Alfred on Thu Aug 26, 2010 6:51 pm; edited 1 time in total
Back to top Go down
http://global.cinebb.com
Kazukagemaru
Admin
Admin
avatar

Jumlah posting Jumlah posting : 1112
Voltage COIN's Voltage COIN's : 1185
Join date : 2010-07-18
Age : 24
Lokasi : Jakarta Timur
Humor : Make Some Noise~

PostSubject: Re: [Share] Berbagai program cacad ^^   Thu Aug 26, 2010 6:09 pm

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

___________




Kalo di buka kegedean :
 
mampir juga dong ke thread gue:
 

Add my facebook[You must be registered and logged in to see this link.]
Back to top Go down
https://www.facebook.com/profile.php?id=1715869554
Alfred
Admin
Admin
avatar

Jumlah posting Jumlah posting : 577
Voltage COIN's Voltage COIN's : 4578
Join date : 2010-04-03
Lokasi : Depok
Humor : Mr bean

PostSubject: Re: [Share] Berbagai program cacad ^^   Thu Aug 26, 2010 6:52 pm

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

___________




Welcome in voltage community. Forum diskusi cheat dan sebagainya


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

Jangan ragu ragu untuk menekan button REPORT jika ada junker/perbuatan salah
Dengan klik button tanda seru di post junker yang ingin kamu report

Regards,
Alfred as Admin
Wink
Back to top Go down
http://global.cinebb.com
Alfred
Admin
Admin
avatar

Jumlah posting Jumlah posting : 577
Voltage COIN's Voltage COIN's : 4578
Join date : 2010-04-03
Lokasi : Depok
Humor : Mr bean

PostSubject: Re: [Share] Berbagai program cacad ^^   Thu Aug 26, 2010 8:27 pm

Nih lagi..

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

___________




Welcome in voltage community. Forum diskusi cheat dan sebagainya


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

Jangan ragu ragu untuk menekan button REPORT jika ada junker/perbuatan salah
Dengan klik button tanda seru di post junker yang ingin kamu report

Regards,
Alfred as Admin
Wink
Back to top Go down
http://global.cinebb.com
Kazukagemaru
Admin
Admin
avatar

Jumlah posting Jumlah posting : 1112
Voltage COIN's Voltage COIN's : 1185
Join date : 2010-07-18
Age : 24
Lokasi : Jakarta Timur
Humor : Make Some Noise~

PostSubject: Re: [Share] Berbagai program cacad ^^   Sun Aug 29, 2010 11:04 pm

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

___________




Kalo di buka kegedean :
 
mampir juga dong ke thread gue:
 

Add my facebook[You must be registered and logged in to see this link.]
Back to top Go down
https://www.facebook.com/profile.php?id=1715869554
Sponsored content




PostSubject: Re: [Share] Berbagai program cacad ^^   

Back to top Go down
 

[Share] Berbagai program cacad ^^

View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Global | You can find anything here!  :: Engine learned :: Software study-