当前位置:编程学习 > VB >>

教小朋友认识"红绿灯"

答案:

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

第一步设计用户界面如下:

文章来自vb爱好者:http://vb.zzzyk.com 

[page_break]

timer1的interval属性设为3000,用来控制红绿灯转换。

timer2的interval属性设为200,用来控制小孩走动。

shape1的shape属性为3-circle

fillcolor为红色

fillstyle为0-solid

image2---image5:用来存放四幅小孩的图片,其visible属性为false。

image1:用来显示动态的小孩。

Private Sub Form_Load()

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

End Sub

Private Sub Timer1_Timer() ‘用来控制红绿灯转换

If Shape1.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

End If

End Sub

Private Sub Timer2_Timer() ‘用来控制小孩走动

Static n As Integer

n = n + 1

If n = 1 Then

Image1.Picture = Image2.Picture

ElseIf n = 2 Then

Image1.Picture = Image3.Picture

ElseIf n = 3 Then

Image1.Picture = Image4.Picture

ElseIf n = 4 Then

Image1.Picture = Image5.Picture

n = 0

End If

End Sub

第二步,单击F5运行。

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

奚越 XXIYYUE@SINA.COM

文章来自vb爱好者:http://vb.zzzyk.com

上一个:用VB编写调色板
下一个:VB 编程经验点滴

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,