Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 2157

Dec 1st, 2008

Countdown Timer

Expand Post »

Hi, I would like to create a countdown timer using number extracted from the database to use a the time for the countdown. Can anyone help me ?

Similar Threads

Countdown Timer with minutes seconds and milliseconds! in Visual Basic 4 / 5 / 6
Help with countdown timer in VB.NET
Tkinter Countdown Timer problems. in Python
Pause/Restart Countdown Timer Question in VB.NET
Countdown Timer in VB.NET

joeey

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

8 posts
since Jul 2008

Permalink

Dec 1st, 2008

Re: Countdown Timer

Not really sure what you are looking for, please give more details. You can create a countdown using a loop. If you want to add or subtract a number from a date, use dateadd() function.

aparnesh

Reputation Points: 20

Solved Threads: 10

Junior Poster

Offline

193 posts
since Jul 2005

Permalink

Dec 1st, 2008

Re: Countdown Timer

can you please explain a bit in detail.

debasisdas

Featured Poster

Reputation Points: 665

Solved Threads: 427

Posting Genius

Offline

6,406 posts
since Feb 2007

Permalink

Dec 29th, 2008

Re: Countdown Timer

Sorry for the long delay. I'll explain about the project I'm doing. I'm trying to create a SMS based reminder application using visual basic and a GSM modem. Currently, the program has the ability to send, extract, receive and store. Now I would like to enable the program to send a reminder using the time stored in the database. For example, if the user sends 10# tower, this would be saved in the database as 10 under the hour column, User's Handphone number would be under Numbers and tower under Message. Once 10 hours are up, the program would send an SMS back to the user.

