Timer Help

I need help with my timers, just watch the movie. Here is my code.

Public Class Form2 Dim Countdown As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() Countdown = Label20.Text End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Timer1.Stop() Label20.Text = 2700 End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Countdown = -1 Then Label20.Text = 2700 Timer1.Stop() MsgBox("MUSHMOM SHOULD HAVE SPAWNED IN CHANNEL ONE! GO LOOK AND SEE IF SHE DID!", MsgBoxStyle.OkOnly, "Mushmom Spawning in Channel 1") Else Label20.Text = Str(Countdown) End If Countdown -= 1 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Timer2.Start() Countdown = Label21.Text End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Timer2.Stop() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Timer2.Stop() Label21.Text = 2700 End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If Countdown = -1 Then Label21.Text = 2700 Timer2.Stop() MsgBox("MUSHMOM SHOULD HAVE SPAWNED IN CHANNEL TWO! GO LOOK AND SEE IF SHE DID!", MsgBoxStyle.OkOnly, "Mushmom Spawning in Channel 2") Else Label21.Text = Str(Countdown) End If Countdown -= 1 End Sub
End Class

Category:

Howto & Style

Tags:

• VB
• technology
• Visual
• Basic
• 2008
• timers
• woot

[xUGMxItalian]

i think it was CamStudio

[pivothenkjanbig]

You can just typ:

Timer1

Label1.text = label1.text - 1

Timer1.interval = 1000

[rainbowcrak]

what cam u using