Indonesian SWF Editor Community
 
HomeRegisterLog in
SELAMAT Datang Di Cmonhackns ===> Mulailah dari yang kecil... karena semua yang besar dulunya juga kecil..

Share | 
 

 Cara Membuat Proggres Bar VB 2010 & VB 6

View previous topic View next topic Go down 
AuthorMessage
Ryan San Rakagi
Moderator
Moderator
avatar

Jumlah posting : 260
Join date : 2011-04-19
Age : 22
Lokasi : CIREBON

PostSubject: Cara Membuat Proggres Bar VB 2010 & VB 6   Tue Dec 06, 2011 1:37 pm

Untuk VB 2010

1: open new project
2: Add progress bar di toolbox dan tambahkan juga label
3: Tambahkan timer dengan propeties

Enable :True
Interval: 1000

4) Double klik pada timer1nya terus masukan koding berikut

Code:
ProgressBar1.Value = ProgressBar1.Value + 1
Label1.Text = ProgressBar1.Value & "%"
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
End If

5) pada form_load tambahkan koding berikut

Code:
Label1.Text = "0 %"

Dan selesai


Untuk VB 6

1. cek dulu apakah aplikasi visual basic udah terinstal di komputer lo klo belum download yg portable aja ea biar gx lama

2. kalu udah.,jalankan aplikasi vb lo, pada jendela new project pilih standard exe
3. klik kanan pada toolbox, pilih components..
4. pilih Microsoft Windows Common Controls 6.0 (SP6)

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

5. pada toolbox.,pilih icon progressbar kemudian pindahkan kedalam form

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

6. tambahkan object Command Button, atur propertiesnya :
Name : CmdTest
Caption : &Test

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

7. tambahkan object Timer kedalam form, beri interval 100 pada propertiesnya

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

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

8. klik 2x pada object Timer, tambahkan listing berikut :

Code:
Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 2
    If ProgressBar1.Value = ProgressBar1.Max Then
      Timer1.Enabled = False
      Unload Me
    End If
  End Sub

Arti dari listing diatas adalah kita memberikan nilai pada object progressbar
kemudian menambahkan nilai awal yg diberikan dengan kelipatan 2.
jika nilai progressbar sama dengan nilai maks maka program akan keluar.

9. klik 2x pada area form yg kosong, tambahkan listing dibawah ini :

Code:
Private Sub Form_Load()
    Timer1.Enabled = False
  End Sub

<menonaktifkan fungsi Timer1 dengan memberikan nilai false>

10. klik 2x pada object command button (tombol Test), tambahkan listing berikut :

Code:
Private Sub CmdTest_Click()
      Timer1.Enabled = True
    End Sub

<mengaktifkan kembali fungsi Timer1 dengan memberikan nilai true>


11. jalankan program dengan menekan tombol F5 pada keyboard, atau start
pada toolbar. Kemudian klik tombol Test..

kalu lo mau menampilkan form setelah progressbar penuh, lo tinggal
memanggil form lain yang lo buat dengan menambahkan listing dibawah unload me
pada object Timer1.

Code:
Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 2
    If ProgressBar1.Value = ProgressBar1.Max Then
      Timer1.Enabled = False
      Unload Me
      form2.show
    End If
  End Sub
Back to top Go down
http://nesaz.lifeme.net
Crusher
Moderator
Moderator
avatar

Jumlah posting : 1158
Join date : 2011-04-26
Age : 104
Lokasi : Di Naruto.Lagi perang

PostSubject: Re: Cara Membuat Proggres Bar VB 2010 & VB 6   Mon Feb 06, 2012 8:16 pm

ga ada ss gans untuk VB 2010 nya?

_________________
Gw tahu lo maho [You must be registered and logged in to see this image.]

yang sabar ya gan [You must be registered and logged in to see this image.]

jika belum sembuh silahkan Hubungi Operator Axis [You must be registered and logged in to see this image.]

Iklan ini di persembahkan oleh :

[You must be registered and logged in to see this image.]
Back to top Go down
 
Cara Membuat Proggres Bar VB 2010 & VB 6
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Kotak ikan utk SYM VTS 200
» Rumored Release schedule for 2010 40k/WFB
» 2010 Junior Rimrocker Participants
» Corazon Classic Match 2010 ~
» YNWA's Latest Addition (20 March 2010)

Permissions in this forum:You cannot reply to topics in this forum
cmonhackns.n-stars.org :: Computer Freakz :: All About Programming :: Visual Basic-
Jump to: