教小朋友認識紅綠燈

2019-11-18 17:27:07

字體：大中小

供稿：網(wǎng)友

筆者在教小朋友認識紅綠燈時，曾用VB編過一個小程序來說明紅綠燈的作用，當紅燈時程序中的小孩為靜止的，當為綠燈時小孩就不停的走了起來。用后感覺效果不錯，家中有小朋友的趕快來試一下吧。

第一步設(shè)計用戶界面如下：
-width="100">->

timer1的interval屬性設(shè)為3000，用來控制紅綠燈轉(zhuǎn)換。

timer2的interval屬性設(shè)為200，用來控制小孩走動。

shape1的shape屬性為3-circle

fillcolor為紅色

fillstyle為0-solid

image2---image5：用來存放四幅小孩的圖片，其visible屬性為false。

image1：用來顯示動態(tài)的小孩。

PRivateSubForm_Load()

Shape1.FillColor=RGB(255,0,0)

EndSub

PrivateSubTimer1_Timer()‘用來控制紅綠燈轉(zhuǎn)換

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