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 编写的