Tutorial Menciptakan Progress Kafe Vertical Pada Visula Basic

16 views

Salam jagocoding. Masih semangat kan puasanya, jangan loyo ya. Walaupun sedang puasa kita harus tetap produktif dalam memanfaatkan waktu. Jangan lupa saling membuatkan juga.
Ngomongin berbagi, kali ini saya mau membuatkan tutorial menciptakan Progress Bar pada Visual Basic 2010 yang berbentuk vertikal. Tutorial ini saya buat dari beberapa sumber di internet, namun saya telah mempraktekkannya sendiri dan saya tulis sebagai bentuk dokumentasi saya. Baiklah, jikalau menciptakan progress kafe biasa yang bentuknya horisontal kawan-kawan semua niscaya sudah bisa. Kali ini saya akan mengatakan cara menciptakan progressbar yang bentukknya tidak biasa, berikut langkah-langkahnya

  1. Buka jadwal Visual Basic anda, pada tutorial ini saya memakai Microsoft Visual Basic 2010 Express pilih Windos Form Applications
  2. Pilh sajian Project dan pilih Add Class
  3. Pilih Class dan beri nama VerticalBar_Vertical atau nama lain sesuai harapan anda dan tekan Add
  4. Setelah anda menekan Add, pada Sulution Explorer sebelah kanan akan muncul Class yang telah dibuat
  5. Tambahkan scrpt berikut ini pada class ProgressBar_Vertical
    Imports SystemImports SystemImports System.Windows.FormsPublic Class ProgressBar_VerticalInherits ProgressBarProtected Overloads Overrides ReadOnly Property CreateParams() As CreateParamsGetDim cp As CreateParams = MyBase.CreateParamscp.Style = cp.Style Or &H4Return cpEnd GetEnd PropertyEnd Class
  6. Debug jadwal dengan cara tekan tombol F5 atau pada sajian Debug->Start Debugging
  7. Tutup form hasil debug, dan kini pada ToolBox akan muncul Windows Component gres ialah Pointer dan ProgressBar_Vertical
  8. Sekarang saatnya memakai ProgressBar Vertical tadi, pilih Component ProgressBar_Vertical pada toolbox. Tempatkan pada form sehinnga tampak ibarat gambar berikut
  9. Kemudian view code dengan menekan tombol F7, kemudian masukkan code berikut ini
    Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadProgressBar_Vertical1.Value = 90ProgressBar_Vertical2.Value = 80ProgressBar_Vertical3.Value = 70ProgressBar_Vertical4.Value = 50ProgressBar_Vertical5.Value = 40End SubEnd Class
  10. Debug jadwal dan lihat hasilnya,

Demikianlah tutorial menciptakan Progressbar Vertical dari saya, semoga bermanfaat. Anda sanggup mengembangkan progressbar vertical tersebut contohnya untuk membat ibarat volumebar sederhana ibarat berikut,
Desain Form:

Source code:

Public Class Form1Dim vol As IntegerPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickvol = vol + 1ProgressBar_Vertical1.Value = volEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickvol = vol - 1ProgressBar_Vertical1.Value = volEnd SubEnd Class

Printscreen tampilan hasil:

 

Selain volumebar sederhana di atas, anda juga sanggup memakai progressbar vertical tersebut untuk keperluan lain ibarat baterybar atau kebutuhan yang lain.
Akhirnya saya mengucapkan terimakasih telah membaca tutorial dari saya, semoga sanggup memberi manfaat. Dan saya juga mohon kritik dan sarannya biar tutorial saya yang selanjunya sanggup lebih baik
Terimakasih

 

Author: 
    author
    No related post!