SHARE
TWEET

Untitled

a guest Apr 4th, 2019 78 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  3.         liczba()
  4.     End Sub
  5.  
  6.  
  7.     Dim rnd As New Random
  8.     Sub liczba()
  9.  
  10.         TextBox1.Clear()
  11.  
  12.         ProgressBar1.Minimum = 0
  13.         ProgressBar1.Maximum = 100
  14.         Randomize()
  15.  
  16.         Dim x As Integer
  17.         For x = 1 To 100
  18.             ProgressBar1.Value = x
  19.             ProgressBar1.Value = x - 1
  20.             ProgressBar1.Value = x
  21.             System.Threading.Thread.Sleep(3)
  22.         Next
  23.         System.Threading.Thread.Sleep(1000)
  24.  
  25.         Do Until TextBox1.TextLength = 14
  26.             TextBox1.Text = TextBox1.Text + rnd.Next(0, 9).ToString
  27.         Loop
  28.     End Sub
  29. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top