教小朋友认识红绿灯

2/27/2006来源:Visual Basic教程人气:8672

笔者在教小朋友认识红绿灯时,曾用VB编过一个小程序来说明红绿灯的作用,当红灯时程序中的小孩为静止的,当为绿灯时小孩就不停的走了起来。用后感觉效果不错,家中有小朋友的赶快来试一下吧。

第一步设计用户界面如下:
-width="100">->

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运行。

-width="100">->

程序每3秒中红绿灯就转换一次,当红灯时,程序中的小孩为静止的,当绿灯时,小孩就不停的走了起来。即简单又形象,赶快用它来教你家中的小朋友来认识红绿灯吧。

奚越[email protected]>