3、尽可能多的获取遥感影象反映的地学信 息
请 看 以 下 二 图 ：
图一
图二
遥感地学分析示范
对图一的地下水分布状况分析 对图二的空间拓扑分析 对图一的BRG色谱调整
对图一的地下水分布状况分析
对图二的空间拓扑分析
பைடு நூலகம்
BRG
经 过 色 谱 调 整 后 的 图 一
二、遥感地学分析的历史与发 展
Dim w, h
w = Picmain.ScaleWidth h = Picmain.ScaleHeight ReDim larrCol(0, w, h)
r = Abs(larrCol(0, X, Y)) MsgBox R, , “R的值为："
End Sub
此子程序为获得遥感影象的颜色值
Private Sub Picmain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
国土管理、资源调查 大地测量、环境保护 地质勘探、军事侦察 ……
五、学习中应该注意的问题
浓厚的学习兴趣，是学好本门课程的重 要保证
对遥感图象象素的颜色值的获取与计算 利用vb调用API
例程：对颜色值的获取
以下代码为函数的声明部分，用以调用获得遥感影象 象素颜色值的API函数GETPIXEL（）。
Dim t t = GetPixel(Picmain.hdc, X, Y)
MsgBox t, , "该点的颜色值为："
End Sub
作业：
1请写出利用VB获取任意图片的任意位置的颜色值的过 程与源代码
2请写出利用VB获取任意图片的任意位置的RGB值中的R 值的过程与源代码
谢谢！
1、遥感影象的人工判读分析阶段。
2、遥感影象的计算机辅助判读分析阶段。
3、基于地学人工智能（GEOAGENT）的计算机判读分析阶 段。
三、遥感地学分析的研究现状
1、利用已有的各种GIS、RS软件进行遥感 地学分析
2、利用算法研究，结合实际编程进行遥感 地学分析
3、调绘
四、遥感地学分析的应用领域:
Private Declare Function GetPixel Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal X As Long, _ ByVal Y As Long) As Long
此子程序为获得遥感影象的RGB值
Private Sub Picmain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
西南师范大学资环学院地信专业选修课
遥感地学分析
教师：匡鸿海
序
一、为什么要学习遥感地学分析 二、遥感地学分析的历史与发展 三、遥感地学分析的研究现状 四、遥感地学分析的应用领域 五、学习中应该注意的问题
一、为什么要学习遥感地学分析
1、部分遥感影象不能直接反映地学信息；
2、避免不同判读人员在对遥感影象进行判 读时造成的误差；