教小朋友认识红绿灯
2006-02-27 21:15:28 来源:WEB开发网第一步设计用户界面如下:
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->
更多精彩
赞助商链接