教小朋友认识红绿灯
2018-06-17 17:13:01来源：未知 阅读 ()
笔者在教小朋友认识红绿灯时，曾用VB编过一个小程序来说明红绿灯的作用，当红灯时程序中的小孩为静止的，当为绿灯时小孩就不停的走了起来。用后感觉效果不错，家中有小朋友的赶快来试一下吧。第一步设计用户界面如下：
timer1的interval属性设为3000，用来控制红绿灯转换。
timer2的interval属性设为200，用来控制小孩走动。
shape1的shape属性为3-circle
fillcolor为红色
fillstyle为0-solid
image2---image5：用来存放四幅小孩的图片，其visible属性为false。
image1：用来显示动态的小孩。
PrivateSubForm_Load()
Shape1.FillColor=RGB(255,0,0)
EndSub
PrivateSubTimer1_Timer()‘用来控制红绿灯转换
IfShape1.FillColor=RGB(255,0,0)Then
Shape1.FillColor=RGB(0,255,0)
Timer2.Enabled=True
Else
Shape1.FillColor=RGB(255,0,0)
Timer2.Enabled=False
EndIf
EndSub
PrivateSubTimer2_Timer()‘用来控制小孩走动
StaticnAsInteger
n=n 1
Ifn=1Then
Image1.Picture=Image2.Picture
ElseIfn=2Then
Image1.Picture=Image3.Picture
ElseIfn=3Then
Image1.Picture=Image4.Picture
ElseIfn=4Then
Image1.Picture=Image5.Picture
n=0
EndIf
EndSub
第二步，单击F5运行。
程序每3秒中红绿灯就转换一次，当红灯时，程序中的小孩为静止的，当绿灯时，小孩就不停的走了起来。即简单又形象，赶快用它来教你家中的小朋友来认识红绿灯吧。
奚越XXIYYUE@SINA.COM->
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
上一篇：走进VB6啃一块骨头
下一篇：未公开的返回数组型函数加速秘诀
- 教你认识VB的座标系统 2018-06-17
- VB基础:认识VB的文件系统对象FSO 2008-02-23
- 教小朋友认识"红绿灯" 2008-02-23
- 教你认识VB的座标系统 2008-02-23
- 认识一下VB 6.0的编程环境 2008-02-23
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
