ICOM 200 Manual do Utilizador descarregar pdf (Página 47)

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

1 2 ... 42 43 44 45 46 47 48 49 50 51 52 53 54 55

Sem comentários

ICOM 200 Manual do Utilizador Página 47