环境信息系统实验指导书.docx

1、环境信息系统实验指导书环境信息系统实验指导书地理信息系统实验室编绵阳师范学院资源环境工程学院年 月 日 实验一 VB语言开发环境和简单程序设计一、实验目的1熟练掌握VB的启动和关闭。2了解VB程序的集成环境。3掌握运行一个VB程序的步骤。4掌握VB程序的开发过程。5.学会使用帮助二、实验准备1. 局域网多媒体微机实验室；2. vb6.0 软件三、实验要求（1）正确理解面向对象的各种概念；（2）按实验内容进行实验，理解基本的程序设计过程（3）选择“自行设计练习：”中的题进行编程设计，书写实验报告。实验类型：验证性 实验学时：2学时四、实验内容与步骤（一）相关知识1VisualBasic60的启动

2、与退出 VisualBasic60的启动与退出与一般的Windows应用程序的启动与退出一样，可以通过“开始”菜单启动VisualBasic60，也可以将VisualBasic60程序以快捷方式放在桌面上，然后双击该图标将其启动；退出可以在“文件”中选择“退出”、或双击窗口控制菜单图标、或单击窗口关闭按钮。2VisualBasic60的集成开发环境 VB60的集成开发环境在一个公共环境中集成了设计、编辑、编译和调试等许多不同的功能，它由菜单、工具栏、工具箱、浏览器及完成各种特定功能的窗口组成。3VB应用程序的开发过程 VB采用的是一种“可视化”的编程方法，可以先设计应用程序的外观，然后再编写不

3、同部件的程序代码。4VB中对象的概念 对象是基本的运行时的实体，它既包括了数据(对象属性)，也包括作用于对象的操作(方法)和对象的响应(事件)。对象的属性用来表示对象的状态，对象的方法决定了对象可以进行的操作。不同的对象具有不同的属性和方法，VB中最主要的两种对象是窗体和控件，程序设计中，基本的设计机制就是改变对象的属性、使用对象的方法和为对象编写事件过程。5VB60的帮助功能VB60是VisualStudi060的套件之一，VB60本身并不带帮助，微软公司为VisualStudio60提供了一套MSDN Library帮助系统。MSDN(Microsoft Developer Network

4、)是使用Microsoft开发工具或是以Windows或Internet为开发平台的开发人员的基本参考，它是一本集程序设计指南、用户使用手册以及库函数于一体的电子词典，使用MSDN Library的帮助功能，不仅可以引导初学者入门，还可帮助各种层次的用户完成应用程序的设计。（二）实验举例(实例1) VB的启动与退出。(1)启动VB60通过“开始”菜单启动VisualBasic60，操作步骤为：1 单击Windows桌面任务栏的“开始”按钮，弹出“开始”菜单，将鼠标指针指向“程序”选项，在“程序”项的级联菜单中选中“MicrosoftVisualBasic60中文版”，然后在其打开的下级级联菜单

5、中将光标条定位在“MicrosoftVisualBasic60中文版”命令上。2 单击鼠标左键，屏幕出现如图1-1所示的VisualBasic60启动画面。 要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项(默认)，然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境。图1-1 启动VB6.0(2)退出VB 在图1-2所示的VisualBasic 60应用程序集成开发环境窗口中，从“文件”菜单中选择“退出”命令、或双击窗口控制菜单图标、或单击窗口关闭按钮均可退出VisualBasic 60。在退出时，系统可能会提示用户保存工程文件和窗体文件，有关保存文件的操

6、作在实例3中进行详细说明。 (实例2) 进入VB集成开发环境。1VB的三种工作模式(1) 设计模式：启动VB，选择新建一个新的工程，进入如图1-2所示的VisualBasic60集成环境。此时，标题栏中的标题为“工程1MicrosoftVisualBasic设计”，表明集成开发环境处于设计模式。(2)运行模式：用鼠标单击工具栏中的“”按钮(启动)，或在“运行”菜单中选择“启动”命令，此时，标题栏中的标题为“工程1-Microsoft Visual Basic运行，表明集成开发环境处于运行模式。(3)中断模式：在“运行”菜单中选择“中断”命令，或按(Ctrl+Break)键，此时，标题栏中的标题

