基于EXCEL VBA的作物灌水率图绘制的编程实现.docVIP

基于EXCEL VBA的作物灌水率图绘制的编程实现 　　摘要：应用EXCEL VBA编制的程序，通过读取规划灌区的灌溉制度数据，实现自动绘制灌区年度初步灌水率图，并完成动态修正功能。该方法能够快速地解决绘制灌水率图中烦琐、重复的规划设计工作，从而提高工作效率。 　　关键词：编程；灌水率图；EXCEL VBA 　　中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2017）01-0098-02 　　Abstract： Figure of irrigation rate could be Automatic drawn and dynamic amended by getting the data of irrigation schedule using the programming based on EXCEL VBA. This method can solve problem of planning， thereby improving efficiency of design work. 　　Key words： programming； figure of irrigation rate； EXCEL VBA 　　1 概述 　　灌水率是指灌区单位面积上所需灌溉的净流量，它是根据灌溉制度确定的。将所得的灌水率绘成直方图，称为灌水率图。设计灌水率是设计灌区内渠首的引水流量和灌溉渠道的设计流量的重要参数，它的大小直接影响到灌溉系统的工程规模以及水资源利用充分与否，因此，在灌区规划设计中受到格外的关注。 　　传统作物灌水率图的绘制通用性较差、效率较低，而利用EXCEL VBA编写程序可有效提高灌区的规划设计效率。本文主要介绍基于EXCEL VBA在灌区规划设计中作物灌水率图绘制程序的开发及应用。 　　2程序设计 　　2.1设计原理 　　在灌区规划设计中，影响作物灌水率主要因素为作物种植比例、灌水定额、灌水延续时间等基本参数，而这些灌溉制度参数通常是可确定的。 　　编程过程中，通过读取确定格式的灌溉制度参数，计算各种作物播前灌水及生育期内各次灌水的灌水率，通过编程实现输出全年各灌水时间（以天为单位）内对应的作物灌水率，并应根据每次灌水延续时间绘制各种作物的灌水率过程线，将同时期各种作物灌水率相加，绘成设计灌区年度初步灌水率图，并完成修正。 　　2.2程序实现 　　1）读取灌溉制度数据 　　程序中灌溉制度设定为固定格式，见表1。灌溉制度中，作物数量、各作物灌水次数等参数为不确定数值。 　　J = 1 　　For I = 1 To 200 　　If Cells（I + 1， 4） = Then Exit For 　　If Cells（I + 1， 1） ） Then 　　作物类别（J） = Cells（I + 1， 1） 　　灌溉面积（J） = Cells（I + 1， 2） 　　作物比例（J） = Cells（I + 1， 3） 　　灌溉定额（J） = Cells（I + 1， 7） 　　For K = 1 To 200 　　If （K 1 And Cells（I + K， 1） Or Cells（I + K， 6） = ） Then Exit For 　　灌水起始时间（J， K） = Cells（I + K， 4） 　　灌水天数（J， K） = Cells（I + K， 5） -Cells（I + K， 4） + 1 　　灌水定额（J， K） =Cells（I + K， 6） 　　Next K 　　作物数量 = J 　　J = J + 1 　　End If 　　Next I 　　2）计算作物灌水率 　　按照《灌溉与排水工程设计规范》公式计算作物灌水率。 　　For I = 1 To 作物数量 　　For J = 0 To 200 　　If （灌水天数（I， J） = 0） Then Exit For 　　灌水率（I， J） = 作物比例（I） * 灌水定额（I， J） / 灌水天数（I， J） / 864 　　Next J 　　Next I 　　3）?L制初步灌水率图 　　在“灌水率”工作表中，按照灌水日期与全年日期对应匹配输出各作物的灌水率，然后完成后绘制初步灌水率图。 　　For I = 1 To 作物数量 　　Cells（2， I + 2） = 作物类别（I） 　　For J = 1 To 200 　　If （灌水天数（I， J） = ） Then Exit For 　　For K = 0 To 灌水天数（I， J） - 1 　　Cells（灌水起始时间（I， J） + 2 + K， I + 2）