高考问答电视剧红楼梦外景剧照:用VB怎么做计时器
来源：百度文库 编辑：高考问答 时间：2024/05/03 02:45:27
我们老师要求要交作业了
但是书本上有错误
就是一个label,两个command(一个开始,一个暂停),还有一个timer
我做的是(在Timer1.timer中)
Static m As Single
m = m + 0.1
n0 = (m * 10) Mod 10
n1 = Format(m Mod 60, "00.")
n2 = Format((m \ 60) Mod 60, "00:")
n3 = Format(m \ 3600, "00:")
Label1.Caption = n3 & n2 & n1 & n0
这是书上的
m = Timer - Val(Form1.Tag)
n0 = (m * 10) Mod 10
m = Int(m)
n1 = Format(m Mod 60, "00.")
n2 = Format((m \ 60) Mod 60, "00.")
n3 = Format(m \ 3600, "00.")
Label1.Caption = n3 & n2 & n1 & n0
但是两个方法都不行
希望高手帮忙!
timer 的 enable 已经设置为 faLse
timer 的 interval 已经设置为 100
这个command2 始终不起作用．
但是书本上有错误
就是一个label,两个command(一个开始,一个暂停),还有一个timer
我做的是(在Timer1.timer中)
Static m As Single
m = m + 0.1
n0 = (m * 10) Mod 10
n1 = Format(m Mod 60, "00.")
n2 = Format((m \ 60) Mod 60, "00:")
n3 = Format(m \ 3600, "00:")
Label1.Caption = n3 & n2 & n1 & n0
这是书上的
m = Timer - Val(Form1.Tag)
n0 = (m * 10) Mod 10
m = Int(m)
n1 = Format(m Mod 60, "00.")
n2 = Format((m \ 60) Mod 60, "00.")
n3 = Format(m \ 3600, "00.")
Label1.Caption = n3 & n2 & n1 & n0
但是两个方法都不行
希望高手帮忙!
timer 的 enable 已经设置为 faLse
timer 的 interval 已经设置为 100
这个command2 始终不起作用．
除TIMER控件的Enable属性设为True外,其属性Interval必需大于0,一般设置为500.
你的问题是这样的，可能程序并没有运行起来。你在 Timer.Enable属性设为True试试看。代码有个细节问题，可能会有问题
n1=Format(m Mod 60),"00") & "."
建议你这样做，不要直接用 "00."
书上的代码中的Form1.Tag是莫名其妙。前面必须对Tag进行设定。也没有必要这样做。
最好M定为整形
Tag是控件的别名那这句话没用Val(Form1.Tag)
直接取时间好了时间