[vb.net 2k5] Countdown (help) - countdown visual basic 2005 2k5

de4thpr00f

Nov 21 2007, 02:15 PM

Hello, i'm having some troubles creating a countdown, i'm willing for some help.

First of all, the form has a textbox where the user has to input the time to countdown like this: 1:10 < this means 1 minute and 10 seconds
the form has also 3 labels, 1 named countminutes, other countseconds and another label1 with the text ":"
here's the code, the problem is that it counts the time, but blocks the app till it ends, wich result on not showing the counttime like it should:

CODE

Imports System.Threading.Thread

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim time() As String
        time = Split(timetowait.Text, ":", , CompareMethod.Text)
        countminutes.Text = time(0)
        countseconds.Text = time(1)
        Dim minutes As Integer = time(0)
        Dim seconds As Integer = time(1)
start:
        If seconds = 0 And minutes = 0 Then
            GoTo stops
        End If
        If seconds = 0 Then
            minutes -= 1
            seconds = 60
        End If
        seconds -= 1
        countminutes.Text = minutes
        countseconds.Text = seconds
        Sleep(1000)
        GoTo start
stops:
        MsgBox("countdown off")
    End Sub
End Class

If someone could help me would be cool.
If i pull this out before someone helps me i'll post the new code in here.
Thanks in advance.

~
João Lopes

*edit*
Posted the attached file.

*edit*
Problem solved, i'll leave the 1st source there and attach another, the 1st source has nothing important, but uses the function sleep, and i don't know if it will not be needed around.

and the code is this one (note, now a timer is needed, named timer1)

CODE

Imports System.Threading.Thread

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If InStr(timetowait.Text, ":") Then
            Dim time() As String
            time = Split(timetowait.Text, ":", , CompareMethod.Text)
            countminutes.Text = time(0)
            countseconds.Text = time(1)
            Timer1.Interval = 1000
            Timer1.Start()
        Else
            MsgBox("You have to insert like this 1:10")
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim minutes As Integer = countminutes.Text
        Dim seconds As Integer = countseconds.Text
        If minutes = 0 And seconds = 0 Then
            MsgBox("Time Ended")
            Timer1.Stop()
        End If
        If seconds = 0 Then
            minutes -= 1
            seconds += 60
        End If
        seconds -= 1
        If minutes <> -1 Then
            countminutes.Text = minutes
            countseconds.Text = seconds
        End If
    End Sub
End Class

paulbacca

Jan 7 2008, 08:46 AM

Hi de4thpr00f,
would you know how to add hours to your code below. I would appreciate any help you can give.
Thanks
Paul

[quote name='de4thpr00f' date='Nov 21 2007, 02:15 PM' post='358108']

CODE

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim time() As String
        time = Split(timetowait.Text, ":", , CompareMethod.Text)
        countminutes.Text = time(0)
        countseconds.Text = time(1)
        Dim minutes As Integer = time(0)
        Dim seconds As Integer = time(1)
start:
        If seconds = 0 And minutes = 0 Then
            GoTo stops
        End If
        If seconds = 0 Then
            minutes -= 1
            seconds = 60
        End If
        seconds -= 1
        countminutes.Text = minutes
        countseconds.Text = seconds
        Sleep(1000)
        GoTo start
stops:
        MsgBox("countdown off")
    End Sub
End Class

imbibe

Jan 10 2008, 07:16 AM

You can convert hours to seconds and add them to the code.
BTW for timer there's inbuilt control for Desktop & Web (using ASP.NET AJAX 1.0) Applications.

Set the Interval property to seconds, minutes, even hours, days. Then handle the Tick Event.

ADD REPLY / Got an Opinion!	Remove these ADs!	RAPID SEARCH!	Free Web Hosting	[X]
Express your Opinions, Thoughts or Contribute more info. to help others. Ask your Doubts & Queries to get answers, So that "Together We can help others!"	Register FREE for AD-FREE forum, Create your own topics, Ask Questions, track topics, setup subscriptions & notifications and Get a Free Website w/ Email and FTP.		500MB Space No Ads, CPanel, FTP, PHP, MySQL, EMails - 100% FREE