habs jetzt mal angepasst:

Dim I As Integer
Dim 1 As Bool
1 = 0

Config Timer0 = Timer, Prescale = 1024

On Timer0 Timer_irq

Const Timervorgabe = 100

Enable Timer0
Enable Interrupts


Do
If Pinc.2 = 1 Then
If 1 = 0 Then 1 = 1 End If
If 1 = 1 Then 1 = 0 End If
endif

Waitms 1
Loop

Timer_irq:
Timer0 = Timervorgabe
If I = 30000 Then
i = 0
1 = 0
Else If 1 = 1 Then
i++
endif
Return


hoer bringt er mir in dem do feld fehler sprich beide if sätze und des end if am ende vom do satz.

und am ende noch einer bei 1=0 und bei Else If 1 = 1 Then

ich verstehs net ganz ehrlich. hab dir jetzt mal alles hingeschrieben wenn du weißt was falsch ist könntest mir des ja vll sagen. dank dir schon mal.