排序演示vb课程设计论文

排序演示vb课程设计论文

ID:16285861

大小:270.50 KB

页数:23页

时间:2018-08-08

排序演示vb课程设计论文_第1页
排序演示vb课程设计论文_第2页
排序演示vb课程设计论文_第3页
排序演示vb课程设计论文_第4页
排序演示vb课程设计论文_第5页
资源描述:

《排序演示vb课程设计论文》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库

1、成绩南京工程学院课程设计报告(论文)题目排序演示课程名称程序设计基础---VB院(系、部、中心)先进制造技术工程中心专业机械制造及其自动化班级D机加工091学生姓名钱丽学号231090406设计地点图书馆A307指导教师黄陈蓉设计起止时间:2011年1月4日至2011年1月6日23目录一、设计任务···················3二、总体设计思路···············4三、画出程序总体框图···········4四、系统的调试··············6五、收获体会···················8六、源代码·····················

2、9七、主要参考资料···············2323一、设计任务(1)程序启动后,显示主界面。首先单击“产生10个随机数”按钮来产生10个随机数,并显示在10个文本框中;然后选择一种“演示模式”和“排序方式”,其中演示模式可以直接给出排序结果,也可以通过动画动态演示整个排序过程,排序方式可以按从小到大顺序,也可以按从大到小顺序排序。(2)在主窗口的空白区单击鼠标右键,弹出快捷菜单。从中选择“排序算法”命令,打开对话框,从中选择一种排序方式,单击不同排序方式时,“算法描述”中简要介绍了这种算法。单击“确定”按钮返回到主窗口,主窗口中最上方框架控件的标题文字显示当前所选的

3、排序算法。(3)设置完毕,单击“开始排序”按钮(此按钮在生成数据之前是不可用的),启动排序过程。若选择了动画方式,红色背景的文本框表示当前正在比较的元素,黄色的代表已排序的元素,2个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条的位置来控制演示过程的速度。排序结束后程序以消息框的形式报告数据交换的次数。可以使用快捷菜单中的“将数据写入文件”命令将排序后的数据保存到“data.txt”中覆盖原有内容。(4)选择窗口主菜单中的“颜色设置”命令,主窗口扩大,底部显示“颜色设置”框架,可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择

4、此命令,窗口恢复到原来的大小。23(1)选择主菜单中的“退出”命令可退出本程序,程序显示消息对话框予以确认。二、系统总体设计方案排序方法多重窗体窗体编辑器设计界面排序演示模块代码信息提示框编写代码三、画出程序整体框图1.快捷菜单232.启动后的主界面3.确认退出对话框4.颜色设置235.显示交换次数6.“排序算法选择”对话框二、系统的调试1、问题:停止按钮不能使其在开始运行时候停止。解决:利用了Boolean(逻辑变量)定义了一个使程序停止的变量f,然后又定义了一个PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecond

5、sAsLong),声明sleep函数,可以使程序暂停一段时间,最后用时钟(timer)来设定所需暂停的随机时间(s)。注意timer函数设置时的interval值,以毫秒为单位,1000ms=1s。2、23问题:消息对话框(msgbox)的形式,及msgbox函数的返回值如何的选取,设置。解决:在对“停止”按钮编码时,一开始未给msgbox赋值,导致程序不起作用,后来赋值后,采用了msgbox函数里的vbyes与vbno,采用了if...then...else...但程序无法退出,最后只对vbno做了代码编制,退出程序则采用了“unload”函数,最后程序终于调试成功。1

6、、问题:动态演示如何演变,交换次数无法得到。解决:采用timer函数,以时间来对它进行控制,也可以拖得滚动条来控制它动态演示时的速度。演示代码:Ifa(k)>a(j)AndOption1.ValueThenText1(k-1).BackColor=yanse1'''''''''''''''交换元素颜色Text1(j-1).BackColor=yanse1DoEventsCallSleep(1000)调用了函数sleeplinshi=a(j)a(j)=a(k)a(k)=linshijiaohuan=jiaohuan+1Text1(k-1).Text=a(k)Text1(j-

7、1).Text=a(j)Text1(k-1).BackColor=yanse'''''''''''''已经排序的颜色Text1(j-1).BackColor=yanseEndIfIfa(k)

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。