软件开发环境试验指导书Word格式.docx

1、文件的格式可以是MP3或WAV。章节文本库是XXX课件各章节的文本文件集合。文件的格式是DOC。2课件生成器设计课件生成器设计是课件产品线的核心。课件生成器通过组装基本配置文件、背景图片文件、背景音乐文件和课件播放器，以实现XXX课件的自动生成。1）课件生成器的功能课件生成器包括以下功能（见图16-2）。 （1）在桌面创建“XXX课件”目录。将配置文件库中的3个文件：configtxt、pictxt和musictxt，复制至“XXX课件基本配置文件目录”。 （2）接受课件的名称和章数，并将其存人configtxt中。 （3）利用“浏览”控件，依次从背景图片库中挑选课件播放器需要的背景图像文件，

2、并将其存入“XXX课件背景图片文件目录”。然后分别将其文件名字改为：1jpg，2jpg，。接着，将pictxt文件的内容进行如下修改：XXX课件背景图片目录1.jpgXXX课件背景图片目录2.jpg （4）利用“浏览”控件，依次从背景音乐库中挑选课件播放器需要的背景音乐文件，并将其存入“XXX课件背景音乐文件目录”。1mp3，2mp3，。接着，将musictxt文件的内容进行如下修改：XXX课件背景音乐目录1mp3XXX课件背景音乐目录2mp3 （5）利用“浏览”控件，依次从XXX课件章节库中挑选课件播放器需要的每章的word文件，并将其存入“XXX课件章节文本目录”。1doc，2doc，。接

3、着，将filetxt文件的内容进行如下修改：XXX课件章节文本目录1docXXX课件章节文本目录2doc （6）单击“完成”控件，将课件播放器从课件播放器库复制至“XXX课件”，并将课件播放器改名为XXX课件exe。 2）课件生成器界面设计 图16-2为课件生成器界面设计。3. 配置文件库 1）配置文件库基本配置文件，格式为txt，文件第一行为课件名称，第二行为章数。背景图片路径文件，格式为txt，文件的每一行为背景图片的路径，第一行为播放器的背景图片。背景音乐路径文件，格式为txt，文件的每一行为背景音乐的路径，第一行为播放器的背景音乐。章节文本路径文件，格式为txt，文件第一行为第一章，第

4、二行为第二章，第三行为第三章，以此类推。2）配置文件结构基本配置文件configtxt的结构： xxx-课件名称 N-课件章数背景图片路径文件pictxt的结构： 课件名背景图片目录1.jpg 课件名背景图片目录2.jpg 背景音乐路径文件musictxt的结构： 课件名背景音乐目录1mp3 课件名背景音乐目录2mp3 章节文本路径文件filetxt的结构： XXX课件章节文本目录1doc XXX课件章节文本目录2Doc4课件播放器界面设计1）课件播放器的功能 课件播放器包括以下功能（见图16-3）。（1）默认时，显示1jpg背景图片。“设置背景图片”控件可以更换背景图片。（2）默认时，播放1

5、mp3背景音乐。“设置背景音乐”控件可以更换背景音乐。（3）中间为显示各章节doc区。（4）“第一章”、“第二章”和“第三章”为切换调入各章节doc文件的控件。（5）“”和“”为上下翻页控件。Exit为“退出”控件。 2）课件播放器界面设计 图16-3为课件播放器界面设计。5. XXX课件 XXX课件生成后，被放置在计算机桌面上XXX课件目录中。课件子目录（其中包括播放器执行文件，二级目录），其中二级目录包括基本配置文件、背景图片文件目录、背景音乐文件目录、章节文件目录（第一章的文件名定义为1doc，第二章的文件名定义为2doc，依此类推）。该目录的名称为课件的名称，播放器的名称也为课件的名称

6、。其目录和子目录见下面的结构：XXX课件XXX课件exe（放置在该目录下的XXX课件播放器执行文件）基本配置目录（包括configtxt、pictxt、musictxt三个文件）背景图片目录（包括1jpg，2jpg，它们是背景图片文件）背景音乐目录（包括1mp3，2mp3，它们是背景音乐文件）章节文本目录（包括1doc，2doc，它们是课件的章节内容）3 课件生成器实现步骤1新建应用程序窗体 打开VS 2010，新建一个VB windows应用程序窗体，命名为课件生成器，如图16-4和图16-5所示。 单击“确定”按钮，我们便新建了一个windows应用程序项目。2新建项目窗体 在刚刚新建的项

7、目窗体Form1上添加6个标签（Lable）、5个文本框（TextBox）、9个按钮（Button），如图16-6所示。3设置属性 在属性窗口处为Forml及各按钮、标签、文本框改名并改Text值，如图16-7所示。 PS：外观设置都在属性栏设置，读者可选择自己喜欢的背景、颜色、图片、Icon图标等。4功能要求 至此，已经基本完成了课件生成器的外观的设置，下面我们要考虑它的功能实现了。当单击“浏览”按钮时，会自动弹出一个对话框，以便选择课件的素材，如图片、音乐、Word文档等。当选择好素材后，将选择的素材的路径返回到对应的文本框中去，当单击“确定”按钮时，程序自动将选择的素材路径复制到事先准备