7、为“工程1-Microsoft Visual Basicbreak”，表明集成开发环境处于中断模式。2VB集成开发环境中的各种窗口（如1-2所示）(1)窗体窗口(2) 属性窗口(3) 工程资源管理器窗口(4) 代码窗口(5) 工具箱3打开VB集成开发环境中的工具栏(1)在“视图”菜单中选择“工具栏”，在它的级联菜单中列出VB提供的工具栏及当前工具栏的状态。(2)选择“编辑”命令，打开编辑工具栏。(3)选择“窗体编辑器”命令，打开窗体编辑器工具栏。(4)选择“调试”命令，打开调试工具栏。(实例3) 建立一个简单的VB应用程序 首先建立一个自己的文件夹，以便将练习中生成的各种文件保存在该文件夹中，

8、这里在E盘建立一个VBSY文件夹。1建立一个新的工程 启动VB 60，选择新建一个新的工程，此时进入到VB60集成开发环境，屏幕上出现一个默认的“Forml”窗体。2设置窗体属性 选中窗体窗口中的窗体，在属性窗口中选中(名称)属性，将其属性值改为“Frmexp”；再选中Caption属性，然后在右边列中输入“窗体”，此时窗体的标题栏变为“窗体”，窗体窗口的标题栏为“工程1Frmexp (Form)”。3在窗体上绘制控件（1）用鼠标单击工具箱中的标有“A”的按钮（标签），在窗体的合适位置画出一个矩形区域，在窗体上出现一个标签控件，用鼠标选中该控件，然后在属性窗口中将其(名称)属性设为“LblDi

9、sp”；Caption属性设为“VB集成开发环境”。（2）用鼠标单击工具箱中的命令按钮，在窗体的合适位置画出一个命令按钮，用鼠标选中该命令按钮，然后在属性窗口中将其(名称)属性设为“cmdDisp”；Caption属性设为“显示”。(3) 在窗体中再添加一个命令按钮，然后将其(名称)属性设为“cmdClear；Caption属性设为“清除”。窗体如图1-3所示。图1-3窗体设计画面 图1-4 代码窗口4编写程序代码 (1)双击“显示”按钮，打开代码窗口，如图1-4 所示，然后输入如下代码：Private Sub cmdDisp_CliCk() LblDiSpViSible = TrueEnd

10、Sub (2)在代码窗口的对象列表框中选择对象“cmdClear”；在过程列表框中选择事件Click(如图1-4)，然后输入如下代码： Private Sub cmdClear_Click() LblDispVisible = False End Sub5运行程序关闭代码窗口，用鼠标单击工具栏中启动按钮。此时，程序开始运行，并出现图1-5画面，单击“清除”按钮，窗口上的文字消失；单击“显示”按钮，又使文字显示出来。 图1-5 运行程序窗口6保存文件 在选择“文件”“保存工程”菜单命令，或单击工具栏中的“保存工程”按钮。由于是第一次保存文件，因此在弹出的文件另存为对话框中提示保存窗体文件，将窗体

11、文件保存在E盘的VBSY文件夹下并起名为Vbsy1_1frm，此时，系统会继续提示保存工程文件，将工程文件也保存在E盘的VBSY文件夹下并起名为Vbsyl_1vbp。7生成可执行文件选择“文件”“生成Vbsyl_1exe”菜单命令，弹出“生成工程”对话框，此时可执行文件名已默认为Vblsy_1exe，如图1-6所示。在该对话框中单击“选项”按钮，打开“工程属性”对话框，如图1-7所示，在该对话框中可以设置版本号、版本信息、编译选项等。最后单击“确定”按钮进行编译。图1-6 “生成工程”对话框 图1-7 “工程属性”对话框8运行可执行文件 在E盘的VBSY文件夹下双击Vbsyl1exe文件，运行

