-大连地震台地磁日常数据处理软件的研制

-----------------------------------Docin Choose -----------------------------------豆 丁 推 荐
↓
精 品 文 档
The Best Literature----------------------------------The Best Literature
2008年9月SEISMOLOGICAL RESEARCH OF NORTHEAST CHINA Sep.,2008大连地震台地磁日常数据处理软件的研制
于政轩，陈楠
（大连地震台，辽宁大连116039)
摘要：大连台地磁观测的产出数据量较大，报表或报数的文件种类繁多，且格式要求不一，手工操作容易出错。

本文介绍了利用Micrsoft公司的Visual Basic6．0编程语言研制的数据处理软件的设计思路及应用效果。

关键词：大连地震台；地磁观测；数据处理；软件设计
中图分类号：P318.6%%文献标识码：A%%%%%文章编号：1004－2865（2008）03－67－06
0引言
大连地震台的地磁观测，日常产出由磁变仪（CB3）相对记录的地磁三分量（磁偏角D、水平分量H、垂直分量Z）的时均值相对量、整点值相对量、K指数，以及由核旋仪（CZM2）绝对观测而得到的地磁总场强度F、垂直分量Z的绝对值等原始数据，日常数据处理工作是把这些大量的原始数据计算出三分量的相对值、日总和、日均值以及水平分量的绝对值等，最终汇总成日报（网上报辽宁省地震局监测中心）、月报（网上或报表邮寄中国地震局地磁管理组、中国地震局地震台网部前兆数据管理组、辽宁省地震局监测中心），这项工作不仅处理量大，而且目前的手工操作费工费时又容易出现问题，再加上各级主管部门要求的数据报表格式也一再翻新，因此，急需一种软件完整、迅速而准确地实现本台地磁日常数据处理功能。

基于上述考虑，笔者自主编制了适合自己特点的地磁日常数据处理软件。

1%软件功能简介
用本软件（图1）日常处理数据主要在7个界面上进行，其中“磁偏角计算”窗口可把世界时的时均值相对量原始数据录入后，自动计算出日总和与日均值的相对量，并通过标度值的录入后自动转换成北京时的日总和与日均值的相对值，同时，极大值与极小值的相对量也转换成相对值；“水平分量计算”窗口是把世界时的时均值相对量以及K指数的原始数据录入后，自动计算出日总和与日均值的相对量；“垂直分量计算”窗口是把世界时的时均值相对量以及北京时的整点值相对量原始数据录入后，分别计算出世界时日总和与日均值的相对量以及北京时整点值的相对值；在“核旋计算”窗口中，通过地磁总场强度F、垂直分量Z的绝对值等原始数据的录入，一可以计算
收稿日期：2008-01
作者简介：于政轩（1965-），男，辽宁大连人，工程师，主要从事地磁日常观测及资料分析工作.
出水平分量H 的绝对值，二可以进行基线值的复核，三可以自动生成省局模拟日报中的“3h ”和“3j ”文件；在“日志”窗口中，通过选择记录人员、事件编号等选项，修改起始与终止时间，以及事件描述等项目，最后一键可自动生成符合格式要求的日志文件；
“电报”窗口中，一可自动生成
“RFE3”日报文件，二可实现此文件的文本打印。

2%软件设计过程
2．1开发工具的选择
Micrsoft 公司推出的Visual Basic 6．0编程语言（简称VB ）是当今最优秀、最流行的可视化开发工具之一，其代码结构清晰，可读性好，并且融入了面向对象、过程可视化、事件驱动等软件开发的最新技术，具有强大的数据库开发能力，完全可以满足本软件的开发要求，故选之作为开发工具。

2．2
软件的结构根据目前大连台地磁日常数据处理所需要进行的工作状况，本软件的结构如图2所示。

2．3
关键部分的设计2．3．1数据控件的选择
VB 提供了许多功能强大的控件，对数据库程序设计来说，可选的控件与方法有好几种，但Data Bound Grid Control 数据控件在数据库中的应用，使程序设计员在原本要手工编写的打开、新建、移动等程序代码都可因此而得到简化，所以使开发时间大量缩短，并且维护也变得更加容易，本软件要得到的所有功能也都可以实现，因此，成为本软件设计的首选。

2．3．2“单进双舍”功能的实现
地磁观测产出的所有数据的处理结果都要求进行“单进双舍”，以往的数据日常处理是通过计算器或Micrsoft Excel 软件计算后，对结果人为判断而进行取舍，这样就有可能造成人为偏差后的取舍错误，本软件研制过程中利用Visual Basic 6．0数学函数Int ，配合使用Select Case 语句有选择地进行“单进双舍”，避免了人为的判断取舍，很好地解决了这一问题。

