Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- liczba()
- End Sub
- Dim rnd As New Random
- Sub liczba()
- TextBox1.Clear()
- ProgressBar1.Minimum = 0
- ProgressBar1.Maximum = 100
- Randomize()
- Dim x As Integer
- For x = 1 To 100
- ProgressBar1.Value = x
- ProgressBar1.Value = x - 1
- ProgressBar1.Value = x
- System.Threading.Thread.Sleep(3)
- Next
- System.Threading.Thread.Sleep(1000)
- Do Until TextBox1.TextLength = 14
- TextBox1.Text = TextBox1.Text + rnd.Next(0, 9).ToString
- Loop
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement