ICOM 200 Instrukcja Użytkownika Pobierz pdf (Strona 44)

ICOM-manual

'--------------------------------------------------------------------

'----- ICOM200_RS232.TIG

'--------------------------------------------------------------------

#include define_a.inc

user_var_strict

TASK Main

BYTE i,k

DIR_PORT 8,0

INSTALL DEVICE #lcd,"LCD2.TDD",0,0,0EEH,1,150,11H' LCD-1=128x64, 150

KB/s

INSTALL DEVICE #SER, "SER1B_K1.TDD",&

BD_9_600, DP_8N, JA, BD_9_600, DP_8N, JA

OUT 8,11111111b,11011111b ' set CTRL-Pins of T6963C

OUT 8,10000000b,255 ' Buzzer off !

LOOP 999999999 ' Endlosschleife

GET #ser,#0,#1,1,i ' Eingangsbufferfüllstand

IF I > 0 THEN

GET #ser,#0,1,k ' Seriellen Eingangsbuffer lesen

PRINT #lcd,"Taste = "; chr$(k) ' Ausgabe auf dem LCD

ENDIF

ENDLOOP

END

3-10

Wilke Technology GmbH • 0241/918900 • http://www.wilke.de/ • [email protected]

1 2 ... 39 40 41 42 43 44 45 46 47 48 49 ... 54 55

Brak uwag

ICOM 200 Instrukcja Użytkownika Strona 44