内蒙古工业大学vb实验报告Ⅱ.docx
- 文档编号:24455523
- 上传时间:2023-05-27
- 格式:DOCX
- 页数:9
- 大小:558.64KB
内蒙古工业大学vb实验报告Ⅱ.docx
《内蒙古工业大学vb实验报告Ⅱ.docx》由会员分享,可在线阅读,更多相关《内蒙古工业大学vb实验报告Ⅱ.docx(9页珍藏版)》请在冰豆网上搜索。
内蒙古工业大学vb实验报告Ⅱ
内蒙古工业大学信息工程学院
实验报告
课程名称:
高级语言程序设计(VB)Ⅱ
实验名称:
选择、循环、数组和过程综合程序设计
实验类型:
验证性□综合性√设计性□
实验室名称:
校计算中心
班级:
学号:
姓名:
组别:
同组人:
成绩:
实验日期:
实验报告成绩:
指导教师审核(签名):
年月日
实验报告
一、实验目的
学会综合运用常用控件进行程序设计的方法。
二、实验内容
设计一个能控制一行文字的字体、字号、字形、移动速度和移动方向的滚动字幕程序。
三、实验要求
1.用标签或文本框显示一行文字。
2.文字的字体包括宋体、黑体和楷体3种,分别用3个单选按钮表示并用框架框住。
3.文字的字号包括小号字(可设置为20)、中号字(可设置为30)和大号字(可设置为40)3种,分别用3个单选按钮表示并用框架框住。
4.文字的字形包括粗体、斜体和下划线3种,分别用3个复选框表示并用框架框住。
5.文字移动的速度包括慢速、中速和快速3种(可用时钟控件的Interval属性进行控制),分别用3个单选按钮表示并用框架框住。
6.文字的移动方向包括从左向右和从右向左2种,分别用2个单选按钮表示并用框架框住。
7.程序界面可参照下图进行设计,要求在窗体上添加的各个控件布局合理、大小适中。
对象属性的设置要求用表格填写,包括对象名、属性名、属性值和说明(可参照前面章节的实验内容)。
8.程序运行后,单击图中的某一单选按钮或复选框,标签或文本框中文字的字体、字号、字形、移动速度和移动方向都能做相应的改变,并实现文字从左向右循环滚动或从右向左循环滚动的效果。
9.实验报告主要包括实验目的、实验内容、实验要求、界面设计(包括各对象及其属性设置)、源程序代码、运行结果(要求截图)、实验中存在的问题、体会和思考等内容。
3、界面设计
1、对象窗口设置
2、属性设置
对象名
属性名
属性值
说明
Form1
Caption
滚动字幕程序
Text
Text
欢迎学习visualbasic程序设计
Forecolor
黑体
Font
宋体
文本框字体
Fontsize
小五
文本框字号
Frame1
Caption
字体
Frame2
Caption
字号
Frame3
Caption
字形
Frame4
Caption
移动速度
Frame5
Caption
移动方向
Option
Caption
宋体
Option
Caption
黑体
Option
Caption
楷体
Option
Caption
小字号
Option
Caption
中字号
Option
Caption
大字号
Option
Caption
慢速
Option
Caption
中速
Option
Caption
快速
Option
Caption
从左向右
Option
Caption
从右向左
Check1
Caption
粗体
Check2
Caption
斜体
Check3
Caption
下划线
Timer1
Interval
0
Enabled
True
4、源程序代码
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Text1.FontBold=True
Else
Text1.FontBold=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Text1.FontItalic=True
Else
Text1.FontItalic=False
EndIf
EndSub
PrivateSubCheck3_Click()
IfCheck3.Value=1Then
Text1.FontUnderline=True
Else
Text1.FontUnderline=False
EndIf
EndSub
PrivateSubOption1_Click()
Text1.Font="宋体"
EndSub
PrivateSubOption2_Click()
Text1.Font="黑体"
EndSub
PrivateSubOption3_Click()
Text1.Font="楷体"
EndSub
PrivateSubOption4_Click()
Text1.FontSize=20
EndSub
PrivateSubOption5_Click()
Text1.FontSize=30
EndSub
PrivateSubOption6_Click()
Text1.FontSize=40
EndSub
PrivateSubOption7_Click()
Timer1.Interval=300
EndSub
PrivateSubOption8_Click()
Timer1.Interval=200
EndSub
PrivateSubOption9_Click()
Timer1.Interval=100
EndSub
PrivateSubText1_Change()
Text1.FontBold=False
EndSub
PrivateSubTimer1_Timer()
IfOption10.Value=TrueThen
Text1.Text=Right(Text1.Text,1)+Left(Text1.Text,Len(Text1.Text)-1)
EndIf
IfOption11.Value=TrueThen
Text1.Text=Right(Text1.Text,Len(Text1.Text)-1)+Left(Text1.Text,1)
EndIf
EndSub
五、运行结果
6、实验中存在的问题
1、某些函数或程序未定义
2、编程Timer1控件是错误代码:
PrivateSubTimer1_Timer()
IfOption10.Value=TrueThen
Text1.Text=Right(Text1.Text,1)+Left(Text1.Text,Len(Text1.Text)-1)
EndIf
IfOption11.Value=TrueThen
Text1.Text=Left(Text1.Text)+Left((Text1.Text)-1)
EndIf
EndSub
改正后:
PrivateSubTimer1_Timer()
IfOption10.Value=TrueThen
Text1.Text=Right(Text1.Text,1)+Left(Text1.Text,Len(Text1.Text)-1)
EndIf
IfOption11.Value=TrueThen
Text1.Text=Right(Text1.Text,Len(Text1.Text)-1)+Left(Text1.Text,1)
EndIf
EndSub
试验中遇到的错误截图:
错误反思:
对基础的复选框代码书写不够熟悉,平时练习较少,应该加入EndIf
关于时钟控件把握不好,进行过好几次调试,现在把关于时钟控件犯的主要错误截图如下
这部分运行后达不到滚动效果
7、体会和思考
通过这次vb实验,我更加熟练的掌握了vb的编程,在实验过程中,我通过查找书籍,明白了许多课堂上不同的地方,我学到的有,“楷体”编写时应为“楷体”。
对于复选框字体的代码编写不是很熟悉,总是忘记加EndIf。
对于时钟控件,一开始编写时以为是以秒为单位,实际上以毫秒为单位。
对于滚动效果这部分比较难,经过不断尝试终于做出来了,其实“+”和“&”都可以起到连接作用,都可以做出滚动效果,需要注意的是变量与运算符“&”之间应该加一个空格。
通过这次试验我学到了很多,我对考试更加有信心了。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 内蒙古 工业大学 vb 实验 报告