用Visual Basic进行多媒体设计
来源:互联网 发布:淘宝卖高仿规避技巧 编辑:程序博客网 时间:2024/05/16 16:00
一个具有多媒体效果的软件,能实现图文声并貌,能产生动画效果,往往给人耳目一新的感觉,给人留下很深的印象,因此得到用户的青睐。本文简介用VB设计多媒体效果的一般方法,并介绍我们设计的一个实例。
一、用VB的图形功能产生多媒体效果
1、用VB的图形方法
VB是利用图形对象的属性、方法和事件在图形对象(窗体Form、图片框Picture Box等)上绘制图形的。图形对象的属性有自动重画AutoRedraw、线型DrawStyle、填充风格FillStyle、填充颜色FillColor等等;图形对象的方法有画点Pset、画线Line、画圆Circle等等。图形对象的事件有单击鼠标Click,双击鼠标Dblclick等等。再利用QBColor, RGB函数设置颜色,就可以绘制出五彩缤纷的图形来。比如以下函数,就是利用图形方法,在窗体上画出一个有十字形光芒的星星。多次调用此函数并通过函数形参值的变化,可在窗体的不同地方,画出大小不一,颜色各异的多个星星来。
drawwidth=dwidth1 '设定星星的大小
PSet(x,y),QBColor(Colorl) '画星星并置颜色
drawwidth=dwidth2/4 '光芒宽度
Line(x,y)-(x-200,y),QBColor(clor1) '光芒长度及颜色
Line(x,y)-(x+200,y),QBColor(clor1)
Line(x,y)-(x,y+200),QBCdor(clor1)
Line(x,y)-(x,y-400),QBColor(clor1)
drawwidth=dwidth2 '再画覆盖星星
PSet(x,y),QBColor(clor2)
End Function
循环调用此函数,就能产生星光闪烁的效果。
2、用图形控制工具
图形工具又可分三种:图像(Image)控制工具、线条(Line)控制工具和形状(Shape)控制工具。只要在工具箱中点中某控制,拖到窗体上,就产生了相应的形状和事件,在事件代码窗中编入程序就能实现许多图形功能。
图像工具是一个矩形的区域,在此区域中可以用上述的图形方法绘制出各种图形、可以置入.BMP、DIB、ICO及WMF等格式的文件,还可以在该区域中输入照片和其他的图像数据;线条控制工具主要用于绘制直线;而形状工具可以直接在表格上绘制出各种几何图形。
例如,在属性窗口Properties中,按下面的设置可在背景为青色的窗体上画出一个黄色的月牙。
形状1(shapel):fillstyle =0 '实心填充
fillcolor '选为黄色
shape=3 '圆形
形状2(shape2):fillstyle=0 '实心填充
fincolor '选为青色
shape=3 '圆形
拖动形状1和形状2到窗体合适的位置,并使形状2覆盖住形状1而使形状1成为月牙形即可。
3、动画效果
对图形方法产生的图形,采用覆盖和异或等方法,就能实现图形的移动而产生动画效果。
下面一段程序实现了一个人造地球卫星的图片作椭圆轨道运行的动画效果。
Sub picture_click( )
Const PI=3.1415926 '圆周率
Const arf=PI/8 '轨道倾斜角度
* 卫星转动 *
For i=0 TO 2 * PI Step.0015
xx=ra * Cos(i) '椭圆
yy=rb * Sin(i) '椭圆
xp=xx * Cos(arf)- yy * Sin(arf) '坐标变换
yp=xx * Sin(arf)+ yy * Cos(arf)+ym '坐标变换
picturel.Picture=luadPicture("c:/vb/metil/satelid.wmf')
'装入卫星图片
picturel.Left=xp '移动图片,产生动画
picturel.Left=yp '移动图片,产生动画
DoEvents '可使卫星转动的同时,响应其他事件
Next i
End Sub
二、用VB的声音功能产生多媒体效果
1、利用API函数
VB没有提供像PLAY这样的声音函数,它只有一个简单的BEEP,使机器产生一下蜂鸣声。要想产生音乐,可以调用Windows的动态链接库DLL中的函数或是调用VB动态链接库文件VBX。一般是先要在窗体层的通用说明部分或模块层对调用的Windows函数进行说明。音乐函数主要是调用"SOUND.DRV"库中的几个API函数,说明之后就可以直接使用了。调用以下几个函数可使计算机演奏出悦耳的歌曲。
Opensound()打开发声设备
StarlSound()开始产生音乐
CloseSound()关闭发声设备
SetVoiceSound(声音队列、频率、持续时间)
SetVoiceQueueSize(声音队列,内存空间字节数)
以下程序产生"东方红"乐曲,单击窗体即可。
* 乐曲"东方红" *
Dim ff
ReDim fq(1 To 47)
ReDim delay(1 To 47)
x=OpenSound()
y=SetVioceQueueSine(1,1024)
* 打开频率文件 *
Open "dth_fieq.txt" For Input As #1
For i=1 To 47
Input #l,ff
Select Case ff
Case O:fq(i)=20000
Case l:fq(i)=523
Case 2:fq(i)=587
Case 3:fq(i)=659
Case 4:fq(i)=698
Case 5:fq(i)=784
Case 6:fq(i)=880
Case 7:fq(i)二988
Case 18:fq(i)二1047
Case 85:fq(i)=392
Case 86:fq(i)=440
Case 87:fq(i)=494
Case Else:fq(i) = 20000
End Select
Next i
Close #1
* 打开音符时间的文件 *
Open "dth_time.txt"For Input As #1
Far i=1 To 47
Input #1,delay(i)
Next i
Close #1
For i=1 To 47
SOUND fq(i),delay(i)*2
Next I
Closesound()
End Sub
Sub SOUND(frequency&,ByVal duration%)
frequency&=frequency& * 65335
x=SetVoiceSound(1,frequency&,duration%)
y=StartSound()
End Sub
2、利用OLE控制产生
VB中的OLE(对象链接与嵌入)控制也可以用来播放声音文件,比如*.wav,*.mid等等。我们可以将自己编写的歌曲存为*.wav,或*.mid文件,再利用OLE来放出。利用OLE来发出声音有两种不同的方式:一是在设计阶段就把装了声音文件的OLE对象建立好,以后只要在他上面双击,就能够发出声音;二是完全由程序来控制。
在设计阶段建立OLE对象的方法是:首先在窗体上设置OLE对象,这时会出现Insert Object对话框,然后选好Sound对象,接着设置Create from File复选钮,再在File:输入框里输入声音文件,或利用对话框中的Browse按钮去寻找,最后设置link单选框即可,以后只要在OLE上双击就可以听到声音了。
由程序控制声音的播放,可在窗体上设置一个空的OLE对象,然后再写一段下面的程序就可以了:
Olel_class="soundRec"
Olel.SourceDoc="声音文件名及其路径"
Olel.Verb=0
Olel.Action=7
程序运行后,只要单击窗体就可以听到声音了。
- 用Visual Basic进行多媒体设计
- 用Visual Basic设计更好的用户界面
- 用Visual Basic设计个性化文件夹图标
- 用Visual Basic设计个性化文件夹图标
- 用Visual Basic设计抽奖程序
- 用Visual Basic设计个性化文件夹图标
- 用Visual Basic设计更好的用户界面
- 用Visual Basic设计手机短信收发程序
- Visual Basic通用报表设计小结
- Visual Basic通用报表设计小结
- 使用 Visual Basic .NET 进行多线程编程
- 使用 Visual Basic .NET 进行多线程编程
- 使用 Visual Basic .NET 进行多线程编程
- Visual Basic设计图形浏览器示例
- 用Visual Basic编写病毒
- 使用 Visual Basic 设计 Python 的 GUI:Visual Tkinter
- [Visual Basic]
- Visual Basic
- 全球著名 CMS 产品大全
- slq clause
- VB中使用DirectX库的简明教程(3)
- 麻烦的vector.erase 函数
- 智能指针的标准之争:Boost vs. Loki [转]
- 用Visual Basic进行多媒体设计
- 虚拟内存技术原理和使用方法
- pku_1674 Sorting by Swapping 解题报告
- 永动机
- 交换机 tagged 与 untagged 的关系
- _beginthread 与 CreateThread
- 恋爱小女孩给男朋友写的信
- Linux for h4100 - installing Linux to the ipaq h4150 (老树出新芽)
- java 获取各种常用时间的方法