Hallo!

Kann man das so schreiben?

Code:
'ATMega8, 1MHz

Enable Interrupts

Dim GemesseneZeit As Word
GemesseneZeit = 1	  

Dim Gemessen As Bool
Gemessen = 0

While TimeSet = 0 				 'TimeSet aktiv! Jumper wurde gesetzt vor dem Einschalten
	If BlinkerLinks = 0 Then			 'Wenn Taster gedrückt, Timer0 aktivieren
		Config Timer0 = Timer, Prescale = 8      'Konfiguriere Timer0 bis 255 (8-Bit)
		Enable Timer0            	         'schalte den Timer0 ein
		On Timer0 ErhoehenTimer0	         'verzweige bei Timer0 überlauf zu ErhoehenTimer0
		Timer0 = 0				'Timer0 startet bei 0

		While BlinkerLinks = 0
		'Schleife solange, wie BlinkerLinks gedrückt ist
		Wend

		Gemessen = 1				 'Variable kann geschrieben werden
		Disable Timer0				'Timer0 deaktivieren
	End If
	If Gemessen = 1 Then
		GemesseneZeit = GemesseneZeit / 4000 		'Circa 1000 pro Sekunde = Millisekunden
		writeeeprom GemesseneZeit, 1			'GemesseneZeit ins EEPROM schreiben
		Gemessen = 0					'Variable zurücksetzen
	End If
Wend


readeeprom GemesseneZeit, 1
 
Do

toggle PORTB.2

wait GemesseneZeit

Loop

End
 

ErhoehenTimer0:					'ISR von Timer0
GemesseneZeit = GemesseneZeit + 1		'Millisekunden; 3906,26 in der Sekunde
Return
vorallem mit dem "disable timer0", etc.?

please feedback!

mfg,
René.