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

ICOM-manual

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

'----- ICOM200_OUTPUTS.TIG

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

#include define_a.inc

user_var_strict

TASK Main

WORD i

USER_EPORT lastladr,10h

USER_EPORT physoffs, 0f0h

DIR_PORT 8,0

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

KB/s

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

OUT 8,10000000b,255 ' Buzzer aus !

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

'--------- OpenCollector Outputs ---------------------------------

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

FOR i = 0 to 7 ' 8 Pins

OUT 10h,mask (i),255 ' Pin auf "1" setzen

WAIT_DURATION 1000 ' 1 sec warten

OUT 10h,mask (i),0 ' Pin auf "0" setzen

WAIT_DURATION 1000 ' 1 sec warten

END

2-14

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

1 2 ... 17 18 19 20 21 22 23 24 25 26 27 ... 54 55

Brak uwag

ICOM 200 Instrukcja Użytkownika Strona 22