用VB设计城市开灯关灯问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 07:19:49
最近老师派发给我们VB设计任务，要求使用VB设计城市自动开灯关灯，要有两种模式：定时模式和强制模式，强制模式我已经弄好，调试没什么问题，但定时模式，运行时，发现和设定时间不符，也不知哪里错了，希望大家给与指正！
Private Sub Command1_Click()

a1:
bankai = InputBox("输入半夜灯开灯的时间", "半夜灯开灯设置", bankai)
If Not IsDate(bankai) Then
MsgBox "您输入的时间无效，请重新输入！"
GoTo a1
Else

bankai = CDate(bankai)

End If
a2:
banguan = InputBox("输入半夜灯关灯的时间", "半夜灯关灯设置", banguan)

If Not IsDate(banguan) Then
MsgBox "您输入的时间无效，请重新输入！"
GoTo a2
Else
banguan = CDate(banguan)

End If

Label1.Caption = "您所设置的半夜灯开灯时间为" & bankai
Label2.Caption = "您所设置的半夜灯关灯时间为" & banguan

End Sub

Private Sub Command2_Click()

a3:
quankai = InputBox("输入全夜灯开灯的时间", "全夜灯开灯设置", quankai)
If Not IsDate(quankai) Then
MsgBox "您输入的时间无效，请重新输入！"
GoTo a3
Else
quankai = C

Timer1_Timer的事件没写什么时候启动呀，如果刚开始加载程序时就启动，时间当然不准了。还有Timer1_Timer的事件里怎么有如下声明
Dim bankai As Date
Dim banguan As Date
Dim quankai As Date
Dim quanguan As Data
这是个局部变量。怎么在按钮事件里使用这些变量。变量会清零的。

第一你的定时中断里边写了好多程序，会浪费一定的时间。
第二定时中断本来就不准。
第三建议你抓取电脑系统时间定时。

时间格式不对.....
还是使用系统时间定时好

时间格式。。。。