Below is the code for the program

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Public Class Form1
    Dim TotalRows As Integer
    Dim NextRecord As Integer
    Dim ConObject As New OleDb.OleDbConnection
    Dim dSet As New DataSet
    Dim dAdapter As OleDb.OleDbDataAdapter
    Dim Sel As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ConObject.ConnectionString = "PROVIDER=MICROSOFT.Jet.OLEDB.4.0;Data Source= C:\Documents and Settings\Telematics\My Documents\061514U Edmund\lab_3\ProjectDB.mdb"
 
        ConObject.Open()
        Sel = "SELECT*FROM Table1"
        dAdapter = New OleDb.OleDbDataAdapter(Sel, ConObject)
        dAdapter.Fill(dSet, "ProjectDB")
        ConObject.Close()
 
        TotalRows = dSet.Tables("ProjectDB").Rows.Count
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call ModemMode()
 
 
    End Sub
    Private Sub ModemMode()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
 
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True
 
        SerialPort1.Open()
 
        SerialPort1.WriteLine("AT+CMGF=1" + vbCr)
        WaitForm.ShowDialog()
 
        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting
 
        If InStr(TextBox1.Text, "OK") <> 0 Then
            MessageBox.Show("Successful(CMGF)!")
        Else
            MessageBox.Show("Try again")
        End If
 
        TextBox1.Text = ""
        SerialPort1.WriteLine("AT+CNMI=0,1,0,0,0" + vbCr)
        WaitForm.ShowDialog()
        WaitForm.ShowDialog()
 
        TextBox1.Text = SerialPort1.ReadExisting
 
        If InStr(TextBox1.Text, "OK") <> 0 Then
            MessageBox.Show("Successful(CNMI)!")
        Else
            MessageBox.Show("Try again")
        End If
 
        SerialPort1.Close()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call ReadSMS()
 
 
    End Sub
    Private Sub ReadSMS()
 
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
 
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True
 
        SerialPort1.Open()
 
 
        SerialPort1.WriteLine("AT+CMGR=" + TextBox2.Text + vbCr)
 
        System.Threading.Thread.Sleep(500)
        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting
 
        SerialPort1.Close()
 
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
 
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True
 
        SerialPort1.Open()
 
        SerialPort1.WriteLine("AT+CMGD=1,4" + vbCr)
        TextBox1.Text = vbNewLine & "...in progress..."
        TextBox1.Refresh()
        System.Threading.Thread.Sleep(4000)
        System.Threading.Thread.Sleep(4000)
        System.Threading.Thread.Sleep(4000)
 
        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting
        SerialPort1.Close()
 
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Call DeleteOneSMS()
    End Sub
    Private Sub DeleteOneSMS()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
 
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True
 
        SerialPort1.Open()
 
        SerialPort1.WriteLine("AT+CMGD=" + TextBox6.Text + vbCr)
        TextBox1.Text = vbNewLine & "...in progress..."
        TextBox1.Refresh()
        System.Threading.Thread.Sleep(1250)
 
        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting
 
        SerialPort1.Close()
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Call SendSMS()
    End Sub
    Private Sub SendSMS()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
 
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True
 
        SerialPort1.Open()
 
        SerialPort1.WriteLine("AT+CMGS=" + TextBox3.Text + vbCr)
        TextBox1.Text = vbNewLine & "...SMS sending in progress..."
        TextBox1.Refresh()
        System.Threading.Thread.Sleep(750)
        SerialPort1.WriteLine(TextBox4.Text)
        System.Threading.Thread.Sleep(500)
        SerialPort1.WriteLine(Chr(26))
        System.Threading.Thread.Sleep(5500)
 
        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting
 
        If InStr(TextBox1.Text, "OK") <> 0 Then
            TextBox1.Text = "SMS message successfully sent!"
            MessageBox.Show("SMS message successfully sent!")
        Else
            MessageBox.Show("Try again")
        End If
 
        SerialPort1.Close()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox5.Text = TextBox4.Text.Length
        If TextBox5.Text > 160 Then
            Beep()
        End If
 
 
    End Sub
 
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
 
    End Sub
    Private Sub ExtractPhoneNumber()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
 
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True
 
        SerialPort1.Open()
 
        Dim str1
        Dim str2
        Dim Extract As String
 
        str1 = TextBox1.Text
        str2 = str1.Split("D")
        TextBox7.Text = str2(1)
 
        Extract = TextBox7.Text.Substring(3, 11)
        TextBox7.Text = Extract
    End Sub
 
    Private Sub ExtractMessage()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
 
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True
 
        SerialPort1.Open()
 
        Dim str3
        Dim str4
        Dim Extract2 As String
        Dim Extract3 As String
 
        str3 = TextBox1.Text
        str4 = str3.Split("#")
        TextBox8.Text = str4(1)
 
        Extract2 = TextBox8.Text.Substring(2)
        Extract3 = TextBox8.Text.Substring(0, 2)
        TextBox8.Text = Extract2
        TextBox9.Text = Extract3
    End Sub
 
    Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
        Call ExtractMessage()
        Call ExtractPhoneNumber()
    End Sub
 
 
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
 
 
 
    End Sub
 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim cBuilder As New OleDb.OleDbCommandBuilder(dAdapter)
        Dim dsNewRow As DataRow
 
        dsNewRow = dSet.Tables("ProjectDB").NewRow()
        dsNewRow.Item("Numbers") = TextBox7.Text
        dsNewRow.Item("Message") = TextBox8.Text
        dsNewRow.Item("Hours") = TextBox9.Text
        dSet.Tables("ProjectDB").Rows.Add(dsNewRow)
        dAdapter.Update(dSet, "ProjectDB")
        dSet.Clear()
        dAdapter.Fill(dSet, "ProjectDB")
        MsgBox("Data Stored!")
 
    End Sub
