高空站调用地面自动气象站实时数据的方法.docVIP

高空站调用地面自动气象站实时数据的方法 　　摘 要 　　为了推进气象观测业务自动化，优化观测业务流程和管理制度，根据湖南省气象局的安排，怀化站实行高空地面业务一体化。因受L波段雷达信号线缆长度和值班室条件等原因限制，我站目前不能实现高空和地面在同一值班室当班，本文探讨利用程序实现调用地面自动气象站的方法。 　　【关键词】高空 地面 气象站 调用 方法 　　1 开发目的 　　本功能模块是湖南省气象局短平快科研课题《高空地面气象观测业务一体化监控平台》的一个子模块，虽然系统已有远程控制主模块，可以控制高空、地面站的任意一台电脑，但在业务电脑尽可能少地使用占用资源较多的第三方软件，以提高电脑稳定性，针对高空放球前和放球初期所需重要地面数据，单独设计了地面数据调用功能模块。 　　2 实现方法 　　调用所需的地面数据为：2分钟风向风速、本站气压、气温、相对湿度、能见度，这次数据每分钟滚动刷新。探空放球时间为第15分钟，系统将第15分钟的数据单独显示在窗口中，方便调取使用。为了核对自动站的准确性，系统同时调用新型站和老自动站的地面资料，通过对比分析，方便及时发现自动站传感器故障，例如通过风速对比，如果某套自动站风速长期偏低，可判断该自动站启动风速过大，需要进行相应维护。采用Visual Basic 6.0开发工具，分别读取局域网中新型自动气象站和老自动气象站中的数据文件，实现地面数据调用功能。 　　2.1 调用新型自动站实时数据 　　读取新型站＼smo＼dataset＼省名＼区站号＼AWS＼新型自动站＼设备＼Minute＼目录下的M_Z分钟数据文件。 　　If Len（txtMZ.Text） = 256 And Left$（txtMZ.Text， 4） ---- Then 　　txtxxz（1）.Text = Trim（Mid$（txtMZ.Text， 5， 4）） 风向 　　txtxxz（2）.Text = Mid$（txtMZ.Text， 9， 4） 风速 　　txtxxz（24）.Text = Mid$（txtMZ.Text， 97， 5） 气压 　　txtxxz（14）.Text = Mid$（txtMZ.Text， 65， 4） ?馕? 　　txtxxz（19）.Text = Mid$（txtMZ.Text， 85， 4） 湿度 　　txtxxz（47）.Text = Mid$（txtMZ.Text， 159， 5） 能见度 　　txtxxz（24）.Text = Format（Val（txtxxz（24）.Text） / 10， 0.0） 　　txtxxz（14）.Text = Format（Val（txtxxz（14）.Text） / 10， 0.0） 　　txtxxz（19）.Text = Trim（txtxxz（19）.Text） 　　txtxxz（2）.Text = Format（Val（txtxxz（2）.Text） / 10， 0.0） 　　txtxxz（47）.Text = Trim（txtxxz（47）.Text） 　　Frame5.Caption = 新型站实时数据（当前记录时间： Left$（txtMZ.Text， 4） ） 　　Else 　　Frame5.Caption = 新型站实时数据（当前分钟可能暂未更新数据，可稍等后手工刷新！） 　　End If 　　2.2 调用老自动气象站实时数据 　　读取实时分钟数据＼OSSMO 2004＼AwsSource＼zz.txt。ZZ文件为随机文件，存入54个要素的每分钟瞬时值，以ASCII字符存入，共218个字节1。读取局域网共享文件使用普通的Open FileName Input Access Read的方法，再按zz.txt文件指定的文件格式调用显示出来。 　　txtxxz（1）.Text = Trim（Mid$（txtMZ.Text， 5， 4）） 风向 　　txtxxz（2）.Text = Mid$（txtMZ.Text， 9， 4） 风速 　　txtxxz（24）.Text = Mid$（txtMZ.Text， 97， 5） 气压 　　txtxxz（14）.Text = Mid$（txtMZ.Text， 65， 4） 气温 　　txtxxz（19）.Text = Mid$（txtMZ.Text， 85， 4） 湿度 　　txtxxz（47）.Text = Mid$（txtMZ.Text， 159， 5） 能见度。如图1所示。 　　3 结语 　　地面资料调用程序在怀化市高空站已稳定运行三年多，高空站在施放探空气象时能自动获取地面气象观测资料，提高了工作效率。 　　参考文献