Hallo,
folgendes Programm funktioniert jetzt:
Code:
Ddra = &B0000010
Porta = &B0000011


Dim Zustand As Bit
Dim Vorher As Bit
Debounce Pina.0 , 1 , Label
Debounce Pina.0 , 0 , Label
Config Debounce = 25
Porta.1 = 0
Zustand = 0

Label:
Do

 If Pina.0 = 0 Then

               If Zustand = 0 Then
                              Toggle Porta.1
                              Zustand = 1

               End If
 Else
 Zustand = 0
 End If

Loop
End
Gruss

Alex