Dämmi
30.11.2009, 14:02
Hallo
Also ich hab eine kleines Programm für einen Atmega 8 geschrieben welches LEDs ansteuert.
Es werden genau 7 Ausgänge angesteuert. Jeder Ausgang kann über einen Software PWM gesteuert werden. Es sollen Lauflichter entestehen die Geschwindigkeit dieser Lauflichter kann auch eingestellt werden. Beides geschieht über ein Poti. Es werden dazu 2 Timer benutzt. Die Einstellungen sollen Spannungsfrei gespeichert werden.
Nun zum Problem. Leider stürzt das Programm immer mal wieder ab. Ich weiß nicht warum und es gibt auch keine Regelmäßigkeit. Was aber bis jetzt immer so war ist wenn der µC längere Zeit nicht eingeschaltet ist und dann wieder eingeschaltet wird stürzt das Programm immer ab. Es kann dann durch ein bischen hin und her stellen zum laufen gebracht werden. Das war aber eigentlich nicht so gedacht.... Kann mir jemand helfen?
Danke für die Hilfe.
lg dämmi
Das Programm:
'-----------------------------Registrierung-------------------------------------
$regfile = "m8def.dat" 'Konfiguration auf ATmega 8
$crystal = 16000000 'Quarztakt 16MHz
'-----------------------------Configuration-------------------------------------
'Config Porta = Input
Config Portb = Output 'Led Ausgang
Config Portd.7 = Output 'Led Ausgang
Config Portd.0 = Input 'Schalter Eingang
Config Portd.1 = Input 'Schalter Eingang
Config Portd.2 = Input 'Schalter Eingang
Config Portd.3 = Input 'Schalter Eingang
Config Portd.4 = Input 'Schalter Eingang
Config Portd.5 = Input 'Schalter Eingang
Config Portd.6 = Input 'Schalter Eingang
Config Adc = Single , Prescaler = Auto , Reference = Internal 'ADC Konfiguaration 'mit interner reference
'Spannung
Start Adc
Config Timer0 = Timer , Prescale = 1 'Konfiguriere Timer0
Config Timer2 = Timer , Prescale = 8
Enable Timer2
Enable Timer0 'schalte den Timer0 ein
On Timer0 Routtimer0
On Timer2 Routtimer2 'verzweige bei Timer0 überlauf zu Isr_von_Timer0
Enable Interrupts
'-----------------------------Dimensionierung-----------------------------------
Tast1 Alias Pind.0
Tast2 Alias Pind.1
Tast3 Alias Pind.2
Tast4 Alias Pind.3
Tast5 Alias Pind.4
Tast6 Alias Pind.5
Tast7 Alias Pind.6
Leds Alias Portb
Led1 Alias Portb.0
Led2 Alias Portb.1
Led3 Alias Portb.2
Led4 Alias Portb.3
Led5 Alias Portb.4
Led6 Alias Portb.5
Led7 Alias Portd.7
Dim Adcwert As Word
Dim Adcwertalt As Word
Dim Zaehler As Word
Dim Zaehler2 As Word
Dim Pwm As Word
Dim Speed As Word
Dim Schritt As Word
Dim Aus As Bit
Dim Status As Byte
Dim Staled1 As Bit
Dim Staled2 As Bit
Dim Staled3 As Bit
Dim Staled4 As Bit
Dim Staled5 As Bit
Dim Staled6 As Bit
Dim Staled7 As Bit
Dim Epwm As Eram Word
Dim Espeed As Eram Word
Dim Tast1stat As Bit
Dim Adcstat As Bit
'-----------------------------Vorkonfiguration----------------------------------
Portb = &B00000000
Portd.7 = 0
Adcwert = 0
Adcwertalt = 0
Zaehler = 0
Zaehler2 = 0
Schritt = 0
Aus = 0
Status = 0
Timer0 = 0
Timer2 = 0
Adcstat = 0
Pwm = Epwm
Speed = Espeed
Tast1stat = Tast1
'----------------------------Hauptprogramm--------------------------------------
Do
If Tast1stat <> Tast1 Or Adcstat = 1 Then 'einlesen des Poti Werts
Adcstat = 1
Adcwert = Getadc(0)
If Adcwert <> Adcwertaltthen
Adcwertalt = Adcwert
If Tast1 = 0 Then 'abspeichern des Wertes als PWM Wert
Pwm = Adcwertalt
End If
If Tast1 = 1 Then 'abspeichern des Wertes als Speed Wert
Speed = 1400 - Adcwertalt
End If
End If
End If
If Tast7 = 1 And Tast3 = 0 And Tast4 = 0 And Tast5 = 0 And Tast6 = 0 And Tast2 = 0 Then
If Status <> 1 Then
Schritt = 0 'Programm 1
Status = 1
End If
If Schritt = 1 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 2 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
Schritt = 0
End If
End If
If Tast3 = 1 And Tast2 = 0 And Tast4 = 0 And Tast5 = 0 And Tast6 = 0 And Tast7 = 0 Then
If Status <> 2 Then
Schritt = 0 'Programm 2
Status = 2
End If
If Schritt = 1 Or Schritt = 15 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
If Schritt = 15 Then Schritt = 0
End If
If Schritt = 2 Or Schritt = 14 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 3 Or Schritt = 13 Then
Staled1 = 1
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 4 Or Schritt = 12 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 5 Or Schritt = 11 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 6 Or Schritt = 10 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 7 Or Schritt = 9 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 0
End If
If Schritt = 8 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
End If
If Tast4 = 1 And Tast2 = 0 And Tast3 = 0 And Tast5 = 0 And Tast6 = 0 And Tast7 = 0 Then
If Status <> 3 Then 'Programm 3
Schritt = 0
Status = 3
End If
If Schritt = 1 Or Schritt = 11 Or Schritt = 21 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
If Schritt = 21 Then Schritt = 0
End If
If Schritt = 2 Or Schritt = 20 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 3 Or Schritt = 19 Then
Staled1 = 1
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 4 Or Schritt = 18 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 5 Or Schritt = 17 Then
Staled1 = 0
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 6 Or Schritt = 16 Then
Staled1 = 0
Staled2 = 0
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 7 Or Schritt = 15 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 0
End If
If Schritt = 8 Or Schritt = 14 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 9 Or Schritt = 13 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Led7 = 1
End If
If Schritt = 10 Or Schritt = 12 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 1
End If
End If
If Tast6 = 1 And Tast2 = 0 And Tast3 = 0 And Tast4 = 0 And Tast5 = 0 And Tast7 = 0 Then
If Status <> 5 Then
Schritt = 0 'Programm 4
Status = 5
End If
If Schritt = 1 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 2 Then
Staled1 = 0
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 1
Staled7 = 0
Led1 = 0
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Led7 = 0
End If
If Schritt = 3 Then
Staled1 = 0
Staled2 = 0
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 1
End If
If Schritt = 4 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
Schritt = 0
End If
End If
If Tast5 = 1 And Tast2 = 0 And Tast3 = 0 And Tast4 = 0 And Tast7 = 0 And Tast6 = 0 Then
If Status <> 6 Then
Schritt = 0 'Programm 5
Status = 6
End If
If Schritt = 1 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 2 Then
Staled1 = 1
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 3 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 4 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 5 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 6 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 0
End If
If Schritt = 7 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 8 Then
Staled1 = 0
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 9 Then
Staled1 = 0
Staled2 = 0
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 10 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 11 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 12 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Led7 = 1
End If
If Schritt = 13 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 1
Schritt = 0
End If
End If
If Tast2 = 1 Then 'abspeichern der Werte im Eprom
Espeed = Speed
Epwm = Pwm
Do
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
Loop Until Tast7 = 0
End If
Loop
End
Routtimer0:
If Zaehler <= Pwm Then 'PWM
If Staled1 = 1 Then Led1 = 1
If Staled2 = 1 Then Led2 = 1
If Staled3 = 1 Then Led3 = 1
If Staled4 = 1 Then Led4 = 1
If Staled5 = 1 Then Led5 = 1
If Staled6 = 1 Then Led6 = 1
If Staled7 = 1 Then Led7 = 1
End If
If Zaehler > Pwm Then
If Staled1 = 1 Then Led1 = 0
If Staled2 = 1 Then Led2 = 0
If Staled3 = 1 Then Led3 = 0
If Staled4 = 1 Then Led4 = 0
If Staled5 = 1 Then Led5 = 0
If Staled6 = 1 Then Led6 = 0
If Staled7 = 1 Then Led7 = 0
End If
If Zaehler = 1026 Then Zaehler = 0
Zaehler = Zaehler + 1
Return
Routtimer2: 'Programm geschwindigkeit
If Zaehler2 >= Speed Then
Zaehler2 = 0
Schritt = Schritt + 1
End If
Zaehler2 = Zaehler2 + 1
Return
Also ich hab eine kleines Programm für einen Atmega 8 geschrieben welches LEDs ansteuert.
Es werden genau 7 Ausgänge angesteuert. Jeder Ausgang kann über einen Software PWM gesteuert werden. Es sollen Lauflichter entestehen die Geschwindigkeit dieser Lauflichter kann auch eingestellt werden. Beides geschieht über ein Poti. Es werden dazu 2 Timer benutzt. Die Einstellungen sollen Spannungsfrei gespeichert werden.
Nun zum Problem. Leider stürzt das Programm immer mal wieder ab. Ich weiß nicht warum und es gibt auch keine Regelmäßigkeit. Was aber bis jetzt immer so war ist wenn der µC längere Zeit nicht eingeschaltet ist und dann wieder eingeschaltet wird stürzt das Programm immer ab. Es kann dann durch ein bischen hin und her stellen zum laufen gebracht werden. Das war aber eigentlich nicht so gedacht.... Kann mir jemand helfen?
Danke für die Hilfe.
lg dämmi
Das Programm:
'-----------------------------Registrierung-------------------------------------
$regfile = "m8def.dat" 'Konfiguration auf ATmega 8
$crystal = 16000000 'Quarztakt 16MHz
'-----------------------------Configuration-------------------------------------
'Config Porta = Input
Config Portb = Output 'Led Ausgang
Config Portd.7 = Output 'Led Ausgang
Config Portd.0 = Input 'Schalter Eingang
Config Portd.1 = Input 'Schalter Eingang
Config Portd.2 = Input 'Schalter Eingang
Config Portd.3 = Input 'Schalter Eingang
Config Portd.4 = Input 'Schalter Eingang
Config Portd.5 = Input 'Schalter Eingang
Config Portd.6 = Input 'Schalter Eingang
Config Adc = Single , Prescaler = Auto , Reference = Internal 'ADC Konfiguaration 'mit interner reference
'Spannung
Start Adc
Config Timer0 = Timer , Prescale = 1 'Konfiguriere Timer0
Config Timer2 = Timer , Prescale = 8
Enable Timer2
Enable Timer0 'schalte den Timer0 ein
On Timer0 Routtimer0
On Timer2 Routtimer2 'verzweige bei Timer0 überlauf zu Isr_von_Timer0
Enable Interrupts
'-----------------------------Dimensionierung-----------------------------------
Tast1 Alias Pind.0
Tast2 Alias Pind.1
Tast3 Alias Pind.2
Tast4 Alias Pind.3
Tast5 Alias Pind.4
Tast6 Alias Pind.5
Tast7 Alias Pind.6
Leds Alias Portb
Led1 Alias Portb.0
Led2 Alias Portb.1
Led3 Alias Portb.2
Led4 Alias Portb.3
Led5 Alias Portb.4
Led6 Alias Portb.5
Led7 Alias Portd.7
Dim Adcwert As Word
Dim Adcwertalt As Word
Dim Zaehler As Word
Dim Zaehler2 As Word
Dim Pwm As Word
Dim Speed As Word
Dim Schritt As Word
Dim Aus As Bit
Dim Status As Byte
Dim Staled1 As Bit
Dim Staled2 As Bit
Dim Staled3 As Bit
Dim Staled4 As Bit
Dim Staled5 As Bit
Dim Staled6 As Bit
Dim Staled7 As Bit
Dim Epwm As Eram Word
Dim Espeed As Eram Word
Dim Tast1stat As Bit
Dim Adcstat As Bit
'-----------------------------Vorkonfiguration----------------------------------
Portb = &B00000000
Portd.7 = 0
Adcwert = 0
Adcwertalt = 0
Zaehler = 0
Zaehler2 = 0
Schritt = 0
Aus = 0
Status = 0
Timer0 = 0
Timer2 = 0
Adcstat = 0
Pwm = Epwm
Speed = Espeed
Tast1stat = Tast1
'----------------------------Hauptprogramm--------------------------------------
Do
If Tast1stat <> Tast1 Or Adcstat = 1 Then 'einlesen des Poti Werts
Adcstat = 1
Adcwert = Getadc(0)
If Adcwert <> Adcwertaltthen
Adcwertalt = Adcwert
If Tast1 = 0 Then 'abspeichern des Wertes als PWM Wert
Pwm = Adcwertalt
End If
If Tast1 = 1 Then 'abspeichern des Wertes als Speed Wert
Speed = 1400 - Adcwertalt
End If
End If
End If
If Tast7 = 1 And Tast3 = 0 And Tast4 = 0 And Tast5 = 0 And Tast6 = 0 And Tast2 = 0 Then
If Status <> 1 Then
Schritt = 0 'Programm 1
Status = 1
End If
If Schritt = 1 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 2 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
Schritt = 0
End If
End If
If Tast3 = 1 And Tast2 = 0 And Tast4 = 0 And Tast5 = 0 And Tast6 = 0 And Tast7 = 0 Then
If Status <> 2 Then
Schritt = 0 'Programm 2
Status = 2
End If
If Schritt = 1 Or Schritt = 15 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
If Schritt = 15 Then Schritt = 0
End If
If Schritt = 2 Or Schritt = 14 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 3 Or Schritt = 13 Then
Staled1 = 1
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 4 Or Schritt = 12 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 5 Or Schritt = 11 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 6 Or Schritt = 10 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 7 Or Schritt = 9 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 0
End If
If Schritt = 8 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
End If
If Tast4 = 1 And Tast2 = 0 And Tast3 = 0 And Tast5 = 0 And Tast6 = 0 And Tast7 = 0 Then
If Status <> 3 Then 'Programm 3
Schritt = 0
Status = 3
End If
If Schritt = 1 Or Schritt = 11 Or Schritt = 21 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
If Schritt = 21 Then Schritt = 0
End If
If Schritt = 2 Or Schritt = 20 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 3 Or Schritt = 19 Then
Staled1 = 1
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 4 Or Schritt = 18 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 5 Or Schritt = 17 Then
Staled1 = 0
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 6 Or Schritt = 16 Then
Staled1 = 0
Staled2 = 0
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 7 Or Schritt = 15 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 0
End If
If Schritt = 8 Or Schritt = 14 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 9 Or Schritt = 13 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Led7 = 1
End If
If Schritt = 10 Or Schritt = 12 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 1
End If
End If
If Tast6 = 1 And Tast2 = 0 And Tast3 = 0 And Tast4 = 0 And Tast5 = 0 And Tast7 = 0 Then
If Status <> 5 Then
Schritt = 0 'Programm 4
Status = 5
End If
If Schritt = 1 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 2 Then
Staled1 = 0
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 1
Staled7 = 0
Led1 = 0
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Led7 = 0
End If
If Schritt = 3 Then
Staled1 = 0
Staled2 = 0
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 1
End If
If Schritt = 4 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
Schritt = 0
End If
End If
If Tast5 = 1 And Tast2 = 0 And Tast3 = 0 And Tast4 = 0 And Tast7 = 0 And Tast6 = 0 Then
If Status <> 6 Then
Schritt = 0 'Programm 5
Status = 6
End If
If Schritt = 1 Then
Staled1 = 1
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 2 Then
Staled1 = 1
Staled2 = 1
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 3 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 4 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 0
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 0
Led6 = 0
Led7 = 0
End If
If Schritt = 5 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 0
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 0
Led7 = 0
End If
If Schritt = 6 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 0
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 0
End If
If Schritt = 7 Then
Staled1 = 1
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 8 Then
Staled1 = 0
Staled2 = 1
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 9 Then
Staled1 = 0
Staled2 = 0
Staled3 = 1
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 10 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 1
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 11 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 1
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 1
Led7 = 1
End If
If Schritt = 12 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 1
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Led7 = 1
End If
If Schritt = 13 Then
Staled1 = 0
Staled2 = 0
Staled3 = 0
Staled4 = 0
Staled5 = 0
Staled6 = 0
Staled7 = 1
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 0
Led7 = 1
Schritt = 0
End If
End If
If Tast2 = 1 Then 'abspeichern der Werte im Eprom
Espeed = Speed
Epwm = Pwm
Do
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 1
Loop Until Tast7 = 0
End If
Loop
End
Routtimer0:
If Zaehler <= Pwm Then 'PWM
If Staled1 = 1 Then Led1 = 1
If Staled2 = 1 Then Led2 = 1
If Staled3 = 1 Then Led3 = 1
If Staled4 = 1 Then Led4 = 1
If Staled5 = 1 Then Led5 = 1
If Staled6 = 1 Then Led6 = 1
If Staled7 = 1 Then Led7 = 1
End If
If Zaehler > Pwm Then
If Staled1 = 1 Then Led1 = 0
If Staled2 = 1 Then Led2 = 0
If Staled3 = 1 Then Led3 = 0
If Staled4 = 1 Then Led4 = 0
If Staled5 = 1 Then Led5 = 0
If Staled6 = 1 Then Led6 = 0
If Staled7 = 1 Then Led7 = 0
End If
If Zaehler = 1026 Then Zaehler = 0
Zaehler = Zaehler + 1
Return
Routtimer2: 'Programm geschwindigkeit
If Zaehler2 >= Speed Then
Zaehler2 = 0
Schritt = Schritt + 1
End If
Zaehler2 = Zaehler2 + 1
Return