测量程序设计级

测量程序设计级第1页，共75页，2023年，2月20日，星期一案例一第2页，共75页，2023年，2月20日，星期一案例一第3页，共75页，2023年，2月20日，星期一案例二第4页，共75页，2023年，2月20日，星期一第5页，共75页，2023年，2月20日，星期一第6页，共75页，2023年，2月20日，星期一第7页，共75页，2023年，2月20日，星期一第8页，共75页，2023年，2月20日，星期一本课程的性质与重点内容课程性质：

专业技术基础课。必要性：

通过本课程的学习，使学生在程序设计和应用软件的开发两个方面都得到锻炼，具有用VisualBasic开发Windows环境下应用程序的能力，具有开发简单测量应用程序的能力，同时为GIS开发打下坚实的理论基础。重点：

1、VB控制结构；2、VB用户界面设计难点：

1、数据库应用。第9页，共75页，2023年，2月20日，星期一学习方法认真听课并适当作笔记；认真上机和编写实验报告；平时应多抽课余时间上机调试程序；培养兴趣；相互学习学习语言建议：贵“恒”，忌“浮”，切不可“这山望着那山高”，其实每种语言只有“语法”不同，其它是相通的第10页，共75页，2023年，2月20日，星期一第一章：VB概述（4学时）第二章：VB程序设计基础（4学时）第三章：VB程序设计（4学时）第四章：VB常用控件（4学时）第五章：界面设计（8学时）第六章：图形操作（4学时）第七章：数据库应用（4学时）

课时安排总学时32，上课16学时，上机16学时第11页，共75页，2023年，2月20日，星期一第一章VB概述1.1VisualBasic6.0简介一、VisualBasic的发展

VisualBasic是Microsoft公司开发的Windows应用程序开发工具，Visual——“可视化的”（直观），是一种开发图形用户界面（GUI）的方法。

1991年推出VB1.01992、1993、1995、1997、1998、2002相继推出：

2.0,3.0,4.0,5.0,6.0,VB.Net(7.0)版本

5.0,6.0包含三种版本（学习版、专业版和企业版）第12页，共75页，2023年，2月20日，星期一二、VisualBasic的特点（红绿灯）

具有基于对象的可视化设计工具事件驱动的编程机制

传统的程序设计是由一个主程序和若干个过程及函数组成，程序运行总是从主程序开始，由主程序调用子过程和函数。VB是通过“事件”（键盘或鼠标操作、系统消息、程序触发）来执行对象的操作。而不是由事先编好的程序流程所控制。事件的发生顺序是由程序的使用者灵活控制。第一章VB概述第13页，共75页，2023年，2月20日，星期一二、VisualBasic的特点

交互式的集成开发环境

即时捕获并显示拼写或语法错误，在输入时部分地编译高度的可扩充性

支持第三方软件商开发的可视化控件（.Ocx）支持访问动态链接库（DLL）支持访问应用程序接口（API）强大的网络、数据库、多媒体功能完备的联机帮助功能第一章VB概述第14页，共75页，2023年，2月20日，星期一1.2VisualBasic集成开发环境“新建”---用于建立新的工程“现存”--选择和打开现有工程“最新”--列出最近使用过的工程第一章VB概述第15页，共75页，2023年，2月20日，星期一1.2VisualBasic集成开发环境菜单栏工具栏代码窗口工具箱窗体窗口立即窗口监视窗口工程窗口属性窗口布局窗口第一章VB概述第16页，共75页，2023年，2月20日，星期一1.2.1主窗口（标题栏、菜单栏、工具栏）第17页，共75页，2023年，2月20日，星期一1.标题栏

有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化/还原、关闭按钮。

VB有三种工作模式：设计模式、运行模式和中断模式。在设计模式下，可进行用户界面的设计和代码的编制，从而完成应用程序的开发。应用程序运行时VB处于运行模式，此时不能进行设计界面和代码的编辑。中断模式主要用于调试程序，此时应用程序运行暂时中断，可以进行代码的编辑。2.菜单栏

