SHARE
TWEET

Untitled

a guest Sep 15th, 2019 97 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim a As Integer = 0
  3.     Dim b As Integer = 0
  4.     Dim c As Integer = 0
  5.     Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click
  6.         Timer1.Start()
  7.     End Sub
  8.  
  9.     Private Sub Label2_Click(sender As Object, e As EventArgs)
  10.  
  11.     End Sub
  12.  
  13.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  14.         c += 1
  15.         Label2.Text = a & " : " & b & " : " & c
  16.         If c = 100 Then
  17.             c = 0
  18.             b += 1
  19.             Label2.Text = a & " : " & b & " : " & c
  20.             If b = 60 Then
  21.                 b = 0
  22.                 a += 1
  23.                 Label2.Text = a & " : " & b & " : " & c
  24.                 If a = 60 Then
  25.                     Timer1.Stop()
  26.                     a = 0
  27.                     b = 0
  28.                     c = 0
  29.                     Label2.Text = a & " : " & b & " : " & c
  30.                 End If
  31.  
  32.             End If
  33.             End If
  34.     End Sub
  35.  
  36.     Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
  37.  
  38.     End Sub
  39.  
  40.     Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click
  41.         Timer1.Stop()
  42.  
  43.         'Label2.Text = a & " : " & b & " : " & c
  44.  
  45.     End Sub
  46.  
  47.     Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
  48.         a = 0
  49.         b = 0
  50.         c = 0
  51.         Label2.Text = a & " : " & b & " : " & c
  52.     End Sub
  53.  
  54.     Private Sub btnquit_Click(sender As Object, e As EventArgs) Handles btnquit.Click
  55.         Close()
  56.  
  57.     End Sub
  58.  
  59.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  60.  
  61.     End Sub
  62. 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