| 1234567891011121314151617181920212223242526272829 |
- TTSIM
- sent:010400000004F1C9
- reply:010408 0703 0028 0013 0817 80E6
- if len(sInput)=26 then
- LS010000=0 'TTSIM通讯正常
- dim s
- s=HtoB(mid(sInput,9,2),2)
-
- LS010001=mid(s,7,1) '漏水状态
- if(LS010001="1") then
- LS010002=formatnumber(HtoD(mid(sInput,11,4),4)/12.8,2,-1) '漏水距离
- else
- LS010002=0 '漏水距离
- end if
- LS010003=formatnumber(HtoD(mid(sInput,15,4),4),0) '检测电阻
- LS010004=formatnumber(HtoD(mid(sInput,19,4),4)/10,0) '检测电流
- else
- LS010000=1 'TTSIM通讯异常
- 注:此段代码是用VBScript 编写的
|
