Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature currently requires accessing the site using the built-in Safari browser.
Sub DigiOut(ByVal Port As String, ByVal Data As String)
Dim buffer As Byte() = New Byte(4) {}
buffer(0) = 42 '*
buffer(1) = 65 'A
buffer(2) = Port 'Puerto a escribir
buffer(3) = Data 'Dato a escribir
buffer(4) = 13 'Fin de comando
SerialPort.Write(buffer, 0, 5)
End Sub
Pues entonces no se que hago mal, cuando pongo el SerialPort1.Readline() se congela el programa, es como si no recibiera el final de la linea.