edward22
路人甲
路人甲
  • 注册日期2004-07-01
  • 发帖数121
  • QQ
  • 铜币506枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1813回复:5

请问总统如何在mo中做网格?

楼主#
更多 发布于:2004-09-24 11:15
<P>请问总统如何在mo中做网格?即在地图上显示。</P>
<P>附用VB编程绘制网格图像 </P>
<P>在FORM1上新建一个PICTURE1(并装载一幅你喜爱的图像)和两个COMMAND命令按钮在PICTURE1下面(即COMMAND1和COMMAND2),其他属性不变,然后输入以下代码:</P>
<P>Private Sub Form_Load()
'初始化设置
    Picture1.AutoSize = True
    Command1.Caption = "显示网格"
    Command2.Caption = "取消网格"
    Form1.Caption = "显示网格图像演示程序"
End Sub
 
Private Sub Form_Activate()
'设置网格颜色
    Picture1.ForeColor = vbWhite
    Picture1.Move 0, 0
End Sub
 
Private Sub Command1_Click()
'显示网格
    Dim HLINESNUM As Integer
    Dim WLINESNUM As Integer
    Dim XX As Integer
    Dim I As Integer
    Dim J As Integer
    Dim YY As Integer
    HLINESNUM = 15 '设置网格为15*15显示
    WLINESNUM = 15
    Picture1.Refresh
    Picture1.AutoRedraw = False
    XX = Int(Picture1.ScaleWidth / WLINESNUM)
    YY = Int(Picture1.ScaleHeight / HLINESNUM)
    For I = 1 To HLINESNUM + 1
    Picture1.Line (XX * I, 0)-(XX * I, Picture1.Height - 1)
    Picture1.Line (0, YY * I)-(Picture1.Width - 1, YY * I)
    Next
End Sub</P>
<P>Private Sub Command2_Click()
'取消网格
    Picture1.AutoRedraw = False
    Picture1.Refresh
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Unload Me '结束程序
    End
End Sub
</P>
喜欢0 评分0
如果你爱他就让他学GIS,如果你恨他就让他学GIS!
edward22
路人甲
路人甲
  • 注册日期2004-07-01
  • 发帖数121
  • QQ
  • 铜币506枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2004-09-27 08:39
<P>大家可以讨论一下,我现在正在做。</P>
如果你爱他就让他学GIS,如果你恨他就让他学GIS!
举报 回复(0) 喜欢(0)     评分
lixaokui
路人甲
路人甲
  • 注册日期2003-12-25
  • 发帖数768
  • QQ28796446
  • 铜币27枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2004-09-27 08:43
<P>Mo可以用AddImage加入背景网格的。</P>
西门吹血,有了鼓风机,就不用吹啦!
举报 回复(0) 喜欢(0)     评分
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15947
  • QQ554730525
  • 铜币25339枚
  • 威望15364点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
3楼#
发布于:2004-09-27 10:38
<P>如果只是用来做背景网格,可以自动生成一个线或者面的网格来代替了,不过不知道具体用处在哪里》?</P>
举报 回复(0) 喜欢(0)     评分
edward22
路人甲
路人甲
  • 注册日期2004-07-01
  • 发帖数121
  • QQ
  • 铜币506枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2004-09-27 11:18
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b>生成shp 格式的网格,目标是将空间信息离散化。</b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b>数据格网化。把无规则分布的空间数据内插为规则分布的空间数据集,如规则矩形格网、三角网等。数据格网化能够更好地反映连续分布的空间现象,并对他们的变化加以模拟。现代地球科学模型和气候模型,都要求与GIS数据模型和遥感数据高度兼容的空间数据集。格网化的数据,尤其是规则矩形格网,已成为目前地学模型的主要数据形式。因此,对已知数据进行空间内插,得到格网化数据是模型的第一步。</b></FONT>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT>
<P exactly? mso-line-height-rule: 2.0; mso-char-indent-count: 25pt; LINE-HEIGHT: 24pt;><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b>选择一个合用的内插方法是空间内插的关键 。空间内插几何方法是最简单的内插方法。它主要是基于“地理学第一定律”的基本假设,即邻近的区域比距离远的区域更相似。几何方法的优点是计算开销少,具有普适性,不需要根据数据的特点对方法加以调整。当样本数据的密度足够大时,几何方法一般能达到满意的精度。几何方法的最大问题是,无法对误差进行理论估计。</b></FONT>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P exactly? mso-line-height-rule: 2.0; mso-char-indent-count: 25pt; LINE-HEIGHT: 24pt;><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b>最常用的几何方法有泰森多边形法和反距离加权方法。</b></FONT>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P exactly? mso-line-height-rule: 2.0; mso-char-indent-count: 25pt; LINE-HEIGHT: 24pt;><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b>泰森多边形,泰森多边形用于生成“领地”或控制区域。实际上,尽管泰森多边形产生于气候学领域,它却特别适合于专题数据的内插,因为它生成专题与专题之间明显的边界,不会有不同级别之间的中间现象。</b></FONT>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P exactly? mso-line-height-rule: 2.0; mso-char-indent-count: LINE-HEIGHT: 24pt; 23pt; TEXT-INDENT: 0pt; 0cm><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b>距离权重倒数(IDW),也叫距离反比法。它居于一种假设即越靠近的事物它们的性质越相似。距离反比法通过预测点周围的所测值来估算预测点值。因此距离在此是一个重要的参数。</b></FONT>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #cccc33" face=楷体_GB2312 size=5><b></b></FONT></P>
[此贴子已经被作者于2004-9-27 11:20:44编辑过]
如果你爱他就让他学GIS,如果你恨他就让他学GIS!
举报 回复(0) 喜欢(0)     评分
edward22
路人甲
路人甲
  • 注册日期2004-07-01
  • 发帖数121
  • QQ
  • 铜币506枚
  • 威望0点
  • 贡献值0点
  • 银元0个
5楼#
发布于:2004-09-27 11:23
<P 24pt; LINE-HEIGHT: 25pt; mso-char-indent-count: 2.0; mso-line-height-rule: exactly"><FONT size=5><FONT face=楷体_GB2312><FONT style="BACKGROUND-COLOR: #f7b3f7"><FONT color=#0909f7>现有的GIS软件中所提供的空间内插方法较少,如ARC/INFO的IDW、趋势面、Kriging和一些特殊用途的函数方法, MapInfo中的反距离加权(IDW)插值器和不规则三角网(TIN)插值器,新推出的MaoInfo Professional 7.0,虽然提供了创建泰森多边形(Voronoi)的功能,但还未提供基于Voronoi多边形的数据内插方法。</FONT></FONT></FONT></FONT><p></p></P>
如果你爱他就让他学GIS,如果你恨他就让他学GIS!
举报 回复(0) 喜欢(0)     评分
游客

返回顶部