Question Timer Pause Resume

BinCoder

New member
Joined
Jul 13, 2012
Messages
1
Programming Experience
1-3
I'm currently creating a program in Visual Studios 2008, What it does is their are online Json files like this one
http://realm12.c1.godfather.wonderh...e62339a2cc408083e5&user_id=568998&x=461&y=487
For a game, That holds data, At the end of the url their is the X and Y option because this is for a map that holds a bunch of data (Experiment with the game if u want to know more) Anyways i'm creating a program that goes to the url dumps the data into an orginzed fashion, so far all I have for source code is this

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If Timer1.Enabled = True Then
            MessageBox.Show("Scan Already In Progress.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
        Time = DateAndTime.Now
        Timer1.Start()
            MessageBox.Show("Scan Started", "Started", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If


    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim difference As TimeSpan = DateTime.Now.Subtract(Time)
        Label2.Text = difference.Days.ToString & ":" & difference.Hours.ToString & ":" & difference.Minutes.ToString & ":" & difference.Seconds.ToString & "." & difference.Milliseconds.ToString
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Timer1.Enabled = True Then
            Timer1.Stop()
            Label2.Text = ("0:0:0:000")
            MessageBox.Show("Scan Stopped", "Stopped", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("No Scan in Progress", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Xx_UaVrUsher_xX's Map Scanner"
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label2.Text = ("0:0:0:000")
    End Sub


End Class


I'm trying to create a pause button so that when I hit start, it starts from the position where I left off

This is what the program looks like so far
[video=youtube;t4B8XoPk7og]http://www.youtube.com/watch?v=t4B8XoPk7og[/video]


as you can see in the video, it resets when I hit start

Any suggestions on code snippets would be great, I know I'm gunna have to dim something so like Dim pause as Boolean but after that i don't know :$

-BinCoder
 
Last edited by a moderator:
Back
Top