还剩3页未读，继续阅读
文本内容:
计算机二级实例编程红绿灯控制程序VB试验规定1掌握有关Shape形状控件的使用；2深入掌握定期器控件Tinier的使用措施试验内容用Visual Basic制作一种红绿灯程序，程序界面如图8-
1、图8-
2、图8-3所示图8-1运行界面效果18-2运行界面效果2
一、程序阐明程序的顾客界面如图8-4所示，当顾客在图8-1的控制台上选择“自动”时，红、黄、绿三灯将按一定的时间依次亮，如图8-2所示，并有时间显示；当选择“手动”后，红灯、黄灯、绿灯这3个按钮可用，点哪个按钮，图8-3设计界面对应灯亮，如图8T所示图8-4设计界面图2
二、技术分析Shape形状控件通过设置其Shape属性值，重要用于以便显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形几何图形本程序运用形状控件设置两组红黄绿灯，一组颜色较暗，一组颜色较亮，运用对象的Visible可见属性和Timer控件的Timer属性实现对红黄绿三灯变换的控制
三、创立顾客界面如图8-4所示，其中，三个比较亮的红色、黄色和绿色圆，分别是名称为Shape
2、Shape3和Shape4的图形控件；三个比较暗的红色、黄色和绿色圆，分别是名称为Shape
6、Shape.Shape8的图形控件，这6个图形控件对应互相重叠，Shape2Shape3和Shape4在上面，Shape6Shape7Shape8在下面所有控件及其属性设置状况如下表所示表试验八对象及其属性名称属性名属性值窗体、控件红绿灯Caption窗体Forml（自定）IconInterval1000时钟控件TimerlFalseEnabled圆角矩4-RoundRectanele-Shape形Shape1Border ColorH80000008Border Width3形状控件FillStyle1-Transparent圆形Shape3-Circle-Border ColorH00000080Shape2FillStyle0-SoEdFillColor H00000080其他控名省略
四、编写程序代码Dim sAs IntegerDimn AsInteger单击“红灯”按钮Private SubCommand1ClickShape
6.Visible=True:Shape.Visible=False:Shape
8.Visible=FalseEnd Sub单击“黄灯”按钮Private SubCommand2clickShape
6.Visible=False:Shape.Visible=True:Shape
8.Visible=FalseEnd Sub单击“绿灯”按钮Private SubCommand3_ClickShape
6.Visible=False:Shape.Visible=False:Shape
8.Visible=TrueEnd Sub单击“自动”按钮Private SubCommand4_ClickTimerl.Enabled=TrueCommand
1.Enabled=FalseCommand
2.Enabled=FalseCommand
3.Enabled=Falsen=0:s=0End Sub单击“手动”按钮Private SubCommands ClickTimerl.Enabled=FalseLabell.Caption二Shape.Visible=FalseShape
8.Visible=FalseCommeindl.Enabled=TrueCommand
2.Enabled=TrueCommands.Enabled=TrueEnd Sub时钟控件启动Private SubTimerl_TimerSelect CasenCase0Shape
6.Visible=TrueShape.Visible=FalseShape
8.Visible=FalseLabel
1.Caption=3-ss=s+1If s3Thenn二1s=0End IfCase1Shape
6.Visible=FalseCase2Shape
6.Visible=FalseShape.Visible=FalseShape
8.Visible=TrueLabel
1.Caption-3-s s=s+1If s3Then n=0:s=0End IfEnd SelectEnd Sub
五、保留并运行程序执行【文献】一【保留工程】命令，打开“文献另存为”对话框，按提醒分别保留窗体文献及工程文献;然后，执行【运行】一【启动】命令（或直接按F5键），运行程序检测运行成果与否符合题意例如，单击“手动”按钮后，再单击“红灯”按钮，则窗体上显示出亮的红灯图形，其他的两个则显示出暗的图形
六、思索假如想要变化红绿灯多种灯的变化显示时间，应怎样修改程序。
个人认证
优秀文档
获得点赞 0
