《(vb课程设计)模拟交通灯》由会员分享，可在线阅读，更多相关《(vb课程设计)模拟交通灯（3页珍藏版）》请在金锄头文库上搜索。
1、模拟交通灯报告学院 材料学院班级 材料 074学号 072996姓名 李金鹏成绩一、设计思路1.要达到的目的培养综合利用VB 语言进行程序设计的能力，重要是培养利用设计的技能。多次锻炼控件数组的使用。了解各个控件属性，培养对控件属性的设置。VB的标准控件进行应用程序 了解各个控件间的联系以及熟练应用各种控件。程序界面美观，能够完成主要的功能。2.关键问题的解决红绿灯的进度显示通过用 picrurebox 和 label 组合，使 label 的长宽与 picturebox 相等。并使 label 的长度随着时间变化增长来达到模拟交通灯进度条的目的白天模式与夜间模式的转换通过定义的 NSV 和
2、NIGHT 两个逻辑变量，并规定两个模式下的不同，最终达到区分白天模式和夜间模式的交通灯变化的目的二、部分程序关键源代码及注释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
3、 = 1 To 7ln(i - 1).Visible = -Val(Mid(led(k 10), i, 1)NextFor i = 8 To 14ln(i - 1).Visible = -Val(Mid(led(k Mod 10), i - 7, 1)NextEnd Sub实现数码到字形码的转换与任务书上的方法略有不同，大同小异，基本思想一致。其主要区别在于在ln 的 visibile属性值进行判断来达到控制数码数字的显示2. 关于夜间模式和白天模式的转换由于设计的需要程序能在白天模式和夜间模式之间进行切换，所以定义了 nsv 和 night两个逻辑型变量。应用一个ifthen else语句。
4、使其应用一个timer控件就能达到区分白天及夜间交通灯的变化，以下是关键语句Private Sub t1_Timer()If night Then= Not= NotElsetimeleft = 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对本次设计的意见和建议本次设计就在这紧张忙碌中过去了，只有一周多一点的时间，不得不说留了很大的遗憾，还有不少的想做的事还没来得及做，而且本次设计时间还安排到了临近考试周，造成各方面都很紧张，到最后我也能是感慨心有余而力不足！所以，希望以后这种设计能给安排多一些的时间，并且跟其他紧张的时间段错开。
