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

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

《环境信息系统实验指导书.docx》由会员分享，可在线阅读，更多相关《环境信息系统实验指导书.docx（20页珍藏版）》请在冰豆网上搜索。

环境信息系统实验指导书

《环境信息系统》实验

指导书

地理信息系统实验室编

绵阳师范学院资源环境工程学院

年月日

实验一VB语言开发环境和简单程序设计

一、实验目的

1．熟练掌握VB的启动和关闭。

2．了解VB程序的集成环境。

3．掌握运行一个VB程序的步骤。

4．掌握VB程序的开发过程。

5.．学会使用帮助

二、实验准备

1.局域网多媒体微机实验室；

2.vb6.0软件

三、实验要求

（1）正确理解面向对象的各种概念；

（2）按实验内容进行实验，理解基本的程序设计过程

（3）选择“自行设计练习：

”中的题进行编程设计，书写实验报告。

实验类型：

验证性实验学时：

2学时

四、实验内容与步骤

（一）相关知识

1．VisualBasic6．0的启动与退出

VisualBasic6．0的启动与退出与一般的Windows应用程序的启动与退出一样，可以通过“开始”菜单启动VisualBasic6．0，也可以将VisualBasic6．0程序以快捷方式放在桌面上，然后双击该图标将其启动；退出可以在“文件”中选择“退出”、或双击窗口控制菜单图标、或单击窗口关闭按钮。

2．VisualBasic6．0的集成开发环境

VB6．0的集成开发环境在一个公共环境中集成了设计、编辑、编译和调试等许多不同的功能，它由菜单、工具栏、工具箱、浏览器及完成各种特定功能的窗口组成。

3．VB应用程序的开发过程

VB采用的是一种“可视化”的编程方法，可以先设计应用程序的外观，然后再编写不同部件的程序代码。

4．VB中对象的概念

对象是基本的运行时的实体，它既包括了数据（对象属性），也包括作用于对象的操作（方法）和对象的响应（事件）。

对象的属性用来表示对象的状态，对象的方法决定了对象可以进行的操作。

不同的对象具有不同的属性和方法，VB中最主要的两种对象是窗体和控件，程序设计中，基本的设计机制就是改变对象的属性、使用对象的方法和为对象编写事件过程。

5．VB6．0的帮助功能

VB6．0是VisualStudi06．0的套件之一，VB6．0本身并不带帮助，微软公司为VisualStudio6．0提供了一套MSDNLibrary帮助系统。

MSDN（MicrosoftDeveloperNetwork）是使用Microsoft开发工具或是以Windows或Internet为开发平台的开发人员的基本参考，它是一本集程序设计指南、用户使用手册以及库函数于一体的电子词典，使用MSDNLibrary的帮助功能，不仅可以引导初学者入门，还可帮助各种层次的用户完成应用程序的设计。

（二）实验举例

（实例1）VB的启动与退出。

（1）启动VB6．0

通过“开始”菜单启动VisualBasic6．0，操作步骤为：

1单击Windows桌面任务栏的“开始”按钮，弹出“开始”菜单，将鼠标指针指向“程序”选项，在“程序”项的级联菜单中选中“MicrosoftVisualBasic6．0中文版”，然后在其打开的下级级联菜单中将光标条定位在“MicrosoftVisualBasic6．0中文版”命令上。

2单击鼠标左键，屏幕出现如图1-1所示的VisualBasic6．0启动画面。

③要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项（默认），然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境。

图1-1启动VB6.0

（2）退出VB

在图1-2所示的VisualBasic6．0应用程序集成开发环境窗口中，从“文件”菜单中选择“退出”命令、或双击窗口控制菜单图标、或单击窗口关闭按钮均可退出VisualBasic6．0。

在退出时，系统可能会提示用户保存工程文件和窗体文件，有关保存文件的操作在实例3中进行详细说明。

（实例2）进入VB集成开发环境。

1．VB的三种工作模式

（1）设计模式：

启动VB，选择新建一个新的工程，进入如图1-2所示的VisualBasic6．0集成环境。

此时，标题栏中的标题为“工程1—MicrosoftVisualBasic[设计]”，表明集成开发环境处于设计模式。

（2）运行模式：

用鼠标单击工具栏中的“”按钮（启动），或在“运行”菜单中选择“启动”命令，此时，标题栏中的标题为“工程1-MicrosoftVisualBasic[运行]，表明集成开发环境处于运行模式。

