Druckbare Version
Hallo,
also ich will daten vom µC über RS232 Auslesen.
Etwas zu senden geht bei mir aber wenn ich auslesen will bleibt das Programm hängen.
????
Sub ReceiveSerialData()
Dim var As String
SerialPort1.Open()
var = SerialPort1.ReadLine()
SerialPort1.Close()
TextBox1.Text = var
End Sub
http://www.mikrocontroller.net/forum/read-8-346424.html
Guck mal in diesen Thread bei Microcontroller.net rein. Das Prob ist das der PC wartet das der Puffer voll wird. Und solange blockiert dein Programm auch den kompletten PC.
JA aber was mach der Befehl DoEvents
DoEvents gibt Windows die Möglichkeit, alle anstehenden Aufgaben weiter zu bearbeiten, während dein Prog im Hintergrund vor sich hinwartet. Beispiel: Machst du ein Prog wo der User was eintragen muss, steht der komplette Computer an dieser Stelle und wartet ohne DoEvents. Mit DoEvents wartet dein Prog und der Computer darf im Hintergrund (halt das virtuelle Multitasking von Windows) weiter seine Sachen abarbeiten, wie Schnittstellen auslesen, Mail abholen und ähnliches.