Hallo alle,
habe ein Programm geschrieben für ein Mega328,
Ist eine Ampelsteuerung für Modellbahn.
Würde jetzt gerne die weißen LED toggeln lassen wenn
die Fußgänger auf grün warten.
Im Programm F1_3 weiss und F2_4 weiss.
Klappt aber nicht , hatte den Toggle Befehl benutzt, der schaltet die ein, aber nicht wieder aus.....
Evtl. kann mir da einer helfen ????
Gruß Thomas
Alles anzeigen
habe ein Programm geschrieben für ein Mega328,
Ist eine Ampelsteuerung für Modellbahn.
Würde jetzt gerne die weißen LED toggeln lassen wenn
die Fußgänger auf grün warten.
Im Programm F1_3 weiss und F2_4 weiss.
Klappt aber nicht , hatte den Toggle Befehl benutzt, der schaltet die ein, aber nicht wieder aus.....
Evtl. kann mir da einer helfen ????
Gruß Thomas
Quellcode
- 'Programmname: Ampelkreuzung 328p.bas
- 'Funktion: Ampelkreuzung mit Fussgänger
- 'Mikrocontroller: Mega328
- '------------------------------------------------------------------------------------
- $regfile = "m328pdef.dat" ' eingesetzter Mikrocontroller
- $crystal = 16000000 ' eingestellte Taktfrequenz
- $hwstack = 40
- $swstack = 32
- $framesize = 60
- '------------------------------------------------------------------------------------
- Config Portc.0 = Input
- Config Portb = Output 'gesamten Port B als Ausgabeport
- Config Portd = Output 'gesamten Port D als Ausgabeport
- A1_3 Rot Alias Portb.5 'Aliasnamen vergeben
- A1_3 Gelb Alias Portb.4
- A1_3 Gruen Alias Portb.3
- A2_4 Rot Alias Portb.2
- A2_4 Gelb Alias Portb.1
- A2_4 Gruen Alias Portb.0
- F1_3 Weiss Alias Portd.7
- F1_3 Rot Alias Portd.6
- F1_3 Gruen Alias Portd.5
- F2_4 Weiss Alias Portd.4
- F2_4 Rot Alias Portd.3
- F2_4 Gruen Alias Portd.2
- '-----------------------------------------------------------------------------------
- Dim Analogwandler As Word 'Variable zur Aufnahme des Wertes vom Analogwandler 'Schleifenanfang
- Dim Potiwert As Integer
- Config Adc = Single , Prescaler = Auto , Reference = Avcc
- Do
- Analogwandler = Getadc(0)
- Potiwert = Analogwandler / 16
- 'Phase 1
- A1_3 Rot = 1
- A1_3 Gelb = 0
- A1_3 Gruen = 0
- A2_4 Rot = 0
- A2_4 Gelb = 0
- A2_4 Gruen = 1
- F1_3 Gruen = 1
- F1_3 Rot = 0
- F2_4 Rot = 1
- Wait Potiwert
- F1_3 Gruen = 0
- F1_3 Rot = 1
- Wait 1
- 'Phase 2
- A1_3 Rot = 1
- A1_3 Gelb = 0
- A1_3 Gruen = 0
- A2_4 Rot = 0
- A2_4 Gelb = 1
- A2_4 Gruen = 0
- Wait 1
- 'Phase 3
- A1_3 Rot = 1
- A1_3 Gelb = 0
- A1_3 Gruen = 0
- A2_4 Rot = 1
- A2_4 Gelb = 0
- A2_4 Gruen = 0
- Wait 1
- 'Phase 4
- A1_3 Rot = 1
- A1_3 Gelb = 1
- A1_3 Gruen = 0
- A2_4 Rot = 1
- A2_4 Gelb = 0
- A2_4 Gruen = 0
- Wait 1
- 'Phase 5
- A1_3 Rot = 0
- A1_3 Gelb = 0
- A1_3 Gruen = 1
- A2_4 Rot = 1
- A2_4 Gelb = 0
- A2_4 Gruen = 0
- F2_4 Gruen = 1
- F2_4 Rot = 0
- Wait Potiwert
- F2_4 Gruen = 0
- F2_4 Rot = 1
- Wait 1
- 'Phase 6
- A1_3 Rot = 0
- A1_3 Gelb = 1
- A1_3 Gruen = 0
- A2_4 Rot = 1
- A2_4 Gelb = 0
- A2_4 Gruen = 0
- Wait 1
- 'Phase 7
- A1_3 Rot = 1
- A1_3 Gelb = 0
- A1_3 Gruen = 0
- A2_4 Rot = 1
- A2_4 Gelb = 0
- A2_4 Gruen = 0
- Wait 1
- 'Phase 8
- A1_3 Rot = 1
- A1_3 Gelb = 0
- A1_3 Gruen = 0
- A2_4 Rot = 1
- A2_4 Gelb = 1
- A2_4 Gruen = 0
- Wait 1
- Loop
- End