制作一个模拟交通灯的程序_第1页
制作一个模拟交通灯的程序_第2页
制作一个模拟交通灯的程序_第3页
制作一个模拟交通灯的程序_第4页
制作一个模拟交通灯的程序_第5页
已阅读5页，还剩4页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、在VFP中如何制作一个模拟交通灯的程序效果如下：点击“开始”则时间显示的数据开始向上增加，当时间达到10秒的时间，黄灯亮，到20秒的时候，红灯变亮，当达到30秒的时候，绿灯亮。按一下“重来”按纽，则又可以重新开始计时。步骤/方法在VFP中模拟交通灯的小程序图文教程先看效果图：具体步骤：1、先打开VFP6.0然后，点击“表单”，再点击“新建文件”按纽。如下图：2、利用表单控件，向表单中添加一些控件如下图：3、向表单中添加label1,label2,label3.label4,label6,timer1,command1,comand2，如下图：先设置一下label1，label2，label3的

2、属性，如下图：4、在属性菜单中，用同样的方法设置好另二个标签，和二个命令按纽。5、双击form1表单，在过程init中编写以下程序：如下图：thisform.timer1.enabled=.f.public t,kt=0k=06、对timer1的timer过程进行编程，如下图：if t=30t=t+1do casecase t=10thisform.label3.backcolor=rgb(255,255,0)thisform.label2.backcolor=rgb(0,0,0)thisform.label1.backcolor=rgb(0,0,0)case t=20thisform.lab

3、el2.backcolor=rgb(255,0,0)thisform.label3.backcolor=rgb(0,0,0)thisform.label1.backcolor=rgb(0,0,0)otherwisethisform.label1.backcolor=rgb(0,128,0)thisform.label2.backcolor=rgb(0,0,0)thisform.label3.backcolor=rgb(0,0,0)endcaseelset=0endifk=tdo casecase k=10k=tcase k=20k=t-10otherwisek=t-20endcasethisform.label6.caption=str(k,8)7、设置timer1的属性中的interval为1000,表示每过1000毫秒，就自动执行一次timer中的程序，如下图：8、对command1的click过程编程，如下图：thisform.timer1.e

人人文库> 全部分类> 教育资料 > 中学教育

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论