8、好的txt文本中去。当选择错误时，单击“重置”按钮能将对话框中的textbox中的值全部清空。当单击“确定”按钮后才发现选择错误时，考虑到这是程序已经自动将该素材的路径保存到了txt中，这时我们要重新清空txt中的数据，“重新生成数据”就是用来实现这一功能的。当单击“完成”按钮，表示素材已经全部选择完毕，那么这时要生成目标文件了。在这里，目标文件是一个包含各种素材的文件夹。目标文件的具体内容请参考前面的“实验内容要求及成品展示”部分。 5实现“浏览”按钮功能首先，为窗体添加一个OpenFileDialog控件，如图16-8所示。然后在窗体中双击第一个“浏览”按钮，添加如下代码：OpenFile

9、Dialog1.InitialDirectory =c:OpenFileDialog1.Filter=images files（*jpg）|*Jpg|All files（*）|*OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory=TrueIf OpenFileDialog1.ShowDialog（）=Windows.Forms.DialogResult.OK Then TextBox3.Text=OpenFileDialog1.FileNameEnd If如图16-9所示。那么我们就实现了“浏览”按钮的功能，读者可以尝

10、试运行（单击工具栏上的“运行”按钮）。所有“浏览”按钮的功能都是一样的，只是路径保存到的textbox不一样。为所有“浏览”按钮添加上述代码，改变OpenFileDial091Filter中的代码（如背景音乐为“mp3”，课件章节为“doc”）和保存的路径（即TextBox3TextOpenFileDialog1.FileName中的TextBox文本框名，这里分别是TextBox4和TextBox5）。6实现“确定”按钮功能先在Public Class Forml类前添加Imports systemio，导人systemio。接着双击“确定”按钮，添加下面的代码：Dim f As Strea

11、mWriter=New StreamWriter（”pictxt”，True）Dim str=MeTextBox3Text TextBox3是背景图片的对话框fWriteLine（str，SystemTextEncodingUTF8）fClose（）如图16-10所示。最后，别忘了在本程序的debug文件夹上创建一个txt文档，命名为pic.txt，如图16-11所示。至此，又实现了“确定”按钮的功能，读者也可以尝试运行（单击工具栏上的“运行”按钮），先单击“浏览”选择素材，再单击“确定”按钮将其路径保存到txt中。所有“确定”按钮的功能都是一样的，只是路径保存到的textbox不一样。为所有

12、的“确定”按钮添加上述代码（注意改变素材保存的路径，即Dim f As StreamWriter=New StreamWriter（pictxt，True）中双引号之间的文件名，同时在Debug文件夹下创建相对应的txt文档）。7实现“重置”按钮功能重置功能比较简单，只需将所有文本框中的内容清空即可。双击该按钮，添加如下代码：MeTextBoxlText=MeTextBox2Text=MeTextBox3Text=MeTextBox4Text=MeTextBox5Text=8实现“重新生成数据”按钮功能这个功能比“重置”按钮稍微复杂一点，因为要打开txt文档。这里采用一种比较简便的方法直接写空

13、。Dim swl As StreamWriter=New StreamWriter（） swlWrite（ swlFlush（） swlClose（）Dim sw2 As StreamWriter=New StreamWriter（musictxt sw2Write（ sw2Flush（） sw2Close（）Dim sw3 As StreamWriter=New StreamWriter（contenttxt sw3Write（ sw3Flush（） sw3Close（）Dim sw4 As StreamWriter=New StreamWriter（configtxt sw4Write（

14、sw4Flush（） sw4Close（）9实现“完成”按钮功能这个按钮是生成器中最为复杂的，因为它要实现的功能最多。它必须创建一个目标文件夹（以用户输入的课件名称命名），用以存放生成的各种资料。XXX课件目录的结构：XXX课件（该目录下放XXX课件的执行文件） 基本配置文件（包括configtxt、pictxt、musictxt三个文件） 背景图片文件（包括1jpg，2jpg，它们是背景图片文件） 背景音乐文件（包括1mp3，2mp3，它们是背景音乐文件） 章节文件（包括1doc，2doc，它们是课件的章节内容）全部代码如下（双击“完成”按钮，添加如下代码）：Dim f As StreamW

15、riter=New StreamWriter（config.txt，True）Dim strl=MeTextBoxlTextDim str2=MeTextBox2TextfWriteLine（strl，SystemTextEncodingUTF8）fWriteLine（str2，SystemTextEncodingUTF8） If MeTextBoxlText= Then MsgBox（请输入课件名称! ElseIf MeTextBox2Text=请输入课件章节数! Else myname=MeTextBoxlText DirectoryCreateDirectory（strl） Direct

