1。给定一个时间,要求自动倒计时
2。调用现在的时间,自动倒计时
如何编写程序啊?
随便做了一个,自己下载下来看看吧;
不知道是不是你要的那种!!
首先,我想说,做任何东西,不要感觉他容易才去做,难的我们更要去学着做。
不管黑猫白猫,抓到老鼠的就是好猫呀。先达到目的吧,先有再完美吗。
其它的我不太清楚,没有做过,以前老师教过我们用时钟调REB()颜色控制作窗体的背景的自动变化,跟这个差不多,只不过你的是减法,随心所欲吧。
Text1.Text = Time() '这就是将系统时间写入text1的文本框
time1 = Split(Time(), ":") '这里是用split()函数将系统时间分隔成“时:分:秒”
hour = CInt(time1(0)) '这里是将分隔的小时赋给变量“hour”
minute = CInt(time1(1)) '这里是将分隔的分钟赋给变量“minute”
second = CInt(time1(2)) '这里是将分隔的秒钟赋给变量“second”
分好了后,然后再用时钟控件来做判断,时钟每加一秒,如果秒钟>0,秒变时值就减1,当秒钟<1的时候,分钟减1,秒钟又变成60秒,时钟是一样的判断。
If second > 0 Then '当秒钟大于0时
second = second - 1 '秒钟做减法
End If
If second < 1 And minute > 0 Then '当秒钟<1和分钟>0
minute = minute - 1 '分钟减1
second = 60 '秒钟重新计数
End If
If minute < 1 And second = 0 And hour > 0 Then '当分钟<1、秒钟=0和小时大于0时
hour = hour - 1 '小时做一次减法
minute = 60 '分钟做一次减法
End If
If hour < 0 Then '不能让小时小于零,所以当小时<0
hour = 0 ' 小时重新赋值为0
End If
If minute < 0 Then '不能让分钟小于零,所以当分钟<0
minute = 0 ' 分钟重新赋值为0
End If
'下面一行是显示倒计时的时间
Text1.Text = Trim(Str(hour)) + ":" + Trim(Str(minute)) + ":" + Trim(Str(second))
'下面一行就是判断三个变时是不是都各自等于小时、分钟、秒钟文本框中的值。如果等于,就弹出消息框“时间到了”
If hour = Int(h1.Text) And minute = Int(m1.Text) And second = Int(s1.Text) Then
MsgBox ("时间到了")
End If
当三个变量值分别等于相应该文本框里的值时,就报告一次,可以跟据自己的思想来增加程序难度。
[此贴子已经被作者于2006-3-28 16:31:07编辑过]