Hier der überarbeitet Code.
Aber irfgendwo ist immer noch ein fehler drin.
Nch meiner Logik sollte das doch gehen oder??
Code:
'****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