12、该可执行文件。启动该程序后的窗口如图1-5所示。 (实例4)使用VB的帮助。 选择“帮助”“内容”菜单命令，弹出“MSDN library Visual Studi060”窗口。1利用目录浏览主题 选择“目录”标签，在左侧主题窗口中依次单击“sual Bask文档”“使用sualBaSic”“程序员指南”“SualBaSiC基础”“窗体、控件和菜单”，最后选择“设计窗体”主题，此时右侧窗口中显示出相应内容。2利用索引查找信息 选择“索引”标签，在“键入要查找的关键字”输入框中输入“SelectCase”，此时光标定位在索引项的列表的“SelectCase块”项目上，单击“显示”按钮，右侧窗口中

13、即显示出相应内容。简单程序设计1建立一个简单的应用程序，其窗体界面如下，单击窗体，则在窗体上显示“欢迎使用Visual Basic！”，反复练习建立一个Visual Basic应用程序的步骤。自行设计练习：（1）建立一简单用户登录界面，并在其上分别放置Label、Text、Command控件，更改其相应属性；（2）建一简单窗体，其上有一Command控件，并实现当点击此控件时，其Caption属性为1+2+3+99+100的和值。实验二 VB中窗体和基本控件应用一、实验目的(1)掌握VB60窗体的常用属性、常用事件和重要方法。(2)掌握在Visual Basic60窗体上生成控件的方法。(3)

14、掌握设置启动窗体的方法。(4)了解窗体的生命周期。(5)掌握标签、命令按钮、文本框的常用属性、重要事件和基本方法。(6)熟练掌握在窗体上创建上述控件的操作方法。二、实验准备1 局域网多媒体微机实验室；2 vb6.0 软件三、实验要求写出实验报告。四、实验内容与步骤（一）基础知识1、窗体是VB中的对象，具有自己的属性、事件和方法。 属性：窗体的属性决定了窗体的外观和操作。窗体属性既可以在程序设计时在“属性”窗口中手工设置，也可以在程序运行时由代码来实现。 常用事件：窗体常用的事件有Load、Click、DblClick、Activate和Deactivate等。其中Load事件是当窗体被装入工作

15、区时触发的事件，常用来在启动应用程序时对属性和变量进行初始化。Activate是当一个窗体成为活动窗口时所触发的事件，Deactivate是当另一个窗体或应用程序被激活时，当前窗体所发生的事件。 常用方法：窗体的方法很多，其中许多方法都调用文本和图形，用于直接在窗体表面上输出、写或画，如：Print、Circle等。还有一些方法对窗体的行为产生影响，如Show方法使个窗体可见；Hide方法用于隐藏一个窗体。2、在窗体上添加控件窗体是设计VB应用程序的一个基本平台，几乎所有的控件都是添加在窗体上的。对于生成的控件，可以调整控件大小、移动控件位置、使用网格精确定位控件；对于多个控件，还可以对它们进

16、行排列、调整大小等操作。另外，在VB中还允许可视地创建和编辑控件数组，这对于编组使用选择框、命令按钮等控件提供了很大方便。3、设置启动窗体在默认情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来。如果想在应用程序启动时显示别的窗体，可以将其他窗体设置为启动窗体。4、窗体的生命周期VB窗体在整个存活期中有4种状态，即创建状态、加载状态、可见状态和卸载状态。一些程序运行所必须的初始化操作和退出前的善后工作(例如退出应用程序前提示存盘)，往往要在窗体创建以及退出时被激活的事件过程中进行。5.Visual Basic 60的常用控件 VB窗体上可以放置各种不同的部件

17、，即控件对象，简称控件。控件按广义可分为：内部控件、ActiveX控件和可插入的对象3种。(1)控件的属性 每一个控件都有自己的属性，不同的控件虽然有许多不同于其他控件的自己独有的属性，但也有许多属性是许多控件都具有的，它们在各自控件中的含义也相同。(2)焦点的概念 焦点是接收用户鼠标或键盘输入的能力。大部分控件可以接收焦点，但Frame、Label、Menu、Line、Shape、Image和Timer等不能接收焦点。(3)Tab键顺序 所谓Tab顺序，就是按(Tab)键时焦点在各个控件上移动的顺序。当窗体上有多个控件时，系统会对这些控件分配一个Tab顺序，并将该顺序存放在TabIndex属