主菜单包括13个下拉菜单，包含程序设计所需各种命令。第18页，共75页，2023年，2月20日，星期一菜单作用文件（File）用于创建、打开、保存、显示最近的工程以及生成可执行文件，打印和退出系统编辑（Edit）用于源代码的编辑、查找，显示一些常用的信息视图（View）用于集成环境下程序源代码、控件的查看，及各种窗口、工具箱的关闭与打开工程（Project）用于控件、模块和窗体等对象的添加等处理格式（Format）用于窗体、控件的设计格式，如对齐、间距、尺寸、锁定等调试（Debug）用于程序的调试、查错运行（Run）用于程序的启动、中断和停止等查询（Query）用于设计SQL查询图表（Diagram）用于建立数据库中的表工具（Tools）用于集成开发环境的设置及原有工具的扩展外接程序（Add-Ins）用于为工程增加或删除外接程序窗口（Windows）用于屏幕窗口的层叠、平铺等布局以及列出所有己打开的文档帮助（Help）帮助用户系统的学习和掌握VB的使用方法及程序设计方法第19页，共75页，2023年，2月20日，星期一3.工具栏可以迅速访问常用的菜单命令。主菜单下面是标准工具栏，其他工具栏可以通过“视图”菜单中的“工具栏”命令打开。工具栏右边是数字显示区，包含两个部分：左数字区显示的是对象的坐标位置，右数字区显示的是对象的大小。第20页，共75页，2023年，2月20日，星期一图标名称与功能添加标准EXE工程——用来添加新的工程到工程组中。单击其右边的箭头将弹出一个下拉菜单，可从中选择需要添加的工程类型添加窗体——用来添加新的窗体到工程中，单击其右边的箭头，将弹出一个下拉菜单，可从中选择需要添加的窗体类型菜单编辑器——显示菜单编辑器对话框打开工程——用于打开已有的工程文件保存文件——用于保存当前的工程文件启动——开始运行当前的工程中断——暂时中断当前工程的运行结束——结束当前工程的运行工程资源管理器——打开工程资源管理器窗口属性窗口——打开“属性窗口”窗体布局窗口——打开“窗口布局窗口”对象浏览器——打开“对象浏览器”对话框工具箱——打开工具箱数据视图窗口——打开“数据视图窗口”可视化部件管理器——管理系统中的组件第21页，共75页，2023年，2月20日，星期一1.2.2窗体设计窗口（对象窗口）对象窗口是应用程序的载体，用户通过与窗体上的控件交互来得到结果。默认名称为Form1、Form2……。第22页，共75页，2023年，2月20日，星期一窗体设计窗口窗体名窗体文件名第23页，共75页，2023年，2月20日，星期一在窗体的空白区域单击右键，将弹出快捷菜单，可切换到“代码窗口”、“菜单编辑器”、“属性窗口”，还可以选择“锁定控件”和“粘贴”。

第24页，共75页，2023年，2月20日，星期一1.2.3代码窗口代码窗口代码窗口用于编写、显示和修改VB代码，用户可同时打开多个代码窗口。打开代码窗口的方法很多，双击窗体的任何地方和单击工程窗口中的“查看代码”按钮是较为简便的方法。第25页，共75页，2023年，2月20日，星期一1.2.4属性窗口属性窗口第26页，共75页，2023年，2月20日，星期一属性窗口用于列出选定窗体和控件的属性设置值，在设计时也可进行属性值的设定。可打开属性窗口方法：按F4键或工具栏中“属性窗口”按钮或“视图”菜单中“属性窗口”1.2.4.属性窗口第27页，共75页，2023年，2月20日，星期一资源管理器1.2.5工程资源管理器窗口第28页，共75页，2023年，2月20日，星期一VB中用工程资源管理器来管理工程中的窗体和各种模块。工程文件是管理与该工程有关的所有文件和对象的清单，这些文件和对象自动链接到工程文件上，其扩展名为.VBP

。在工程文件窗口中有“查看代码”、“查看对象”和“切换文件夹”3个按钮。1.2.5工程资源管理器窗口该窗口主要包含两种类型文件：窗体文件（.frm）标准模块文件（.bas）第29页，共75页，2023年，2月20日，星期一1.2.7工具箱和控件工具箱和控件第30页，共75页，2023年，2月20日，星期一1.3创建应用程序的过程建立一个应用程序的步骤：建立用户界面对象。对象属性设置。对象事件过程及编程。运行和调试程序。保存程序。举例：计算面积第31页，共75页，2023年，2月20日，星期一一、界面设计需要9个对象：3个标签（Label）3个文本框（TextBox）3个命令按钮（CommandButton）。第32页，共75页，2023年，2月20日，星期一二、属性设置需设置三个属性：Caption：标题Text：文本Font：字体第33页，共75页，2023年，2月20日，星期一三、事件过程代码编写 需要用代码实现的功能有三：计算：面积；清空：清空3个文本框；结束：退出程序。PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=Text1.Textb=Text2.TextText3.Text=a*bEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand3_Click()EndEndSub第34页，共75页，2023年，2月20日，星期一四、运行和调试运行：工具栏上的“启动”按钮或F5。调试：发现错误并改正。Vb程序会先编译，自动检查语法错误，提示用户修改。第35页，共75页，2023年，2月20日，星期一五、保存和生成可执行文件1.保存单击工具栏上“保存工程”按钮，弹出“另存为”对话框；选择保存位置、输入文件名后点“保存”；

