การนับ Countdown พอกดหยุดแล้ว พอกดต่อเนื่องแล้วค่าไม่เหมือนตอนกดหยุด

[sooksun2009]

รบกวนสอบถามเรื่อง countdown time

Code: Select all

Public Class Form1
    Private countDownTime As TimeSpan
    Private countDownWatch As Stopwatch
    Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click, bttnStartStop.Click
        countDownTime = TimeSpan.FromMinutes(TextBox1.Text)
        countDownWatch = Stopwatch.StartNew()
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim timeRemaining = countDownTime - countDownWatch.Elapsed
        If timeRemaining < TimeSpan.Zero Then
            timeRemaining = TimeSpan.Zero
        End If
        hr_label.Text = timeRemaining.ToString("hh\:mm\:ss")
        If timeRemaining = TimeSpan.Zero Then
            Timer1.Stop()
            MessageBox.Show("หมดเวลาแล้ว")
        End If
    End Sub
    Private Sub btn_countinue_Click(sender As Object, e As EventArgs) Handles btn_countinue.Click, bttnReset.Click

        Timer1.Start()


    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Stop()
    End Sub
    End class

r เวลากดหยุดแล้ว พอจะกดต่อเนื่องแล้วค่าไม่เหมือนตอนกดหยุด

[snasui]

ควรมีตัวแปร Start time ที่เก็บตัวแปรสำหรับการเริ่มและการกดหยุดเพื่อที่จะนับต่อไปจากตัวแปรนั้นครับ

[sooksun2009]

ควรมีตัวแปร Start time ที่เก็บตัวแปรสำหรับการเริ่มและการกดหยุดเพื่อที่จะนับต่อไปจากตัวแปรนั้นครับ

พอดีเป็นมือใหม่ครับ พอจะ code ตัวอย่างให้ดูไหมครับอาจารย์

[snasui]

ลองศึกษาจาก Link นี้ครับ Start and Stop Timer

[sooksun2009]

ลองศึกษาจาก Link นี้ครับ Start and Stop Timer

ขอบคุณครับ