Interrupts richtig verwenden

[Alex (Gast)]

Hallo!
ich habe 2 verschiedene Programme.
Wenn pind.0 low ist, soll das erste programm ablaufen. wenn pind.0 high 
ist, dann das zweite programm.
beide Programme habe do loop schleifen

[Frank L. (hermastersvoice)]

OK, meinen Segen hast du.

[Alex (Gast)]

>OK, meinen Segen hast du.
bitte?

[Stefan (Gast)]

Port-Interrupts sind i.A. flanken- und nicht zustandsgetriggert.
Also Portd.0 IRQ auf steigende UND fallende Flanke triggern lassen, in 
der ISR dann den Pegel feststellen, entsprechendes Flag setzen (Prog 
1/2) und in Deiner main() dann aufgrund des Flags Prog 1/2 ausführen, 
ferdich!

[Marvin M. (Gast)]

Was Dir Frank L. damit sagen möchte:
Nachts ist es kälter als draußen.
Keine Ahnung, was Du meinst - mehr Info, bitte.

[Alex (Gast)]

ok, ich möchte diese 2 Programmen Verknüpfen
Wenn pind.0 low ist, soll das programm 1 ausgeführt werden (pinp.0 high 
, dann das zweite)

Programm1:

Cls
Cursor Off

Dim Gray As Word
Dim Lobyte As Word
Dim Hibyte As Word
Locate 1 , 1
Lcd "P.G.Tester(GRAY)"
Locate 4 , 1
Lcd "Ausbildung EGS05"
Locate 2 , 5
Lcd "*-"
Locate 2 , 10
Lcd "-*"
Locate 3 , 3
Lcd "------------"

Do
Lobyte = Pina
Hibyte = Pinc
Hibyte = Hibyte And &B0000000000001111
Rotate Hibyte , Left , 8

Gray = Lobyte + Hibyte
Gray = Gray2bin(gray)

Locate 2 , 7
Lcd Gray

Waitms 200
Locate 2 , 7
Lcd "   "
Loop
End

Programm2

Cls
Cursor Off

Dim Lobyte As Word
Dim Hibyte As Word
Dim Code2 As Byte

Locate 1 , 1
Lcd "P.G.Tester(BCD)"
Locate 4 , 1
Lcd "Ausbildung EGS05"
Locate 2 , 5
Lcd "*-"
Locate 2 , 10
Lcd "-*"
Locate 3 , 3
Lcd "------------"

Do
Lobyte = Pina
Hibyte = Pinc
Hibyte = Hibyte And &B0000000000001111
Rotate Hibyte , Left , 8
Code2 = Lobyte + Hibyte
Locate 2 , 7
Lcd Code2

Waitms 200
Locate 2 , 7
Lcd "   "
Loop
End

[Stefan B. (stefan)]

Du brauchst ein "Überprogramm", welches den Pin abfragt und dann in die 
entsprechende Unterroutine verzweigt. Die Abfrage des Pins kann 
klassisch erfolgen (Jumper gesetzt?) oder per Interrupt (dann mit 
eigener Endlosschleife im Überprogramm, nach Erkennung Interrupt 
abschalten nicht vergessen!).