Red de conocimiento informático - Problemas con los teléfonos móviles - Problemas encontrados al usar VB y rs485

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

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>

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