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!
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!
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Global | You can find anything here!

Anything can you find in global.4umer.com
 
HomeSearchLatest imagesRegisterLog 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
Alfred

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

[Share] Berbagai program cacad ^^ _
PostSubject: [Share] Berbagai program cacad ^^   [Share] Berbagai program cacad ^^ I_icon_minitimeThu 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 ...


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

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

[Share] Berbagai program cacad ^^ _
PostSubject: Re: [Share] Berbagai program cacad ^^   [Share] Berbagai program cacad ^^ I_icon_minitimeThu 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
Back to top Go down
https://www.facebook.com/profile.php?id=1715869554
Alfred
Admin
Admin
Alfred

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

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

susah juga lho script ini ~_~ sampe2 untuk selesaikan 1 program butuh waktu sekitar setengah jam
Back to top Go down
https://global.4umer.com
Alfred
Admin
Admin
Alfred

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

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

Nih lagi..

[You must be registered and logged in to see this link.]
Back to top Go down
https://global.4umer.com
Kazukagemaru
Admin
Admin
Kazukagemaru

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

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

@^
itu yg lu kasih smacem kode" itu .. mesti di ketik dimana Question pke notepad kah Question
Back to top Go down
https://www.facebook.com/profile.php?id=1715869554
Sponsored content




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

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-