水文原始资料计算程序开发与应用.pdf

《水文原始资料计算程序开发与应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2015年第1期黑龙江水利科技No．1．2015(第43卷)Heilon~iangScienceandTechnologyofWaterC0nsorvancv(TotalNo．43)一———————————————————————————————’’’。。。。。。。。。。。。。。。。。。。。。。。。。。__●●-____________-__-。_-_________-__。__________________--___________________-____---_____一文章编号：1007—7596(2015)01—0168—04水文原始资料计算程序开发与

2、应用魏胜利(河北省张家口水文水资源勘测局，河北张家口075000)摘要：水文是关系到国计民生的基础性科学，它为防汛抗旱、工程规划设计、水资源开发利用与保护等提供了大量翔实可靠的信息，发挥了不可或缺的作用。随着水文科学得不断发展，水文工作现代化、信息化、自动化是大势所趋，是未来的发展方向，使用计算机程序计算水文原始资料是必须解决的一个问题。文章就程序的开发过程、方法与应用做一介绍。关键词：水文原始资料；开发工具；程序；应用中图分类号：P337文献标识码：B0前言·2复杂性水文原始资料计算，有的复杂，有的则非常简水文是关系到国计民生的基础性科学，它为防单。对于简单的计

3、算，则没有编程的必要。汛抗旱、工程规划设计、水资源开发利用与保护等提1．3规范性供了大量翔实可靠的信息，发挥了极具不可或缺的计算表格的式样，数据的输入、输出，计算的过作用。程，计算的结果，要符合水文测验与整编规范。近年来，水文科学的研究取得了长足的进步。1．4易操作性遥感技术的应用，使同时观测大范围内的宏观水文程序界面要简洁，操作要简单。数据编辑要容现象成为可能，水文模拟方法、水文随机分析方法、易灵活。水文系统分析方法，使人们研究水文现象的能力发1．5实用性展到新的水平。程序要能够应用，要解决水文工作存在中的实尤其是电子计算机的应用，使水文科学从水文际问题。计算结

4、果要能够打印，作为正式成果，用以观测到基本规律的研究，由人力和机械操作，发展到审核和存档。以电子计算机为核心的自动化¨。2开发工具但长期以来，我国绝大部分地区水文原始资料水文原始资料计算需要完成表格绘制、数据输的计算仍采用手工方式，不仅费时费力而且容易出入、数据编辑、计算、计算结果输出、文件保存、打印错，与水文现代化、信息化的要求极不适应。因此，等操作J。开发水文原始资料计算程序是非常必要的且必用任何一种编程语言比如C++、delphi、VB等须的。实现计算、保存、打印这些功能都不是难事，但要绘1目标制复杂的表格，那种语言都不是太得心应手，编辑数1．1普遍性据也不

5、是太方便。我国幅员广阔，河流众多，不同的流域、不同的经过一段时间的研究与摸索，发现把VB和ex-省市所观测项目不尽相同，河道特性也不相同。因cel结合起来，可以很好的解决这一问题。用excel此，程序一定要具有最大限度的普适性。实现绘制表格、编辑数据、文件保存与打印，用[收稿日期]2014—10—14[作者简介]魏胜利(1965一)，男，河北蔚县人，高级工程师，从事水文水资源、洪水预报工作。一l68—魏胜利：水文原始资料计算程序开发与应用第1期VB6．0调用excel对象实现计算、控制功能，这样，既Long)AsLong(准备用来使窗体始终在最前面)。减少了编程的

6、工作量，又解决了表格绘制、数据编辑PrivateDeclareFunction’MoveWindowLib等难题。“user32”(ByValhwndAsLong，ByValXAsLong，By-程序的开发工具为VISUALBASIC6．0+MI-ValYAsLong，ByValnWidthAsLong，ByValnHeightCROSO}-TEXCEL2003。AsLong，ByValbRepaintAsLong)AsLong(用来移动窗体)O3开发过程部分代码如下：开发过程主要有2个部分：PrivateSubTimerl_Timer()3．1程序开发流程Dim

7、dl&本程序采用分布式模块化设计，程序的每个功dl&=GetCursorPos(MyPoint)能诸如流量计算、水位计算、断面计算等对应一个模If(PtlnRect(MyRect，MyPoint．X，块。模块化的好处是，各个模块相互独立，结构清MyPoint．Y)And—楚，便于修改和维护。主要包括：Form1．Height=Max1OrMyPoint．Y<=1)制作原始资料模板文件。依据水文测验规3Then范，设计原始资料文件表格，在文件中输入原始资料IfMyPoint．Y<=3Then观测数据，以供主程序使用。Form1．BackColor=vbBlue2)编

8、写流量、水