Cara memprogram bar kemajuan di VB.net
Langkah 1
Buka proyek Visual Basic. Klik dua kali pada kontrol di "progress bar" pada toolbar untuk menambahkan "ProgressBar1" ke formulir. Klik dua kali pada "Tombol" kontrol untuk menambahkan "Button1" kontrol ke formulir.
Langkah 2
Tekan "F7" untuk membuka jendela kode. Buka subrutin "Form1_Load" dan tulis yang berikut:
ProgressBar1.Minimum = 0 ProgressBar1.Maximum = 5 ProgressBar1.Value = 0
Kode ini menetapkan nilai awal dari variabel perkembangan, serta nilai minimum dan maksimum dari bilah kemajuan. Anda dapat menetapkan nilai maksimum yang berbeda, tergantung pada apa yang Anda butuhkan untuk progress bar.
Langkah 3
Buka subrutin "Button1_Click" dan tulis yang berikut:
Jika ProgressBar1.Value <ProgressBar1.Maximum Then ProgressBar1.Value + = 1 Jika ProgressBar1.Value = ProgressBar1.Maximum Kemudian MsgBox ("Selesai!") Akhiri Jika Akhir Jika
Ketika pengguna mengklik tombol, kode memeriksa apakah progress bar kurang dari nilai maksimum. Jika ya, tambahkan nilainya satu per satu, menyebabkan bilah progres dalam formulir menunjukkan peningkatan juga. Selanjutnya, periksa lagi apakah nilai telah mencapai maksimum. Dengan cara ini, ketika progress bar mencapai maksimum, Anda tidak dapat meningkatkan nilai lebih, dan karena itu menghindari kesalahan out-of-range.