18、性中。通过设置控件的TabIndex属性也可以人为设置Tab顺序。(4)控件默认属性 VB中把某个控件的最重要属性称为该控件的值或默认属性。对于默认属性，在程序运行时，可以直接使用控件名改变属性的值，而不必指定该控件的哪个属性。(5)命令按钮控件 命令按钮是Windows应用程序中最常用的控件，它一般用于完成某种功能，主要接收Click事件，当用户单击它时将引发相应的事件过程。(6)标签控件 标签控件主要用来在窗体上相对固定的位置上显示文本信息。标签控件不能作为输入信息的界面，所以它通常用于注释功能，或输出显示结果。(7)文本框控件TextBox控件也称作编辑控件，常用来接收用户的输入信息，也

19、可以在运行时通过代码赋予控件内容作为输出信息。在TextBox控件中还可以显示多行文本。（二）实验举例 VB中窗体: 实例1 窗体的属性设置。 建立一个新的工程，并按表2-1内容设置窗体属性。表2-1 窗体的属性(名称)属性CaptionPictureMaxButtonMinButtonControlBoxFrmExpl窗体属性设置图片文件FalseFalsetrue 设置Icon属性，选中此属性，单击“Icon”属性框右边的(省略号)，打开个“加载图标”对话框。在该对话框中选择VB安装目录下的vb6CommonGraphicsIcons文件夹，从中选择某一个图标文件，并按“确定”按钮装入。

20、设置picture属性，选中此属性，单击“picture”属性框右边的(省略号)，打开个“加载图片”对话框。在该对话框中选择某文件夹下的一个图片文件，并按“确定”按钮装入。 单击工具栏上的启动按钮运行程序。此时观察窗体界面，标题栏左侧的控制菜单框图标为刚刚选定的图标，在窗体最小化时也以该图标显示。 在此基础上，将窗体的ControlBox属性设为False，再运行程序，则结果怎样？ Moveable属性：选中此属性，在右边列中选择“False”，然后，用鼠标单击工具栏 上的启动按钮运行程序。此时窗体为不可移动状态，用鼠标不能拖动窗口。 Borderstyle属性：选中此属性，在右边列中选择“1

21、一Fixed Single”，然后单击启动按钮运行程序。观察界面，此时窗体边框为可调状态还是不可调状态？ ShowinTaskbar属性：在窗体的controlbox属性为true的情况下，选中此属性时，右边列中默认值为“True”。单击工具栏上的启动按钮运行程序，发现该程序图标出现在Windows任务栏中，单击工具栏上的结束按钮，或单击窗口的关闭按钮，结束程序运行。重新设置ShowInTaskbar属性值为“False”，然后再一次运行程序，发现该程序没出现在Windows任务栏中。VB中窗体:实例2 窗体的常用事件。 建立一个新的工程，将窗体的(名称)属性设为“FrmExp2”，在窗体上建

22、立一个Picturebox控件，(名称)属性默认为“Pictureboxl”。 (1)Load事件 Load事件通常用来在启动应用程序时对属性或变量进行初始化 在Load事件过程编写代码如下：Private Sub Form_Load() FrmExp2CaptiOn=”窗体Load事件” PicturelPicture=LoadPicture(”C：windowsCloudsbmp”)End Sub 运行程序。此时窗口标题栏为“窗体Load事件”、窗体中显示出什么，这说明了什么？ (2)Click事件 为窗体的Click事件过程编写代码如下：Private Sub Form_Click()F

23、rmExp2Caption= ”窗体click事件” Picture1Picture = LoadPicture(”)End Sub 运行程序。此时窗体标题栏仍为“窗体Load事件”，这说明在启动应用程序时先触发的是Load事件。用鼠标单击窗体，此时窗体标题栏变为“窗体click事件”、窗体中Picturebox中的图片被清除，说明单击窗体时，触发了Click事件。VB中窗体:实例3 控件的常用属性。 在窗体上创建两个命令按钮、一个标签控件和一个文本框，按表2-2所示设置它们的属性。 表2-2 属性值控件名称(名称)属性Caption属性Height WidthVisible属性Enabled

