用vb制作红绿灯代码 急急急急
1、 在桌面上，鼠标左键双击，打开VB编程软件，在左边工具栏上单击Image按钮，在Form1窗口上，绘制出图框，然后在Image属性面板的Picture属性上，单击【加载图片】按钮。
2、 接着，在弹出选取图片对话框，选择合适的红绿灯素材来体现效果，这里先选取了一张红灯的图片。
3、在Image属性面板的名称属性上，将其改名为red，标识后就不会与其他图混淆。
4、在VB编程的界面中也可以直接复制控件，如将red这个Image控件复制两个出来，不加入控件组，并将后两个依次改名为yellow、green。
5、 然后，将yellow图形控件与red控件重叠，并右键单击，在弹出的菜单中选择【移至底层】，放好后，green 图形控件放在最底层。三个图形控件依红、黄、绿的顺序叠加重合了。
6、接着，鼠标左键双击red图形控件，弹出输入代码窗口，在其上输入如下代码段。
给你代码
Private Sub Command1_Click()Form1.Caption = "红灯"Label1.Caption = "红灯表示一律车辆停止"Label1.Font.Size = 20Label1.ForeColor = vbRedEnd SubPrivate Sub Command2_Click()Form1.Caption = "黄灯"Label1.Caption = "黄灯表示一律车辆准备停止"Label1.Font.Size = 20Label1.ForeColor = vbYellowEnd SubPrivate Sub Command3_Click()Form1.Caption = "绿灯"Label1.Caption = "绿灯表示一律车辆前进"Label1.Font.Size = 20Label1.ForeColor = vbGreenEnd Sub
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秒钟即换一种颜色显示。就这么几句代码就实现了自动化，简单吧？
起码说清楚红绿灯的功能吧同学。。
VB设置中的红绿灯问题?
Private Sub Command1_Click()If Dir = dgreen Then Dir = dyellow ElseIf Dir = dyellow Then Dir = dred Else Dir = dgreen End If Image1.Picture = LoadPicture(Dir)End Sub 如果用了Else，那么Then和后续的语句要分行写，即：If ... Then ...Else ...End If 而不是 If ... ...
VB 制作红绿灯的问题 怎么做?
给你代码 Private Sub Command1_Click()Form1.Caption = "红灯"Label1.Caption = "红灯表示一律车辆停止"Label1.Font.Size = 20Label1.ForeColor = vbRedEnd SubPrivate Sub Command2_Click()Form1.Caption = "黄灯"Label1.Caption = "黄灯表示一律车辆准备停止"Label1.Font.Size = 20Label1...
用vb6做红绿灯,要绿灯20秒,绿灯10,红灯30秒。该这么做
Case Is < TXDR + TXH + TXLR + TXH '南北红 Case Else TXjs = 0 End Select 每个分支中，单独对四个灯和四个倒计时分别指定。手动部分，没什么，判断一下，然后直接指定，不解释了。程序代码：If Check2.Value = 1 Then If Option1.Value = True Then Shape1(0).FillColor = vbRed ...
用VB编个红绿灯的程序,要求红灯停留5秒在跳黄灯,黄灯停留三秒跳绿灯,绿 ...
贴三张照片，红黄绿灯各一张 红image1(0)黄image2(1)绿image3(2)Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '声明 Private Sub Form_activate()image1(0).visible=true image1(1).visible=false image1(2).visible=false i=1 doevents sleep (5)do while ...
VB编程设计题:红绿灯
如图在窗体上添加：1、四个shape控件，作为灯框、红灯、黄灯、绿灯，分别命名为：LampBox、RedLamp、YellowLamp、GreenLamp 2、一个命令按钮，命名为：cmdRun，标题为“启动”3、三个文本框控件，来设置红灯、黄灯、绿灯亮的时间（秒），分别命名为：txtRedTime、txtYellowTime、txtGreenTime 4、四个...
vb中如何利用计时控件设置红绿灯自动切换?
比如说red表示红灯图片，green表示绿灯图片，yellow表示黄灯图片，使用三个计时器控件，在属性窗口设其interval属性为30000，10000,30000（因为是毫秒计时的，这三个数字分别表示绿灯亮30秒，黄灯亮10秒，红灯亮30秒），然后则可以编写如下代码 private sub form_load() '开启一个计时器，并且显示绿灯...
用VB做交通信号灯
修改了下，加一段这个代码：（我这里全用shape代替label了，要用的话就替换下好了···呵呵··）private sub shape1_click()tiemr1.enabled=true end sub private sub shape2_click()i=14 end sub 不知道上面的红绿灯怎么会用label的···我这里用的是shape你如果觉得不好换一下就好了的·...
谁会用VB程序设计一红绿灯
10 Then s = 0 End If If t <= 3 Then Label1 = t & "秒" & "绿灯行"End If If t > 3 Then Label1 = t & "秒" & "注意"End If If t > 5 Then Label1 = t & "秒" & "红绿灯"End If If t >= 9 Then Label1 = t & "秒" & "注意"End If End Sub ...
请帮我用VB编一个交通灯,很简单的
如何才能让“红绿灯”自动更换呢？要实现这个功能也非常简单，只要加入Timer（时钟）控件，将Timer1的Interval设置为3000（即3秒）。其原理就是每隔3秒更换一种图片，这样便实现了自动更换。双击Timer1控件，添加如下代码：Private Sub Timer1_Timer()′实现自动化 If Option1.Value=True Then ′如果...
vb信号灯
修改了下，加一段这个代码：（我这里全用shape代替label了，要用的话就替换下好了···呵呵··）private sub shape1_click()tiemr1.enabled=true end sub private sub shape2_click()i=14 end sub 不知道上面的红绿灯怎么会用label的···我这里用的是shape你如果觉得不好换一下就好了的·...
文廖优尼： LoadPicture是载入图片的函数,其中第一个参数则是所要载入图片的完整路径,当然在本例中这个路径是固定了的,所要想使其路径随程序路径的变化而变化则需要使用App.Path值,可以写成Image1.Picture=LoadPicture(App.Path&〃\red.jpg〃...
城子河区18796183361： 用VB做交通信号灯 - ？
文廖优尼： 修改了下,加一段这个代码:(我这里全用shape代替label了,要用的话就替换下好了···呵呵··) private sub shape1_click() tiemr1.enabled=true end sub private sub shape2_click() i=14 end sub 不知道上面的红绿灯怎么会用label的···...
城子河区18796183361： VB写个简单的红绿灯？
文廖优尼： Private Static Sub Timer1_Timer() Dim lighttime As Integer lighttime = lighttime + 1 lighttime = lighttime Mod 10 Select Case lighttime Case 1, 2, 3 Label1.Caption = ＂绿灯行＂ Label1.ForeColor = vbGreen Shape1.Shape = 3 Shape1.FillStyle = 0 ...
城子河区18796183361： 要怎么用VB做红绿灯??? - ？
文廖优尼： 1、拖一个timer控件,将其时间间隔设为1000,2.拖一个lable1,将其caption设为103.双击timerr控件,在其事件中写入代码:label1.caption=val(label1)-1Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开...
城子河区18796183361： VB 制作红绿灯的问题 怎么做? - ？
文廖优尼： 给你代码 Private Sub Command1_Click() Form1.Caption = ＂红灯＂ Label1.Caption = ＂红灯表示一律车辆停止＂ Label1.Font.Size = 20 Label1.ForeColor = vbRed End Sub Private Sub Command2_Click() Form1.Caption = ＂黄灯＂ Label1....
城子河区18796183361： 利用VB编写交通信号灯程序 - ？
文廖优尼： 一个按钮控制,在一个灯上显示三种状态,进行切换,供参考: 所以时间你自己得修改 Option Explicit Dim a As Byte Private Sub Command1_Click() a = a + 1 If a = 1 Then Shape1.FillColor = vbRed ElseIf a = 2 Then Shape1.FillColor = vbYellow ...
城子河区18796183361： VB 做一个倒计时的红绿灯 - ？
文廖优尼： 不用太复杂,基础学的我想就应该可以作,使用select case 进行选择就可以了,再作两张底图,一张为红色,一张为绿色,将两张图叠在一起隐藏,通过change来判断显示哪一张我想就可以了. 在窗体内加入两个label,其中label1.caption=6...
城子河区18796183361： 怎么用VB做三色交通灯..要求黄灯亮4秒..红灯亮8秒..绿灯亮10秒 - ？
文廖优尼： Private Sub Command1_Click() If Image1.Visible = True Then Image1.Visible = False Image2.Visible = True ElseIf Image2.Visible = True Then Image2.Visible = False Image3.Visible = True Else Image3.Visible = False Image1.Visible = ...
城子河区18796183361： 怎么用vb中的timer控件做一个红绿灯程序 - ？
文廖优尼： 用一个count变量来计数,每次count=count+1,比如到1000次后,就控制哪个灯亮,哪个灯熄等,然后count归零
城子河区18796183361： 用VB做交通信号灯？
文廖优尼： <p>修改了下,加一段这个代码:(我这里全用shape代替label了,要用的话就替换下好了···呵呵··)</p> <p>private sub shape1_click()</p> <p>tiemr1.enabled=true</p> <p>end sub</p> <p>private sub shape2_click()</p> <p>i=14</p> <p>...
