Справочник Пользователя для ICOM 241

ICOM-241

'--------------------------------------------------------------------
'----- ICOM200_AD.TIG
'--------------------------------------------------------------------

#include define_a.inc
user_var_strict
TASK Main
BYTE k
ARRAY Value(4) OF WORD
DIR_PORT 8,0
DIR_PORT 7,0
INSTALL_DEVICE #lcd,"LCD2.TDD",0,0,0EEH,1,150,11H' LCD-1=128x64, 150
KB/s

INSTALL_DEVICE #4, "ANALOG1.TDD" ' Analog-Inputs installieren

OUT 8,11111111b,11011111b

' set CTRL-Pins of T6963C

OUT 8,10000000b,255

LOOP 99999
FOR K = 0 TO 3 ' 4 Kanaele
GET #4, #K, 2, Value(K) ' Wert aus AD-Wandler lesen
NEXT ' naechster Kanal
PRINT #lcd, "<1>"; ' Bildschirm loeschen
FOR K = 0 TO 3 ' 4 Kanaele
PRINT #lcd, "AD"; K; ":"; ' Kanal-Nr. anzeigen
PRINT #lcd, Value(K) ' Wert auf LC-Display ausgeben
NEXT ' naechster Kanal
WAIT_DURATION 100 ' 100 ms warten
ENDLOOP
END

Wilke Technology GmbH • 0241 / 918 900 • http://www.wilke.de/ • support@wilke.de

3-13