在VFP中如何制作一个模拟交通灯的程序

在VFP中模拟交通灯的小程序图文教程 先看效果图： 具体步骤： 1、先打开VFP6.0然后，点击“表单”，再点击“新建文件”按纽。如下图： 2、利用表单控件，向表单中添加一些控件如下图：

3、向表单中添加label1,label2,label3.label4,label6,timer1,command1,comand2，如下图：

先设置一下label1，label2，label3的属性，如下图：

4、在属性菜单中，用同样的方法设置好另二个标签，和二个命令按纽。 5、双击form1表单，在过程init中编写以下程序：如下图：

thisform.timer1.enabled=.f. public t,k t=0 k=0 6、对timer1的timer过程进行编程，如下图：

if t<=30 t=t+1 do case  case t<=10  thisform.label3.backcolor=rgb(255,255,0)   thisform.label2.backcolor=rgb(0,0,0)  thisform.label1.backcolor=rgb(0,0,0)  case t<=20  thisform.label2.backcolor=rgb(255,0,0)  thisform.label3.backcolor=rgb(0,0,0)  thisform.label1.backcolor=rgb(0,0,0)  otherwise  thisform.label1.backcolor=rgb(0,128,0)  thisform.label2.backcolor=rgb(0,0,0)  thisform.label3.backcolor=rgb(0,0,0) endcase else t=0 endif k=t do case  case k<=10  k=t  case k<=20  k=t-10  otherwise  k=t-20 endcase thisform.label6.caption=str(k,8) 7、设置timer1的属性中的interval为1000,表示每过1000毫秒，就自动执行一次timer中的程序，如下图：

8、对command1的click过程编程，如下图：

thisform.timer1.enabled=.t. 9、对command2的click过程编程，如下图：

T=0 到此就完工。 10、测试一下程序

END