用Visual Foxpro 3.0制作流水灯
#2 一、建立一个新表单。
进入Ｖｉｓｕａｌ Ｆｏｘｐｒｏ ３．０系统环境，在命令行窗口中键入Ｃｒｅａｔｅ Ｆｏｒｍ或在“文件”菜单中选择“新建”、“表单”，即可建立一个新表单（ＦＯＲＭ１），并设置ＦＯＲＭ１的Ｂａｃｋｃｏｌｏｒ属性为ＲＧＢ（１９２，１９２，１９２）。
#2 二、建立第一个彩灯。
用鼠标点击“表单控制栏”中的“标签”，并在ＦＯＲＭ１上拉出一个矩形方框（ＬＡＢＥＬ１）。设置它的属性Ｃａｐｔｉｏｎ为“★”（也可为其它字符，这里的“★”可在Ｗｉｎｄｏｗｓ ９５的“附件”的“字符映射表”中找到），Ａｕｔｏｓｉｚｅ为．Ｔ．，Ｂａｃｋｓｔｙｌｅ为０，Ｆｏｒｅｃｏｌｏｒ为ＲＧＢ（２５５，０，０），Ｆｏｎｔｓｉｚｅ为２０。
#2 三、建立其它２９个彩灯。
用鼠标点击ＬＡＢＥＬ１，按Ｃｔｒｌ＋Ｃ（拷贝）键，再按Ｃｔｒｌ＋Ｖ（粘贴）键，在ＦＯＲＭ１上创建另一个标题与ＬＡＢＥＬ１相同的标签（ＬＡＢＥＬ２），设置它的Ｆｏｒｅｃｏｌｏｒ属性为ＲＧＢ（０，２５５，０）。如此反复进行拷贝，共建立３０个标签，将这３０个标签按顺序排成一个矩形方框。再将ＬＡＢＥＬ２、ＬＡＢＥＬ５、ＬＡＢＥＬ８、ＬＡＢＥＬ１１、ＬＡＢＥＬ１４、ＬＡＢＥＬ１７、ＬＡＢＥＬ２０、ＬＡＢＥＬ２３、ＬＡＢＥＬ２６、ＬＡＢＥＬ２９的Ｆｏｒｅｃｏｌｏｒ属性设置为ＲＧＢ（０，２５５，０）；ＬＡＢＥＬ３、ＬＡＢＥＬ６、ＬＡＢＥＬ９、ＬＡＢＥＬ１２、ＬＡＢＥＬ１５、ＬＡＢＥＬ１８、ＬＡＢＥＬ２１、ＬＡＢＥＬ２４、ＬＡＢＥＬ２７、ＬＡＢＥＬ３０的Ｆｏｒｅｃｏｌｏｒ属性设置为ＲＧＢ（０，０，２５５）。
#2 四、建立计时器。
用鼠标点击“表单控制栏”中的“计时器”，再在ＦＯＲＭ１上点击一下，即可在ＦＯＲＭ１上创建一个计时器（ＴＩＭＥＲ１）。设置它的属性Ｉｎｔｅｒｖａｌ为４００。
#2 五、建立速度控制器。
用鼠标点击“表单控制栏”中的“微调控制”，再在ＦＯＲＭ１上拉出一个方框，即可在ＦＯＲＭ１上创建一个微调控制器（ＳＰＩＮＮＥＲ１）。设置它的属性Ｆｏｎｔｂｏｌｄ为．Ｔ．，Ｆｏｎｔｓｉｚｅ为１１，Ｉｎｃｒｅｍｅｎｔ为１００，Ｉｎｐｕｔｍａｓｋ为９９９９，Ｋｅｙｂｏａｒｄｈｉｇｈｖａｌｕｅ为１０００，Ｋｅｙｂｏａｒｄｌｏｗｖａｌｕｅ为０，Ｓｐｉｎｎｅｒｈｉｇｈｖａｌｕｅ为１０００，Ｓｐｉｎｎｅｒｌｏｗｖａｌｕｅ为０，Ｖａｌｕｅ为６００。
#2 六、建立速度控制器标题。
用鼠标点击“表单控制栏”中的“标签”，并在ＦＯＲＭ１上拉出一个矩形方框（ＬＡＢＥＬ１）。设置它的属性Ｃａｐｔｉｏｎ为“循环速度：”，Ａｕｔｏｓｉｚｅ为．Ｔ．，Ｂａｃｋｓｔｙｌｅ为０，Ｆｏｎｔｂｏｌｄ为．Ｔ．，Ｆｏｎｔｓｉｚｅ为１１。
#2 七、双击ＦＯＲＭ１，编写ＦＯＲＭ１的ＡＣＴＩＶＡＴＥ过程。
步骤如下：
Ｐｕｂｌｉｃ Ｉ
Ｉ＝０
#2 八、双击ＴＩＭＥＲ１，编写ＴＩＭＥＲ１的ＴＩＭＥＲ过程。
步骤如下：
Ｉｆ Ｉ＝３０
Ｉ＝０
Ｅｎｄｉｆ
Ｉ＝Ｉ＋１
Ｆｏｒ Ｊ＝１ Ｔｏ ３０
Ｌｎ＝＂Ｌａｂｅｌ＂＋ＩＩＦ（Ｊ＜１０，Ｓｔｒ（Ｊ，１），Ｓｔｒ（Ｊ，２）＋＂．Ｖｉｓｉｂｌｅ＂
Ｔｈｉｓｆｏｒｍ．＆Ｌｎ＝．Ｆ．
ＥｎｄＦｏｒ
Ｉｆ ＭＯＤ（Ｉ，３）＝２
Ｆｏｒ Ｊ＝１ Ｔｏ １０
Ｌｎ＝＂ｌａｂｅｌ＂＋ＩＩＦ（３＊ｊ－１＜１０，Ｓｔｒ（３＊ｊ－１，１），Ｓｔｒ（３＊ｊ－１，２））＋＂．Ｖｉｓｉｂｌｅ＂
Ｔｈｉｓｆｏｒｍ．＆Ｌｎ＝．Ｔ．
Ｅｎｄｆｏｒ
Ｅｌｓｅ
Ｉｆ ＭＯＤ（Ｉ，３）＝０
Ｆｏｒ Ｊ＝１ Ｔｏ １０
Ｌｎ＝＂ｌａｂｅｌ＂＋ＩＩＦ（３＊ｊ＜１０，ｓｔｒ（３＊ｊ，１），Ｓｔｒ（３＊ｊ，２））＋＂．Ｖｉｓｉｂｌｅ＂
Ｔｈｉｓｆｏｒｍ．＆Ｌｎ＝．Ｔ．
ＥｎｄＦｏｒ
Ｅｌｓｅ
Ｆｏｒ Ｊ＝１ Ｔｏ １０
Ｌｎ＝＂ｌａｂｅｌ＂＋ＩＩＦ（３＊ｊ－２＜１０，Ｓｔｒ（３＊ｊ－２，１），Ｓｔｒ（３＊ｊ－２，２））＋＂Ｖｉｓｉｂｌｅ＂
Ｔｈｉｓｆｏｒｍ．＆Ｌｎ＝．Ｔ．
ＥｎｄＦｏｒ
Ｅｎｄｉｆ
Ｅｎｄｉｆ
#2 九、双击ＳＰＩＮＮＥＲ１，编写ＳＰＩＮＮＥＲ１的ＩＮＴＥＲＡＣＴＩＶＥＣＨＡＮＧＥ过程。步骤如下：
Ｉｆ Ｔｈｉｓｆｏｒｍ．Ｓｐｉｎｎｅｒ１．Ｖａｌｕｅ＝１０００
Ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１
Ｅｌｓｅ
Ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１０００－ Ｔｈｉｓｆｏｒｍ．Ｓｐｉｎｎｅｒ１．Ｖａｌｕｅ
Ｅｎｄｉｆ
运行表单后可见到红、绿、蓝三种颜色的彩灯交替点亮，调整ＳＰＩＮＮＥＲ１的大小可以改变三组彩灯的循环速度。
以上程序在Ｖｉｓｕａｌ Ｆｏｘｐｒｏ ３．０及Ｗｉｎｄｏｗｓ ９５中运行通过。