Question

VB程序红绿灯设计

红绿灯设计，界面如下

本应用程序思想为：运行程序时，单击“开始”按钮，输入红灯时间，黄灯时间、绿灯时间。根据输入的时间分别进行红灯、黄灯、绿灯的切换，同时在右侧黑色标签框里显示倒计时时间。单击“停止”按钮时，红绿灯停止工作。
本程序分析：
（1）需要控件：四个标签，三个文本框、三个图片框、三个计时器。
（2）放置三个文本框，分别代表红灯、黄灯、绿灯工作的时间。
（3）黑色标签框用了显示倒计时时间
（4）计时器1，计时器2，计时器3分别控制红灯、黄灯、绿灯工作
（5）语句提示：
Label4.Font.Size = 90 ‘是字体显示大小为90
Imge1.Viseble= True ‘图片可见
Timer1.Enabled = True ‘计时器工作
求完整的代码

Answer 1

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

2、 接着，在弹出选取图片对话框，选择合适的红绿灯素材来体现效果，这里先选取了一张红灯的图片。

3、在Image属性面板的名称属性上，将其改名为red，标识后就不会与其他图混淆。

4、在VB编程的界面中也可以直接复制控件，如将red这个Image控件复制两个出来，不加入控件组，并将后两个依次改名为yellow、green。

5、 然后，将yellow图形控件与red控件重叠，并右键单击，在弹出的菜单中选择【移至底层】，放好后，green 图形控件放在最底层。三个图形控件依红、黄、绿的顺序叠加重合了。

6、接着，鼠标左键双击red图形控件，弹出输入代码窗口，在其上输入如下代码段。

Answer 2

Dim r As Integer, y As Integer, g As Integer
Dim n As Integer, m As Integer
Private Sub Command1_Click(Index As Integer)
r = Val(Text1(0).Text)
y = Val(Text1(1).Text)
g = Val(Text1(2).Text)
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Picture1(0).Picture = Form2.Picture1(0).Picture
Picture1(1).Picture = Form2.Picture1(1).Picture
Picture1(2).Picture = Form2.Picture1(2).Picture
Label2.Caption = 100
Label2.ForeColor = RGB(100, 100, 250)
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
m = m + 1
Picture1(0).Picture = Form2.Picture1(0).Picture
Picture1(1).Picture = LoadPicture("")
Picture1(2).Picture = LoadPicture("")
Label2.ForeColor = RGB(255, 0, 0)
Label2.Caption = r
If m Mod 5 = 0 Then
r = r - 1
If m > 500 Then m = 0
End If
If r < 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
m = 0
End If
End Sub

Private Sub Timer2_Timer()
m = m + 1
Picture1(2).Picture = Form2.Picture1(2).Picture
Picture1(1).Picture = LoadPicture("")
Picture1(0).Picture = LoadPicture("")
Label2.ForeColor = RGB(0, 255, 0)
Label2.Caption = g
If m Mod 5 = 0 Then
g = g - 1
If m > 500 Then m = 0
End If
If g < 0 Then
Timer2.Enabled = False
Timer3.Enabled = True
m = 0
End If
End Sub

Private Sub Timer3_Timer()
m = m + 1
Picture1(1).Picture = Form2.Picture1(1).Picture
Picture1(0).Picture = LoadPicture("")
Picture1(2).Picture = LoadPicture("")
Label2.ForeColor = RGB(255, 255, 0)
Label2.Caption = y
If m Mod 5 = 0 Then
y = y - 1
Picture1(1).Picture = LoadPicture("")
If m > 500 Then m = 0
End If
If y < 0 Then
Timer3.Enabled = False
Timer1.Enabled = True
r = Val(Text1(0).Text)
y = Val(Text1(1).Text)
g = Val(Text1(2).Text)
m = 0
End If
End Sub

 

Answer 3

Dim a, b, c As Integer   '事先把三个timer控件的interval设为1000,enabled属性设为false ,并且文本框只能输入整数 

Private Sub Command1_Click()   '开始按钮
Timer1 = True
Label4.Caption = Text1.Text
image1.Visible = True
image2.Visible = False
image3.Visible = False
a = Text1.Text
b = Text2.Text
c = Text3.Text
End Sub

Private Sub Command2_Click()    '结束按钮
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
image1.Visible = False
image2.Visible = False
image3.Visible = False
End Sub

Private Sub Timer1_Timer()
Text1.Text = Text1.Text - 1
Label4.Caption = Text1.Text
If Text1.Text = 0 Then
Text2.Text = b
Label4.Caption = b
Timer2.Enabled = True
Timer1.Enabled = False
image2.Visible = True
image1.Visible = False
End If
End Sub

Private Sub Timer2_Timer()
Text2.Text = Text2.Text - 1
Label4.Caption = Text2.Text
If Text2.Text = 0 Then
Text3.Text = c
Label4.Caption = c
Timer3.Enabled = True
Timer2.Enabled = False
image2.Visible = False
image3.Visible = True
End If
End Sub

Private Sub Timer3_Timer()
Text3.Text = Text3.Text - 1
Label4.Caption = Text3.Text
If Text3.Text = 0 Then
Text1.Text = a
Label4.Caption = a
Timer1.Enabled = True
Timer3.Enabled = False
image1.Visible = True
 
image3.Visible = False
End If
End Sub

Answer 4

参考：http://zhidao.baidu.com/question/27904159