程序员怎么改红绿灯

A. 谁会用VB程序设计一红绿灯

第一件事当然是新建一个工程，然后引入所需控件。在“红绿灯”程序中，我们需要用到的控件有：OptionButton（选项按钮）、Image（图像框）及Timer（时钟）控件。引入两个OptionButton，其中Option1的Caption设置为“红灯”，Option2的Caption设置为“绿灯”；Image1的Picture属性设置为红灯图片，选择一张红灯图片（读者可以自己创建一个红灯及绿灯图片）。设计好的程序界面如图1。

好了，现在我们开始添加程序代码。

我们要求程序能够通过我们所选择的是红灯或绿灯来显示相应的图像，实现的原理就是当我们单击“红灯”时显示红灯图片，单击“绿灯”时显示绿灯图片，只要用户准备好这两张图片后，要实现这个功能就非常的容易了。其具体的程序代码如下：

双击Option1（即红灯）控件，添加如下代码：（黑体部分为系统自动生成的代码，下同）
Private Sub Option1_Click()
′显示红灯图片
On Error GoTo LoadErr ′当载入图片发生错误时跳到LoadErr处
If Option1.Value=True Then ′当单击了Option1控件时
Image1.Picture=LoadPicture(〃C:\Windows\Desktop\red.jpg〃) ′载入red.jpg图片，并显示在Image1控件中。
End If
LoadErr: ′设置捕获错误标签
If Err.Number=53 Then ′当发生错误时
MsgBox Err.Description,vbOKOnly＋vbCritical,〃错误〃 ′显示错误信息
End If
End Sub

上面一段代码中有一句“On Error Goto LoadErr”，该句是用作捕获程序错误的，当程序执行过程中发生了错误则跳到处理错误语句处执行。在这段代码中，如果在载入图片时发生了错误（通常是所要载入的文件不存在或路径错误）则跳到LoadErr处执行LoadErr后的程序代码。

在VB中，所有的程序错误都是用数字表示的，如53则表示未找到文件的错误码，其实要知道哪个错误码表示哪种错误也并不难，当你在VB中运行这个程序时，如果出现了错误，会有一个错误的提示框，在该提示框中则有该错误的错误码。如果我们没有在该段程序中加入“On Error Goto LoadErr”语句及给出错误的文件名或文件路径的话，则会出现提示框。

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设置为30000（即30秒）。其原理就是每隔30秒更换一种图片，这样便实现了自动更换。

双击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秒钟即换一种颜色显示。就这么几句代码就实现了自动化，简单吧？

B. VB程序红绿灯设计

1、 在桌面上，鼠标左键双击，打开VB编程软件，在左边工具栏上单击Image按钮，在Form1窗口上，绘制出图框，然后在Image属性面板的Picture属性上，单击【加载图片】按钮。

C. 怎么在可编程控制器上编写一个控制红绿灯的代码

先下载编程软件，然后根据控制要求进行程序编辑，编辑玩了下载到plc里，然后运行，调试，修改，都符合要求了，就完成了
望采纳。。。。。。

D. 如何用C#编写红绿灯程序

计数器+命令模式。

E. 用C语言编程模拟交通路口（十字路口）红绿灯的控制功能

本系统的设计首先必须了解交通路灯的亮灭规律。设有一个十字路口，1、3 为南，北
方向， 2、4 为东，西方向，初始态为4 个路口的红灯全亮。之后， 1、3 路口的绿灯亮，
2、4 路口的红灯亮， 1、3 路口方向通车。延迟一段时间后， 1、3 路口的绿灯熄灭，而1、
3 路口的黄灯开始闪烁。闪烁若干次后， 1、3 路口的红灯亮， 同时 2、4 路口的绿灯亮， 2、
4 路口方向开始通车。延迟一段时间后， 2、4 路口的绿灯熄灭，而黄灯开始闪烁。闪烁若
干次后，再切换到1、3 路口方向。之后，重复上述过程。对于各组灯的亮灭，我们运用的
是8255A 的输入输出功能。

F. 哪位大神给plc 编程 模拟红绿灯的程序啊，

根据对红绿灯的控制要求及PLC地址分配的定义，可对PLC程序编制，其梯形图见附录1。
下面对所编的程序梯形图作简要的说明：
当按下启动按钮I0.3，中间继电器M0.1得电其常开触点闭合代替了I0.3达到自锁使得MO.1在一直通电的状态。中间串上M0.0常闭触点是为了当需要切断电源时，按下I0.2，继电器M0.0得电，其常闭触点断开，而此断开M0.1的自锁程序达到切断电源的效果。

