多媒体课程设计报告

多媒体技术与应用课程实践报告

多媒体技术与应用课程实践报告

摘要：多媒体技术是一种实用性很强的技术，由于其社会影响和经济影响

都十分巨大，相关的研究部门和产业部门都非常重视产品化工作，因此多媒体技术的发展和应用日新月异，产品更新换代的周期很短。多媒体技术及其应用几乎覆盖了计算机应用的绝大多数领域。多媒体技术的显著特点是改善了人机交互界面，集声、文、图、像处理一体化，更接近人们自然的信息交流。根据多媒体技术的定义，可以看到它有三个显著的特点，即集成性、实时性和交互性，这也是它区别于传统计算机系统的特征。

关键字：人机互交集成性实时性交互性

1、设计环境：windows7 VB软件

2、实验设计过程

（1）判断距离春节的时间

新建一个工程，再窗体上添加三个Label控件、一个textbox控件和两个commandbutton控件并设置他们的属性。

设置font属性

程序为

Option Explicit

Private Sub Form_Load()

Text1.Text = #1/31/2014#

End sub

Private Sub Command1_Click()

Dim a As Date

a = Text1

Label3.Caption = "春节与现在还有：" & (a - Date) & "天"

End Sub

结果为

（2）用户注册程序

在窗体中添加两个Label控件、分别设置为用户名和密码；添加两个

Textbox文本框，text2用于输入用户信息，text2用于保存生成的密码；两个commandbutton控件的caption属性分别设置为确定和退出。

程序为

Private Sub Form_Load()

Text2.Text = "mingrisoft"

Text3.Text = ""

Text3.PasswordChar = "*"

End sub

Private Sub Command3_Click()

Dim s As String * 6

s = Text2.Text

Text3.Text = s

End Sub

运行结果为

（3）计算器

在窗体中添加14个Label控件分别设置他们的属性，14个textbox控件设置属性为空，五个commandbutton控件设置属性为计算

程序为

Private Sub Form_Load()

Text4.Text = ""

Text5.Text = ""

Text6.Enabled = False

Text7.Text = ""

Text8.Text = ""

Text9.Enabled = False

Text10.Text = ""

Text11.Text = ""

Text12.Enabled = False

Text13.Text = ""

Text14.Text = ""

Text15.Enabled = False

Text16.Text = ""

Text17.Enabled = False

End Sub

Private Sub Command4_Click()

Text6.Text = Val(Text4.Text) + Val(Text5.Text)

End Sub

Private Sub Command5_Click()

Text9.Text = Val(Text7.Text) - Val(Text8.Text)

End Sub

Private Sub Command6_Click()

Text12.Text = Val(Text10.Text) * Val(Text11.Text)

End Sub

Private Sub Command7_Click()

Text15.Text = Val(Text13.Text) / Val(Text14.Text)

End Sub

Private Sub Command8_Click()

Text17.Text = Val(Text16.Text) * Val(Text16.Text)

End Sub

结果为

3、总结

通过这次课程设计让我进一步了解和认识了VB软件的使用过程，学习了VB的编程流程，操作容易上手，在设计的过程中也遇到了很多问题查阅了很多资料从中学习到了很多知识，为日后多媒体的设计的学习与制作打下了一定的

基础。

参考文献

《学通Visual Basic的24堂课》高春艳安剑巩建华著清华大学出版社《多媒体技术与应用》朱从旭田琪著清华大学出版社

<<多媒体技术基础及应用>> 林福宗著清华大学出版社<<多媒体计算机技术基础及应用>> 钟玉琢等著高等教育出版社，

《流媒体技术大全》. 张丽著青年出版社

附录1源代码

Option Explicit

Private Sub Form_Load()

Text1.Text = #1/31/2014#

Text2.Text = "mingrisoft"

Text3.Text = ""

Text3.PasswordChar = "*"

Text4.Text = ""

Text5.Text = ""

Text6.Enabled = False

Text7.Text = ""

Text8.Text = ""

Text9.Enabled = False

Text10.Text = ""

Text11.Text = ""

Text12.Enabled = False

Text13.Text = ""

Text14.Text = ""

Text15.Enabled = False

Text16.Text = ""

Text17.Enabled = False

End Sub

Private Sub Command1_Click()

Dim a As Date

a = Text1