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

ICOM-200 / 201

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

'----- 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/918900 • http://www.wilke.de/ • [email protected] 2-19

1 2 ... 22 23 24 25 26 27 28 29 30 31 32 ... 54 55

Brak uwag

ICOM 200 Instrukcja Użytkownika Strona 27