（3）中断模式：

在“运行”菜单中选择“中断”命令，或按（Ctrl+Break）键，此时，标题栏中的标题为“工程1-MicrosoftVisualBasic[break]”，表明集成开发环境处于中断模式。

2．VB集成开发环境中的各种窗口（如1-2所示）

（1）窗体窗口

（2）属性窗口

（3）工程资源管理器窗口

（4）代码窗口

（5）工具箱

3．打开VB集成开发环境中的工具栏

（1）在“视图”菜单中选择“工具栏”，在它的级联菜单中列出VB提供的工具栏及当前工具栏的状态。

（2）选择“编辑”命令，打开编辑工具栏。

（3）选择“窗体编辑器”命令，打开窗体编辑器工具栏。

（4）选择“调试”命令，打开调试工具栏。

（实例3）建立一个简单的VB应用程序

首先建立一个自己的文件夹，以便将练习中生成的各种文件保存在该文件夹中，这里在E盘建立一个VBSY文件夹。

1．建立一个新的工程

启动VB6．0，选择新建一个新的工程，此时进入到VB6．0集成开发环境，屏幕上出现一个默认的“Forml”窗体。

2．设置窗体属性

选中窗体窗口中的窗体，在属性窗口中选中（名称）属性，将其属性值改为“Frmexp”；再选中Caption属性，然后在右边列中输入“窗体”，此时窗体的标题栏变为“窗体”，窗体窗口的标题栏为“工程1—Frmexp（Form）”。

3．在窗体上绘制控件

（1）用鼠标单击工具箱中的标有“A”的按钮（标签），在窗体的合适位置画出一个矩形区域，在窗体上出现一个标签控件，用鼠标选中该控件，然后在属性窗口中将其（名称）属性设为“LblDisp”；Caption属性设为“VB集成开发环境”。

（2）用鼠标单击工具箱中的命令按钮，在窗体的合适位置画出一个命令按钮，用鼠标选中该命令按钮，然后在属性窗口中将其（名称）属性设为“cmdDisp”；Caption属性设为“显示”。

（3）在窗体中再添加一个命令按钮，然后将其（名称）属性设为“cmdClear'’；Caption属性设为“清除”。

窗体如图1-3所示。

图1-3窗体设计画面图1-4代码窗口

4．编写程序代码

（1）双击“显示”按钮，打开代码窗口，如图1-4

所示，然后输入如下代码：

PrivateSubcmdDisp_CliCk（）

LblDiSp．ViSible=True

EndSub

（2）在代码窗口的对象列表框中选择对象“cmdClear”；在过程列表框中选择事件Click（如图1-4），然后输入如下代码：

PrivateSubcmdClear_Click（）

LblDisp．Visible=False

EndSub

5．运行程序

关闭代码窗口，用鼠标单击工具栏中启动按钮。

此时，程序开始运行，并出现图1-5画面，单击“清除”按钮，窗口上的文字消失；单击“显示”按钮，又使文字显示出来。

图1-5运行程序窗口

6．保存文件

在选择“文件”→“保存工程”菜单命令，或单击工具栏中的“保存工程”按钮。

由于是第一次保存文件，因此在弹出的文件另存为对话框中提示保存窗体文件，将窗体文件保存在E盘的VBSY文件夹下并起名为Vbsy1_1．frm，此时，系统会继续提示保存工程文件，将工程文件也保存在E盘的VBSY文件夹下并起名为Vbsyl_1．vbp。

7．生成可执行文件

选择“文件”→“生成Vbsyl_1．exe”菜单命令，弹出“生成工程”对话框，此时可执行文件名已默认为Vblsy_1．exe，如图1-6所示。

在该对话框中单击“选项”按钮，打开“工程属性”对话框，如图1-7所示，在该对话框中可以设置版本号、版本信息、编译选项等。

最后单击“确定”按钮进行编译。

图1-6“生成工程”对话框图1-7“工程属性”对话框

8．运行可执行文件

在E盘的VBSY文件夹下双击Vbsyl—1．exe文件，运行该可执行文件。

启动该程序后的窗口如图1-5所示。

‘

（实例4）使用VB的帮助。

选择“帮助”→“内容”菜单命令，弹出“MSDNlibraryVisualStudi06．0”窗口。