（保存窗体文件.frm）又弹出“另存为”对话框，重复2。

（保存工程文件.vbp）注：程序运行之前，务必先保存，以避免意外丢失。记清楚保存的位置和文件名。第36页，共75页，2023年，2月20日，星期一2.生成可执行文件两种运行模式：编译运行和解释运行。编译运行：生成.exe文件后运行。“文件”—“生成.exe”命令。特点：一次读入，速度快，可脱离VB。解释运行：单击“启动”按钮，逐步运行。

特点：逐步解释，速度慢，便于调试。第37页，共75页，2023年，2月20日，星期一1.4窗体

1、caption属性

2．MaxButton最大化按钮和MinButton最小化按钮：当值为Ture，有最大或最小化按钮，False则无。

3．Picture图片属性：设置窗体中要显示的图片。加载图片操作同Icon控制图标属性。4、WindowsState运行时窗体的显示状态

0---normal1–minimized3---maximized一.属性第38页，共75页，2023年，2月20日，星期一

5.BorderStyle：边框风格,通过改变

BorderStyle属性，可以控制窗体如何调整大小。

0-None：无边框；

1-FixedSingle：单线边框，不可以改变窗口大小；

2-Sizable：双线边框，可以改变窗口大小；

3-FixedDouble：双线框架，不可以改变窗口大小。

4-FixedToolWindow:窗体外观与工具条相似。有关闭按钮，不可以改变窗口大小。

5-SizableToolWindow：窗体外观与工具条相似。有关闭按钮，可以改变窗口大小。第39页，共75页，2023年，2月20日，星期一二、窗体事件最常用的事件

1Click/DblClick：单击/双击窗体触发。

2Load：窗体被装入时触发的事件。该事件通常用来在启动应用程序时对属性和变量进行初始化。

3、Unload事件

卸载窗体时触发该事件。

4、Resize事件

无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。第40页，共75页，2023年，2月20日，星期一PrivateSubForm_Click()Print"欢迎学习VB"EndSubPrivateSubForm_Resize()Form1.Width=120*16Form1.Height=140*16+200EndSub窗体事件例子第41页，共75页，2023年，2月20日，星期一三、常用方法窗体常用的方法有：打印输出Print、移动Move、清除Cls、显示Show、隐藏Hide等方法。使用的形式:[对象.]方法

1.Print方法形式:[对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，]

作用:在对象上输出信息对象：窗体、图形框或打印机(Pinter),省略对象在窗体上输出。Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n列，允许重复使用。；(分号)：紧凑。，(逗号)：隔一个打印区（14列）开始打印的位置是由对象的CurrentX和Currenty属性决定，缺省为打印对象的左上角0，0。第42页，共75页，2023年，2月20日，星期一PrivateSubForm_Click()a=10:b=3.14:c=100Print"a=";a;"b=";bPrint"a=";a,"b=";bPrintTab(18);"a=";a,"b=";bPrintSpc(18);"a=";a,"b=";bEndSub例2.1在窗体Form1的单击事件中写入如下代码：第43页，共75页，2023年，2月20日，星期一2.Cls方法形式:[对象.]Cls

作用:清除运行时在窗体或图形框中显示的文本或图形。

注意:不清除在设计时的文本和图形。3.Move方法形式:[对象.]Move左边距离[，上边距离[，宽度[，高度]]]

作用:移动窗体或控件，并可改变其大小。

第44页，共75页，2023年，2月20日，星期一4．Show(显示)方法

Show方法用于在屏幕上显示一个窗体，调用

Show方法与设置窗体

Visible属性为

True具有相同的效果。其调用格式如下：

窗体名.Show5．Hide(隐藏)方法Hide方法用于使指定的窗体不显示，但不从内存中删除窗体。其调用格式为：

窗体名.Hide第45页，共75页，2023年，2月20日，星期一1.5基本控件一、标签Label二、文本框TextBox三、命令按钮（CommandButton）第46页，共75页，2023年，2月20日，星期一1.5.1标签Label

用于显示文本(输出)信息，不能作为输入信息的界面。（1）

Alignment属性设置Caption属性中文本的对齐方式，共有三种可选值：

0左对齐(LeftJustify)；1右对齐(RightJustify)；

