2009-09-14
评论1
楼主 2009/9/14 12:30:37
软件编程
我们以VB3为例,在FORM1窗体上放置MSCOMM控件(VB3自带)。按下述步骤进行编程:
先初始化RS232-RS485模块
Comm1.CommPort = 1
Comm1.Settings = "9600,N,8,1"
Comm1.InputLen = 0
Comm1.PortOpen = True
然后向ISM11X发指令
Chan$ = Right$(Str$(CHNO), 1)
If CHNO >= 0 And CHNO <= 4 Then
Comm1.Output = "#02" + Chan$ + Chr$(13)
End If
从ISM11X读入鉴相器的计数值
Instring$ = Comm1.Input
If Left$(Instring$, 2) = ">+" Or Left$(Instring$, 2) = ">-" And Len(Instring$) >= 3 Then
IdamValue = Val(Right$(Instring$, Len(Instring$) - 2))
End If
现场应用
中海技服用ISM11X构筑的IDC2000系统成功地进行了国家863计划海底大位移井的实时监测任务,并成功地与PRL2000相结合在新疆塔克拉玛干沙漠完成了TK431井基于卫星链路的实时监测任务。在使用过程中,未发现ISM11X任何异常情况。用它构筑的深度系统在500米范围内误差小于10公分,充分证明了ISM11X的现场适用性。利用ISM11X构筑实时监测系统,不仅安装使用简单、编程简单,而且价格适中,稳定性好。