（1）当按下启动开关后，以下接触器得电：
a．Q0.0通过中间继电器M0.1的常开触点闭合接通电源，马路南北红灯亮。而计时器也接通，它是为Q0.0计时作用的。当T37计时30s后，它的常闭触点断开，断开Q0.0的电源。T42常闭触点在这里起循环作用，就是在此程序运转一个周期时，控制最后一个接触器的计时器计时完成，断开T37使得T37重新计时，以达到循环效果。

b．Q0.4得电，马路东西绿灯亮。与之串连的是计数器C21（计数3次，作用是Q0.4闪烁3次时断开其电源），T43、T44在这里起控制Q0.4闪烁并计时作用。

c．Q0.7接通人行道东西方向红灯亮，Q0.7与Q0.0公用一个计时器，所以Q0.7的显示时间与Q0.0一样。

d． Q1.0得电人行道南北方向绿灯亮，它的显示与Q0.4相同。C22、T48、T49的功能叶相同。

（2）延时25s后，Q0.4马路东西方向绿灯开始闪烁。计时器T43计时到，它的常闭触点先断开，使得Q0.4失电，同时它的常开触点闭合，接通计时器T44。T44、T45（接通T44后，T44开始工作，0.5S后接通QO.4与T45，再过0.5s后计时器T45工作，先断开T44。
如此循环工作。而这里加上计数器C21的3次计数达到绿灯闪烁功能。

（3）经过3s后，C21计数完成，断开Q0.4（熄灭绿灯）接通Q0.5马路东西黄灯和计时器T46（T46在这里起计时作用，2s后它先断开Q0.5，然后其常开触点闭合接通Q0.3，达到红绿灯循环效果。

（4）延时2s后，T46常开触点闭合接通Q0.3马路东西红灯。这时计时器T47接通开始工作。T47计时2s后，它的敞开触点闭合，复位C21。使得Q0.4重新开始工作，如此一直循环。

PLC编程设计报告

（5）当人行道红灯Q0.7亮30s后，T37计时30s动作，其常闭触点先端开，切断Q0.7。然后其常开触点闭合接通Q0.6(人行道东西绿灯)，Q0.6接通27s后闪烁3s（频率1s/次）其工作过程与马路闪烁3次相类似。

此次设计的红绿灯系统工作情况就向上面介绍的循环工作。

附上出处链接：http://wenku..com/link?url=OqtoElo8HW1GdOgAlqdCTqRJQJ_OsLJq5_Mt7

G. VB程序设计 红绿灯

你是在6.0还是.net里实现
6.0里
Dim a As Integer
Private Sub Form_Click()
FillStyle = 0
Select Case a
Case 1
FillColor = vbRed
Form1.Circle (Form1.Width / 2, Form1.Height / 2), 200, vbRed
a = a + 1

Exit Sub
Case 2
FillColor = vbYellow
Form1.Circle (Form1.Width / 2, Form1.Height / 2), 200, vbYellow
a = a + 1

Exit Sub
Case 3
FillColor = vbGreen
Form1.Circle (Form1.Width / 2, Form1.Height / 2), 200, vbGreen
a = 1

Exit Sub
End Select
End Sub

Private Sub Form_Load()
a = 1
End Sub

大致是这样，有些细节你自己改改

H. 单片机 用汇编语言编写交通红绿灯 只要求红灯30秒，黄灯5秒，绿灯30秒，黄灯5秒，其他不限

看你的程序上没有很大的问题，但是你的延时都使用相同子程序，延时时间相同。你可以把延时30秒的子程序和延时5秒的程序分开来写，分别调用。另单片机的引脚一般为吸入电流，建议你将单片机的引脚输出改为0有效就可以直接接负载，电源控制按键判断也作出相应的修改。

I. 西门子plc300编写交通红绿灯程序梯形图什么样

西门子plc300编写交通红绿灯程序梯形图如上图所示：

J. C语言程序设计编写一个交通红绿灯的控制，各位高手帮帮忙急！

unsigned char counter;
sbit red_nb=P2^0;
......
void main()
{
TMOD=
TH0
TL0
ET0
TR0
while(1) //根据楼主所给，有4种状态
{
state1;
state2;
state3;
state4;

}
}
void timer0() interrupt 1 //定时器0
{
TH0=0x3c;
TL0=0xb0;
counter++;
}
void state1() //控制南北红灯亮，东西绿灯亮,30s
{
unsigned char temp = 30;
red_nb=1;
.....
green_dx=1;

while(1)
{
if( counter>19){counter=0;temp--} //每次counter=20，即1s，temp自减
if(temp) break; //当temp为0时，即30秒,退出状态1，进入状态2

}
}
没经过测试，完全是5分诱惑不大。。