Icom -200 Handbuch Seite 25

'--------------------------------------------------------------------
'----- 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"
OUT 8,11111111b,11011111b
OUT 8,10000000b,255
LOOP 99999
FOR K = 0 TO 3
GET #4, #K, 2, Value(K)
NEXT
PRINT #lcd, "<1>";
FOR K = 0 TO 3
PRINT #lcd, "AD"; K; ":";
PRINT #lcd, Value(K)
NEXT
WAIT_DURATION 100
ENDLOOP
END
Wilke Technology GmbH • 0241 / 918 900 • http://www.wilke.de/ • support@wilke.de
ICOM-200 / 201
' Analog-Inputs installieren
' set CTRL-Pins of T6963C
' 4 Kanaele
' Wert aus AD-Wandler lesen
' naechster Kanal
' Bildschirm loeschen
' 4 Kanaele
' Kanal-Nr. anzeigen
' Wert auf LC-Display ausgeben
' naechster Kanal
' 100 ms warten
2-17
2