“红绿灯”的例子，在delphi里怎么弄

杰克

      终于学会了vb的“红绿灯”，觉得好玩，就是每按一次按钮，就亮一次灯，是依次的，但不懂在delphi里怎么弄，哪位朋友可以帮一下忙吗？（请写出代码）
这是vb的代码
    Private Sub Command1_Click()
  If Shape2.Visible = False And Shape3.Visible = False Then
    Shape2.Visible = True
     Shape1.Visible = False
     Shape3.Visible = False
ElseIf Shape2.Visible = True Then
        Shape1.Visible = False
        Shape2.Visible = False
        Shape3.Visible = True
    Else: Shape3.Visible = False
          Shape1.Visible = True
          Shape2.Visible = False
         
  End If
End Sub

comeheres

最近写的，但我的这个红绿灯是通过修改shape控件的颜色来实现的，与楼主的原理不一样

杰克

comeheres 发表于 2012-2-25 17:06

                               
登录/注册后可看大图

最近写的，但我的这个红绿灯是通过修改shape控件的颜色来实现的，与楼主的原理不一样

能把代码写出来吗，不尽感激

comeheres

杰克 发表于 2012-2-26 14:52

                               
登录/注册后可看大图

能把代码写出来吗，不尽感激

1. implementation
   
2. var
   
3.   redtime:Integer ;
   
4.   greentime:Integer ;
   
5.   n:Integer;
   
6. {$R *.dfm}
   
7. procedure TForm1.FormCreate(Sender: TObject);
   
8. begin
   
9. redtime:=5;                                     //默认红灯和绿灯时间5秒
   
10. greentime :=5;
    
11. Label5.Caption:='【当前时间】：'+DateTimeToStr(Now());  //获取系统时间
    
12. end;
    
13. 
    
14. procedure TForm1.TrackBar1Change(Sender: TObject);
    
15. begin
    
16. Label3.Caption :=IntToStr(TrackBar1.Position+5)+'秒';
    
17. redtime :=TrackBar1.Position+5;                     // 通过移动TrackBar滑块来设置红灯时间
    
18. end;
    
19. 
    
20. procedure TForm1.TrackBar2Change(Sender: TObject);
    
21. begin
    
22. Label4.Caption :=IntToStr(TrackBar2.Position+5)+'秒'; // 通过移动TrackBar滑块来设置绿灯时间
    
23. greentime :=TrackBar2.Position+5;
    
24. end;
    
25. 
    
26. procedure TForm1.Button1Click(Sender: TObject);
    
27. begin
    
28.    if Button1.Caption='演示' then
    
29.      begin
    
30.        Timer1.Interval:=1000;
    
31.        Button1.Caption:='停止';
    
32.      end
    
33.     else if Button1.Caption='停止' then
    
34.     begin
    
35.        Button1.Caption:='演示';         //恢复默认的状态
    
36.        Timer1.Interval :=0;
    
37.        Timer2.Interval :=0;
    
38.        Timer3.Interval :=0;
    
39.        Timer4.Interval :=0;
    
40.        Shape1.Brush.Color:=clRed;
    
41.        Shape2.Brush.Color:=clGray;
    
42.        Shape3.Brush.Color:=clGray;
    
43.        redtime :=TrackBar1.Position+5;
    
44.       end;
    
45. 
    
46. 
    
47. 
    
48. end;
    
49. 
    
50. procedure TForm1.Timer1Timer(Sender: TObject);    //红灯事件
    
51. begin
    
52.   if redtime <>1 then
    
53.    redtime:=redtime-1
    
54.    else
    
55.    begin
    
56.      redtime :=TrackBar1.Position+5;
    
57.      Shape1.Brush.Color:=clGray ;
    
58.      Timer1.Interval:=0;
    
59.      Shape2.Brush.Color:=clYellow;
    
60.      Timer2.Interval:=2000;
    
61.    end;
    
62. end;
    
63. 
    
64. 
    
65. procedure TForm1.Timer2Timer(Sender: TObject);    //黄灯事件
    
66. begin
    
67. if Shape2.Brush.Color=clYellow then
    
68.    Timer2.Interval:=0;
    
69.    Shape2.Brush.Color:=clGray ;
    
70.    Shape3.Brush.Color:=clGreen ;
    
71.    greentime :=TrackBar2.Position+5;
    
72.    Timer3.Interval :=1000;
    
73. end;
    
74. 
    
75. procedure TForm1.Timer3Timer(Sender: TObject);      //绿灯事件
    
76. begin
    
77.    if greentime <>3 then
    
78.    greentime:=greentime-1
    
79.    else
    
80.    begin                        //剩余2秒时，启动绿灯闪烁
    
81.      Timer3.Interval :=0;
    
82.      Timer4.Interval :=250;
    
83.      n:=8;                     //闪烁8次 ，8*250=2000，刚好是2秒
    
84.    end;
    
85. end;
    
86. 
    
87. procedure TForm1.Timer4Timer(Sender: TObject);  //绿灯闪烁事件
    
88. 
    
89. begin
    
90. if Shape3.Brush.Color=clGreen then
    
91.          Shape3.Brush.Color:=clGray
    
92.          else
    
93.         Shape3.Brush.Color:=clGreen;
    
94. n:=n-1;
    
95. if n=0 then
    
96. begin
    
97. Timer4.Interval:=0;                    //关闭绿灯，开启红灯，如此循环
    
98. Shape3.Brush.Color:=clGray;
    
99. Shape1.Brush.Color:=clRed;
    
100. redtime :=TrackBar1.Position+5;
     
101. Timer1.Interval:=1000;
     
102. end;
     
103. end;
     
104. 
     
105. 
     
106. 
     
107. 
     
108. procedure TForm1.Timer5Timer(Sender: TObject);
     
109. begin
     
110. Label5.Caption:='【当前时间】：'+DateTimeToStr(Now());    //每秒刷新显示系统时间
     
111. end;
     
112. 
     
113. end.

复制代码

窗体上放置一个Button，五个Label，三个圆形Shape，五个Timer，两个TrackBar。其中前四个Timer的Interval属性为0，Timer5的Interval属性为1000。红绿灯界面是网上找的一个图片，然后把三个圆形Shape对准图片的三个灯。

comeheres

杰克 发表于 2012-2-26 14:52

                               
登录/注册后可看大图

能把代码写出来吗，不尽感激

如果需要源码，去我的网盘下载，我传上去了 http://comeheres.ys168.com/

G0398

这个程序有什么用处么

杰克

comeheres 发表于 2012-2-26 15:13

                               
登录/注册后可看大图

窗体上放置一个Button，五个Label，三个圆形Shape，五个Timer，两个TrackBar。其中前四个Timer的Interval ...

太谢谢了，这对一个菜鸟来说是个很好的教材，我希望教程应该从很好玩的例子开始，可能不要问为什么，有兴趣了，自己多做几个，多创新几个，自然会产生疑问，那学起来就快多了。我要这段代码就是想知道在delphi里的if语句是怎么写，叫我看教程简单要跳楼，看好玩的例子反而学得很快。谢谢了。
     希望小甲鱼看到。

comeheres

G0398 发表于 2012-2-26 16:46

                               
登录/注册后可看大图

这个程序有什么用处么

你说写“Hello World”程序有什么用呢？