Question

用vb制作红绿灯代码 急急急急

Answer 1

不知道同学要干嘛？把单片机的东西发到这边来了？

Answer 2

LoadPicture是载入图片的函数，其中第一个参数则是所要载入图片的完整路径，当然在本例中这个路径是固定了的，所要想使其路径随程序路径的变化而变化则需要使用App.Path值，可以写成Image1.Picture=LoadPicture(App.Path＆〃\red.jpg〃)，其中App.Path返回的值则是程序所在的路径，当然red.jpg必须放在程序所在的同一目录中。

双击Option2（即绿灯）控件，添加如下代码：

Private Sub Option2_Click()

′显示绿灯图片

On Error GoTo LoadErr ′当载入图片发生错误时跳到LoadErr处

If Option2.Value=True Then ′当单击了Option2控件时

Image1.Picture=LoadPicture(〃C:\Windows\Desktop\green.jpg〃) ′载入green.jpg图片，并显示在Image1控件中。

End If

LoadErr: ′设置标签

If Err.Number=53 Then ′当发生错误时

MsgBox Err.Description,vbOKOnly＋vbCritical,〃错误〃 ′显示错误信息

End If

End Sub

OK！现在我们就可以单击F5键运行一下，看看我们自制的“红绿灯”程序吧。点击一下“绿灯”看看，红灯变成绿灯了吧？再试试红灯，怎样？现在我们就可以控制红绿灯了吧。

如何才能让“红绿灯”自动更换呢？要实现这个功能也非常简单，只要加入Timer（时钟）控件，将Timer1的Interval设置为3000（即3秒）。其原理就是每隔3秒更换一种图片，这样便实现了自动更换。

双击Timer1控件，添加如下代码：

Private Sub Timer1_Timer()

′实现自动化

If Option1.Value=True Then ′如果当前显示的是红灯

Option2.Value=True ′使Option2被选中，执行Option2中的代码（即显示绿灯）

Else

Option1.Value=True ′使Option1被选中，执行Option1中的代码（即显示红灯）

End If

End Sub

单击F5键运行一下，每隔3秒钟即换一种颜色显示。就这么几句代码就实现了自动化，简单吧？

Answer 3

起码说清楚红绿灯的功能吧同学。。