Hallo -
ich möchte Zeichen aus der seriellen Schnittstelle lesen, aber ohne Wartezeit, wenn der Empfangsbuffer leer ist.
Sollte eigentlich mittels INKEY() ein Klacks sein...
(Mit ISCHARWAITING() übrigens dasselbe in Grün...)
Der untenstehende Code funktioniert - aber nicht, wenn die beiden auskommentierten Zeilen aktiv sind....
Nach 3 Stunden Kopfkratzen sehe ich den Wald vor lauter Bäumen nicht mehr ... fürchte ich ...
Vielen Dank schon mal im voraus für einen hilfreichen Tipp...
LG
Peter
$regfile = "m16def.dat"
$crystal = 16000000
Dim Rxbuffer As String * 255 ' Empfangsbuffer
Dim Txbuffer As String * 255 ' Sendebuffer
Dim I As Byte
Txbuffer = ""
Rxbuffer = ""
Ucsrb = 1 ' enable Hardware-UART
Open "comd.1:115200,8,n,1" For Output As #1
Config Serialin = Buffered , Size = 25
Open "comd.0:115200,8,n,1" For Input As #2
Do
Mainloop:
I = Inkey()
' If I > 0 Then
Input #2 , Rxbuffer
Print #1 , Rxbuffer
' End If
Loop
ich möchte Zeichen aus der seriellen Schnittstelle lesen, aber ohne Wartezeit, wenn der Empfangsbuffer leer ist.
Sollte eigentlich mittels INKEY() ein Klacks sein...
(Mit ISCHARWAITING() übrigens dasselbe in Grün...)
Der untenstehende Code funktioniert - aber nicht, wenn die beiden auskommentierten Zeilen aktiv sind....
Nach 3 Stunden Kopfkratzen sehe ich den Wald vor lauter Bäumen nicht mehr ... fürchte ich ...
Vielen Dank schon mal im voraus für einen hilfreichen Tipp...
LG
Peter
$regfile = "m16def.dat"
$crystal = 16000000
Dim Rxbuffer As String * 255 ' Empfangsbuffer
Dim Txbuffer As String * 255 ' Sendebuffer
Dim I As Byte
Txbuffer = ""
Rxbuffer = ""
Ucsrb = 1 ' enable Hardware-UART
Open "comd.1:115200,8,n,1" For Output As #1
Config Serialin = Buffered , Size = 25
Open "comd.0:115200,8,n,1" For Input As #2
Do
Mainloop:
I = Inkey()
' If I > 0 Then
Input #2 , Rxbuffer
Print #1 , Rxbuffer
' End If
Loop