其代码示例如下：
图1软件的界面与数据输入窗口
Fig.1Data input of Dalian Geomagnetism Data Processing System
Dim ax，by，cz As Integer
ax＝Int（（x－Int（x））*10）
by＝Int（（x*10－Int（x*10））*10）
r＝x*100
cz＝Int（（r－Int（r））*10）
If by＜＞5Or by＝5And cz＜＞0Then
x＝（Int（x*10＋0．5））／10
End If
If by＝5And cz＝0Then
Select Case ax
Case1，3，5，7，9
x＝Int（x*10＋0．5）／10
Case2，4，6，8，0
x＝Int（x*10）／10
End Select
End If
2．3．3报表文件的自动生成
模拟日报中的“3h”和“3j”文件以及“RFE3”文件可通过格式输出函数Format输出符合条件的日期（取自电脑系统时间）格式，利用顺序文件的“Open〈文件名〉For Output As〈文件号〉”语句自动生成文件名，避免人为输入可能出现的错误，其内容是通过Data控件控制记录内容，用Print语句按要求的格式写入；日志文件的内容则用Write语句一次性写入。

电报（日报之一）窗体的代码示例如下：
Private Sub Form＿Activate（）
Dim c，k1，k2，k3，k4，k5，k6，k7，k8As String
Dim a，b，d As Single
a＝Format（Date－1，“mmdd”）
Label3＝“9”＋a
Label50＝Label3
Data1．Recordset．MoveLast
……
b＝Data1．Recordset．Fields（“F21”）．Value
d＝b*10－500000
Label6＝d
b＝Data1．Recordset．Fields（“Z”）．Value
d＝b*10－400000
Label8＝d
b＝Data2．Recordset．Fields（“HMS0”）．Value
c＝“0”＆b*10＋3000
Label10＝c
Label52＝c
……
b＝Data2．Recordset．Fields（“JDSJ（Z）”）．Value
a＝b／100
a＝Fix（a）
d＝b－a*100
Label35＝Format（a，“00”）＆“9”＆Format（d，“00”）
b＝Data2．Recordset．Fields（“JDZ（Z）”）．Value
c＝“0”＆b*10＋3000
Label36＝c
……
k1＝Data4．Recordset．Fields（“kz0”）．Value
……
c＝k1＆k2＆k3＆k4＆“0”
Label46＝c
Label61＝c
c＝k5＆k6＆k7＆k8＆“0”
Label47＝c
Label62＝c
b＝Data3．Recordset．Fields（“ZDZ”）．Value
c＝“0”＆b*10＋3000
Label59＝c
b＝Data1．Recordset．Fields（“F9”）．Value
d＝Fix（b）
Label55＝d
b＝Data1．Recordset．Fields（“F21”）．Value
d＝Fix（b）
Label57＝d
End Sub
2．3．4报表文件的打印
“RFE3”日报文件可在符合打印格式的窗体上，用本方法直接完成打印任务。

其它用Excel模板制作的月报文件，可在Micrsoft Excel软件上利用其打印功能进行。

图2软件的结构框图
Fig.2Structure frame of this software
图3软件的数据输出窗口（电报—日报之一）Fig.3Data output of this software
3结束语
本软件为使用者提供了友好的人机对话界面，针对日常工作，容易掌握，操作简单，便于维护，使用后效果很好，不仅使台站的日常工作效率大为提高，而且也使台站日报与月报的正确率均达到了100％。

当然，随着台站工作水平的不断提高和上级管理部门要求的不断变化，软件仍有必要紧跟形势，不断改进，尽可能完善，更好地为台站的地震事业服务。

THE DEVELOPMENT OF ROUTINE DATA PROCESSING SOFTWARE ABOUT GEOMAGNETISM IN DALIAN SEISMIC STATION
YU Zheng-xuan，CHEN Nan
（Dalian seismic station，Liaoning Dalian116039，China）
Abstract：A large amount of data is observed by Dalian seismic station，the sorts of files about report form or report data are various，and the demand about the form is not simple，so it is easy to make mis-takes in handwork operation.The design idea and practical effect of data processing software about geo-magnetism in Dalian seismic station are introduced in this paper，which is developed by applying the Vi-sual Basic6.0programming language of Microsoft.
Key words：Dalian seismic station；geomagnetism observation；data processing；software design。