Desin Instruments DAS- 8000 Serie Instrucciones Avanzadas página 18

'Enviar los datos
ReDim TBytes(1 To Len( env ))
While b < Len( env )
b = b + 1
TBytes( b ) = AscB(Mid( env, b, 1 ))
Wend
Comm.Output = TBytes()
'Esperar la respuesta
While Comm.InBufferCount <> nbytes: DoEvents: Wend
'Retornar los datos recibidos
Erase TBytes
b = 0
env = «»
TBytes() = Comm.Input
While b < nbytes
env = env & Chr$(TBytes( b ))
b = b + 1
Wend
Enviar = env
End Function
' Esta función convierte un valor 'Modbus' a un valor decimal
Function BinToInt( datos As String ) As Integer
Dim sNum
Dim lNum
Dim iRet
sNum = Mid$( datos, 4, 2 )
lNum = 0
lNum = lNum Or Asc(Mid$(sNum, 1, 1))
lNum = lNum * &H100&
lNum = lNum Or Asc(Mid$(sNum, 2, 1))
iRet = CInt(lNum And &H7FFF&)
If (lNum And &H8000&) = &H8000& Then
iRet = iRet Or &H8000
End If
BinToInt = iRet
End Function
18
As String
As Long
As Integer
As Byte
'byte alto
'byte bajo