Question

要怎么用VB做红绿灯？？？

要用shape控件的哦！
Private Sub Form_Load()
For i = 0 To 2
Shape1(i) = 2
Shape1(i).BackStyle = 1
Shape1(0).BackColor = vbRed
Shape1(1).BackColor = vbYellow
Shape1(2).BackColor = vbGreen
Next
End Sub

Private Sub Timer1_Timer()
可以帮忙填一下这里的代码吗？（就是让红灯亮的时候其他两个灯不亮，黄灯和绿灯也是一样的）拜托啦!
End Sub

Answer 1

Private Sub Form_Load()

Timer1.Enabled = True

Timer2.Enabled = True

Timer3.Enabled = False

End Sub

Private Sub Timer1_Timer()

For i = 0 To 3

Label1(i).Caption = Label1(i).Caption - 1

If Label1(i).Caption = -1 Then Label1(i).Caption = 60

Next

End Sub

Private Sub Timer2_Timer()

If Label1(1).Caption > 3 Then

Shape1.FillColor = vbGreen

Shape3.FillColor = vbGreen

Else

Shape1.FillColor = &H80FF&

Shape3.FillColor = &H80FF&

End If

Shape2.FillColor = vbRed

Shape4.FillColor = vbRed

If Label1(0).Caption = 0 Then Timer3.Enabled = True: Timer2.Enabled = False

End Sub

Private Sub Timer3_Timer()

If Label1(0).Caption > 3 Then

Shape2.FillColor = vbGreen

Shape4.FillColor = vbGreen

Else

Shape2.FillColor = &H80FF&

Shape4.FillColor = &H80FF&

End If

Shape1.FillColor = vbRed

Shape3.FillColor = vbRed

If Label1(0).Caption = 0 Then Timer2.Enabled = True: Timer3.Enabled = False

End Sub

Answer 2

用命令修改shape控件的 fillcolor 属性。

Answer 3

1、拖一个timer控件,将其时间间隔设为1000,
2.拖一个lable1,将其caption设为10
3.双击timerr控件,在其事件中写入代码:
label1.caption=val(label1)-1
　　Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Answer 4

用单片机或PLC软件。。