BASCOM : INKEY() funktioniert nicht

[Peter Baumgartner (Gast)]

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

[Karl H. (kbuchegg)]

Peter Baumgartner schrieb:
> 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...)

Ich würde mich an deiner Stelle mal fragen, woher eigentlich INKEY 
wissen soll, dass es vom Kanal #2 lesen soll.

[Peter Baumgartner (Gast)]

Lt. BASCOM-Help wird die Kanalnummer nur für SOFT-UART benötigt -

... und ...

INKEY(#2) funktioniert genausowenig - das hab ich schon hinter mir

LG
Peter

[Tobi (Gast)]

Hallo,

vielleicht hilft dir ja diese Seite weiter:
http://halvar.at/elektronik/kleiner_bascom_avr_kurs/uart_rs232_vom_computer/

mfg
Tobi

[Peter Baumgartner (Gast)]

Danke an alle die auf meine Bitte geantwortet haben -

ich hab zwar nicht die Lösung auf dem Tablett präsntirt bekommen, aber 
Anregung genug, mich slbst in die Thematik reinzuknieen - besonders den 
Unterschied zwischen SW-UART und HW-UART.

Falls es jemanden interessieren sollte - hier der funktionierende Code:
(noch besser gehts per Interrupt)


$regfile = "m16def.dat"
$crystal = 16000000

$baud = 115200                                              ' use baud 
rate
$hwstack = 32                                               ' default
$swstack = 10                                               ' default
$framesize = 40                                             ' default

Dim Rxbuffer As String * 1                                  ' 
Empfangsbuffe
Dim Txbuffer As String * 255                                ' 
Sendebuffer
Dim Ibu As Byte

Txbuffer = ""
Rxbuffer = ""

Do
Mainloop:
   Ibu = Ischarwaiting()
   If Ibu <> 0 Then
      Rxbuffer = Inkey()
      Print Rxbuffer;
   End If
Loop


LG
Peter