1．利用目录浏览主题

选择“目录”标签，在左侧主题窗口中依次单击“ⅥsualBask文档”→“使用Ⅵsual　BaSic”→“程序员指南”→“ⅥSual　BaSiC基础”→“窗体、控件和菜单”，最后选择“设计窗体”主题，此时右侧窗口中显示出相应内容。

2．利用索引查找信息

选择“索引”标签，在“键入要查找的关键字”输入框中输入“SelectCase”，此时光标定位在索引项的列表的“SelectCase块”项目上，单击“显示”按钮，右侧窗口中即显示出相应内容。

简单程序设计

1．建立一个简单的应用程序，其窗体界面如下，单击窗体，则在窗体上显示“欢迎使用VisualBasic！

”，反复练习建立一个VisualBasic应用程序的步骤。

自行设计练习：

（1）建立一简单用户登录界面，并在其上分别放置Label、Text、Command控件，更改其相应属性；

（2）建一简单窗体，其上有一Command控件，并实现当点击此控件时，其Caption属性为1+2+3+…+99+100的和值。

实验二VB中窗体和基本控件应用

一、实验目的

（1）掌握VB6．0窗体的常用属性、常用事件和重要方法。

（2）掌握在VisualBasic6．0窗体上生成控件的方法。

（3）掌握设置启动窗体的方法。

（4）了解窗体的生命周期。

（5）掌握标签、命令按钮、文本框的常用属性、重要事件和基本方法。

（6）熟练掌握在窗体上创建上述控件的操作方法。

二、实验准备

1局域网多媒体微机实验室；

2vb6.0软件

三、实验要求

写出实验报告。

四、实验内容与步骤

（一）基础知识

1、窗体是VB中的对象，具有自己的属性、事件和方法。

●属性：

窗体的属性决定了窗体的外观和操作。

窗体属性既可以在程序设计时在“属性”窗口中手工设置，也可以在程序运行时由代码来实现。

●常用事件：

窗体常用的事件有Load、Click、DblClick、Activate和Deactivate等。

其中Load事件是当窗体被装入工作区时触发的事件，常用来在启动应用程序时对属性和变量进行初始化。

Activate是当一个窗体成为活动窗口时所触发的事件，Deactivate是当另一个窗体或应用程序被激活时，当前窗体所发生的事件。

●常用方法：

窗体的方法很多，其中许多方法都调用文本和图形，用于直接在窗体表面上输出、写或画，如：

Print、Circle等。

还有一些方法对窗体的行为产生影响，如Show方法使—个窗体可见；Hide方法用于隐藏一个窗体。

2、在窗体上添加控件

窗体是设计VB应用程序的一个基本平台，几乎所有的控件都是添加在窗体上的。

对于生成的控件，可以调整控件大小、移动控件位置、使用网格精确定位控件；对于多个控件，还可以对它们进行排列、调整大小等操作。

另外，在VB中还允许可视地创建和编辑控件数组，这对于编组使用选择框、命令按钮等控件提供了很大方便。

3、设置启动窗体

在默认情况下，应用程序中的第一个窗体被指定为启动窗体。

应用程序开始运行时，此窗体就被显示出来。

如果想在应用程序启动时显示别的窗体，可以将其他窗体设置为启动窗体。

4、窗体的生命周期

VB窗体在整个存活期中有4种状态，即创建状态、加载状态、可见状态和卸载状态。

一些程序运行所必须的初始化操作和退出前的善后工作（例如退出应用程序前提示存盘），往往要在窗体创建以及退出时被激活的事件过程中进行。

5.VisualBasic6．0的常用控件

VB窗体上可以放置各种不同的部件，即控件对象，简称控件。

控件按广义可分为：

内部控件、ActiveX控件和可插入的对象3种。

（1）控件的属性

每一个控件都有自己的属性，不同的控件虽然有许多不同于其他控件的自己独有的属性，但也有许多属性是许多控件都具有的，它们在各自控件中的含义也相同。

（2）焦点的概念

焦点是接收用户鼠标或键盘输入的能力。

大部分控件可以接收焦点，但Frame、Label、Menu、Line、Shape、Image和Timer等不能接收焦点。

（3）Tab键顺序

所谓Tab顺序，就是按（Tab）键时焦点在各个控件上移动的顺序。

当窗体上有多个控件时，系统会对这些控件分配一个Tab顺序，并将该顺序存放在TabIndex属性中。

