AVR BASCOM - jak wyjsć z pętli po nacisnieciu klawisz ?

[TomcioPaluszek]

Witam
od niedawna bawię się bascomem i mam taki problem.

Komputerek ma zwiekszac wartość x do momentu nacisniecia klawisza. Niestety nie reaguje na nacisniecie klawisza. Używam PECEL-a.

Oto mój programik

$regfile = "m8535.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portd.7 , Db7 = Porta.7 , E = Portc.3 , Rs = Portc.2
Config Kbd = Portb

Dim X As Byte
Dim B As Byte
X = 1
B = Getkbd()

Do
Incr X
Waitms 50
Cls
Lcd "numer: " ; X
Loop Until B=3 ; tu ma być nacisniety klawisz

Cls
Lcd "a kuku"
Wait 2
End

Może ktoś pomoże mi z tą błachostką ??

[radzio]

Kod: Zaznacz cały

B = Getkbd() Do Incr X Waitms 50 Cls Lcd "numer: " ; X Loop Until B=3 ; tu ma być nacisniety klawisz

Przyjrzyj się gdzie odczytujesz kawiaturę - przed pętlą. Czyli klawiatura zostanie odczytana przed weściem w pętle do loop i potem już nie bedzie odczytywana. Spróbuj tego :

Kod: Zaznacz cały

Do B = Getkbd() Incr X Waitms 50 Cls Lcd "numer: " ; X Loop Until B=3 ; tu ma być nacisniety klawisz

[TomcioPaluszek]

Wiedziałem że to był jakiś głupi błąd Teraz działa poprawnie. A pół godziny się nad tym męczyłem (a musze powiedziec że w życiu nic nie programowałem)

Wielkie dzięki za pomoc

PS. Coś czuje że jeszcze nie raz będe tobie wdzięczny za pomoc