+62-081-916-309099 zainularifin@live.com

Menu
Cara Membuat Progress Bar dengan VB.Net 2008

Cara Membuat Progress Bar dengan VB.Net 2008

By In Blog On July 4, 2014


Cara membuat progress bar dengan vb.net 2008

Apa itu Progress Bar?

Progress Bar adalah Proses loading yang biasanya kita liat pada saat pada proses Loading copy paste. Fungsi progress bar adalah untuk mengetahui sejauh mana proses yang sudah kita lakukan pada proses tertentu. Nah bagaimana kita bisa membuat program Progress Bar tersebut di VB.Net 2008. Mari Kita sama-sama Belajar. Baiklah.. mari kita mulai saja tutorialnya :

Membuka Aplikasi Visual Studio 2008

Buka aplikasi visual studio 2008 yang kamu punya dengan cara cari di ALL PROGRAM + Star Menu, Bisa dilihat pada gambar berikut :

progress bar vb net zainularifin.com (1)Membuat Project Baru pada VB.net 2008

Klik pada Create : Project

progress bar vb net zainularifin.com (2)New Project –> Windows Form Application, dan beri nama Progress_Bar dan checklist Create directory for solution nya, lihat gambar berikut :

progress bar vb net zainularifin.com (3)

Setelah muncul jendela Kerja Visual Studio 2008, maka yang akan kita lakukan adalah mengambil dan menempatkan LaBel, Progress Bar, dan Timer. Bagaimana caranya? Langsung aja okeh…

progress bar vb net zainularifin.com (4)

Tarik Drag dan Drop ke  Lembar kerja FORM1. Maka akan jadi seperti INI. isi Masing – masing Toolbox dengan inputan sebagai berikut :

Control Panel
Name Text
Label label1 Mohon menunggu prosess encripsi sedang dilakukan
Label label2 Created by zainularifin.com
Label label3 2014
Progressbar Progressbar1
Timer Timer1

Hasilnya langsung bisa dilihat pada tampilan berikut ini :

Membuat Listing Program pada VB.Net 2008

Setelah kita membuat tampilan atau visualnya. Maka langkah selanjutnya adalah membuat listing programnya, bagaimana caranya. Lansung aja cekidot.

Klik Dua Kali pada FORM1, sehingga muncul event form load dan coding ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Double klik TIMERnya sehingga muncul event tick pada timernya dan coding ini :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   If ProgressBar1.Value < 100 Then
       ProgressBar1.Value += 2
   ElseIf ProgressBar1.Value = 100 Then
       Timer1.Stop()
       MessageBox.Show(“sudah selesai melakukan encripsi”, “pemberitahuan”, MessageBoxButtons.OK, MessageBoxIcon.Information)
       Me.Close()
   End If
End Sub

Untuk Listing Lengkapnya seperti Ini :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value += 2
        ElseIf ProgressBar1.Value = 100 Then
            Timer1.Stop()
            MessageBox.Show(“sudah selesai melakukan encripsi”, “pemberitahuan”, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()
        End If
    End Sub
End Class

Jadi deh tuh Progress Bar, tinggal running alias di F5 dan tunggu apa yang akan terjadi, lihat gambar berikut :

Setelah Muncul pemberitahuan silakan Klik OK maka aplikasi akan menutup sendiri.

Demikian mungkin sedikit ilmu yang bisa ane bagi ke temen-temen, kita sama2 belajar mungkin lain waktu kita bisa sambung lagi. Jangan sungkan-sungkan berbagi diwebsite saya. Tinggalkan komen jika temen-temen berminat. Terima kasih dan sampai jumpa.


About the Author

admin

3 Comments

Leave a comment