教小朋友认识"红绿灯"

答案：
笔者在教小朋友认识红绿灯时，曾用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 编程经验点滴