excel在测绘中的应用

第 3 1卷第 4期21 0 0年 8月

华

北

水

利

水电

学

院

学

报

V0 . No 4 1 31 . Aug 2 0 . 01

J u n lo a h n n t u e o ae o s r a c n d o lcrc P we o r a fNo h C i a I si t fW trC n e v n y a d Hy r ee t o r t i

文章编号：0 2— 6 4 2 1 ) 4一O 1 O 1 0 5 3 (0 0 0 l4一 2

E E中应用 VB实现水准测量的原始计算 XC L A潘建波，谢斌，孔凯夫( .北水利水电学院，南郑州 4 0 1; .徽省滁州市水文水资源勘测局， 1华河 50 1 2安安徽滁州 2 9 0; 3 00 3安徽省滁州市水利局， .安徽滁州 2 9 0 ) 3 00

摘

要：减轻繁杂的水准测量原始计算、准测量的校核任务，高测算精度和 _效率，用 E C L后台为水提 T作利 XE

V A的强大功能，化水准测量计算过程，现水准测量的原始计算，算过程符合新规范水文要素“ B简实计四舍六人”度取舍.精关键词： X E;语言； B水准测量 E C L宏 V A;中图分类号： V2 4 T 1文献标识码： A

水文新规范中水文要素取舍精度，原来的由“舍五入法”更改为“四舍六人法，进偶四奇舍” .一变化给直接使用电子表计算带来了困¨这

对数值进行“四舍六人”理的计算函数处Dm Ij s tn 明变量的数字整型 i g A r g声 SiDi I k As Srn m g ti g

难 .方面，加了手工计算的难度及出错的几率；一增 另一方面，由于该规定涉及水文资料各方面统计、核算，利用计算机进行计算水准、给流量及其他水文分析计算带来不便甚至无法应用 .把 E C L后台的 V A编程作为“准测量记 X E B水

Di H AsEx e. r se tu cin调用 e c l m c 1 Wok h eF n t 0 x e

的内部函数Di iAsEx e . p i ain m c 1 Ap lc to S ti= Th s o k o k. pl ai n e iW r b o Ap i to c Se tH= i W o k h eFu ci n . r s e t n to

载表”算工

具对于简化水准测量的计算具有实际计意义.

I= It P g j n(Ik= It P g n (

10+ 0 5 0 0 )/10 00 .0 0 1 0010+ 0 4 9 9 00 . 9 9 9)/ 1 0 00

I ItP f n(

1 0 )一 It P 00 n(

10￥ 1= 0 ) 0 1) 0

1程序设计 1 1“舍六入法”度及取合法则 .四精

H. d (n ( O d It PTh n e cl ac—

10 )一 It P￥ 10 00 n( 0)

由于现行规范水文要素取用精度的后一位数字按四舍六人取舍，无法直接使用电子表，在单元格须中编写表达式计算完成，为此使用 V A自定义部分 B函数 (:a— ( u b r,如 cl P n m e)取舍精度符合规范要求. c 在水准测量计算表格中“均高程”“程” 平、高、整理表格中“均高程”平的保留位数均为小数点后 3

P: F r a(g,” . 0” om tI j 0 00 ) P= F r a(g, 0 0 0 ) om tIk” .0”

Ele s cl ac—

En f d I

E d F n t n输入 H. n u ci o选择函数名称 (即可使 )用.定义 H为 E cl xe内部函数.1 2“测”法和步骤 .往方

位，舍精度采用“取四舍六人法，奇进偶舍”算 .计满

足以上计算只需要调用自定义函数 cl P即可， ac ()— 其源代码如下：P b i u c in c l u lc F n t ac o—

在 E C L的前台工作表中无法实现多重弹性 X E变化的判断和循环计算，使用 V A对水准测量的原 B

始计算进行分类，简化计算步骤 .过检验计算步通P PA t n )A tn ( sSr g sS ig i r .

收稿日期：0 0—0 0 21 3— 5

作者简介：建波 ( 9 7 )男，潘 1 7一，吉林松原人，师，讲主要从事水利工程管理方面的研究

excel在测绘中的应用

第 3卷第 4期 1

潘建波，: E C L中应用 V A实现水准测量的原始计算等 X E B

15 l

骤，实现多重弹性变化的判断和循环计算 .可 13“ .返测”法和步骤方在水准测量的原始返算时增加了对单元格的边框和数字的设置，思和代码同“测”本相同 .构往

基只是对计算进行了反向处理，加了对单元格边框增和数据格式的处理 .

中填写对应的转点标识：转”往测”“返测”“、“和，

并且“”、往测”“测”成双成对的.果标转“、返是如尺在水尺的顶端则在对应的单元格中填写“一1或”“ .”如果标尺在零点位置，可以填写，“ 15,则在测点”表中填写对应的水尺编号 .“点距或间列在起

距”列表中填写对应的不同标尺的代码，果后视如使用的标尺与前视或间视不同则须要填写“ a ( a k” k:

1 4计算整理 .由 V A程序进行分析数据，以高程为参数排 B而序.按要求列表在 Ip to n uB x对话框中输入实测水尺编号对应的转点数，即可得到对应水尺的允差范围 .原高程需要自己输入，需和“均高差”比较之只平作

4 8 )“ b ( b= 7 7 .他列表格式按规范 67或 k” k 4 8 )其

要求填写即可 .列表格式从 A: n n:测原始数 7 L (为实据的总行数 )分别为填写原始部分和计算部分.

后，填人正确的“采用”高程，就可以打印报表存档 .

3结 语 “准测量程序”过 2 a的实际应用，果明水经 效

2数据处理 标准“准测量记载表”式如图 1示 .水样所^ 一牲一

显，对滁州勘测队下属测站 (州站、栗树站、且滁黄 沙河集站、西站等 )城的水尺测量成果进行了校核、 分析，效地控制了测量中的计算误差，有为水文资料整编提供了更准确的数据成果 .

一 L上——上—‘一上一L— _ L . L—L—口 一丘一 L L— E—L J— L

l—』

— _一_一 L虬

矗 j墼四鹾器娜};量 2 0年 2月 i 8时 分 1 9时 5分测时 0 0 7目 5 0 7日 5 1巴● s ‘ e号 ) 基 幕 啃 A一无且 n力。

