主要内容
用时钟timer控制时间变化,灯的颜色变化使用形状控件shape随时间而改变, 也可以使用图形方法来绘制。
具体要求及应提交材料
用Visual Basic 6.0设计出如图所示的交叉口的平面图，要求区分出车道的划分情况；另外，用不同的颜色表示不同的信号灯放在相应的路口上，设计出相应的程序模拟信号灯运行的情况。界面上应该设置相应的控件设置信号周期时间，各方向的红、绿、黄时间。比如，信号配时情况为：两相位，信号周期为120s,东西向绿灯时间60s，黄灯时间5s，红灯时间55s；南北向绿灯时间55s，黄灯时间5s，红灯时间60s。各信号灯上要加上倒计时（参考实际交叉口信号灯上的倒计时）。示意图如图。
要求要考虑每个进口所能看到的信号（也就是要建4组信号灯）。


帮忙的 可以私聊重谢 我是学生 这是课程设计  QQ346340176



[ 本帖最后由 xu070306 于 2012-5-23 20:01 编辑 ]

发不起图片

求帮助@@@@@@@@@@@@@@@@@@@@@@@@@@

啥困难

版主大大 帮忙做下嘛 或者给个QQ  我跟你私聊  可以适当感谢你  因为我是大一的 这些根本没学过 可是老师又叫做 因为学校安排错了  所以只好求助

正常吧大学都这样～老师上课都只会哈啦～出的作业都是跟上课无关的东西～
我大一计算机作业～老师就直接叫我们用简易编译器(名字忘了)～
直接用8个IO输入1或0～配上And Or Xor Not...闸～最后做出数字电子看板显示器～
听都没听过的～谁知道那是啥东西～但是为了学分～最后就是会做得出来～
这就是上大学要培养出来的基本能力～就算没碰过的～还是得做出来～

上大学就是要培养学生自学的能力～找高手帮做很简单～但是就失去学习的意义了～
就算混毕业了～还是得从0开始～该来的还是躲不掉～

代码不贴了。说一下实现方法。要自己能写得出才好。

一、控件
1、示范图，直接画个图，然后加载到 Picture1 中。
2、灯。圆形，用 Shape 控件，组不组控件数组随意。
3、倒计时。用 Label 控件。
4、按钮。我这里用的是二个 Check 控件。内容：自动，手动。
   另 手动中所示二个按钮，使用的是 Option 。
   关闭按钮，使用的才是：Command
5、另放一个计时器（timer)，Interval ：1000 ， Enabled ：False
二、方法
1、常量：
Const TXDR = 55         '通行东西红灯时间
Const TXLR = 60         '通行南北红灯时间
Const TXH = 5           '通行黄灯时间
2、变量，一个计时用的变量，一个表示状态的变量。
  状态的变量可用或不用，用的话，可以节省CPU处理时间。
3、响应事件。
  自动，手动，需要响应事件。我的代码主要写在计时器里，所以 这个响应事件很简单。

Private Sub Check1_Click()          '点击自动
If Check1.Value = 1 Then            '如果自动开
    Check2.Value = 0                '手动关
    DoEvents                        '等待手动关响应执行完
    TXjs = 0
    Timer1.Enabled = True           '开定时器
Else                                '否则
    Timer1.Enabled = False          '关定时器
End If    
End Sub

Private Sub Check2_Click()          '点击手动
If Check2.Value = 1 Then            '如果手动关
    Check1.Value = 0                '自动关
    DoEvents                        '等待自动关响应执行完
    TXjs = 0
    Timer1.Enabled = True           '开定时器
Else                                '否则
    Timer1.Enabled = False          '关定时器
End If    
End Sub

4、定时器里。
  首先，计时，每1秒，自加1
  当 计时的结果超过一个周期，置 0
  对 计时结果进行 多分支选择。
          Select Case TXjs
            Case Is < TXDR         '东西红
            Case Is < TXDR + TXH     '东西黄
            Case Is < TXDR + TXH + TXLR '南北红
            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
            Shape1(1).FillColor = vbRed
            Shape1(2).FillColor = vbGreen
            Shape1(3).FillColor = vbGreen
            'Label1(0).ForeColor = vbRed
            'Label1(1).ForeColor = vbRed
            'Label1(2).ForeColor = vbGreen
            'Label1(3).ForeColor = vbGreen
            
            Label4.Caption = "南北：绿"
            Label5.Caption = "东西：红"
            DoEvents
        Else
            Shape1(0).FillColor = vbGreen
            Shape1(1).FillColor = vbGreen
            Shape1(2).FillColor = vbRed
            Shape1(3).FillColor = vbRed
            'Label1(0).ForeColor = vbGreen
            'Label1(1).ForeColor = vbGreen
            'Label1(2).ForeColor = vbRed
            'Label1(3).ForeColor = vbRed
            
            Label4.Caption = "南北：红"
            Label5.Caption = "东西：绿"
            DoEvents
        End If
        
        Label1(0).Caption = "∞"
        Label1(1).Caption = "∞"
        Label1(2).Caption = "∞"
        Label1(3).Caption = "∞"
        
    End If

等你实在是想不出时再贴代码吧。

我想用 来做，但是圆圈应该用什么控件来做呢？

路过 看看

Shape1，就是图形控件，默认是方的，你画出来，在属性里改成圆形