→ nobody1:我習慣用DateAdd耶... 03/20 20:01
→ laneclement:嗯，謝啦，我後來發現這是一個無限迴圈@@~~ 03/21 13:02
推 fumizuki:請參考 Timer 控制項 03/22 06:22
推 laneclement:喔！原來是用這個^^謝啦 03/22 15:06
不好意思，小弟剛學VB不久
想做一個計時器
可是程式跑到分的5分多鐘後就會當掉@@
我寫的程式：
Form1.Caption = "計時器"
Label1.Caption = "按這裡開始"
Label1.Alignment = 2
Label1.FontSize = 16
Label2.Caption = "0"
Label2.Alignment = 2
Label2.FontSize = 16
Label3.Caption = ":"
Label3.Alignment = 2
Label3.FontSize = 16
Label4.Caption = "0"
Label4.Alignment = 2
Label4.FontSize = 16
Label5.Caption = "0"
Label5.Alignment = 2
Label5.FontSize = 16
Label6.Caption = ":"
Label6.Alignment = 2
Label6.FontSize = 16
Label7.Caption = "0"
Label7.Alignment = 2
Label7.FontSize = 16
Label8.Caption = "0"
Label8.Alignment = 2
Label8.FontSize = 16
End Sub
Private Sub Label1_Click()
Dim a, b, c, d, e As Integer
For e = 0 To 10
Form1.Refresh
Label8.Caption = e
If e > 9 Then
d = d + 1
e = -1
If d > 6 Then
c = c + 1
d = 0
If c > 9 Then
b = b + 1
c = 0
If b > 6 Then
a = a + 1
b = 0
Label2.Caption = a
End If
Label4.Caption = b
End If
Label5.Caption = c
End If
Label7.Caption = d
End If
For j = 1 To 1000000
Next j
Next e
End Sub
不知道是哪裡出了問題？？
可以告訴我嗎？
謝謝！
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.124.125.92