多媒体软件设计技术

多媒体软件设计技术多媒体软件设计技术 课程设计报告书课程设计报告书 课程名称课程名称 多媒体软件设计技术 指导教师 指导教师 杨岚老师 二 一二 年 六 月 一 一 引言引言 本次课程设计是为了考察我们对 Visual Basic 的综合运用能力 着 重于多媒体方面的设计 在程序设计的过程中曾参考过有关的资料 并借鉴了一些内容 要求 1 用 Visual Basic 6 0 编写程序 设计并实现一个多媒体应用程序 2 程序必须带注释必须带注释 分为 注释到过程 函数 和 注释到单条语句 两种 注释方式 其中 注释到单条语句 评分较高 注释到过程 函数 评分 较低 无注释或少注释将酌情扣分 3 所有相关文件保存在文件名 学号学号 姓名姓名 文件夹内 4 选题说明 选题说明 学号最后一位数字表示所选题号 如 201004134112 选题为 2 号题 201004134130 选题为 10 号题 5 严禁抄袭 一旦发现有雷同设计 同时取消成绩 严禁抄袭 一旦发现有雷同设计 同时取消成绩 二 二 设计课题设计课题 设计图像多种切换效果 要求 1 必须有淡入 淡出 翻转 滑入 旋转引入等效果 2 设计菜单 三 三 程序设计内容程序设计内容 程序运行情况程序运行情况 设计界面 程序界面 图片的切换效果 滑入 程序源代码程序源代码 Public StopProgram As Boolean 定义开始按钮的能否开始 Public SwapPics As Boolean Private Enum SideSelecting Off 0 HV 1 LRDU 2 All 3 End Enum Dim A As Integer A 进入速度变量 Dim B As Integer B 单步刷新变量 Dim C As Integer C 条宽度 Private Sub cmdStart Click Static StartMode As Boolean 设置开始按钮的 caption 属性 If Not StartMode Then If Not IsReady Then Exit Sub cmdStart Caption 停止 StartMode True RunEffect Picture1 Refresh StartMode False If StopProgram Then Exit Sub If SwapPics Then BitBlt Picture2 hdc 0 0 640 480 Picture3 hdc 0 0 SRCCOPY BitBlt Picture3 hdc 0 0 640 480 Picture1 hdc 0 0 SRCCOPY SwapPictures Picture1 Picture2 Picture3 End If Picture2 Refresh Picture3 Refresh cmdStart Caption 开始 Else mblnRunning False cmdStart Caption 开始 StartMode False End If End Sub Private Sub Form Load With List1 list 的选项 AddItem 滑入 AddItem 从外向内滑入 AddItem 从内向外滑入 AddItem 缩放推入 AddItem 从内缩放推入 AddItem 淡入 AddItem 融入 AddItem 百叶窗 AddItem 旋转引入 AddItem 圆形切出 AddItem 扇形切入 AddItem 双面斜切入 AddItem 斜切入 AddItem 斜切出 End With StopProgram False lngSpeed 1 List1 ListIndex 0 Set Picture1 Picture LoadPicture App Path Effect x1 jpg Set Picture2 Picture LoadPicture App Path Effect2 x1 jpg Set Picture3 Picture LoadPicture App Path Effect x1 jpg End Sub Private Sub Form QueryUnload Cancel As Integer UnloadMode As Integer mblnRunning False StopProgram True Unload Me End Sub Private Sub Frame6 DragDrop Source As Control x As Single y As Single End Sub Private Sub List1 Click A 1 滑入速度设为 1 Select Case List1 ListIndex 选择 list 的内容风别为 0 到 13 Case 0 滑入 B 5 B 单步刷新变量设为 5 Case 1 从外向内滑入 B 4 B 单步刷新变量设为 4 Case 2 从内向外滑入 B 4 B 单步刷新变量设为 4 Case 3 缩放推入 B 5 Case 4 从外向内推入 B 5 B 单步刷新变量 Case 5 淡入 B 2 B 单步刷新变量 Case 6 融入 B 5 C 1 设置条大小为 1 Case 7 百叶窗 A 50 B 1 C 20 Select Case List1 ListIndex Case 8 B 5 Case 9 B 5 Case 10 B 5 Case 11 To 13 B 10 End Select Case Else End Select End Sub Private Function GetSideLRDU As Long GetSideLRDU 4 End Function Private Function GetSideHV As Long GetSideHV 1 End Function Private Function GetPushMode As Long GetPushMode 1 End Function Private Sub RunEffect SwapPics True Select Case List1 ListIndex Case 0 Wipe Picture1 Picture2 GetSideLRDU CLng B 执行滑入函数 Case 1 Wipe In Picture1 Picture2 GetSideHV CLng B 执行从外向内滑入 Case 2 Wipe Out Picture1 Picture2 GetSideHV CLng B 执行从内向外滑入 Case 3 Dim i As Long i 1 Stretching Picture1 Picture3 Picture2 i CLng B GetPushMode 执行缩 放推入 Case 4 Stretching Wipe In Picture1 Picture3 Picture2 GetSideHV CLng B GetPushMode 执行从外向内推入 Case 5 RandomLines Picture1 Picture2 GetSideHV CLng B 执行淡入 Case 6 Bars Draw Picture1 Picture2 GetSideHV CLng B CLng C 执行融入 Case 7 Bars Wipe Picture1 Picture2 GetSideLRDU CLng B CLng C 执行百叶 窗 Case 8 MaskEffect Picture1 Picture2 1 Me hdc CLng B 执行旋转引入 Case 9 MaskEffect Picture1 Picture2 2 Me hdc CLng B 执行圆形切出 Case 10 MaskEffect Picture1 Picture2 3 Me hdc CLng B 执行扇形切入 Case 11 MaskEffect Picture1 Picture2 4 Me hdc CLng B 执行双面斜 切入 Case 12 MaskEffect Picture1 Picture2 5 Me hdc CLng B 执行斜 切入 Case 13 MaskEffect Picture1 Picture2 6 Me hdc CLng B 执行斜切 出 End Select End Sub Private Sub quit Click End End Sub 部分模块 Public Sub Alpha Wipe DestPic As PictureBox PrevPic As PictureBox NewPic As PictureBox Flag As Long Optional BarSize As Long 50 Optional Steps As Long 5 Dim r1 As Long g1 As Long b1 As Long Dim r2 As Long g2 As Long b2 As Long Dim rm As Long gm As Long bm As Long Dim y As Long If IsReady Then Ended False Dim pxWidth As Long pxHeight As Long Dim ScreenTX As Long ScreenTY As Long Dim Xleng As Long Cntr As Long Dim t1 As Long t2 As Long ScreenTX Screen TwipsPerPixelX ScreenTY Screen TwipsPerPixelY pxWidth DestPic ScaleWidth ScreenTX pxHeight DestPic ScaleHeight ScreenTY Select Case Flag Case 1 擦除 Xleng pxWidth BarSize Case 2 过渡 Xleng 255 Case 3 Cntr 1 Xleng Sqr pxWidth pxWidth pxHeight pxHeight 2 Xleng Xleng BarSize End Select Dim UB As Long UB2 As Long GetObjectAPI DestPic Picture Len Bmp1 Bmp1 GetObjectAPI PrevPic Picture Len Bmp3 Bmp3 GetObjectAPI NewPic Picture Len Bmp2 Bmp2 With SA1 cbElements 1 cDims 2 Bounds 0 lLbound 0 Bounds 0 cElements Bmp1 bmHeight Bounds 1 lLbound 0 Bounds 1 cElements Bmp1 bmWidthBytes pvData Bmp1 bmBits End With With SA2 cbElements 1 cDims 2 Bounds 0 lLbound 0 Bounds 0 cElements Bmp2 bmHeight Bounds 1 lLbound 0 Bounds 1 cElements Bmp2 bmWidthBytes pvData Bmp2 bmBits End With With SA3 cbElements 1 cDims 2 Bounds 0 lLbound 0 Bounds 0 cElements Bmp3 bmHeight Bounds 1 lLbound 0 Bounds 1 cElements Bmp3 bmWidthBytes pvData Bmp3 bmBits End With CopyMemory ByVal VarPtrArray Pic1 VarPtr SA1 4 CopyMemory ByVal VarPtrArray Pic2 VarPtr SA2 4 CopyMemory ByVal VarPtrArray Pic3 VarPtr SA3 4 mblnRunning True 开始循环 Do While mblnRunning If mlngTimer lngSpeed Xleng Then Set DestPic Picture DestPic Picture UB UBound Pic1 1 1 UB2 UBound Pic1 2 1 CopyMemory Pic1 0 0 Pic2 0 0 UB UB2 CopyMemory Pic2 0 0 Pic3 0 0 UB UB2 CopyMemory Pic3 0 0 Pic1 0 0 UB UB CopyMemory ByVal VarPtrArray Pic1 0 4 CopyMemory ByVal VarPtrArray Pic2 0 4 CopyMemory ByVal VarPtrArray Pic3 0 4 停止 mblnRunning False 新图片可以使用更多的 bitblt Exit Sub End If Select Case Flag Case 1 擦除 t2 UBound Pic1 1 3 t1 UBound Pic1 2 For int i 0 To t2 Step 3 For int j 0 To t1 GetRGB r1 g1 b1 3 GetRGB r2 g2 b2 2 y int i 3 If y Cntr BarSize Then r1 r2 b1 b2 g1 g2 ElseIf y Cntr BarSize Then rm 255 Cntr y BarSize 255 CheckRGB rm 0 0 r1 r1 rm r2 255 rm 255 g1 g1 rm g2 255 rm 255 b1 b1 rm b2 255 rm 255 End If CheckRGB r1 g1 b1 Pic1 int i int j b1 Pic1 int i 1 int j g1 Pic1 int i 2 int j r1 Next int j Next int i Cntr Cntr Steps Case 2 过渡 For int i 0 To UBound Pic1 1 3 Step 3 For int j 0 To UBound Pic1 2 GetRGB r1 g1 b1 3 GetRGB r2 g2 b2 2 rm 255 Cntr CheckRGB rm 0 0 r1 r1 rm r2 255 rm 255 g1 g1 rm g2 255 rm 255 b1 b1 rm b2 255 rm 255 CheckRGB r1 g1 b1 Pic1 int i int j b1 Pic1 int i 1 int j g1 Pic1 int i 2 int j r1 Next int j Next int i Cntr Cntr Steps Case 3 透明圆型擦除 Dim pxCenterWidth As Long pxCenterHeight pxCenterWidth pxWidth 2 pxCenterHeight pxHeight 2 For int i 0 To UBound Pic1 1 3 Step 3 For int j 0 To UBound Pic1 2 GetRGB r1 g1 b1 3 GetRGB r2 g2 b2 2 y int i 3 rm Sqr pxCenterWidth y pxCenterWidth y pxCenterHeight int j pxCenterHeight int j If rm Cntr Then rm 255 ElseIf rm Cntr BarSize Then rm 0 Else rm 255 Cntr rm BarSize 255 End If CheckRGB rm 0 0 r1 r1 rm r2 255 rm 255 g1 g1 rm g2 255 rm 255 b1 b1 rm b2 255 r