2居中对齐(CenterJustify)。（2）BackStyle属性该属性用于确定标签的背景是否透明。（3）AutoSize属性AutoSize属性确定标签是否会随标题内容的多少自动变化。标签可响应单击（Click)和双击（DblClick）事件，但一般情况不对它进行编程第47页，共75页，2023年，2月20日，星期一

1.5.2

文本框TextBox

是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。（一）属性（1）.Text文本属性在文本框中显示的正文内容存放在Text属性中。当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。（2）Maxlength：设置正文的最多字符个数,0任意长度值。（3）MultiLine：是否为多行,默认一行.False文本框没有Caption属性第48页，共75页，2023年，2月20日，星期一（4）ScrollBars：当MultiLine为True时,该属性才有效,滚动条的形式。0-None：无滚动条、1-Horizontal：水平滚动条、

2-Vertical垂直滚动条、3-Both水平和垂直滚动条。（5）Locked：是否可被编辑属性，False，表示为可编辑。（6）PassWordChar属性设置PasswordChar属性为了掩盖文本框中输入的字符。该属性的设置只有在MultiLine设为False才有效（7）seltext：选定的正文内容第49页，共75页，2023年，2月20日，星期一（二）常用事件

Change：当改变文本框的Text属性时会引发该事件。当用输入一个字符，就会触发一次Change事件。

KeyPress(KeyAsciiAsInteger)：当用户按下并释放键盘上一个ANSI键时，就会触发一次该事件

LostFocus：当控件失去焦点时发生。

GotFocus：当控件获得焦点时发生。PrivateSubText1_GotFocus()Text1="密码"Text2="用户名"EndSubPrivateSubText2_GotFocus()Text1=""Text2=""EndSub第50页，共75页，2023年，2月20日，星期一（三）常用方法

文本框最有用的方法是：SetFocus，使用形式：

[对象.]SetFocus

功能：是把光标移到指定的文本框对象中。PrivateSubText1_GotFocus()Text1="密码"Text2="用户名"Text2.SetFocusEndSub（四）示例（密码输入）第51页，共75页，2023年，2月20日，星期一1．主要属性（1）Caption属性：显示的文字（2）Style属性:按钮类型

0—Standard标准

1—Graphical图形（3）Picture属性：图形背景（4）ToolTipText：工具提示文字。1.5.3命令按钮（CommandButton）2．主要事件:单击事件（Click）第52页，共75页，2023年，2月20日，星期一例：建立一个类似记事本的程序，如图

该程序提供两类操作：

1、剪贴、复制、粘贴

2、字体、大小的设置1.5.4综合应用第53页，共75页，2023年，2月20日，星期一一、界面设计需要7个对象：1个文本框（TextBox）6个命令按钮（CommandButton）。第54页，共75页，2023年，2月20日，星期一默认控件名Caption标题图片picture说明Command1空白Cut.bmp（style属性为1）剪切Command2空白Copy.bmp（style属性为1）复制Command3空白paste.bmp（style属性为1）粘贴Command4黑体空白字体格式化Command520磅空白字体格式化Command6结束空白Text1Multiline=trueScrollbars=both存放文本二、属性设置第55页，共75页，2023年，2月20日，星期一DimsAsStringPrivateSubCommand1_Click()s=Text1.SelText复制EndSubPrivateSubCommand2_Click()Text1.SelText=s黏贴EndSubPrivateSubCommand3_Click()Text1.FontName=“黑体“黑体EndSubPrivateSubCommand4_Click()Text1.FontSize=2020磅EndSubPrivateSubCommand5_Click()s=Text1.SelTextText1.SelText=““剪切EndSubPrivateSubCommand6_Click()EndEndSub三、程序编制第56页，共75页，2023年，2月20日，星期一本章小结：VB开发环境窗体标签文本框（TextBox）（重点）命令按钮（CommandButton）。第57页，共75页，2023年，2月20日，星期一第二章VB程序设计基础1.掌握数据类型、变量、常量、运算符和表达式；2.熟悉一些常用函数；*3.掌握VB基本语句；本章主要内容：第58页，共75页，2023年，2月20日，星期一2.1

数据类型一.标准数据类型第59页，共75页，2023年，2月20日，星期一1．数值数据类型（Numeric）

数值型数据一般分为整型数和浮点数两类。整型数分为整数（Integer）和长整数（Long），浮点数分为单精度浮点数（Single）和双精度浮点数（Double）。1）整数（Integer）