簪害\ 控件部分……平均高程( )术 高程

d

1¨ . ! l一薯确畦暑I

倪嚣

站号 制

起^ 照盎婀矩

视

( 术)

()术

_{ r I ……: f二-+ _王 唧 _ 等二：虹墓臧 j

¨兰. n……

参考文献[]邓振杰. i a Bs 1 V s l ai序设计[ .京：京交大 u c程 M]北北版社， 0 6 20 .

嚣

c

【一1 q 日… 9 4∞

3一 l 2

一孺嘣 匪

…一订一 T—r…… r=一一 _= 一 - _石日 /:

.. —

托 .— r h 一:!一一—

竖娃i¨ f _ _ I~一

: :\一一一 -

} f ¨

}

I

j

-担！

』¨ l

I;l B

j¨……一 』 _k 0

1 L

Lj

[]韩泽坤，瑞亮 . X E B高效办公应用[ .京： 2朱 E C LV A 1北Ⅵ]中国青年版社，0 4 20.

…

二二

I _ 5 I 3 s l 0 4 89

工二l_¨

一

蔓2 6…

十 l卜—_| 一

~…鬻一 6 10 30 _ I I i 97 II ' g - 1。 一} j l:,

[]水利部 . S 8— 3水文普通测量规范[ .京：国水 3 L5 9 北中利水电出版社，9 4 19 .

[]中国人民共和闻行业标准 .L 9 4 S 18—9 7水利水电 T程测图 1水准测量记载表模板

量规范[]北京：同水利水电出版社，97 s.中 19 .

]作表 A1 L二：6为表头部分 .“器站号”表在仪列

App i a i n o BA n EX CEL tRe lzng t i a y Ca c l i n o a e ve lc to fV i a a ii he Prm r l u ato f W t r Le l

P AN i n bo Ja .,XI n E Bi,KONG if Ka—u( . r hn nt ue o ae o s ra c n do lcr o r h n zo 5 0, hn; 1 Not C iaI si t fW trC n ev n y a d Hy reeti P we,Z e gh u4 0 1 C ia h t c 12. Chu h u Hy r g a hi nd W ae s ur e r e z o do rp ca tr Re o c sSu v y Bur a e u,Chu h u 23 0 z o 9 00, i a; Ch n

3 C u h u Bue uo trReo re,C u h u2 9 0 C i

a . h zo ra fWae su c s h zo 3 0 0, hn )

Abs r t I r e o r l ft e c lulto d he k o o l x me s eo t rl v l n o r ie me s e’ r cso nd wok’ tac:n o d rt ei h ac a in an c c fc mp e a ur fwa e e e,a d t as a ur S p e in a r S e i efcen y,po rulf ncinso fii c we f u t o fVBA a kig o b c n fEXCEL wa s d t i s u e o smpl he c lu ai g pr e so trlve’sme s r y t ac l tn oc s fwae e l a u e,a d t n he o ii a a c lto fwae e e’ rg n lc l u ain o trl v l S mea u e wa e lz d. The p o e s sc n o m o t e uie nto e sa d r fo o n r . s r s r aie r c s e o f r t he r q r me fn w t n a d o urc u ty K e o ds: yw r EXCEL; ma oa g g r ln ua e;VBA;mea u e o t e e s r fwaerlv l

(任编辑：垦 )责孙