Hallo derpedi,

sieh dir mal folgenden code an:

Code:
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 19200
$framesize = 40
$hwstack = 40
$swstack = 40


Config Pind.2 = Input
Config Pind.3 = Input
Portd.2 = 1
Portd.3 = 1

Dim Millisekunden As Word
Dim Sekunden As Byte
Dim Minuten As Byte
Dim Stoppuhr_flag As Bit
Const Timer1_vorgabe = 49536
Stoppuhr_flag = 0

Config Int0 = Falling
On Int0 Stoppuhr_starten
Enable Int0

Config Int1 = Falling
On Int1 Stoppuhr_stoppen
Enable Int1

Config Timer1 = Timer , Prescale = 1
Timer1 = Timer1_vorgabe
On Timer1 Stoppuhr
Stop Timer1
Enable Timer1

Enable Interrupts


Do

If Stoppuhr_flag = 1 Then
Reset Stoppuhr_flag
Print "Minuten: " ; Minuten ; " Sekunden: " ; Sekunden ; " Millisekunden: " ; Millisekunden
Print "Zeit (MM:SS:mm): " ; Minuten ; ":" ; Sekunden ; ":" ; Millisekunden
End If

Loop

End

Stoppuhr_starten:
Start Timer1
Return

Stoppuhr_stoppen:
Stop Timer1
Set Stoppuhr_flag
Return

Stoppuhr:
Timer1 = Timer1_vorgabe
Incr Millisekunden
If Millisekunden = 1000 Then
Millisekunden = 0
Incr Sekunden
End If
If Sekunden = 60 Then
Sekunden = 0
Incr Minuten
End If
Return
Zu deinem Code kann ich nur folgendes sagen:
1. "Configs" sollten immer vor dem Mainloop, am Anfang des Programms stehen
2. Gewöhn dir bitte einen strukturierten Programmierstil an, das ist leicher für dich selbst und auch für die Leser deines Codes.

Das soll jetzt keine Beleidigung/Demütigung o.ä. sein, sondern nur eine "Hilfestellung".

Gruß
Chris