《胡宝佳作品》由会员分享，可在线阅读，更多相关《胡宝佳作品（16页珍藏版）》请在金锄头文库上搜索。
1、河北理工大学 软件设计基础（VB）课程设计报告设计名称： 排足球队员出场名单 姓 名： 胡宝佳 学 号： 19 专业班级： 材料成型及控制工程2班 学 院： 冶金与能源学院 设计时间： 2010-6-1 设计地点： 机房 成绩：指导教师评语： 指导教师签字： 年 月 日电视墙也就是电视背景装饰墙，是居室装饰特别是大户型居室的重点之一，在装修中占据相当重要的地位，电视墙通常是为了弥补客厅中电视机背景墙面的空旷，同时起到修饰客厅的作用。因为电视墙是家人目光注视最多的地方，长年累月地看也会让人厌烦，所以其装修就尤为讲究软件设计基础（VB）课程设计报告 第 15 页，共 15 页目 录1.课程设计目的
2、2.课程设计任务与要求3.课程设计说明书4.课程设计成果5.程序调试过程6.设计问题的不足和改进方案7.课程设计心得8.附录9.参考文献1课程设计目的软件设计基础（VB）课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础（VB）课程中所学到的编程知识和编程技巧，完成具有一定难
3、度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：将自己选择题目的任务要求简单填写在此处。要求用Visual Basic对象的思想来完成程序的设计。读取文件中的足球队员信息，根据选择的阵形，选派上场队员。要求会使用按钮(commandbutton)、列表框(text)、标签(label)等基本控件。要求在程序中能够运用结构化程序设计的选择和循环结
4、构，熟练使用相关的语句要求在程序中熟练运用数组，完成数组的各项操作 程序界面美观，能够完成主要的功能。3课程设计说明书功能描述要求根据读取文件中的足球队员信息，选定的队员（号码）和阵形，绘制出出场阵形图。概要设计要求通过解决现实生活中的事件，学习并掌握VB知识主要写模块说明，模块结构图，系统流程图（例N-S流程图）（五号，宋体）模块结构图： 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系（如下图）。简易文件系统图形处理文件管理文件读写移动复制加工图片显示图片绘制图形读文件写文件浏览简易文件系统功能框图 详细设计 总体流程图：各功能模块流程图：
5、排足球队员出场名单系统创新设计工程设计足球队员相片代码编写南非世界杯显示图片加工图片工程运行调试代码实现详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共10个窗体：form1form10详细如下：form1、首页作用：“进入应用程序”。所用控件：5个标签，4个时钟。设计思路：用时钟控制label1、2,3,4的运动。单击label1,2,5和命令选择器可进入后面窗体，label3.无链接窗体，无label4 。详细内容：属性较特殊的需要说明。代码如下：de = True For i = 0 To 19 Image1(i).Visible = False Next
6、i List1.Visible = True List2.Visible = True form1.Cls List1.Clear List2.Clear Option3.Value = True Command2.Visible = True Command3.Visible = True Command4.Visible = True Command1.Enabled = True Command6.Enabled = FalseEnd SubPrivate Sub Form_Load()Command6.Enabled = FalseOption3.Value = TrueFor i =
7、 0 To 19 Image1(i).Visible = FalseNext iEnd SubPrivate Sub Image1_Click(Index As Integer)Select Case Index Case 0: form1n.Show: Case 1: form2.Show: Case 2: Form3.Show: Case 3: Form4.Show: Case 4: Form5.Show: Case 5: Form6.Show Case 6: Form7.Show: Case 7: Form8.Show: Case 8: Form9.Show: Case 9: Form1
8、0.Show: Case 10: Form11.Show: Case 11: Form12.Show: Case 12: Form13.Show Case 13: Form14.Show: Case 14: Form15.Show: Case 15: Form16.Show: Case 16: Form17.Show: Case 17: Form18.Show: Case 18: Form19.Show: Case 19: Form20.ShowEnd SelectEnd SubPrivate Sub Option1_Click()h = 4z = 3q = 3End SubPrivate S
9、ub Option2_Click()h = 5z = 3q = 2End SubPrivate Sub Option3_Click()h = 4z = 4q = 2End SubPrivate Sub Option4_Click()h = 3z = 4q = 3End SubPrivate Sub Option5_Click()h = 3z = 5q = 2End SubPrivate Sub Option6_Click()h = 3z = 6q = 1End SubPublic Sub mysub1(X As Integer) Select Case X Case 1 Image1(r(1)
10、 - 1).Visible = True: Image1(r(1) - 1).Top = 480: Image1(r(1) - 1).Left = 3240 Case 2 Image1(r(1) - 1).Visible = True: Image1(r(1) - 1).Top = 480: Image1(r(1) - 1).Left = 1900 Image1(r(2) - 1).Visible = True: Image1(r(2) - 1).Top = 480: Image1(r(2) - 1).Left = 3800 Case 3 Image1(r(1) - 1).Visible =
11、True: Image1(r(1) - 1).Top = 480: Image1(r(1) - 1).Left = 1800 Image1(r(2) - 1).Visible = True: Image1(r(2) - 1).Top = 480: Image1(r(2) - 1).Left = 3240 Image1(r(3) - 1).Visible = True: Image1(r(3) - 1).Top = 480: Image1(r(3) - 1).Left = 4680 End Select End SubPublic Sub mysub2(Y As Integer)Select C
12、ase Y Case 3 Image1(s(1) - 1).Visible = True: Image1(s(1) - 1).Top = 2160: Image1(s(1) - 1).Left = 360 Image1(s(2) - 1).Visible = True: Image1(s(2) - 1).Top = 2160: Image1(s(2) - 1).Left = 3240 Image1(s(3) - 1).Visible = True: Image1(s(3) - 1).Top = 2160: Image1(s(3) - 1).Left = 5880 Case 4 Image1(s
13、(1) - 1).Visible = True: Image1(s(1) - 1).Top = 2160: Image1(s(1) - 1).Left = 480 Image1(s(2) - 1).Visible = True: Image1(s(2) - 1).Top = 2160: Image1(s(2) - 1).Left = 1920 Image1(s(3) - 1).Visible = True: Image1(s(3) - 1).Top = 2160: Image1(s(3) - 1).Left = 3480 Image1(s(4) - 1).Visible = True: Image1(s(4) - 1).Top = 2160: Image1(s(4) - 1).Left = 4920 Case 5 Image1(s(1) - 1).Visible = True: Image1(s(1) - 1).Top = 2160: Image1(s(1) - 1).Left = 350
