能动的图形实验

实验五：能动的图形

一、         实验目的

生成能动的图形

二、         实验内容

用VB绘制图形并使其运动

绘制圆形并运动的程序代码

Dim g As Boolean

Dim x As Long

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

g = True

x = Shape1.Left

End Sub

Private Sub Timer1_Timer()

If g Then

x = x - 300

Else

x = x + 300

End If

If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then

g = Not g

End If

Shape1.Move x

End Sub

在窗体中使用了一个按钮、一个计时器，并且用shape控件绘制了一个圆。

三、         心得体会

每个小问题都需要自己不断地探索研究，通过思考查阅知识解决问题才是学习之道。我们要学会适时而充分的利用网络，通过网络解决我们不会的问题。从而提高学习效率并且拓展我们的学习范围，而且，我们要学会自己解决不会的问题，善于思考，让学习变成快乐的事情。

四、         遇到的问题及解决的方法

问题：不了解编写能动图形的程序

解决办法：通过百度资料得以解决

五、         没有解决的问题

随机生成随机种类的能动的图形