Basic Stamp Alarm Sentral

[SLO7H]

Jeg har fått en oppgave som må være ferdig til mandag, nemlig om å lage en alarmsentral ved hjelp av Basic Stamp 2

Alarmen skal ha av/på bryter, PIR detektor, Magnetkontakt og en lysdiode som skal blinke ved alarm. Det skal også sies på skjermen (debug) hvor det har blitt detektert alarm, for eksempel "alarm i sektor 1"

 

Her er min første ide:

 

' {$STAMP BS2}

' {$PBASIC 2.5}

 

start:

 

DO

LOOP UNTIL (IN4=1)

DO

IF (IN5=1) THEN

DEBUG "Alarm i sektor 1"

HIGH IN7

PAUSE 100

LOW IN7

LOOP UNTIL (IN1=1)

GOTO start

GOSUB nummer2

 

nummer2

DO

LOOP UNTIL IN6=1

DEBUG "Alarm i sektor 2"

DO

HIGH IN7

PAUSE 100

LOW IN7

LOOP UNTIL (IN1=1)

GOTO start

 

Dette er min andre:

 

' {$STAMP BS2}

' {$PBASIC 2.5}

 

start:

 

DO

LOOP UNTIL (IN4=1)

DO

IF (IN5=1) THEN

GOSUB Alarm

 

 

DO

IF IN6=1 THEN

GOSUB Alarm2

 

Alarm

DEBUG "Alarm i sektor 1"

HIGH IN7

PAUSE 100

LOW IN7

LOOP UNTIL (IN1=1)

GOTO start

 

Alarm2

DEBUG "Alarm i sektor 2"

HIGH IN7

PAUSE 100

LOW IN7

LOOP UNTIL (IN1=1)

GOTO start

 

Hvis det er noen som vet om denne funker hadde det vært fint å høre fra dere, jeg kan ikke teste den enda. Hvis dere har noen nye ideer som kan fungere, eller har et program som funker hadde det vært kjempeflott å høre fra dere. Takk til alle som poster