沈阳航空航天大学。
课程设计。学号 2
班级 94060105
姓名 指导教师徐晗
2024年 3 月 16日。
沈阳航空航天大学。
课程设计任务书。
学院：机电工程学院专业：机械设计制造及其自动化班级：94060105
一、课程设计时间。
2024年3月14日~20日（第2周），共计1周。
二、课程设计内容。
假设每天“沈阳→植物园”有4个班次的汽车，具体的数据如下：
班次发车时间载客量已售票数。
数据保存在文本文件或access数据库中，请你为售票员开发一个程序，实现每天的“沈阳→植物园”的售票、退票等业务。要求：售票时按旅客要求选择班次，如果某个班次已过了发车时间，则该班次今天不再售票，如果某个班次的票已售完，则也不能再售票。
用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“退出”4项。
三、课程设计要求。
程序质量：贯彻事件驱动的程序设计思想。
用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
**应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字。
指导教师学生签名：__
五、成绩。六、教师评语。
目录。需求分析 4
设计分析 4
技术要点 6
主要界面截图 9
总结 10完整的源程序 11
参考文献 18
经过对程序设计题目的分析可知，简单的汽车售票系统主要包含“售票”、“退票”“显示当前售票内容”“退出”四个按钮，以此来实现题目要求。
设计要求。1. 售票时按旅客要求选择班次，如果某个班次已过了发车时间，则该班次今天不再售票。
2. 如果某个班次的票已售完，则也不能再售票。
3. 系统能够显示当前售票内容。
1） 概述：
用文本文件保存售票信息，采用顺序文件方式。用单选按钮选择车次。首先判断时间，若超过，单选按钮不可用。
若售票数为0，则不可退票。若售票数等于总票数，则不可售票。在另外一个窗体上显示售票现状。
主要用到顺序文件的读取与保存，多重窗体，选择结构等知识。
2） 总体设计：
3） 详细设计：
1数据的储存级调用。
采用顺序文件保存车票销售情况。写入数据时要先打开文件，用print语句写入，写入完毕后要关闭文件，**如下：
sub bc()
open "d:\曹荣博\" for output as #
print #1, "当前售票情况："
print #1, "班次发车时间载客量已售票数已退票数实际售出 "
print #1, "1 06：40 50 ",space(1); sp1, space(1); tp1, space(1); sp1 - tp1
print #1, "2 09：30 40 ",space(1); sp2, space(1); tp2, space(1); sp2 - tp2
print #1, "3 13：00 40 ",space(1); sp3, space(1); tp3, space(1); sp3 - tp3
print #1, "4 16：00 40 ",space(1); sp4, space(1); tp4, space(1); sp4 - tp4
close #
end sub
2运用选择结构判断条件。
判断是否超过时间、是否有售票、票是否售完均采用选择结构，**如下：
if time >=#6:40:00 am# then
= false
end if
if time >=#9:30:00 am# then
= false
end if
if time >=#1:00:00 pm# then
= false
end if
if time >=#4:00:00 pm# then
= false
end if
3适当运用exit语句。
在恰当的时候用exit语句来退出某过程，如：
if text1 >=val( then '判断票是否售完。
msgbox "票已售完", 提示"
exit sub
end if
4多重窗体的运用。
窗体的显示与隐藏，**如下：
5标准函数的运用。
用val函数将字符串转化为数字，如：
if text4 >=val( then
6 菜单编辑。
图1 汽车站售票系统界面。
图2 售票现状界面
在这一周时间的vb课设使我感受颇深，刚开始当我拿到题目的时候我不知所措，完全不知道该从哪下手，很多的内容完全搞不懂，只得从新拾起课本温故大一下学期的课程内容，使我对于vb程序有了一个总体概型。然后开始编程序。起初编程的进度很慢而且运行的时候总是会出现错误，通过一遍遍的调试，改错，与同学的交流，问题越来越少，程序越来越完整，终于经过不懈努力总算是大功告成，那种喜悦是无法用言语表达的。
通过这一周的课设我不仅是理论与实践结合在一起，也使我懂得了一个道理，就是平时我们做事情需要细心，并且为之投入大量的心思和精力，以及坚持不懈的奋斗，这样任何看起来困难的事都会迎刃而解。
module1**：
public sp1%, sp2%, sp3%, sp4%, tp1%, tp2%, tp3%, tp4% '声明全局变量。
form1**：
private sub form_load窗体加载。
text1 = sp1 - tp1
text2 = sp2 - tp2
text3 = sp3 - tp3
text4 = sp4 - tp4
close #
if time >=#6:40:00 am# then
= false
end if
if time >=#9:30:00 am# then
= false
end if
if time >=#1:00:00 pm# then
= false
end if
if time >=#4:00:00 pm# then
= false
end if
end sub
sub sp_click售票。
if option1 then判断车次。
if text1 >=val( then '判断票是否售完。
msgbox "票已售完", 提示"
exit sub
end if
sp1 = sp1 + 1
text1 = sp1 - tp1
call bc
elseif option2 then
if text2 >=val( then
msgbox "票已售完", 提示"
exit sub
end if
sp2 = sp2 + 1
text2 = sp2 - tp2
call bc
elseif option3 then
if text3 >=val( then
msgbox "票已售完", 提示"
exit sub
end if
sp3 = sp3 + 1
text3 = sp3 - tp3
call bc
elseif option4 then
if text4 >=val( then
msgbox "票已售完", 提示"
exit sub
end if
sp4 = sp4 + 1
text4 = sp4 - tp4
call bc
end if
end sub
private sub tc_click() 退出。
endend sub
private sub tp_click退票。
if option1 then判断车次。
if text1 = 0 then判断是否售出票。
msgbox "未售出票", 提示"
VB课程设计
在本系统的设计中，主要实现如下一些功能 学习 测试 成绩统计与分析。其中，学习 部分要求教100以内的加 减 乘和除 测试 模块要求随机给出参与运算的数及运算类型，并判断用户的答案，测试完给出得分 成绩统计与分析 模块能够统计成绩各种运算的平均成绩，并画出成绩分布的曲线图或柱状图。欢迎界面 登录界面...
VB课程设计
基于vb的温湿度测试分析系统 1 概述。高精度的温湿度测试计与电脑等上位机相连，发挥电脑的数字处理运算的优势，对校验数据进行采集 智能修正 运算等，最后得出校验误差等结果并打印出校验单，省去人工计算 填表等麻烦。本温湿度测试分析系统设计，要求高精度的温湿度测试计通过rs 232串口与上位机电脑相连，...
VB课程设计
课程设计报告。课程设计题目 个性化多 器 学生姓名 李汉忠。专业 软件工程 电子商务 班级 10211123 学号 1021112336 指导教师 赵玉芹。2011年 5月 30 日。目录。第一章算法分析页码 第二章工作日志。第三章关键实现技术。第四章设计小结 一 算法分析。1.目录选择对话框 根据...