|
五、动画小制作：
1．制作一个质点自由落体运动的演示实验模拟程序。（分别用控件移动和直接画小球的方法来做。）
2．在上一程序中加入“频闪照相机”的功能，即每相隔一定的时间将小球形象“拍”下来。
3．制作一个两小球水平相撞的演示实验的模拟程序。
4．有如图所示的一组图画，请用它们做成一段“一个人奔跑”的动画。
5．做一个“红灯停，绿灯行”的模拟演示。画面上有一辆小车和一个红绿灯，当小车行到红绿灯前的停车线处时，如果这时是红灯亮，则停车；如果是绿灯亮则继续前行；如果是黄灯亮则右转弯。
Lib "user32" (ByVal hwnd As Long, _
ByVal bInvert As Long) As Long
在窗体中添加两个按钮和一个计时器，并用设置以下属性：
command1.caption="开始"
command2.caption="停止"
timer1.interval=500 '每0.5秒闪烁一次
timer1.enabled=false
Private Sub Timer1_Timer()
a& = FlashWindow(Me.hwnd, 1)
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub |
