华北科技学院计算机学院综合性实验
实 验 报 告
课程名称 程序设计语言(VB)
实验学期 20## 至 20## 学年 第 二 学期
学生所在系部 管理学院
年级 14级 专业班级 国贸B144班
学生姓名 康应翠 学号 201404014410
任课教师 胡英
实验成绩
计算机学院制
《程序设计语言(VB)》课程综合性实验报告
开课实验室: 基础实验室 2015年7月 25日
VB综合实验报告
系 别: 信息工程学院
专 业: 应用电子技术
学生姓名: 张立朋
指导教师: 徐香坤
20##年 4 月 22 日
一.实验题目:
通讯录系统
二.实验目的:
1.灵活运用运用各种控件和各种语法规则,程序结构。
2.学会利用数组解决实际问题。熟练运用循环和选择语句对数组操作。
3. 理解过程和函数的概念,掌握子过程的创建和调用以及函数过程的创建和调用
三.实验要求:
独立设计用户界面,设置相应属性,编写相关代码。
四.实验内容:
1.本模块是个人登录系统时的一个版面,点击“画面中的任意一点”即可进入下一个界面,此界面中含音乐播放、动态字体。主页面如图1.1所示:
图1.1
代码如下:
Dim x As Long
Private Sub Form_Load()
Form1.Caption = "登陆"
Timer1.Enabled = True
Label1.Caption = "欢迎进入通讯录系统!"
Label1.AutoSize = True
Label1.FontSize = 20
Label1.FontBold = True
End Sub
Private Sub Picture1_Click()
Form2.Show
Unload Me
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Width Then
Label1.Left = Label1.Left + 10
Else
Label1.Left = 0
End If
End Sub
2.本模块主要是通讯录管理系统的登陆界面,用户输入正确的用户名,密码,验证才能进入下一界面;如果三项中有输入错误的,则系统会显示相应的提示,并且禁止用户进入该系统。主页面如图1.2所示:
图1.2
代码如下:
Dim vCode As String
Private Sub Command1_Click()
If Text1.Text = "123456" And Text2.Text = "111" And Text3.Text = vCode Then
MsgBox "正在载入信息"
Form3.Show
Unload Me
ElseIf Text3.Text <> vCode Then
MsgBox "验证码错误"
Text3.Text = ""
Else
MsgBox "用户名或密码错误,请重新输入"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
drawvc
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub drawvc()
Dim a, vc, px, py As Long
Dim r, g, b As Byte
Randomize
vc = CLng(8999 * Rnd + 1000)
vCode = vc
Picture2.Cls
Picture2.Print vc
For a = 0 To 20##
px = CLng(Picture1.Width * Rnd)
py = CLng(Picture1.Height * Rnd)
r = CByte(255 * Rnd)
g = CByte(255 * Rnd)
b = CByte(255 * Rnd)
Picture2.Line (px, py)-(px + 1, py + 1), RGB(r, g, b)
Next
End Sub
Private Sub Command3_Click()
drawvc
End Sub
Private Sub Form_Load()
Picture2.FontSize = 12
Picture2.FontBold = True
Picture2.AutoRedraw = True
drawvc
End Sub
3.本模块是通讯录系统的总模块,也可以说是此系统的过度界面连接系统的多个界面模块,此模块包括信息资料、资料维护、难忘的记忆、退出四大块,而且每个块中又包含相应的子模块。在此模块中若长时间不进行操作就会进入电子时钟界面。如图1.3所示:
图1.3
代码如下:
im x As Long
Private Sub Form_Load()
Timer2.Enabled = True
Text1.Text = "时"
Text2.Text = "分"
Text3.Text = "秒"
If Text1.Text = "时" Then
Text1.Text = 0
End If
If Text2.Text = "分" Then
Text2.Text = 0
End If
If Text3.Text = "秒" Then
Text3.Text = 10
x = Text1.Text * 3600 - (-Text2.Text * 60) - (-Text3.Text)
End If
End Sub
Private Sub jibenziliao_Click()
Form5.Show
End Sub
Private Sub lianxifangshi_Click()
Form6.Show
End Sub
Private Sub shipin_Click()
Form12.Show
End Sub
Private Sub Timer1_Timer()
Label1.Left = 0
Label1.Top = 0
Label1.FontName = "时间"
Label1.FontSize = 10
Label1.Caption = Time$
End Sub
Private Sub Timer2_Timer()
x = x - 1
If x <= 0 Then
Timer2.Enabled = False
Form4.Show
Unload Me
End If
End Sub
Private Sub tuichu_Click()
Form13.Show
Unload Me
End Sub
Private Sub yulu_Click()
Form10.Show
End Sub
Private Sub ziliaoweihu_Click()
Form7.Show
End Sub
Private Sub 相册_Click()
form11show
End Sub
4.此模块为资料维护界面,主要完成资料的维护功能,主要进行信息的修改、添加、删除、查询的功能。如图1.4
图1.4
代码如下:
Private Sub Command1_Click()
Data1.DatabaseName = "G:\基本资料.mdb"
Data1.RecordSource = 信息资料
Data1.Recordset.FindFirst "身份id='" & Text7.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox "没有该记录"
Text7.Text = ""
Text7.SetFocus
Else
Text1.Text = Data1.Recordset("身份id")
Text2.Text = Data1.Recordset("姓名")
Text3.Text = Data1.Recordset("性别")
Text4.Text = Data1.Recordset("出生日期")
Text5.Text = Data1.Recordset("专业")
Text6.Text = Data1.Recordset("学校")
Text7.Text = Text1.Text
End If
End Sub
Private Sub Command2_Click()
Form7.Show
Unload Me
End Sub
Private Sub Command3_Click()
Data1.DatabaseName = "G:\基本资料.mdb"
Data1.RecordSource = 信息资料
Data1.Recordset.AddNew
Data1.Recordset("身份id") = Text1.Text
Data1.Recordset("姓名") = Text2.Text
Data1.Recordset("性别") = Text3.Text
Data1.Recordset("出生日期") = Text4.Text
Data1.Recordset("专业") = Text5.Text
Data1.Recordset("学校") = Text6.Text
Data1.Recordset.Update
MsgBox "数据录入完毕!"
End Sub
Private Sub Command4_Click()
Data1.DatabaseName = "G:\基本资料.mdb"
Data1.RecordSource = 基本资料
Data1.Recordset.FindFirst "身份id='" & Text4.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox "删除完成"
Text1.Text = ""
Text1.SetFocus
Else
Text1.Text = Data1.Recordset("身份id")
Text2.Text = Data1.Recordset("姓名")
Text3.Text = Data1.Recordset("性别")
Text4.Text = Data1.Recordset("出生日期")
Text5.Text = Data1.Recordset("专业")
Text6.Text = Data1.Recordset("学校")
End If
Data1.Recordset.Delete
End Sub
Private Sub Command5_Click()
Data1.DatabaseName = "G:\基本资料.mdb"
Data1.RecordSource = 信息资料
Data1.Recordset.Edit
Data1.Recordset("身份id") = Text1.Text
Data1.Recordset("姓名") = Text2.Text
Data1.Recordset("性别") = Text3.Text
Data1.Recordset("出生日期") = Text4.Text
Data1.Recordset("专业") = Text5.Text
Data1.Recordset("学校") = Text6.Text
MsgBox "修改完成"
End Sub
Private Sub tuichu_Click()
Form7.Show
Unload Me
End Sub
5.此模块主要实现选权进入的功能,此处有两个密码,输入不同密码进入不同模块。如图1.5
图1.5
代码如下:
Private Sub Command1_Click()
If Text1.Text = "11" Then
Form9.Show
Unload Me
ElseIf Text1.Text = "111" Then
Form8.Show
Unload Me
End If
End Sub
Private Sub neibuziliao_Click()
Form9.Show
End Sub
Private Sub tuichu_Click()
Form3.Show
Unload Me
End Sub
Private Sub waibuziliao_Click()
Form8.Show
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "11" And KeyAscii = 13 Then
Form9.Show
Unload Me
ElseIf Text1.Text = "111" And KeyAscii = 13 Then
Form8.Show
Unload Me
End If
End Sub
6.此模块表现为为相册界面,主要实现图片的查看功能及返回总模块界面。如图1.6
图1.6
7.此模块中含电子时钟界,主要是时间显示。如图1.7
图1.7
代码如下:
Private Sub Image1_Click()
Unload Me
Form3.Show
End Sub
Private Sub Timer1_Timer()
Dim x, y As Integer
Dim s, m, h As Integer
s = Second(Time)
m = Minute(Time)
h = Hour(Time)
Cls
DrawWidth = 8
h = h + m / 60
x = 6 * Sin(h * PI / 6)
y = 6 * Cos(h * PI / 6)
Line (0, 0)-(x, y), vbYellow
DrawWidth = 5
x = 8 * Sin(m * PI / 30)
y = 8 * Cos(m * PI / 30)
Line (0, 0)-(x, y), vbYellow
DrawWidth = 3
x = 9 * Sin(s * PI / 30)
y = 9 * Cos(s * PI / 30)
Line (0, 0)-(x, y), vbRed
End Sub
8.此模块表现为为视频界面,主要完成视频的观看及返回总模块界面。里面的视频主要是引起同学及好友的美好回忆。如图1.8
图1.8
9.此界面为资料界面,主要完成资料的维护功能,主要包括信息的修改、添加、删除、查询的功能。如图1.9
图1.9
代码如下:
Private Sub Command1_Click()
Data1.DatabaseName = "G:\基本资料.mdb"
Data1.RecordSource = 信息资料
Data1.Recordset.FindFirst "住址电话='" & Text1.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox "没有该记录"
Text1.Text = ""
Text1.SetFocus
Else
Text2.Text = Data1.Recordset("住址电话")
Text3.Text = Data1.Recordset("单位电话")
Text4.Text = Data1.Recordset("邮政编码")
Text5.Text = Data1.Recordset("移动电话")
Text6.Text = Data1.Recordset("家庭住址")
Text7.Text = Data1.Recordset("单位名称")
Text8.Text = Data1.Recordset("单位住址")
Text9.Text = Data1.Recordset("QQ号码")
Text10.Text = Data1.Recordset("电子邮箱")
Text2.Text = Text1.Text
End If
End Sub
Private Sub Command2_Click()
Form7.Show
Unload Me
End Sub
Private Sub Command3_Click()
Data1.Recordset("住址电话") = Text2.Text
Data1.Recordset("单位电话") = Text3.Text
Data1.Recordset("邮政编码") = Text4.Text
Data1.Recordset("移动电话") = Text5.Text
Data1.Recordset("家庭住址") = Text6.Text
Data1.Recordset("单位名称") = Text7.Text
Data1.Recordset("单位住址") = Text8.Text
Data1.Recordset("QQ号码") = Text9.Text
Data1.Recordset("电子邮箱") = Text10.Text
Data1.Recordset.Update
MsgBox "数据录入完毕!"
End Sub
Private Sub Command4_Click()
Data1.DatabaseName = "G:\基本资料.mdb"
Data1.RecordSource = 基本资料
Data1.Recordset.FindFirst "身份id='" & Text4.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox "删除完成"
Text1.Text = ""
Text1.SetFocus
Else
Text2.Text = Data1.Recordset("住址电话")
Text3.Text = Data1.Recordset("单位电话")
Text4.Text = Data1.Recordset("邮政编码")
Text5.Text = Data1.Recordset("移动电话")
Text6.Text = Data1.Recordset("家庭住址")
Text7.Text = Data1.Recordset("单位名称")
Text8.Text = Data1.Recordset("单位住址")
Text9.Text = Data1.Recordset("QQ号码")
Text10.Text = Data1.Recordset("电子邮箱")
Text2.Text = Text1.Text
End If
Data1.Recordset.Delete
End Sub
Private Sub Command5_Click()
Data1.DatabaseName = "G:\基本资料.mdb"
Data1.RecordSource = 信息资料
Data1.Recordset.Edit
Data1.Recordset("住址电话") = Text2.Text
Data1.Recordset("单位电话") = Text3.Text
Data1.Recordset("邮政编码") = Text4.Text
Data1.Recordset("移动电话") = Text5.Text
Data1.Recordset("家庭住址") = Text6.Text
Data1.Recordset("单位名称") = Text7.Text
Data1.Recordset("单位住址") = Text8.Text
Data1.Recordset("QQ号码") = Text9.Text
Data1.Recordset("电子邮箱") = Text10.Text
MsgBox "修改完成"
End Sub
Private Sub tuichu_Click()
Form7.Show
Unload Me
End Sub
10.此模块为退出模块主要完成程序的退出及返回进入界面。如图1.10
图1.10
Dim x As Long
Private Sub Form_Load()
Form1.Caption = "退出"
Timer1.Enabled = True
Label1.Caption = "谢谢使用!"
Label1.AutoSize = True
Label1.FontSize = 20
Label1.FontBold = True
End Sub
Private Sub 结束_Click()
Unload Me
End Sub
Private Sub 退出_Click()
Form1.Show
Unload Me
End Sub
Private Sub Picture1_Click()
Form1.Show
Unload Me
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Width Then
Label1.Left = Label1.Left + 10
Else
Label1.Left = 0
End If
End Su
五、总结
通讯录系统具可以根据好友同学的不同熟悉程度、友好度来分别管理通讯录中不同胡人员名单,还可以根据选权信息来对信息资料的管,这个通讯录系统主要是用来实现好友、同学的信息资料管理,便于人们与联系人联系。该通讯录系统里面还能记录主人以前与好友同学之间的美好回忆,包括照片和视频以及同学之间的祝福语及经典语录,该通讯录系统还能实现通讯人员资料的添加、删除、修改、查询等功能。这个系统还有待改进。
通讯录系统方便了联系人资料的管理,方便彼此之间的联系。能够为社会人士提供方便。
在此我还要感些我的辅导老师对我的辅导,没有她的辅导,我不能很好的完成这个系统。
内蒙古工业大学信息工程学院实验报告课程名称高级语言程序设计VB实验名称选择循环数组和过程综合程序设计实验类型验证性综合性设计性实验…
VB程序设计实验报告一实验目的及要求见实验书要求手填1了解VBNET系统对计算机软件硬件的要求2掌握启动与退出VBNET的方法3掌…
华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言VB实验学期20xx至20xx学年第二学期学生所在系部管理学院年级12…
南京工程学院自动化学院实验报告课程名称VB语言实验名称实验ACDEF实验学生班级K数控111实验学生姓名周大伟实验学生学号2401…
台州学院《VB程序设计》实验报告实验九:文件班级:12化学2学号:12320xx045姓名:屈王波实验日期:20xx-5-23一、…
台州学院《VB程序设计》实验报告实验九:文件班级:12化学2学号:12320xx045姓名:屈王波实验日期:20xx-5-23一、…
VasualBasic实验报告单院系经济管理学院专业信息管理与信息系统学号110514128班级110514姓名汤文莹可视化程序设…
甘肃政法学院本科生实验报告一姓名刘长春学院计算机科学学院专业计算机科学与技术班级20xx级专升本班实验课程名称VBnet程序设计实…
报告封面20xx20xx学年第一学期封面和里边的需要写的内容不要空着学号姓名学院年级专业班等实验课程VisualBasicNet程…
华北科技学院采矿工程vb综合实验报告华北科技学院安全工程学院综合性实验实验报告课程名称计算机技术基础VB实验学期20xx至20xx…