Buongiorno a tutti,
stamani ho provato ad utilizzare la procedura della ricezione di stringhe da seriale usando VB2008 Express Edition in entrambi i pc e per l'invio di stringhe ho usato il seguente codice:
In questo secondo caso riesco a leggere la stringa inviata, al contrario di quando utilizzavo Tera Term Pro per l'invio della stringa. Ora il problema sorge quando non invio nulla e all'interno del Do ( vedasi codice del primo messaggio) devo riassegnare il valore a Incoming. Infatti mi si ripresenta il problema originario in cui non posso più eseguire alcuna istruzione. Mi sapreste dire come mai?codice:Import System Import System.IO Public Class Form1 Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Using COM1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1", 9600,IO.Ports.Parity.None ,8, 1) COM1.WriteLine("prova") End Using Close() End Sub End Class

Rispondi quotando