End Class
Public Class Form1
    Dim TotalRows As Integer
    Dim NextRecord As Integer
    Dim ConObject As New OleDb.OleDbConnection
    Dim dSet As New DataSet
    Dim dAdapter As OleDb.OleDbDataAdapter
    Dim Sel As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ConObject.ConnectionString = "PROVIDER=MICROSOFT.Jet.OLEDB.4.0;Data Source= C:\Documents and Settings\Telematics\My Documents\061514U Edmund\lab_3\ProjectDB.mdb"

        ConObject.Open()
        Sel = "SELECT*FROM Table1"
        dAdapter = New OleDb.OleDbDataAdapter(Sel, ConObject)
        dAdapter.Fill(dSet, "ProjectDB")
        ConObject.Close()

        TotalRows = dSet.Tables("ProjectDB").Rows.Count
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call ModemMode()


    End Sub
    Private Sub ModemMode()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True

        SerialPort1.Open()

        SerialPort1.WriteLine("AT+CMGF=1" + vbCr)
        WaitForm.ShowDialog()

        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting

        If InStr(TextBox1.Text, "OK") <> 0 Then
            MessageBox.Show("Successful(CMGF)!")
        Else
            MessageBox.Show("Try again")
        End If

        TextBox1.Text = ""
        SerialPort1.WriteLine("AT+CNMI=0,1,0,0,0" + vbCr)
        WaitForm.ShowDialog()
        WaitForm.ShowDialog()

        TextBox1.Text = SerialPort1.ReadExisting

        If InStr(TextBox1.Text, "OK") <> 0 Then
            MessageBox.Show("Successful(CNMI)!")
        Else
            MessageBox.Show("Try again")
        End If

        SerialPort1.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call ReadSMS()


    End Sub
    Private Sub ReadSMS()

        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True

        SerialPort1.Open()


        SerialPort1.WriteLine("AT+CMGR=" + TextBox2.Text + vbCr)

        System.Threading.Thread.Sleep(500)
        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting

        SerialPort1.Close()


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True

        SerialPort1.Open()

        SerialPort1.WriteLine("AT+CMGD=1,4" + vbCr)
        TextBox1.Text = vbNewLine & "...in progress..."
        TextBox1.Refresh()
        System.Threading.Thread.Sleep(4000)
        System.Threading.Thread.Sleep(4000)
        System.Threading.Thread.Sleep(4000)

        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting
        SerialPort1.Close()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Call DeleteOneSMS()
    End Sub
    Private Sub DeleteOneSMS()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True

        SerialPort1.Open()

        SerialPort1.WriteLine("AT+CMGD=" + TextBox6.Text + vbCr)
        TextBox1.Text = vbNewLine & "...in progress..."
        TextBox1.Refresh()
        System.Threading.Thread.Sleep(1250)

        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting

        SerialPort1.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Call SendSMS()
    End Sub
    Private Sub SendSMS()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True

        SerialPort1.Open()

        SerialPort1.WriteLine("AT+CMGS=" + TextBox3.Text + vbCr)
        TextBox1.Text = vbNewLine & "...SMS sending in progress..."
        TextBox1.Refresh()
        System.Threading.Thread.Sleep(750)
        SerialPort1.WriteLine(TextBox4.Text)
        System.Threading.Thread.Sleep(500)
        SerialPort1.WriteLine(Chr(26))
        System.Threading.Thread.Sleep(5500)

        TextBox1.Text = ""
        TextBox1.Text = SerialPort1.ReadExisting

        If InStr(TextBox1.Text, "OK") <> 0 Then
            TextBox1.Text = "SMS message successfully sent!"
            MessageBox.Show("SMS message successfully sent!")
        Else
            MessageBox.Show("Try again")
        End If

        SerialPort1.Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox5.Text = TextBox4.Text.Length
        If TextBox5.Text > 160 Then
            Beep()
        End If


    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    End Sub
    Private Sub ExtractPhoneNumber()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True

        SerialPort1.Open()

        Dim str1
        Dim str2
        Dim Extract As String

        str1 = TextBox1.Text
        str2 = str1.Split("D")
        TextBox7.Text = str2(1)

        Extract = TextBox7.Text.Substring(3, 11)
        TextBox7.Text = Extract
    End Sub

    Private Sub ExtractMessage()
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 115200
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.RtsEnable = True

        SerialPort1.Open()

        Dim str3
        Dim str4
        Dim Extract2 As String
        Dim Extract3 As String

        str3 = TextBox1.Text
        str4 = str3.Split("#")
        TextBox8.Text = str4(1)

        Extract2 = TextBox8.Text.Substring(2)
        Extract3 = TextBox8.Text.Substring(0, 2)
        TextBox8.Text = Extract2
        TextBox9.Text = Extract3
    End Sub

    Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
        Call ExtractMessage()
        Call ExtractPhoneNumber()
    End Sub

    

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""



    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim cBuilder As New OleDb.OleDbCommandBuilder(dAdapter)
        Dim dsNewRow As DataRow

        dsNewRow = dSet.Tables("ProjectDB").NewRow()
        dsNewRow.Item("Numbers") = TextBox7.Text
        dsNewRow.Item("Message") = TextBox8.Text
        dsNewRow.Item("Hours") = TextBox9.Text
        dSet.Tables("ProjectDB").Rows.Add(dsNewRow)
        dAdapter.Update(dSet, "ProjectDB")
        dSet.Clear()
        dAdapter.Fill(dSet, "ProjectDB")
        MsgBox("Data Stored!")

    End Sub
End Class

joeey

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

8 posts
since Jul 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Saving Mshflexgrid data columnwise in a table

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: urjent-barcode reader

DaniWeb Message

Cancel Changes

User Name
Password