ผู้เขียน หัวข้อ: งานครั้งที่ 4 เขียนโปรแกรมพื้นฐาน 4 (นาฬิกาจับเวลา)  (อ่าน 10689 ครั้ง)

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 688
    • ดูรายละเอียด
    • อีเมล์
ตัวอย่างหน้าตาของโปรแกรม


ตัวอย่างโค้ด ในส่วนของนาฬิกาจับเวลา (นับขึ้น)
โค๊ด: [Select]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If S < 59 Then
            S = S + 1
        Else
            S = 0
            If N < 59 Then
                N = N + 1
            Else
                N = 0
                If M < 9 Then
                    M = M + 1
                Else
                    Timer1.Enabled = False
                End If
            End If
        End If
        Label1.Text = Format(S, "00")
        Label2.Text = Format(N, "00")
        Label3.Text = Format(M, "00")
    End Sub
« แก้ไขครั้งสุดท้าย: พฤศจิกายน 15, 2016, 02:46:34 PM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 688
    • ดูรายละเอียด
    • อีเมล์
Re: ครั้งที่ 4 Digital Clock
« ตอบกลับ #1 เมื่อ: ธันวาคม 01, 2009, 10:15:59 AM »
ฟังก์ชั่นนับเวลาถอยหลังโดยใช้ component timer
โค๊ด: [Select]
Private Sub Timer2_Timer()
  value = value - 1
    If value = -1 Then
        value = 59
        value2 = value2 - 1
    End If
    If value2 = -1 Then
        value2 = 59
        value3 = value3 - 1
    End If
    If value3 < 0 Then
        Timer2.Enabled = False
        value = 0
        value2 = 0
        value3 = 0
    End If
    If value3 = 0 And value2 = 0 And value = 0 Then
        Timer2.Enabled = False
        status = False
        Command1.Caption = "เริ่ม"
    End If
  Label1.Caption = Format(value, "0#")
  Label2.Caption = Format(value2, "0#")
  Label3.Caption = Format(value3, "0#")
  LED1.Number = value
End Sub
« แก้ไขครั้งสุดท้าย: ธันวาคม 01, 2009, 10:21:48 AM โดย admin »