Belajar Logika dan Pemrograman

Public Class Form1

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
BtnProses.Enabled = False
PbrProses.Value = PbrProses.Minimum
PbrProses.Visible = True
TmrProses.Enabled = True


End Sub

Private Sub PbrProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PbrProses.Click
LblPersen.Text = " "
PbrProses.Minimum = 1
PbrProses.Maximum = 100
PbrProses.Step = 1
PbrProses.Visible = False




End Sub

Private Sub TmrProses_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrProses.Tick
If PbrProses.Value = PbrProses.Maximum Then
BtnProses.Enabled = True
TmrProses.Enabled = False

End If
PbrProses.PerformStep()
LblPersen.Text = PbrProses.Value * PbrProses.Maximum / 100 & "%"
End Sub
End Class