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