Gambas2 & Gambas3, Tutorial Menggunakan Progress Bar Control


Tutorial kali ini akan membahas penggunaan kontrol Progress Bar, kontrol ini biasa digunakan untuk indikator suatu proses yang sedang berlangsung, misalnya aplikasi sedang melakukan loading dan progress bar berfungsi untuk melihat sejauh mana proses yang sedang berlangsung yang di tunjukkan oleh bar pada progress bar. di gambas kontrol Progress Bar juga menunjukkan/memperlihatkan angka persentase (anda juga bisa melihat  secara jelas berapa persen proses yang sedang berlangsung).

Berikut ini adalah langkah-langkah untuk mencoba kontrol ProgressBar.

1. Buat project baru, Gambas2
2. Tambahkan/masukkan kontrol berikut ini kedalam form
  • 4 ProgressBar
  • 5 Button
     Disain tampilanya seperti gambar di bawah ini

ProgressBar Gambas tutorial


3. Ketikan kode berikut di kode editor
' Gambas class file
'-------------------------------------------------------------------------------------------------------------------------------
'Author  : Zainudin Ahmad
'Site    : GambasPI.blogspot.co.id
'Title   : ProgressBar Example Code (for gambas2 & gambas3)
'--------------------------------------------------------------------------------------------------------------------------------

Public Sub Form_Open()

  'Anda bisa melakukan hal ini(memasukkan nilai) di properti box
  Button1.Text = "Tambah"
  Button2.Text = "Kurang"
  Button3.Text = "Reset"
  Button4.Text = "Proses"
  Button5.Text = "Proses"

  Me.Center()

End

'sewaktu button1 di klik nilai property value progressBar1 akan bertambah 
Public Sub Button1_Click()

  ProgressBar1.Value += 0.1

End
'sewaktu button1 di klik nilai property value progressBar1 akan berkurang
Public Sub Button2_Click()

  ProgressBar1.Value -= 0.1

End
'akan mengembalikan nilai property value progressBar1 menjadi nol
Public Sub Button3_Click()

  ProgressBar1.Reset()

End

Public Sub Button4_Click()

  Dim iVal As Float
  Dim iProgressMax As Integer
  Dim ixx As Integer

  ProgressBar2.Value = 0

  iVal = 0.01 ' iVal = 1 persen
  iProgressMax = 100 'persen

  For ixx = 0 To iProgressMax
    ProgressBar2.Value += iVal
    Wait 0.05
  Next

Catch
End

Public Sub Button5_Click()

  Dim iVal As Float
  Dim iProgressMax As Integer
  Dim ixx As Integer
  Dim iyy As Integer

  ProgressBar3.Reset()

  iVal = 0.01 ' iVal = 1 persen
  iProgressMax = 100 'persen

  For ixx = 0 To iProgressMax
    ProgressBar3.Value += iVal
    ProgressBar4.Reset()
    Wait 0.01
    For iyy = 0 To iProgressMax
      ProgressBar4.Value += iVal
      Wait 0.01
    Next
  Next

Catch
End

4. Coba anda jalankan/run (tekan F5) , tampilanya akan terlihat seperti di bawah ini.

visual basic progressbar

SELAMAT MENCOBA


Artikel Terkait :