7,762
社区成员
发帖
与我相关
我的任务
分享我怎么连个秒表都搞不定
我怎么连个秒表都搞不定
option explicit
dim ttime as data
private sub timer1_timer()
label1.caption = cstr(ttime)
ttime = timevalue(ttime) + timevalue("00:00:01")
end sub
大概的思路是这样的，可是不行呀
提示对象变量或with块变量未设置
大家帮忙看看
option explicit
dim ttime as data
private sub timer1_timer()
label1.caption = cstr(ttime)
ttime = timevalue(ttime) + timevalue("00:00:01")
end sub
大概的思路是这样的，可是不行呀
提示对象变量或with块变量未设置
大家帮忙看看
...全文
请发表友善的回复…
发表回复
xzp1030 2004-01-13
- 打赏
- 举报
在程序设计时，经常需要用倒计时，倒计时程序一般不能用时间函数来进行设计，常用的方法是在计时器的触发过程中设置计数
变量来进行控制，程序如下：
Dim hh,mm,ss
Sub Form_ Load()
hh=0:mm=5:ss=0
timer1.Interval=1000
End Sub
Sub Timer1_Timer()
s=IIf(ss<10,"0"&ss,""&ss)
m=IIf(mm<10,"0"&mm,""&mm)
h=IIf(hh<10,"0"&hh,""&hh)
t=h&":"&m&":"&s
Me.Caption=t
ss=ss－1
If hh=0 And mm=0 And ss=－1 Then
msg="练习时间已到，按回车键结束!"
MsgBox msg,48,"注意"
End If
If ss=－1 And mm>0 Then mm=mm－1:ss=59
If mm=0 And hh>0 Then hh=hh－1:mm=59
End Sub
程序说明：程序中用到三个窗体级变量hh、mm、ss，它们分别代表初始的小时、分钟、秒，可根据情况在程序中指定，也可配合文本框在程序开始运行时输入，程序中用到一个计时器，它每秒钟被触发一次，程序运行时在窗体的标题栏动态地显示倒计时，当计时完毕则显示对话框提示，同时结束程序的运行。
变量来进行控制，程序如下：
Dim hh,mm,ss
Sub Form_ Load()
hh=0:mm=5:ss=0
timer1.Interval=1000
End Sub
Sub Timer1_Timer()
s=IIf(ss<10,"0"&ss,""&ss)
m=IIf(mm<10,"0"&mm,""&mm)
h=IIf(hh<10,"0"&hh,""&hh)
t=h&":"&m&":"&s
Me.Caption=t
ss=ss－1
If hh=0 And mm=0 And ss=－1 Then
msg="练习时间已到，按回车键结束!"
MsgBox msg,48,"注意"
End If
If ss=－1 And mm>0 Then mm=mm－1:ss=59
If mm=0 And hh>0 Then hh=hh－1:mm=59
End Sub
程序说明：程序中用到三个窗体级变量hh、mm、ss，它们分别代表初始的小时、分钟、秒，可根据情况在程序中指定，也可配合文本框在程序开始运行时输入，程序中用到一个计时器，它每秒钟被触发一次，程序运行时在窗体的标题栏动态地显示倒计时，当计时完毕则显示对话框提示，同时结束程序的运行。
mmcgzs 2004-01-13
- 打赏
- 举报
Option Explicit
Dim ttime As Long
Private Sub Form_Load()
Timer1.Interval = 1000
ttime = 0
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
ttime = ttime + 1
Label1.Caption = ttime
end sub
Dim ttime As Long
Private Sub Form_Load()
Timer1.Interval = 1000
ttime = 0
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
ttime = ttime + 1
Label1.Caption = ttime
end sub
northwolves 2004-01-13
- 打赏
- 举报
Option Explicit
Dim ttime As Long
Private Sub Form_Load()
Timer1.Interval = 1000
ttime = 0
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
ttime = ttime + 1
Label1.Caption = TimeSerial(0, 0, ttime)
End Sub
Dim ttime As Long
Private Sub Form_Load()
Timer1.Interval = 1000
ttime = 0
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
ttime = ttime + 1
Label1.Caption = TimeSerial(0, 0, ttime)
End Sub
