VB课程设计报告 15.docx
- 文档编号:29266107
- 上传时间:2023-07-21
- 格式:DOCX
- 页数:13
- 大小:178.36KB
VB课程设计报告 15.docx
《VB课程设计报告 15.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告 15.docx(13页珍藏版)》请在冰豆网上搜索。
VB课程设计报告15
沈阳航空航天大学
课程设计
学号
班级
姓名
指导教师
2012年03月08日
沈阳航空航天大学
课程设计任务书
学院:
机电工程学院专业:
机械班级:
04060101
学号:
2010040601039题目:
学生选课系统
一、课程设计时间
2012年3月5~9日(第1周),共计1周,20学时。
二、课程设计内容
假定有10门课程(参见file20_学生选课系统.txt),每门课程有:
课程编号,课程名称,学分,学时。
为自己设计一个选修课程系统,并将自己选课的信息保存到自己所创建的文件myfile.txt中。
注意:
确保总学分不少于8分。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“读取数据”、“输入选课信息”、“查看已选情况”、“退出”4项。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
关键技术6
总结10
完整的源程序..............................................................................10
参考文献12
需求分析
学生选课系统,主要包括“读取数据”、“输入选课信息”、“查看已选情况”、“退出”等功能。
并将自己选课的信息保存到自己所创建的文件myfile.txt中。
而且确保总学分不少于8分。
要求:
①用户界面中的菜单至少应包括“读取数据”、“输入选课信息”、“查看已选情况”、“退出”4项。
②能够随时显学生能选的所有课。
③能够随时计算学生选课的学分是否够8学分。
设计分析
⑴基本原理:
建立程序设计对文本文件进行读取,把信息显示在窗体上,并把学生所选信息存入新文本中。
⑵总体设计:
⑶详细设计:
关键技术
1.已有文本文件并在窗体打印
OptionBase1
Dimstr()AsString
PrivateTypeMyType
idAsString
nameAsString
unitAsSingle
storeAsString
EndType
PrivateSubCommand1_Click()
CommonDialog1.Action=1
Dimrows()AsMyType'定义动态数组
DimiAsInteger,posAsInteger
i=1
OpenCommonDialog1.FileNameForInputAs#1
DoWhileNotEOF
(1)
ReDimPreserverows(i)
Input#1,rows(i).id,rows(i).name,rows(i).unit,rows(i).store
i=i+1
Loop
Close#1
Form2.Print
Form2.Print
Form2.Print
Fori=1ToUBound(rows)
Form2.PrintTab(4);rows(i).id;
Form2.PrintTab(15);rows(i).name;
Form2.PrintTab(35);Format(rows(i).unit,"0.0");
Form2.PrintTab(45);rows(i).store
Nexti
EndSub
PrivateSubCommand2_Click()
Form1.Show
Form2.Hide
EndSub
2.学生选择科目
Dims!
i!
PrivateSubCommand1_Click()
List2.AddItemList1.Text
s=s+i/10
EndSub
PrivateSubCommand2_Click()
List2.RemoveItemList2.ListIndex
i=Label1.Caption
s=(s*10-i)/10
EndSub
PrivateSubCommand3_Click()
Dimi%
Open"d:
\myfile.txt"ForOutputAs#2
Fori=0ToList2.ListCount
Print#2,List2.List(i)
Nexti
Close#2
Ifs<8Then
MsgBox"所选课程的学分必须不少于8分"
Else
MsgBox"你已保存了你所选的课程"
EndIf
EndSub
PrivateSubCommand4_Click()
Ifs>=8Then
ask=MsgBox("是否已经保存",vbYesNo)
Ifask=6Then
Form3.Hide
Form1.Show
EndIf
EndIf
EndSub
PrivateSubForm_Load()'将数据加入List1
List1.AddItem"1毛泽东思想概论232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"2思想道德修养232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"3法律基础232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"4C语言程序设计3.556"
List1.ItemData(List1.NewIndex)=35
List1.AddItem"5计算机文化基础232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"6大学英语(上下)8128"
List1.ItemData(List1.NewIndex)=80
List1.AddItem"7高等数学(上下)696"
List1.ItemData(List1.NewIndex)=60
List1.AddItem"8网络技术基础232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"9统计学原理464"
List1.ItemData(List1.NewIndex)=40
List1.AddItem"10经济法概论232"
List1.ItemData(List1.NewIndex)=20
EndSub
PrivateSubList1_Click()
i=List1.ItemData(List1.ListIndex)
EndSub
总结
这次课设我的题目是学生选课系统,通过这次课设让我了解了VB与文本文件的联系,学会了读取文本文件的内容并向文本文件中写入信息。
为期一周的课设事时间,让我更能深入的对VB的了解和完善,也是对于VB课程更深入的学习.在此期间也出现了不少的问题,比如很多语句都得翻看书本才能去编写程序,相当于参考了上学期的书本.加入真的要没有什么辅助的工具,那编程将会更加的困难。
在课设过程中,我遇到了重重困难,例如:
VB与文本的连接技术,通过老师的指点和自己查阅资料,我克服了困难,顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用,所以,学好VB是社会发展的需要。
完整的源程序
PrivateSub查看已选情况_Click()
Form1.Hide
Form4.Show
EndSub
PrivateSub读取数据_Click()
Form1.Hide
Form2.Show
EndSub
PrivateSub输入选课信息_Click()
Form1.Hide
Form3.Show
EndSub
PrivateSub退出_Click()
End
EndSub
OptionBase1
Dimstr()AsString
PrivateTypeMyType
idAsString
nameAsString
unitAsSingle
storeAsString
EndType
PrivateSubCommand1_Click()
CommonDialog1.Action=1
Dimrows()AsMyType'定义动态数组
DimiAsInteger,posAsInteger
i=1
OpenCommonDialog1.FileNameForInputAs#1
DoWhileNotEOF
(1)
ReDimPreserverows(i)
Input#1,rows(i).id,rows(i).name,rows(i).unit,rows(i).store
i=i+1
Loop
Close#1
Form2.Print
Form2.Print
Form2.Print
Fori=1ToUBound(rows)
Form2.PrintTab(4);rows(i).id;
Form2.PrintTab(15);rows(i).name;
Form2.PrintTab(35);Format(rows(i).unit,"0.0");
Form2.PrintTab(45);rows(i).store
Nexti
EndSub
PrivateSubCommand2_Click()
Form1.Show
Form2.Hide
EndSub
Dims!
i!
'计算学分总和
PrivateSubCommand1_Click()
List2.AddItemList1.Text
s=s+i/10
EndSub
PrivateSubCommand2_Click()
List2.RemoveItemList2.ListIndex
i=Label1.Caption
s=(s*10-i)/10
EndSub
PrivateSubCommand3_Click()
Dimi%
Open"d:
\myfile.txt"ForOutputAs#2
Fori=0ToList2.ListCount
Print#2,List2.List(i)
Nexti
Close#2
Ifs<8Then
MsgBox"所选课程的学分必须不少于8分"
Else
MsgBox"你已保存了你所选的课程"
EndIf
EndSub
PrivateSubCommand4_Click()
Ifs>=8Then
ask=MsgBox("是否已经保存",vbYesNo)
Ifask=6Then
Form3.Hide
Form1.Show
EndIf
EndIf
EndSub
PrivateSubForm_Load()'将数据加入List1
List1.AddItem"1毛泽东思想概论232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"2思想道德修养232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"3法律基础232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"4C语言程序设计3.556"
List1.ItemData(List1.NewIndex)=35
List1.AddItem"5计算机文化基础232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"6大学英语(上下)8128"
List1.ItemData(List1.NewIndex)=80
List1.AddItem"7高等数学(上下)696"
List1.ItemData(List1.NewIndex)=60
List1.AddItem"8网络技术基础232"
List1.ItemData(List1.NewIndex)=20
List1.AddItem"9统计学原理464"
List1.ItemData(List1.NewIndex)=40
List1.AddItem"10经济法概论232"
List1.ItemData(List1.NewIndex)=20
EndSub
PrivateSubList1_Click()
i=List1.ItemData(List1.ListIndex)
EndSub
参考文献
[1]龚沛曾.《VisualBasic程序设计教程》.北京:
高等教育出版社,2007
7
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB课程设计报告 15 VB 课程设计 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)