Erstes Programm Atmega 8 und Zeitüberlauf Und error LED

[Lordcyber]

Hallo,
so fragen und Plane habe ich ja schon genug gestellt jetzt geht es ans eingemachte.
Also meine Feuertaufe wie man so schön sagt.

Habe als Grundlage ein Snugboard von Andree-HB mit Atmega 8

Geschaltet werden soll eine Förderpumpe welche 12V braucht.
Der Schalter ist in dem Fall ein Schwimmschalter.
Das ganze soll meine jetzige Schwellwertschaltung ablösen.

Also Funktion.
Sobald der Schwimmschalter anspringt also Wasserstand niedrig soll die Pumpe anspringen.
Sollte die Pumpe aber länger als 5 Sec laufen soll er auf Error schallten bis ich die Schaltung Resete. Also da ganze neu Starte per Resettaster.
Gut das könnte man auch per Taster lösen.
Mal sehen ist aber auch nicht das Problem.

Errorschalltung sollte ein Buzzer und LED sein.
LED an und Buzzer so alle 5 min 1 Sec anspringen.
Man ist ja nicht immer da.
Und die Katzen würden beim Dauerpiepen abdrehen.

Könnt Ihr mir sagen wie ich das mache das er wenn die Förderpumpe 5sec läuft in Sub geht.
Könnt ja auch mal sehen ob der Rest überhaupt stimmt.
Danke

Bisheriges Program:



'****Pegelregelung / Nachfüllautomatik****
'* (c) 2007 Michael Lavalle *
'* *
'*****************************************

'Fühler Pegel Filter an pind.2

'Förderpumpe Salzwasser an portd.5
'FERROR LED an portd.6
'ERROR Buzzer an portd.8


$regfile = "m8def.dat" 'definieren des verwendeten Chips

$crystal = 16000000 'definieren des verwendeten externen Quarz (8MHz)

Dim A As Byte 'dimensionieren der verwendeten Variablen
Dim B As Byte

Ddrd = &B11100000 'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portd = &B00000000 'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)


Main: 'Hauptprogramm
Do
'Anfang des Schwimmerschalter
If Pind.2 = 1 Then 'Wenn an Pin 2 von Port D ein high level anliegt..

Portd.5 = 1 '...setze Pin 5 von Port D auf High, Pumpe läuft

Else Portd.5 = 0 '...setze Pin 5 von Port D auf low, Pumpe aus
End If 'Ende der Bedingung



Loop 'zum Anfang der Schleife

Error: 'Untermenü "Error ausgabe"

Portd.6 = 1 'Error LED leuchtet
Portd.7 = 1 'setzte den Pin 7 von Port D auf high
Wait 1 '1 Sec Buzzer an
Portd.7 = 0 'setzt den Pin 7 von Port D auf low
Wait 300 ' Warte 5 Min
Portd.7 = 1 'setzte den Pin 7 von Port D auf high
Wait 1 '1 Sec Buzzer an
Portd.7 = 0 'setzt den Pin 7 von Port D auf low
Loop
Return 'zurück zum Hauptmenü


'zurück zum Hauptmenü

[Lordcyber]

Hier der überarbeitet Code.
Aber irfgendwo ist immer noch ein fehler drin.
Nch meiner Logik sollte das doch gehen oder??


'****Pegelregelung / Nachfüllautomatik****
'* (c) 2007 Michael Lavalle *
'* *
'*****************************************

'Fühler Pegel Filter an pind.2

'Förderpumpe Salzwasser an portd.5
'FERROR LED an portd.6
'ERROR Buzzer an portd.8


$regfile = "m8def.dat" 'definieren des verwendeten Chips

$crystal = 8000000 'definieren des verwendeten externen Quarz (8MHz)

Dim T As Word

Ddrd = &B11100000 'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portd = &B00000000 'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)


Main: 'Hauptprogramm
Do
'Anfang des Schwimmerschalter
If Pind.2 = 1 Then 'Wenn an Pin 2 von Port D ein high level anliegt..

Portd.5 = 1 '...setze Pin 5 von Port D auf High, Pumpe läuft
T = T + 1 'Zeit wo die Pumpe an ist
Else
Portd.5 = 0 '...setze Pin 5 von Port D auf low, Pumpe aus
T = 0 'Zeit reset
End If 'Ende der Bedingung

If T > 5 Then
Gosub Error

End If 'Ende der Bedingung

Loop 'zum Anfang der Schleife
End 'end program

Error: 'Untermenü "Error"
Do
Portd.6 = 1 'Error LED leuchtet
Portd.5 = 0 '...setze Pin 5 von Port D auf low, Pumpe aus 'setzt den Pin 7 von Port D auf low
Loop