After Effects打造“墨滴入水”特效.doc

模拟交通灯报告
学院材料学院班级材料074 学号 072996 姓名李金鹏成绩
一、设计思路

①培养综合利用VB语言进行程序设计的能力,重要是培养利用VB的标准控件进行应用程序设计的技能。
②多次锻炼控件数组的使用。
③了解各个控件属性,培养对控件属性的设置。
④了解各个控件间的联系以及熟练应用各种控件。
⑤程序界面美观,能够完成主要的功能。

①红绿灯的进度显示
通过用picrurebox和label组合,使label的长宽与picturebox相等。并使label的长度随着时间变化增长来达到模拟交通灯进度条的目的
②白天模式与夜间模式的转换
通过定义的NSV 和NIGHT两个逻辑变量,并规定两个模式下的不同,最终达到区分白天模式和夜间模式的交通灯变化的目的
二、部分程序关键源代码及注释
1. 实现数码到字形码的转换
rivate Sub Form_Load()
timeleft =
led(0) = "1011111"
led(1) = "0000011"
led(2) = "1110110"
led(3) = "1110011"
led(4) = "0101011"
led(5) = "1111001"
led(6) = "1111101"
led(7) = "1001011"
led(8) = "1111111"
led(9) = "1111011"
End Sub
Sub Draw(k As Long)
For i = 1 To 7
ln(i - 1).Visible = -Val(Mid(led(k \ 10), i, 1))
Next
For i = 8 To 14
ln(i - 1).Visible = -Val(Mid(led(k Mod 10), i - 7, 1))
Next
End Sub
实现数码到字形码的转换与任务书上的方法略有不同,大同小异,基本思想一致。
其主要区别在于在ln的visibile属性值进行判断来达到控制数码数字的显示

由于设计的需要程序能在白天模式和夜间模式之间进行切换,所以定义了nsv和night两个逻辑型变量。应用一个 if···then···else语句。使其应用一个timer控件就能达到区分白天及夜间交通灯的变化,以下是关键语句
Private Sub t1_Timer()
If night Then
= Not
= Not
Else
timeleft = timeleft - 1
If timeleft <= 0 Then nsv = Not nsv: timeleft = bgn
If day Then = vbRed: = vbGreen Else = vbGreen: = vbRed
Draw timeleft
= (bgn