【www.arisingsemi.com--实用文档】

关于电的诗歌
VB课程设计实验报告
诗词欣赏电子书
指导教师: 童怀水老师         
专    业: 计算机信息管理专业   
姓    名: 陶鹏鹏                   
学    号: 201140130241       

一,程序介绍..........................................................................................1
二,设计要求..........................................................................................1
三,难点提示..........................................................................................2
四,具体设计内容..................................................................................4
五,具体代码程序及注释......................................................................5
六,程序的调试和要困难的解决方法..................................................7
七,经验心得..........................................................................................7
八,参考文献..........................................................................................8

一,程序介绍:
本题目要求编写一个“电子书”应用程序,该程序可以打开已有的文件,显示文件中保存的诗词内容,以一种方便的形式供用户阅读。

二,设计要求:


(1) 设计类似于所示的程序界面。程序启动后,“目录”、“内容”、和“注释与题解”中均为空(不显示任何内容)。单击“打开”按钮,显示如图所示的“打开”对话框,此对话框只显示扩展名为“.cnt”的目录文件名。从“打开”对话框中选择一个目录文件(如“毛泽东诗词.cnt”),单击“打开”后,程序打开此目录文件和与其同名但扩展名为“.text”的正文文件,显示电子书的目录与内容。



(2) 打开诗词文件之后(如图),“目录”列表中显示诗词的目录,点击其中一条,则“内容”框和“注释与题解”框中分别显示此诗词的正文和注释与题解等内容。



(3) 单击按钮和,程序自动显示目录中前一首或后一首诗词的内容。


(4) 打开新的文件后,旧的文件自动关闭。


三,难点提示:


(1) 本题提供了“毛泽东诗词”、“李白诗”和“杜甫诗”等3个电子书文件供读者调试程序使用。也可以按规定格式自制诗词文件由本程序显示。



(2) 一个电子书由两个文件保存,住文件名相同,扩展名分别为“.cnt”和“.text”。例如毛泽东诗词是由“毛泽东诗词.cnt”和“毛泽东诗词.text”共同定义的,二者均为文本文件。
前者为目录文件,其中每一行是诗词的题目(如图所示)。后者为正文文件,保存诗词的正文和注释与题解等内容。同一个电子书的目录文件和正文文件的内容和顺序应相互对应。



(3) 正文文件中保存了一组诗词的详细信息。如图所示,存储格式为:
*
正文1
*
正文1的注释、题解、点评等内容
*正文2
*
正文2的注释、题解、点评等内容
*
……
*
正文n
*
正文n的注释、题解、点评等内容
可见,正文文件中,每首诗词总是有一个星号“*”引导,诗词的正文和注释、题解等内容之间也由一个星号“*”隔开。如果一个电子书中有n首诗词,则其中会有2*n个星号“*”。所以,正确地判断星号的位置是正确显示诗词内容的关键。


(4) 本题应使用“公共对话框”控件(Microsoft  Common  Dialog  Control )来显示


(5) 如图所示的“打开”对话框。
此控件的用法,请参阅有关ActiveX控件使用的书籍。


正文文件的保存格式
四,具体设计内容:
1,程序用到的主要控件:
窗体(form)、文本框两个(textbox)、框架三个(frame)、列表框一个(listbox)、命令按钮三个(commandbutton)
2,程序用到的主要控件属性,过程:


(1),窗体设置:Caption属性命名为:“诗词欣赏”;Icon(图标属性)设置图标为:“”。


(2),列表框的应用:用以显示打开的诗词名,其中style属性设为“0”


(3),文本框的应用:用以显示与“*.cnt”相对应的“*.txt”文件,
其中multiline属性设为“true”, scrollbars属性设为“2”,Text属性为:“空”


(4),Open命令按钮:Style设为“1”,Picture设为“”;
Up命令按钮:Style设为“1”,Picture设为“”;
Down命令按钮:Style设为“1”,Picture设为“”。
截图如下:



(6) ,框架分别命名为:“目录”,“内容”,“注释与题解”。

截图如下:   
整体界面截图如下:
五,具体程序代码及注释如下:
1,Public strName As String     "公共变量strName用于记录文件路径
2,Private Sub CommondUp_Click()
If = " Then Exit Sub  "若为空字符则退出
= "            "将两文本框设为空字符
= "
dex = dex - 1            "选种条目号减一
If dex < 0 Then dex = unt - 1 
"条目处于第一个时循坏到最后一个
End Sub
3,Private Sub CommondDown_Click()
Dim int1 As Integer      "中间变量
= "          "将两文本框设为空字符
= "
If = " Then Exit Sub      "若为空字符则退出
int1 = dex    "赋值
int1 = int1 + 1          "变量加一
If int1 > unt - 1 Then int1 = 0   
"条目处于最后一个时循坏到第一个
dex = int1    "再赋值给dex激发List1_Click事件
End Sub
4,Private Sub CmdOpen_Click()
Dim strL As String        "用于读取目录
= "目录文件(*.cnt)|*.cnt"    "设定文件类型
en    "显示对话框
If me = " Then Exit Sub    "若按取消键则退出
          "列表框清空
= "      "将两文本框设为空字符。

本文来源:http://www.arisingsemi.com/wendangdaquan/130859/