Hallo, Ich habe folgendes Programm zur Steuerung einer Kreuzung ,in Basic/Bascom , geschrieben.In der Schaltung sind 2 Taster verbaut, einer zum umschalten der Ampeln für Fußgänger in die eine Richtung und in die andere Richtung. Die Ampeln für die Straße sowie die für die Fußgänger haben jeweils 2 LED´s, einmal grün und einmal rot. Nun habe ich das Problem ,wenn ich den Mikrocontroller anmache ,dann macht er ohne dass ich einen Taster drücke das ganze Programm durch. Würde mich über Lösungen meines Problems freuen :) Mfg Dani $regfile = "m32def.dat" $crystal = 1000000 Config Portc.1 = Output Config Portc.2 = Output Config Portc.3 = Output Config Portc.4 = Output Config Portc.5 = Output Config Portc.6 = Output Config Portc.7 = Output Config Portd.0 = Output Config Pina.6 = Input Config Pina.7 = Input Config Portd.2 = Output Dim Zeit As Integer Zeit = 2500 Dim La As Integer La = 5000 Dim T As Integer T = 10000 Do If Pina.7 = 1 Then Waitms La Portc.1 = 0 Portc.2 = 1 Waitms Zeit Portc.3 = 0 Portc.4 = 1 Sound Portd.2 , 100 , 100 Waitms La Sound Portd.2 , 100 , 160 Portc.3 = 1 Portc.4 = 0 Waitms Zeit Portc.1 = 1 Portc.2 = 0 End If If Pina.7 = 1 Then Waitms La Portc.5 = 0 Portc.6 = 1 Waitms Zeit Portc.7 = 0 Portd.0 = 1 Sound Portd.2 , 100 , 100 Waitms La Sound Portd.2 , 100 , 160 Portc.7 = 1 Portd.0 = 0 Waitms Zeit Portc.5 = 1 Portc.6 = 0 End If Loop End
Angehängte Dateien:
-
Unbenannt.png
(4,2 KB)
