GIS算法实验1

二、屏幕绘制(点)
2.2 Circle 方法 语法
GIS 算 法 基 础 实 验
[object.]Circle [Step](x, y), radius[, color]
object Step (x1, y1) radius color 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体 作为object。 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当 前图形位置。 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的 度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。 指示的位置。 可选的。关键字，指定相对于线的起点的终点坐标。 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
思考
1、点的十字丝表示法？ 点的十字丝表示法？ 2、离散点群外接矩形的计算方法？ 离散点群外接矩形的计算方法？
GIS 算 法 基 础 实 验
X
Y
二、屏幕绘制(线)
2.1 Line 方法 语法
GIS 算 法 基 础 实 验
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F] ,
object Step (x1, y1) Step (x2, y2) color B F 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体 作为object。 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当 前图形位置。 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的 度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。 指示的位置。 可选的。关键字，指定相对于线的起点的终点坐标。 必需的。Single （单精度浮点数），直线或矩形的终点坐标。 。 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。 可选的。如果包括，则利用对角坐标画出矩形。 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而 用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的 。 ， 缺省值为 transparent。
a(pNum).pX = X a(pNum).pY = Y
Form1.Circle (X, Y), 100, vbGreen
pNum = pNum + 1 End Sub
3.3 线数据的数据结构
由一组点串组成，数据结构同点类似。 由一组点串组成，数据结构同点类似。
GIS 算 法 基 础 实 验
程序举例
If pNum = 1 Then Picture1.Circle (MyArc(pNum, 1), MyArc(pNum, 2)), 30 ElseIf pNum > 1 Then Picture1.Circle (MyArc(pNum, 1), MyArc(pNum, 2)), 30 Picture1.Line (MyArc(pNum, 1), MyArc(pNum, 2))2))(MyArc(pNum - 1, 1), MyArc(pNum - 1, 2)) End If
程序举例
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a(100) As MyPoint
GIS 算 法 基 础 实 验
Dim pNum As Integer
三、空间数据的分类
GIS 算 法 基 础 实 验
点
线
面
3.1 点的绘制
GIS 算 法 基 础 实 验
圆表示
十字丝表示
3.2 点数据的数据结构
方法一: 方法一:两个一维数据 Dim pXArray(pNmu) as Integer
GIS 算 法 基 础 实 验
Dim pYArray(pNmu) as Integer 方法二:一个二维数据 方法二: Dim pXArray(1 to pNmu, 1 to 2) as Integer 方法三: 方法三:结构体数组 Private Type MyPoint pX As Integer pY As Integer End Type Dim pArray(pNmu) as Integer
GIS 算 法 基 础 实 验
实验一 空间数据的采集
实验内容
GIS 算 法 基 础 实 验
一、数据采集的原理 二、屏幕绘制 三、空间数据的分类
一、数据采集的原理
GIS 算 法 基 础 实 验
地理坐标 屏幕坐标
Y 0 X
0 X Y
一、数据采集的原理(续)
1024wk.baidu.com
GIS 算 法 基 础 实 验
0 768 屏幕坐标