Der Timer ist spitze.
Habe nun das Script etwas verändert.
Ich möchte mit dem drücken des Taster auf Pind.5 die Minute Starten
um die LED zum leuten bringen.
Nach der Minute kann ich die Taste drücken so oft ich will das Programm wird nicht mehr gestartet.
Was muss ich im Script ändern.
Dass ich wieder die Minute starten kann.

Code:
'###########################################################################

$regfile = "m8def.dat"
$crystal = 3686000
Declare Sub Tastendruck

Config Timer1 = Timer , Prescale = 64

Ddrd = &B01000000
Portd.5 = 1


Config Pinc.2 = Output
Led3 Alias Portc.2


Config Pinc.3 = Output
Led4 Alias Portc.3

On Timer1 Timer_irq

Const Timervorgabe = 7936

Enable Timer1
Enable Interrupts
Dim Sekunden As Byte

'---------------------------------------------------------------------------

Do

  Debounce Pind.5 , 0 , Tastendruck , Sub


Loop


'---------------------------------------------------------------------------

Timer_irq:

  Timer1 = Timervorgabe

   Toggle Led3

   Incr Sekunden

   Return

'--------------------------------------------------------------------------
Sub Tastendruck

'  Portd.6 = Not Portd.6

  Do
   If Sekunden < 60 Then Set Led4
      Reset Led4
  Loop

End Sub

  End
mfg

Enterprise