古诗欣赏系统Word下载.docx
- 文档编号:4832527
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:11
- 大小:548.20KB
古诗欣赏系统Word下载.docx
《古诗欣赏系统Word下载.docx》由会员分享,可在线阅读,更多相关《古诗欣赏系统Word下载.docx(11页珍藏版)》请在冰点文库上搜索。
94030101
学号:
2009040301017题目:
一、课程设计时间
2011年3月7日~11日(第1周),共计1周。
二、课程设计内容
能够对指定文件夹中的古诗文件(文本文件,不少于10个)按照顺序一一欣赏,最后一首诗的下一首是第一首诗,第一首诗的前一首是最后一首诗。
用户界面中的菜单(或命令按钮)至少应包括“定位文件夹”、“上一首诗”、“下一首诗”、“退出”4项。
提示:
可使用DriveListBox、DirListBox和FileListBox控件。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;
可以增加其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课设结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析5
关键技术8
总结14
完整的源程序15
参考文献19
需求分析
古诗欣赏系统功能,主要能够对指定文件夹中的古诗文件(文本文件,不少于10个)按照顺序一一欣赏,最后一首诗的下一首是第一首诗,第一首诗的前一首是最后一首诗。
主要要求:
①在用户运行界面上设置DriveListBox、DirListBox和FileListBox这三种控件,以便定位文件夹。
②能够显示指定古诗文本文件。
③能够随时实现“上一首诗”,“下一首诗”。
④能够随时实现合理的“退出”选项。
设计分析
(1)基本原理:
建DriveListBox、DirListBox和FileListBox控件及Textbox控件的链接,使它们能够同步运行。
(2)总体设计:
(3)详细设计:
(4)定位文件夹设计:
定位文件夹是总体设计阶段非常重要的环节,它决定着图片的载入来源,它需要把DriveListBox、DirListBox和FileListBox及picturebox控件很好地连接起来,使它们同步,从而实现图片的“上一张图片”,“下一张图片”的顺利浏览。
以至于达到浏览的目的。
窗体
关键技术
1建立DriveListBox、DirListBox和FileListBox及Textbox控件的同步并显示图片:
PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
PrivateSubFile1_Click()
DimiAsString,tfilenumberAsInteger,tloadAsString,ttextAsString
i=Replace(File1.Path&
"
\"
&
File1.FileName,"
"
)
tfilenumber=FreeFile
OpeniForInputAs#tfilenumber
DoWhileNotEOF(tfilenumber)
LineInput#tfilenumber,tload
ttext=ttext&
tload&
vbCrLf
DoEvents
Loop
Close#tfilenumber
Text1.Text=ttext
2实现上一首诗
PrivateSubCommand1_Click()'
实现上一首诗
a=Val(File1.ListIndex)-1
Ifa<
0Then
File1.ListIndex=9
Else
File1.ListIndex=File1.ListIndex-1
EndIf
OpenFile1.Path&
File1.FileNameForInputAs#1
Text1="
"
DoUntilEOF
(1)
LineInput#1,a
Text1=Text1&
a&
Close#1
3实现下一首诗
PrivateSubCommand2_Click()'
实现下一首诗
a=Val(File1.ListIndex)+1
Ifa>
9Then
File1.ListIndex=0
File1.ListIndex=File1.ListIndex+1
4退出选项
PrivateSubCommand3_Click()
uend=MsgBox("
您确定要退出吗?
vbYesNo+vbQuestion,"
离开程序"
)'
出现离开提示窗口
Ifuend=vbYesThen
End
总结
这次课设我的题目是古诗欣赏系统,这次课设,我清楚如何将FileListBox中的文本文件在Textbox中打开,其次学会了应用DriveListBox、DirListBox和FileListBox这几个控件进行定位文件夹,从而达到浏览文件夹文本文件的目的。
在一周的时间里,我遇到了不少的困难,比如,如何实现浏览文件过程中从最后一首跳到第一首,通过查阅资料,我清除了所遇到的障碍,并顺利完成课设。
VB程序设计是一种功能强大,容易掌握的计算机技术,在社会各个方面都占着重要地位。
作为社会年轻群体的一分子,掌握包括VB程序设计在内的计算机技术是必要的,所以,不管遇到多么难的任务,我都会坚持不懈!
完整的源程序
PrivateSubText1_Change()
参考文献
[1]刘炳文杨明福陈定中《VisualBasic程序设计教程》北京高等教育出版社
[2]王凤林《VisualBasic程序设计全程指南》北京电子工业出版社
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 古诗 欣赏 系统