VB 2008 : Form Login dan Form Progressbar

Salam sejahtera buat penggunjung blog seewebsters.blogspot.com yang senantiasa selalu membaca isi blog ini, pada hari ini saya akan menjelaskan bagaimana proses pembuatan Form login dan Form Progressbar pada VB2008.

langkah 1: Pilih Project > Add windows Form > Form Login
langkah 2: buat 2 textbox dan 2 button
langkah 3: Copy Paste Source Coding berikut ini di button login

Public Class LoginForm1
    Dim counter As Integer

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If UCase(UsernameTextBox.Text) = "SI" And UCase(PasswordTextBox.Text) = "41" Then
            Form1.Show()
            Form1.Timer1.Enabled = True
            Form1.Show()
            Me.Hide()
            Exit Sub
        Else
            counter = counter + 1
            If counter = 3 Then
                MessageBox.Show("anda sudah 3 kali salah")
                End
            End If
            MessageBox.Show("login salah" + Chr(13) + "anda mempunyai " & 3 - counter & " kali untuk mencoba" + Chr(13) + "login ulang", "perhatian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        Me.Close()
    End Sub

langkah 4: buat Form baru dengan cara yang sama, Pilih Project > Add windows Form > windows Form

langkah 5: buat 2 button [progressbar dan start], 1 progressbar dan timer

langkah 6: dobble klik pada button progressbar dan masukan coding berikut ini:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True 'aktifkan timer
        Button2.Text = "sedang proses"
        Timer1.Interval = 100 'set interval menjadi 100
        ProgressBar1.Value = 0 'kembalikan nilai progressbar menjadi 0
     
        End Sub

langkah 7: dobble klik pada timer dan masukan coding berikut ini:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static tiktok As Integer
        tiktok = tiktok + 1
        ProgressBar1.Value = tiktok
        Button1.Text = tiktok & " % "
        Button2.Text = "sedang proses"
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Enabled = False 'non aktifkan timer1 saat nilai statis=nilai max progressbar1
            tiktok = 0 'kembalikan nilai status menjadi 0
            Button2.Text = "terima kasih"
            Me.Hide()
        End If
    End Sub



Pembuatan Login dan Progressbar telah selesai, tinggal coba untuk di jalankan dengan menekan tombol F5 pada keyboard.

untuk lebih jelas silakan download aplikasi-nya DISINI