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

1、模拟交通灯报告学院 材料学院 班级 材料074 学号 072996 姓名 李金鹏 成绩 一、设计思路1.要达到的目的培养综合利用vb语言进行程序设计的能力，重要是培养利用vb的标准控件进行应用程序设计的技能。多次锻炼控件数组的使用。了解各个控件属性，培养对控件属性的设置。了解各个控件间的联系以及熟练应用各种控件。程序界面美观，能够完成主要的功能。2.关键问题的解决红绿灯的进度显示通过用picrurebox和label组合，使label的长宽与picturebox相等。并使label的长度随着时间变化增长来达到模拟交通灯进度条的目的白天模式与夜间模式的转换通过定义的nsv 和night两个逻辑变

2、量，并规定两个模式下的不同，最终达到区分白天模式和夜间模式的交通灯变化的目的二、部分程序关键源代码及注释1. 实现数码到字形码的转换 rivate sub form_load()timeleft = led(0) = 1011111led(1) = 0000011led(2) = 1110110led(3) = 1110011led(4) = 0101011led(5) = 1111001led(6) = 1111101led(7) = 1001011led(8) = 1111111led(9) = 1111011end subsub draw(k as long)for i = 1 to 7

3、 ln(i - 1).visible = -val(mid(led(k 10), i, 1)nextfor i = 8 to 14 ln(i - 1).visible = -val(mid(led(k mod 10), i - 7, 1)nextend sub实现数码到字形码的转换与任务书上的方法略有不同，大同小异，基本思想一致。其主要区别在于在ln的visibile属性值进行判断来达到控制数码数字的显示2.关于夜间模式和白天模式的转换由于设计的需要程序能在白天模式和夜间模式之间进行切换，所以 定义了nsv和night两个逻辑型变量。应用一个 ifthenelse语句。使其应用一个timer控

4、件就能达到区分白天及夜间交通灯的变化，以下是关键语句private sub t1_timer()if night then = not = not elsetimeleft = timeleft - 1if timeleft = 0 then nsv = not nsv: timeleft = bgnif day then = vbred: = vbgreen else = vbgreen: = vbreddraw timeleft = (bgn - timeleft) / bgn * = (bgn - timeleft) / bgn * end ifend sub三、模块之间的调用关系，或程

5、序流程图输入初始值启动停止夜间黄灯倒计时结束初始值 四、本次设计的收获心得体会及困难1.通过这一个星期完成vb设计，使我对书上的一些知识有了更深层次的了解，而这些如果不通过自己动手设计是很难学到的，理论和实践是应该相结合的，光有理论知识对于vb这种非常重视实践的学科是远远不够的，而通过自己的实践，使自己的理论知识得以深化，我想这也是本次vb设计的最终目的2在这次设计中我也遇到了很多困难，例如为了增加程序的严谨性，我付出了很多努力，最终自学了一些知识才达到了目的，虽然遇到了很多的困难，但是当程序运行成功那一刻起，还是很有成就感的五、对该题目和vb设计的意见和建议1. 对该题目的意见和建议个人而言，这道题不是很简单，而且各项要求也比较多。要求的控件比较多，设计起来总觉得有点乱，而且它们还必须要组成一个系统的整体。但是通过老师的范例，确实是自己有了个比较明确的思路。2对本次设计的意见和建议本次设计就在这紧张忙碌中过去了，只有一周多一点的时间，不得不说留了很大的遗憾，还有不少的想做的事还没来