文档库

最新最全的文档下载
当前位置:文档库 > 内工大VB实验报告-滚动字幕

内工大VB实验报告-滚动字幕

内蒙古工业大学信息工程学院实验报告

课程名称:

实验名称:常用控件综合程序设计

内工大VB实验报告-滚动字幕

实验类型:设计性□

实验室名称:

班级:学号:

姓名:组别:

同组人:成绩:

实验日期:

实验报告撰写要求

一、实验前用预习报告纸撰写预习报告,预习报告包括以下内容

1.实验目的

2.实验用仪器设备、器材或软件环境

3.实验原理、方案设计、程序框图、预编程序等

4.实验过程中需要记录的实验数据表格

二、实验过程中,要认真观察,仔细记录

三、完成实验后用实验报告纸撰写实验报告,包括以下内容

1.仪器设备型号及编号

2.实验器材或软件环境

3.实验步骤、程序调试方法

4.实验数据处理及结果分析

5.实验中存在的问题

6.体会及思考题

四、报告撰写时,要求格式规范、书写整齐

预习报告成绩:指导教师审核(签名):年月日

预习报告

实验一

一、实验目的

学会综合运用常用控件进行程序设计的方法。

二、实验用仪器设备、器材、软件环境

1、普通计算机

2、VB

三、实验内容

设计一个能控制字体、字号、字形和速度的滚动字幕程序四、预编程序

Const mLen = 100 '移动步长值

Const mVMin = 400 '慢速

Const mV = 200 '中速

Const mVMax = 10 '快速

Private Sub ChFonB_Click()

Label1.FontBold = IIf(ChFonB.Value = 0, False, True)

End Sub

Private Sub ChFonI_Click()

Label1.FontItalic = IIf(ChFonI.Value = 0, False, True)

End Sub

Private Sub ChFonU_Click()

Label1.FontUnderline = IIf(ChFonU.Value = 0, False, True)

End Sub

Private Sub Form_Load()

'初始化

Timer1.Interval = mVMin

With Label1

.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

.FontSize = OpFonSizeMin.FontSize

End With

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Label1.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub

Private Sub OpFonK_Click()

Label1.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonS_Click()

Label1.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonSize_Click()

Label1.FontSize = OpFonSize.FontSize

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonSizeMax_Click()

Label1.FontSize = OpFonSizeMax.FontSize

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonSizeMin_Click()

Label1.FontSize = OpFonSizeMin.FontSize

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpV_Click()

Timer1.Interval = mV

End Sub

Timer1.Interval = mVMax

End Sub

Private Sub OpVMin_Click()

Timer1.Interval = mVMin

End Sub

Private Sub Timer1_Timer()

Label1.Left = Label1.Left + mLen

If Label1.Left >= Me.Width Then Label1.Left = -Label1.Width End Sub

实验报告成绩:指导教师审核(签名):年月日

实验报告

实验项目第一部分

一、实验目的

学会综合运用常用控件进行程序设计的方法。

二、实验内容

设计一个能控制字体、字号、字形和速度的滚动字幕程序。

三、实验要求

1.显示字幕的方框可以用标签或文本框。

2.字体包含宋体、黑体和楷体3种,分别用3个单选按钮表示(用框架控件包住)。

3.字号包含小号字、中号字和大号字3种,分别用3个单选按钮表示(用框架控件包住)。

4.字形包含粗体、斜体和下划线3种,分别用3个复选框表示(用框架控件包住)。

5.速度包含慢速、中速和快速3种,分别用3个单选按钮表示(用框架控件包住)。

6.程序运行后,要求方框中的文字①从左向右移动,②从右向左移动(分别编写从左向右移动和从右向左移动的程序代码)。单击下面的某一按钮,方框中的文字格式和速度能相应地改变。

7.界面由学生自行设计。

四、仪器设备型号编号以及软件环境

1、普通计算机

2、VB

五、实验编程

Const mLen = 100 '移动步长值

Const mVMin = 400 '慢速

Const mV = 200 '中速

Const mVMax = 10 '快速

Private Sub ChFonB_Click()

Label1.FontBold = IIf(ChFonB.Value = 0, False, True)

End Sub

Private Sub ChFonI_Click()

Label1.FontItalic = IIf(ChFonI.Value = 0, False, True)

End Sub

Private Sub ChFonU_Click()

Label1.FontUnderline = IIf(ChFonU.Value = 0, False, True)

End Sub

Private Sub Form_Load()

'初始化

Timer1.Interval = mVMin

With Label1

.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

.FontSize = OpFonSizeMin.FontSize

End With

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonH_Click()

Label1.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

Label1.Top = (Me.Height - Frame1(0).Height) / 3 End Sub

Private Sub OpFonK_Click()

Label1.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonS_Click()

Label1.FontName = http://www.wendangku.net/doc/0b51c9354b35eefdc8d33395.html

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonSize_Click()

Label1.FontSize = OpFonSize.FontSize

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonSizeMax_Click()

Label1.FontSize = OpFonSizeMax.FontSize

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpFonSizeMin_Click()

Label1.FontSize = OpFonSizeMin.FontSize

Label1.Top = (Me.Height - Frame1(0).Height) / 3

End Sub

Private Sub OpV_Click()

Timer1.Interval = mV

End Sub

Private Sub OpVMax_Click()

Timer1.Interval = mVMax

End Sub

Private Sub OpVMin_Click()

Timer1.Interval = mVMin

End Sub

Private Sub Timer1_Timer()

Label1.Left = Label1.Left + mLen

If Label1.Left >= Me.Width Then Label1.Left = -Label1.Width

End Sub

六、实验截图

内工大VB实验报告-滚动字幕

内工大VB实验报告-滚动字幕

内工大VB实验报告-滚动字幕

七、实验中存在的问题

在实验中会出现函数调用错误,对代码的混淆,使得在编程过程中多次无法运行,因为代码的粗心导致了多次返回,导致判断失误。

八、体会

编写程序是需要大量的耐心的,还有细致的思维,更多的是平时需要熟记各种公式,代码以及函数,避免在编写的时候因为这类错误而引起的程序无法运行而怀疑自己的思路,影响变成的正常进行。