多媒体课程实训报告.docVIP

CENTAL 中南林业科技大学 课 程 实 训 报 告 课 程 实 训 报 告 课 程 课 程: 多媒体技术及应用 姓 名: 朱军 学 号: 专 业: 计算机科学与技术 指导教师: 陈 宇 拓 日 期: 2011年6月21日 实训题目一 利用编程实现动画时钟 一．课程设计目的: 希望通过本次课程实训设计能够对多媒体编程有个大致了解熟悉使用一些常用的多媒体编程中常用到的函数插件等等 二．设计方法： 主要采用vb6.0在windows平台下实现编程。 三.实训步骤 1.打开vb6.0 新建一个项目 选择标准EXE. 2. 新建一个窗体在窗体中加入timer控件 设定interval 900. 3. 双击进入代码编辑区输入以下代码 编写时钟表盘效果。 4. 整体效果运行预览。 四、算法 用Load命令建立原始Line控制的14个拷贝(因为表盘有12个点和时、分、秒共15个Line)，该控制数组每一个实例的端点坐标属性设置为每条线在时钟表盘上的适当位置。这些拷贝中大多数只放置一次，而3个Line控制每秒钟更新一次，产生时钟指针移动的感觉。 五、程序代码如下 Option Explicit Const PI = 3.1415926 Dim BaseX As Integer, BaseY As Integer, R As Integer Dim r1 As Integer, r2 As Integer, r3 As Integer Private Sub Init() Dim i As Integer BaseX = Me.ScaleWidth / 2 BaseY = Me.ScaleHeight / 2 R = IIf(BaseX BaseY, BaseY * 0.8, BaseY * 0.8) r1 = R * 0.2 r2 = R * 0.1 r3 = R * 0.05 For i = 0 To 360 Step 6 If i Mod 30 = 0 Then 时 Me.DrawWidth = 2 DrawLine BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180), BaseX + (R - 8) * Sin(i * PI / 180), BaseY - (R - 8) * Cos(i * PI / 180), 3 Else 分 Me.DrawWidth = 2 Me.PSet (BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180)) End If Next Me.DrawWidth = 1 Me.Circle (BaseX, BaseY), R End Sub 绘制指针 Private Sub DrawClock() Dim Second As Integer Dim Minute As Integer Dim Hours As Integer Second = DatePart(s, Time) Minute = DatePart(n, Time) Hours = DatePart(h, Time) If Hours 12 Then Hours = Hours - 12 End If Me.DrawWidth = 1 Me.Circle (BaseX, BaseY), 4 DrawLine BaseX - r1 * Sin(Second * PI / 30), BaseY + r1 * Cos(Second * PI / 30), BaseX + (R - 10) * Sin(Second * PI / 30), BaseY - (R - 10) * Cos(Second * P