通过设置控件的TabIndex属性也可以人为设置Tab顺序。

（4）控件默认属性

VB中把某个控件的最重要属性称为该控件的值或默认属性。

对于默认属性，在程序运行时，可以直接使用控件名改变属性的值，而不必指定该控件的哪个属性。

（5）命令按钮控件

命令按钮是Windows应用程序中最常用的控件，它一般用于完成某种功能，主要接收Click事件，当用户单击它时将引发相应的事件过程。

（6）标签控件

标签控件主要用来在窗体上相对固定的位置上显示文本信息。

标签控件不能作为输入信息的界面，所以它通常用于注释功能，或输出显示结果。

（7）文本框控件

TextBox控件也称作编辑控件，常用来接收用户的输入信息，也可以在运行时通过代码赋予控件内容作为输出信息。

在TextBox控件中还可以显示多行文本。

（二）实验举例

VB中窗体:

实例1窗体的属性设置。

建立一个新的工程，并按表2-1内容设置窗体属性。

表2-1窗体的属性

（名称）属性

Caption

Picture

MaxButton

MinButton

ControlBox

FrmExpl

窗体属性设置

图片文件

False

False

true

设置Icon属性，选中此属性，单击“Icon”属性框右边的…（省略号），打开—个“加载图标”对话框。

在该对话框中选择VB安装目录下的vb6＼Common＼Graphics\Icons文件夹，从中选择某一个图标文件，并按“确定”按钮装入。

设置picture属性，选中此属性，单击“picture”属性框右边的…（省略号），打开—个“加载图片”对话框。

在该对话框中选择某文件夹下的一个图片文件，并按“确定”按钮装入。

单击工具栏上的启动按钮►运行程序。

此时观察窗体界面，标题栏左侧的控制菜单框图标为刚刚选定的图标，在窗体最小化时也以该图标显示。

在此基础上，将窗体的ControlBox属性设为False，再运行程序，则结果怎样？

●Moveable属性：

选中此属性，在右边列中选择“False”，然后，用鼠标单击工具栏上的启动按钮►运行程序。

此时窗体为不可移动状态，用鼠标不能拖动窗口。

●Borderstyle属性：

选中此属性，在右边列中选择“1一FixedSingle”，然后单击启动按钮►运行程序。

观察界面，此时窗体边框为可调状态还是不可调状态？

①

●ShowinTaskbar属性：

在窗体的controlbox属性为true的情况下，选中此属性时，右边列中默认值为“True”。

单击工具栏上的启动按钮►运行程序，发现该程序图标出现在Windows任务栏中，单击工具栏上的结束按钮■，或单击窗口的关闭按钮，结束程序运行。

重新设置ShowInTaskbar属性值为“False”，然后再一次运行程序，发现该程序没出现在Windows任务栏中。

VB中窗体:

实例2窗体的常用事件。

建立一个新的工程，将窗体的（名称）属性设为“FrmExp2”，在窗体上建立一个Picturebox控件，（名称）属性默认为“Pictureboxl”。

（1）Load事件

Load事件通常用来在启动应用程序时对属性或变量进行初始化

在Load事件过程编写代码如下：

PrivateSubForm_Load（）

FrmExp2．CaptiOn=”窗体Load事件”

Picturel．Picture=LoadPicture（”C：

＼windows＼Clouds．bmp”）

EndSub

运行程序。

此时窗口标题栏为“窗体Load事件”、窗体中显示出什么，这说明了什么？

②

（2）Click事件

为窗体的Click事件过程编写代码如下：

PrivateSubForm_Click（）

FrmExp2．Caption=”窗体click事件”

Picture1．Picture=LoadPicture（””）

EndSub

运行程序。

此时窗体标题栏仍为“窗体Load事件”，这说明在启动应用程序时先触发的是Load事件。

用鼠标单击窗体，此时窗体标题栏变为“窗体click事件”、窗体中Picturebox中的图片被清除，说明单击窗体时，触发了Click事件。

VB中窗体:

实例3控件的常用属性。

在窗体上创建两个命令按钮、一个标签控件和一个文本框，按表2-2所示设置它们的属性。

表2-2属性值

控件名称

（名称）属性

Caption属性

HeightWidth

Visible属性

Enabled属性

Forml

FrmExpl

控件的常用属性

