Visual Basic 动画的制作

1. 项目活动 Visual Basic动画的制作 南京金陵中等专业学校 薛伟群

2. 项目展示 互动游戏 Visual Basic动画的制作 制作关键 动 画

3. 项目阶段 Visual Basic动画的制作 图形设计的一般流程 项目活动---动画制作 活动小结与评价

4. 活动准备 在图形容器中建立图形坐标系 选择适当的图形控件和设计方法 编写程序实现项目要求 Visual Basic图形设计的一般流程 阶段一 阶段二 阶段三

5. 活动准备 在代码窗口中采用Scale方法设置。 语法格式: [对象名.]Scale (xLeft，yTOp) -(xRight，yBotton) 在属性窗口中通过对象的ScaleTop、ScaleLeft、ScaleWidth ScaleHeigh四项属性来实现。 在图形容器中建立图形坐标系 二种方法

6. 活动准备 1、Line（直线控件） 用line的位置属性 x1、y1、x2、 y2确定直线起点和终点 2、Shape（形状控件） Shape控件可用于在窗体、图片 框中创建许多预定义的形状 2、Line方法（画线） 格式： [对象名.]Line(x1,y1)-(x2,y2),color 1、Pset方法（画点） 格式： [对象名.]Pset (x,y),color 选择适当的图形控件和设计方法 图形控件 图形方法

7. 活动准备 编写程序实现项目要求 For i = -10 To 10 Step 0.0002 x = i y = Sin(x) Sh1.Move x - Sh1.Width / 2, _ y +Sh1.Height / 2 Pic1.PSet (x, y), vbRed Next i 动 画 运动的静止画面 Move 用Move方法实现

8. 活动要求 Visual Basic动画的制作 遇到困难 请看学生材料 任务: 设计并制作平抛运动的运动轨迹

9. 活动步骤 Visual Basic动画的制作 Private Sub Command1_Click() Dim i As Double， x As Double， y As Double ‘定义变量 Dim h As Single，v0 As Single v0 = Val(Text1.Text) ：h = Val(Text2.Text) ‘对变量赋值 Picture1.Scale (-0.2, -0.2)-(10, 5) ‘建立坐标系 Picture1.Line (0, 0)-(10, 0) ‘画坐标轴 Picture1.Line (0, 0)-(0, 5) Picture1.Line (0, h)-(10, h) ‘画高度线 Picture1.CurrentX = 0.5 ‘确定图片框中的输出位置 Picture1.CurrentY = h + 0.1 Picture1.Print "高度h="; h Picture1.DrawWidth = 2 ‘设置画线的粗细 For i = 0 To 10 Step 0.0001 ‘画平抛运动的轨迹 x = v0 * i y = 9.8 * i ^ 2 / 2 If y > h Then Exit For Shape1.Move x - Shape1.Width / 2, y - Shape1.Height / 2 Picture1.PSet (x, y), vbRed Next i End Sub 界面设置 属性修改 编写代码 运行调试

10. 活动小结 等待同学们的积极思考和探索 Visual Basic 动画的制作 更多动画 更多精彩