Problemas encontrados al usar VB y rs485
Opción explícita
Atenuar a1 como cadena 'Definir a1 como una variable global
Atenuar bytData(1) como byte
Sub cmdSend_Click() privado
Llamar a SendData( bytData)
End Sub
Función pública SendData(ByRef bytData() As Byte) siempre
En caso de error, reanudar a continuación p>
MSComm1.InBufferCount = 0 'Borrar el buffer de recepción
MSComm1.OutBufferCount = 0 'Borrar el buffer de envío
MSComm1.RTreshold = 1 'Generar evento MSComm p> p>
MSComm1.PortOpen = True 'Abrir puerto
Text3 = ""
bytData(0) = & amp;HF0
bytData (1) = &HF
End Sub o-Public Sub out()
Dim tmp, buf As String
tmp = Format( Fecha, "aaammdd" ) & Formato( Hora(), "hhmmss")
MSComm.Output = tmp, buf Como cadena