16、oryCreateDirectory（strl & 基本配置文件背景图片文件背景音乐文件DirectoryCreateDirectory（strl &章节文件） 下面复制指定文件复制图片路径文件及图片 Dim numl As Integer num1=1 Dim sr1 As StreamReader=New StreamReader（，SystemTextEncodingUTF8）Dim fileline1 As String=Do fileline1=sr1ReadLine If fileline1 FileSystemFileCopy（fileline1，str1 &背景图片文件 & n

17、uml &jpg FileCopy（fileline1，e： End If numl=num1+1 Loop While fileline1 判断语句不能用srlReadLine，绝对不能! 复制音乐路径文件及音乐 Dim num2 As Integer num2=1 Dim fileline2 As String Dim sr2 As StreamReader=New StreamReader（ Do fileline2=sr2ReadLinereadline是从开始起一行一行读下来，不是每次都读同一行 If fileline2 FileSystemFileCopy（fileline2，st

18、rl &背景音乐文件 num2 &mp3num2=num2+1 Loop While fileline2判断语句不能用srlReadLine 复制章节路径图片及章节文件 Dim num3 As Integer num3=1 Dim fileline3 As String Dim sr3 As StreamReader=New StreamReader（ fileline3=sr3ReadLine MsgBox（fileline3） If fileline3 FileSystemFileCopy（fileline3，strl &章节文件 num3 &doc num3=num3+1 Loop Wh

19、ile fileline3 复制基本配置文件 FileSystemFileCopy（，strl &基本配置文件configtxt基本配置文件pictxt基本配置文件musictxt基本配置文件contenttxt10成品视图成品视图如图16-12所示。至此，课件生成器的功能就基本实现了，但是作为软件，它还远没有全部完成。例如窗体最大化的设置、直接用鼠标改变窗体大小的设置、外观背景的设置等。这些，读者可根据自己需要在Forml的load事件和resize事件中编写。另外，还没有把播放器放进目标文件夹中去。4 课件播放器实现步骤有了制作生成器的经验，相信大家应该对VS 2010有更深入的了解了。下

20、面分析一下更为复杂一些的课件播放器。播放器里面有如下元素。（1）章节按钮：与生成器的按钮功能不同的是，它是动态生成的，即根据configtxt中第二行（即生成器中输入的课件章节数）是多少，就生成多少个按钮。（2）F1系统帮助按钮：单击这一按钮弹出一个新的对话框，上面写上本软件的用法。（3）Word浏览区：这其实是一个AxwebBrowser控件，可以浏览网页和Word文档。（4）背景图片按钮：这一按钮的功能和生成器中实现方法基本一致，用以选择播放器的背景，图片为生成器中选择的图片，保存在生成器生成的目标文件夹中。（5）背景音乐按钮：其实现方法与“背景图片”按钮原理相同，只是它在播放音乐时调用了

21、Windows的Media Player控件。（6）End按钮：使整个程序结束运行。1创建应用程序窗体首先，在VS 2010中新建一个VB windows应用程序窗体，命名为课件播放器。将窗体设计成如图16-13所示。改变各控件中的text值，如图1614所示。注意：其中中间的Word显示区为AxwebBrowser控件，底部的播放器为Windows Media Player 控件。这两个控件直接在工具栏中找不到。需要在COM组件中添加到工具箱中去。具体方法如下：在菜单栏选择“工具”“选择工具箱项”命令。在弹出的对话框中的COM组件中找到这两个控件，选择它们并单击“确定”按钮，即可把这两个控件

22、添加到工具箱中去，如图16-15所示。此外，读者还要添加Openfiledialog控件，具体方法见课件生成器步骤。2播放器功能实现下面来讨论播放器中各元素的功能实现方法。考虑到通过生成器的学习，大家已经对VBnet已经比较了解了，下面就不分步介绍，而是直接介绍整体的实现方法。双击课件播放器的窗体设计面板，播放器的整体代码如下：Imports System.ioPublic Class frm Dim mypath As String实现动态章节按钮功能： Private Sub Form1_Load（ByVal sender As SystemObject，ByVal e As System

23、EventArgs）HandlesMyBaseLoad MeAxWindowsMediaPlayer1Visible=False使音乐播放不可见，读者也可直接在属性栏中设置 mypath=DirectoryGetCurrentDirectory（） Dim sr As StreamReader=New StreamReader（mypath &，SystemTextEncodingUTF8） Dim fileline As String 读取configtxt中的章节数 fileline= fileline=srReadLine Dim i，buttonstart As Integer i=1

24、 buttonstart=12+75 While ifileline Dim newbutton As Button=New Button 开始动态生成按钮 newbuttonName=i+1 newbuttonText=第 （i+1） &章 MeControlsAdd（newbutton） buttonstart=buttonstart+5 newbuttonLocation=New SystemDrawingPoint（buttonstart,12）摆放生成的按钮 buttonstart=buttonstart + 75 AddHandler newbutton.Click，AddressOf Button_Click 调用按钮单击事件 i=i+1 End While End SubPrivate Sub Button_Click（ByVal sender As SystemObject，ByVal e As SystemEventArgs） 响应按钮单击事件 Dim btn As Button=sender Dim i As String i=btnName AxWebBrowser1Navi