Tabla de contenido
' 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
End If
BinToInt = iRet
End Function
Relación de palabras
Como se ha comentado anteriormente, el módulo DAS-8000 tiene
2 áreas diferentes de memoria, el área de Lectura en la que sólo se puede
leer los datos que hay en memoria, y el área de Lectura/Escritura, en la
que se puede leer y escribir datos en memoria.
La relación de direcciones de memoria de las 2 áreas viene
expuesta en los siguientes apartados.
As String
As Long
As Integer
iRet = iRet Or &H8000
DAS-8000 ver. 2.5
'byte alto
'byte bajo
Comunicaciones
/ 163
Tabla de contenido