整数是不带小数点和指数符号的数，在机器内部以2字节二进制码形式表示。VB中用±n[%]来表示整数，其中%为整数的类型符，可以省略。如123、-123%、123%都表示整数。第60页，共75页，2023年，2月20日，星期一2）长整数（Long）整数的最大值为32767，大于此数，程序运行时就会因为溢出产生中断。此时可使用长整数。长整数用4字节二进制数存储，可以表示更大的整数，其取值范围为-2147483648~2147483647，若超限用浮点型。VB中用±n&来表示长整数，其中&为长整数的类型符。如-1234&、987654&都表示长整数。123,456是非法的。1．数值数据类型（Numeric）第61页，共75页，2023年，2月20日，星期一3）浮点数浮点数也称为实型数或实数，由符号、指数和尾数组成，分单精度浮点数（Single）和双精度浮点数（Double），其指数部分分别用“E”（或“e”）和“D”（或“d”）表示。如：123.4345.34!1.234E+3345.34D+3单精度定义的变量占4个字节，双精度定义的变量占8个字节。双精度能表示的数更广，单精度相对较窄。在机器中存储时用的转换格式不同。1．数值数据类型（Numeric）第62页，共75页，2023年，2月20日，星期一4）货币型（Currency） 货币型属于定点实数或整数，用8位字节存储小数点前有15位，小数点后有4位，其余的数字被舍去，其表示形式为在数字后加上“@”。如123456.7865@5）字节型（Byte） 字节型数据用1个字节的无符号二进制数存储，取值范围为0——255。1．数值数据类型（Numeric）第63页，共75页，2023年，2月20日，星期一2.字符型数据（String）字符型数据是指一切可打印的字符和字符串，它是用双引号括起来的一串字符。如“编辑”，“123”一个西文字符占一个字节，一个汉字或全角字符占两个字节。在VB中有：变长（String）和定长(String*n)字符串。字符串长度:0~231个字符注意：空字符串用""表示，而“

"则表示空格；在字符串中必须用两个连续的双引号来表示字符串有一个双引号。如字符串：”计算机”，在VB中表示为

"""计算机"""。第64页，共75页，2023年，2月20日，星期一3.逻辑型数据（Boolean）又称布尔型，只有True和False两个值。在计算机内存中占2字节，经常用来表示逻辑判断的结果。当把数值型数据转换为逻辑型数据时，0会转换为Flase，其它非0值转换为True。反之，当把逻辑型数据转换为数值型时，Flase转换为0，True转换为-1。第65页，共75页，2023年，2月20日，星期一4.日期型数据（Date）日期型数据按8字节的浮点数来存储，表示的日期从公元100年1月1日~9999年12月31日，时间范围为0:00:00~23:59:59。任何在字面上可以被认作日期的文本都可以赋值给日期变量，且日期文字必须用符号“#”括起来，如#January15,2002#，#1985-10-19:45:00PM#，

#5/23/2009#都是合法的日期型数据。第66页，共75页，2023年，2月20日，星期一5.变体（Variant）数据类型Variant数据类型是VB对所有未定义的变量的缺省数据类型的定义，又称为万用数据类型。变体数据类型对数据的处理完全取决于上下文需要。变体型包括数值型、日期型、对象型、字符型等数据类型。通过VarType（）函数可以检测Variant型变量中保存的具体的数据类型。第67页，共75页，2023年，2月20日，星期一一.变量的命名规则

1.以字母或汉字开头，后可跟字母、数字或下划线组成.2.不能使用VB中的关键字；

3.VB中不区分变量名的大小写.4.为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。例如：strAbc,（字符串变量）

iCount,（整型变量）

dblx,（双精度变量）sYz（单精度变量）2.2变量和常量2.2.1变量第68页，共75页，2023年，2月20日，星期一二.变量声明（1）用Dim语句显式声明变量语法为：Dim变量名[As类型]

例如：DimaAsInteger等价于Dima%

DimbAsSingle等价于Dimb!Dima,b,casinteger——只有c是整型，a,b为变体型。变量的默认初值:数值型(0),string("“),Boolean(False),Date(0/0/0)定长字符串：DimSasString*10，多截少补（右侧空格）。其他声明方式：Static、Public、Private（6.5节）第69页，共75页，2023年，2月20日，星期一（2）隐式声明VB允许对变量不加声明而直接使用，称为隐式声明。此时变量类型为变体类型。对初学者，建议对变量显式声明；或在通用声明段使用”OptionExplicit”强制显式声明二.变量声明第70页，共75页，2023年，2月20日，星期一2.2常量和变量2.2.2常量在程序运行过程中，其值不能被改变的量称为常量。在VB中有三类常量：普通常量符号常量系统常量。一、普通常量

1．

整型常量（1）