二、动态实时显示当前课
课表的主要作用是,我们能实时查看当前是上课还是下课,是在上哪节课,于是,我们想到了用一个不同色泽的小矩形来指示。矩形对准哪 节课就是表示哪节课,而且可以自己定义三个时间:我们用一个文本文件 time.txt 来存放课时间,其内容格式定义如下
第一节 08:00 08:05 08:45
第二节 10:05 10:10 10:50
第三节 11:05 11:10 11:50
第四节 12:05 12:10 12:50
第五节 13:00 13:05 12:25
第六节 14:05 14:10 13:25
第七节 13:33 13:35 14:15
第八节 16:05 16:10 16:50
////////////////文件内容说明////////////////
以上为本程序的时间表,您只要修改每节课的三个时间,其中
第一个时间为预备提示时间第二个时间为真正上课时间
第三个时间为下课时间
每个时间一定要用上面的格式,并且每两个时间之间用一个 空格 隔开
我们先用下面代码读出这些内容,放到窗体上,待用。
Sub Form2_Show
form2.minimizebox=true
FileOpen (c1, "time.txt",cRandom) '打开时间表,读取时间
下面是每一节课的三个不同时间,分别放在不同的label上,要与当前时间作比较,以便用不同的色泽显示矩形提示块
label8.Text = FileGet (c1, 7,5)
label9.Text = FileGet (c1, 13,5)
label10.Text = FileGet (c1,19,5)
label11.Text = FileGet (c1, 33,5)label12.Text = FileGet (c1, 39,5)
label13.Text = FileGet (c1,45,5)
label14.Text = FileGet (c1, 59,5)
label15.Text = FileGet (c1, 65,5)
label16.Text = FileGet (c1,71,5)
label17.Text = FileGet (c1, 85,5)
label18.Text = FileGet (c1, 91,5)
label19.Text = FileGet (c1,97,5)
label20.Text = FileGet (c1, 111,5)
label21.Text = FileGet (c1, 117,5)
label22.Text = FileGet (c1,123,5)
label23.Text = FileGet (c1, 137,5)
label24.Text = FileGet (c1, 143,5)
label25.Text = FileGet (c1,149,5)
label26.Text = FileGet (c1, 163,5)
label27.Text = FileGet (c1, 169,5)
label28.Text = FileGet (c1,175,5)
label29.Text = FileGet (c1, 189,5)
label30.Text = FileGet (c1, 195,5)
label31.Text = FileGet (c1,201,5)
FileClose(c1)
End Sub
时间读取完毕后,我们将课表每一行的坐标位置取出来,用下面的代码就能实现实时显示了。
Sub Timer3_Tick
x=Time(Now)
label5.Text =x
label7.Text =TimeS
label32.Text =DateDayOfweek (Now) '得到星期几
If label5.Text =label8.Text Then
image4.Top =32
image4.Color =cgreen
Else If label5.Text =label9.Text Then
image4.Top =32
image4.Color =cred
Else If label5.Text =label10.Text Then
image4.Top =32
image4.Color =cblue
'label8 9 10 分别为第一节课的准备,上课,下课时间,32 为第一节课对应的行坐标,意思就是在第一节课这一行,用三种色彩来指示,下面是每节课的不同色彩显示
'''''''第2节课''''''''''''''
Else If label5.Text =label11.Text Then
image4.Top =52
image4.Color =cgreen
Else If label5.Text =label12.Text Then
image4.Top =52
image4.Color =cred
Else If label5.Text =label13.Text Then
image4.Top =52
image4.Color =cblue
''''''''''第3节课'''''
Else If label5.Text =label14.Text Then
image4.Top =72
image4.Color =cgreen
Else If label5.Text =label15.Text Then
image4.Top =72
image4.Color =cred
Else If label5.Text =label16.Text Then
image4.Top =72
image4.Color =cblue
责任编辑:小草