Commandl

CmdDispl

命令按钮1

500，1300

False

Command2

CmdDisp2

命令按钮2

500，1300

Textl

TxtInput

1100，2500

False

Labell

LblDispl

请输入文字：

240，3000

False

单击工具栏上的启动按钮►运行程序。

观察程序

基本控件应用:

实例1大小写转换

建立应用程序用户界面与设置对象属性

选择“新建”工程,进入窗体设计器，在窗体中增加一个标签Label1、一个文本框Text1和三个命令按钮Command1~Command3,将Label1中的标题设置为“请输入英文字母”，将Command1的标题设置为“转大写”，将Command2的标题设置为“转小写”，将Command3的标题设置为“复原”。

将标签Label1的字体属性设置成宋体、四号；文本框Text1的字体属性设置成宋体、四号；三个命令按钮Command1~Command3的标题设置成隶书、四号；并将他们排列好，如图1-1所示。

图1-1设计界面

2设计代码

首先设计文本框的KeyUp（键抬起）事件代码，使得输入的字符存入文本框的Tag属性中：

PrivateSubText1_KeyUp（KeyCodeAsInteger,ShiftAsInteger）

Text1.Tag=Text1.Text

EndSub

编写命令按钮Command1（转大写）的事件代码：

PrivateSubCommand1_Click（）

Text1.Text=Ucase（Text1.Tag）

EndSub

编写命令按钮Command2（转小写）的事件代码：

PrivateSubCommand2_Click（）

Text1.Text=Lcase（Text1.Tag）

EndSub

编写命令按钮Command3（复原）的代码：

PrivateSubCommand3_Click（）

Text1.Text=Text1.Tag

EndSub

3运行程序

首先在文本框中输入英文字符“abcdEFGHijki”，如图1-2所示。

然后按“转大写”命令按钮，此时输入框内的字符变成如图1-3所示。

按“转小写”命令按钮，此时输入框内的字符如图1-4所示。

按“复原”命令按钮，此时输入框内的字符如图1-5所示。

图1-2输入英文字符图1-3转大写

图1-4转小写图1-5复原

基本控件应用:

实例2求圆的面积、表面积和体积

1建立应用程序用户界面与设置对象属性

选择“新建”工程,进入窗体设计器，在窗体中增加八个标签Label1～Label8和一个命令按钮Command1。

对象属性如表1-1所示。

表1-1对象属性

对象

属性

值

Label1

Caption

已知圆半径r＝

Label2

Caption

圆面积为

Label3

Caption

球面积为：

Label4

Caption

球体积为：

Label5～

Label8

Caption

Borderstytle

1-fixedsingle

对标签和命令按钮的属性进行设置，并将他们排列好，如图1-6所示。

图1-6设计界面图1-7运行界面

2设计代码

命令按钮的代码为：

PrivateSubCommand1_Click（）

Constpi=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

Label7.Caption=f

Label8.Caption=v

EndSub

3运行程序

首先运行程序，此时程序界面如图1-7所示。

单击计算按钮，出现对话框，在半径值内输入10，如图1-8所示，单击ok，则出现运行结果，如图1-9所示。

图1-8输入半径图1-9结算结果

基本控件应用:

实例3　计算两个给定日期之间的相隔天数

1建立应用程序用户界面与设置对象属性

选择“新建”工程,进入窗体设计器，在窗体中增加三个标签Label1～Label3、三个文本框Text1～Text3和一个命令按钮Command1,将Label1中的标题设置为“起始时间”，将Label2中的标题设置为“终止时间”，将Label3中的标题设置为“相隔天数”，将Text1～Text3的Text属性均设置为空，将Command1的标题设置为“计算”。

将标签Label1～Label3的字体属性设置成隶书、四号；文本框Text1的字体属性设置成宋体、四号；命令按钮Command1的标题设置成隶书、三号；并将他们排列好，如图1-10所示。

2设计代码

首先设置窗体代码属性，使text1（起始时间）的日期默认为系统当前日期。

PrivateSubForm_Load（）

Text1.Text=Date

EndSub

command1（计算）的代码为：

PrivateSubCommand1_Click（）

DimaAsDate,bAsDate,cAsInteger

a=val（Text1.Text）

b=val（Text2.Text）

c=b-a

Text3.Text=c

EndSub

图1-10设计界面

3运行程序

首先运行程