(vb课程设计)模拟交通灯

模拟交通灯报告

学院材料学院班级材料074 学号072996 姓名李金鹏成绩

一、设计思路

1.要达到的目的

①培养综合利用VB语言进行程序设计的能力，重要是培养利用VB的标准控件进行应用程序

设计的技能。

②多次锻炼控件数组的使用。

③了解各个控件属性，培养对控件属性的设置。

④了解各个控件间的联系以及熟练应用各种控件。

⑤程序界面美观，能够完成主要的功能。

2.关键问题的解决

①红绿灯的进度显示

通过用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属性值进行判断来达到控制数码数字的显示

2.关于夜间模式和白天模式的转换

由于设计的需要程序能在白天模式和夜间模式之间进行切换，所以定义了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 - timeleft) / bgn *

= (bgn - timeleft) / bgn *

End If

End Sub

三、模块之间的调用关系，或程序流程图

'

四、本次设计的收获心得体会及困难

1..通过这一个星期完成VB设计，使我对书上的一些知识有了更深层次的了解，而这些如果不通过自己动手设计是很难学到的，理论和实践是应该相结合的，光有理论知识对于VB这种非常重视实践的学科是远远不够的，而通过自己的实践，使自己的理论知识得以深化，我想这也是本次VB 设计的最终目的

2．在这次设计中我也遇到了很多困难，例如为了增加程序的严谨性，我付出了很多努力，最终自学了一些知识才达到了目的，虽然遇到了很多的困难，但是当程序运行成功那一刻起，还是很有成就感的

五、对该题目和VB设计的意见和建议

1. 对该题目的意见和建议

个人而言，这道题不是很简单，而且各项要求也比较多。要求的控件比较多，设计起来总觉得有点乱，而且它们还必须要组成一个系统的整体。但是通过老师的范例，确实是自己有了个比较明确的思路。

2．对本次设计的意见和建议

本次设计就在这紧张忙碌中过去了，只有一周多一点的时间，不得不说留了很大的遗憾，还有不少的想做的事还没来得及做，而且本次设计时间还安排到了临近考试周，造成各方面都很紧张，到最后我也能是感慨心有余而力不足！所以，希望以后这种设计能给安排多一些的时间，并且跟其他紧张的时间段错开。