Simple Proggress Bar dengan visual basic

Beranda
Komunitas
Tech
Programmer Forum
Simple Proggress Bar dengan visual basic

galihvalentino

03-02-2014 11:01

Simple Proggress Bar dengan visual basic

Hal - hal yag dibutuhkan :
Micosoft Visual Basic . NET ( Saya Menggunakan Versi 2010 ) pada tutor kali ini...

Adapun langkah - langkah nya adalah sebagai berikut :
1.Buka Program Microsoft Visual Studio - Visual Basic ( Terserah yang penting VB.NET )

2.File > New Project ( CTRL + N )

3.Ketik nama program , dan tentukan NetFrameWork Berapa ( dan saya menulis source code nya dengan NetFrameWork 2.0 , alasannya agar bisa bekerja hampir rata2 semua kompute )

4.Tambahkan Seperti yag di bawah ini...
1 Buah Progress Bar
2 Buah Command Button , Ganti namanya menjadi seperti dibawah ini...
S E N S O Rmand Button 1 = cmdStart
S E N S O Rmand Button 2 = cmdReturn
2 Buah Timer , Ganti namanya menjadi seperti dibawah ini...
- Timer 1 = tmrStart
- Timer 2 = tmrReturn

5.Desain sedemikian rupa sesuai selera sendiri...^^

6.Double Click Form nya dan muncul pada bagian pengkodeannya...Hapus semuanya dan Copy Pastekan Source Code yang ada di bawah ini....

Spoiler for :

'============================================================================================================
' Simple Progress Bar ( Forward and Backward Move )
' This Source Code Has Been Writen By galihvalentino@Nyit-Nyit.Net
' Remember To Add The Credit , Don't Be A Leecher And Say It Yours If You Take From Another Person..Thanks....
'=============================================================================================================

Public Class Form1
Private Sub tmrStart_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrStart.Tick
tmrStart.Start()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = ProgressBar1.Maximum Then
tmrStart.Stop()
MsgBox("Loaded 100 %", MsgBoxStyle.Information, "Information")
End If
End Sub

Private Sub tmrReturn_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrReturn.Tick
tmrReturn.Start()
ProgressBar1.Value = ProgressBar1.Value - 10
If ProgressBar1.Value = ProgressBar1.Minimum Then
tmrReturn.Stop()
MsgBox("UnLoaded 100 %", MsgBoxStyle.Information, "Information")
End If
End Sub

Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
tmrStart.Start()
End Sub

Private Sub cmdReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReturn.Click
tmrReturn.Start()
End Sub

End Class

7.Tekan CTRL + SHIFT + B = Build, Atau Klik Build dan Build xxx ( dimana xxx adalah nama yang telah di sesuaikan tadi pada saat membuat project baru )
8.Tekan F5 untuk Run Program , Atau icon Play yang berada pada toolbar bagian atas...
9.Jika tidak ada error program siap di gunakan
10.Save Project ( CTRL + S ) , tentukan dimana program akan di save , klik save
10.Selesai

Kutip

Balasan

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Urutan

Terbaru

Terlama

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Komunitas Pilihan