Ejemplo De Comunicaciones Modbus - Veto DAS-8000 Manual De Instrucciones

DAS-8000 ver. 2.5

Ejemplo de comunicaciones MODBUS

Seguidamente se muestra un ejemplo de comunicaciones
MODBUS en Visual Basic 5.0 y versiones posteriores.
Option Explicit
'"Comm" es el nombre que se le ha dado al control MSCOMM.VBX insertado en el proyecto.
'Private Sub Form_Load()
Dim res
Dim datos
Dim i
With Comm
End With
'Pedir el valor de la dirección de memoria 2:
' 1=NºDispositivo, 4=Código de Función,
2=Dirección de la palabra inicial a leer, 1=cantidad de palabras a leer
res = Preguntar(1, 4, 2, 1)
i = BinToInt(res)
'Ejemplo de escritura: Modificar el dato que hay en la dirección de memoria 26,
asignando el valor 33
Const AL1 = 33
Const DirW = 26
datos = Chr$(AL1 \ 256) & Chr$(AL1 Mod 256)
res = Enviar(1, DirW, 1, datos)
Comm.PortOpen = False
End
End Sub
Ejemplo de lectura de N palabras del área de lectura o escritura.
'nDIS = Número de Dispositivo;
'add = Palabra inicial a leer;
'Retorna los datos recibidos vía serie
Private Function Preguntar (nDIS As Integer, cod As Integer, add As Integer,
cant As Integer) As String
Dim nbytes
Dim balto
Dim bbajo
Dim crc
Dim env
Dim TBytes()
Dim b
nbytes = 3 + (cant * 2) + 2
env = Chr$(nDIS) & Chr$(cod)
env = env & Chr$(0) & Chr$(add)
/ 160
Comunicaciones
As String
As String
As Integer
.InputMode = comInputModeBinary
.CommPort = 1
.Settings = "9600,N,8,1" 'Parámetros de Comunicaciones
.PortOpen = True
'i' tiene el valor INTEGER de la dirección de memoria 1.
As Integer
As Integer
As Integer
As Long
As String
As Byte
As Integer
' Datos recibidos por el canal serie
' Datos a enviar por el canal serie
'Parámetros de comunicaciones
'Port serie 1 ó 2
'Apertura del port
'Cerrar las comunicaciones
cod = Código de lectura: 3 ó 4
cant = Cantidad de palabras a leer
'Nº de bytes a recibir
'Byte alto del CRC
'Byte bajo del CRC
'Valor del CRC
'Cadena a enviar
'Igual que "env"
'Índice
'Bytes a recibir
'cabecera
'palabra inicial