Hallo,
Ben uit mijn probleem gekomen met de volgende commando set
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
DEVICE 16F628A ; Type pic
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
; 76543210 <<<Een hulpregeltje
PORTA = %11111111 ; Alle niveaus van PORTA eerst laag maken
PORTB = %00000000 ; Alle niveaus van PORTB eerst laag maken
TRISA = %00000000 ; Alle 8 poorten van PORTA zijn uitgangen
TRISB = %11111111 ; Alle 8 poorten van PORTB zijn ingangen
ALL_DIGITAL TRUE ; Alle poorten zijn digitaal
CLEAR ; Wist alle geheugen
SYMBOL Tst1 = PORTB.0 ; Toestel 1 zit op poort A.0
SYMBOL Tst2 = PORTB.1 ; Toestel 2 zit op poort A.1
SYMBOL Tst3 = PORTB.2 ; Toestel 3 zit op poort A.2
SYMBOL Tst4 = PORTB.3 ; Toestel 4 zit op poort A.3
SYMBOL Display1 = PORTA.0 ; Display 1 zit op poort B.0
SYMBOL Display2 = PORTA.1 ; Display 2 zit op poort B.1
SYMBOL Display3 = PORTA.2 ; Display 3 zit op poort B.2
SYMBOL Display4 = PORTA.3 ; Display 4 zit op poort B.3
SYMBOL OFF = 0 ; OFF
DIM A1 AS BIT ;GEHEUGEN PLAATS IVM TOESTAND SCHAKELAAR
DIM A2 AS BIT
DIM A3 AS BIT
DIM A4 AS BIT
PORTB_PULLUPS ON
Telefoon: ; Hoofd programmanaam
WHILE 1=1
IF Tst1 = OFF THEN
IF A1 = 0 THEN
LOW Display1
DELAYMS 250
HIGH Display1
A1 = 1
ENDIF
ELSE
IF A1 = 1 THEN
LOW Display1
DELAYMS 250
HIGH Display1
A1 = 0
ENDIF
ENDIF
WEND
END
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
misschien heeft iemand hier nog wat aan.
groetjes,
Djihfhoe Wang
[Bericht gewijzigd door dwang op 17 augustus 2008 16:53:57]