24、属性FormlFrmExpl控件的常用属性CommandlCmdDispl命令按钮1500，1300FalseCommand2CmdDisp2命令按钮2500，1300TextlTxtInput1100，2500FalseLabellLblDispl请输入文字：240，3000False单击工具栏上的启动按钮运行程序。观察程序基本控件应用: 实例1大小写转换建立应用程序用户界面与设置对象属性选择“新建”工程,进入窗体设计器，在窗体中增加一个标签Label1、一个文本框Text1和三个命令按钮Command1Command3,将Label1中的标题设置为“请输入英文字母”，将Command1的标

25、题设置为“转大写”，将Command2的标题设置为“转小写”，将Command3的标题设置为“复原”。将标签Label1的字体属性设置成宋体、四号；文本框Text1的字体属性设置成宋体、四号；三个命令按钮Command1Command3的标题设置成隶书、四号；并将他们排列好，如图1-1所示。图1-1 设计界面2 设计代码首先设计文本框的KeyUp(键抬起)事件代码，使得输入的字符存入文本框的Tag属性中：Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Text1.Tag=Text1.TextEnd Sub编写命令按钮Co

26、mmand1（转大写）的事件代码：Private Sub Command1_Click() Text1.Text=Ucase(Text1.Tag)End Sub编写命令按钮Command2（转小写）的事件代码：Private Sub Command2_Click() Text1.Text=Lcase(Text1.Tag)End Sub编写命令按钮Command3（复原）的代码：Private Sub Command3_Click() Text1.Text=Text1.TagEnd Sub3 运行程序首先在文本框中输入英文字符“abcdEFGHijki”，如图1-2所示。然后按“转大写”命令按钮

27、，此时输入框内的字符变成如图1-3所示。按“转小写”命令按钮，此时输入框内的字符如图1-4所示。按“复原”命令按钮，此时输入框内的字符如图1-5所示。 图1-2 输入英文字符 图1-3 转大写 图1-4 转小写 图1-5 复原基本控件应用: 实例2 求圆的面积、表面积和体积1 建立应用程序用户界面与设置对象属性选择“新建”工程,进入窗体设计器，在窗体中增加八个标签Label1Label8和一个命令按钮Command1。对象属性如表1-1所示。表1-1 对象属性对 象属 性值Label1Caption已知圆半径rLabel2Caption圆面积为Label3Caption球面积为：Label4C

28、aption球体积为：Label5Label8CaptionBorderstytle1-fixed single对标签和命令按钮的属性进行设置，并将他们排列好，如图1-6所示。 图1-6 设计界面 图1-7 运行界面2 设计代码命令按钮的代码为：Private Sub Command1_Click()Const pi = 3.14 Label5.Caption = Val(InputBox(输入圆半径, 计算) r = Label5.Caption s = pi * r 2 f = 4 * pi * r 2 v = 4 / 3 * pi * r 3 Label6.Caption = s Lab

29、el7.Caption = f Label8.Caption = v End Sub3 运行程序首先运行程序，此时程序界面如图1-7所示。单击计算按钮，出现对话框，在半径值内输入10，如图1-8所示，单击ok，则出现运行结果，如图1-9所示。 图1-8 输入半径 图1-9 结算结果基本控件应用:实例3计算两个给定日期之间的相隔天数1 建立应用程序用户界面与设置对象属性选择“新建”工程,进入窗体设计器，在窗体中增加三个标签Label1Label3、三个文本框Text1Text3和一个命令按钮Command1,将Label1中的标题设置为“起始时间”，将Label2中的标题设置为“终止时间”，将L

30、abel3中的标题设置为“相隔天数”，将Text1Text3的Text属性均设置为空，将Command1的标题设置为“计算”。将标签Label1Label3的字体属性设置成隶书、四号；文本框Text1的字体属性设置成宋体、四号；命令按钮Command1的标题设置成隶书、三号；并将他们排列好，如图1-10所示。2 设计代码首先设置窗体代码属性，使text1（起始时间）的日期默认为系统当前日期。Private Sub Form_Load()Text1.Text = DateEnd Subcommand1（计算）的代码为：Private Sub Command1_Click()Dim a As Date, b As Date, c As Integera =val( Text1.Text)b = val(Text2.Text)c = b-aText3.Text = cEnd Sub图1-10 设计界面3 运行程序首先运行程