Hall ihr Zwei,
ich bedanke mich für die kompetente Hilfe. Ich habe bereits zuvor mit Stop Timer herumexperimentiert, jedoch immer ohne das Vorladen der Variablen. Jetzt funktioniert es wirklich optimal. Vielen Dank Sauerbruch. Im selben Atemzug natürlich auch einen Dank an MeckPommER für den Hinweis mit der Angabe zu "Crystal", so funktioniert die ganze Timing-Geschichte wirklich rund 
Zum Thema Summer und multiplexen habe ich mir nun quick und dirty beholfen indem ich einfach die Segmente abschalte, wenn der Summer ertönt Zwar keine wirkliche Lösung, tut es aber ohne Probleme
Die Geschichte mit dem Fehlerkennen der Taster mit Start Timer und Reset tritt durch die richtige Zeitberechnung von waitms meines erachtens nicht mehr so stark auf. Würde ich also so mal als funktionierend erachten.
Im folgenden nochmal der verbesserte Bascom-Code, sowie eine aktuelle Version des Schaltplans von heute. Habe alle Änderungen eingefügt. Das Projekt lag ja schon wieder 5 Monate in der Ecke Der Basiswiderstand ist im übrigen auf der Platine verbaut, war eine frühere Fassung des Plans als er noch in Entwicklung war 
Code:
'Cooktimer Version 1.0 by Patrick Beck
'-------------------------------------
'Cooktimer is a cook clock on the base
'of a ATMEL AVR Mega8 microcontroller.
'Programming language is Bascom basic.
'-------------------------------------
$regfile = "m8def.dat"
$framesize = 60
$hwstack = 40
$swstack = 32
$crystal = 1000000 ' internal rc-oscillator of the mega8 on 1 Mhz
Config Timer0 = TIMER , Prescale = 64 ' multiplex timer
ON Timer0 Timer0_isr
CONST Timer0load = 178
Config Timer1 = TIMER , Prescale = 1024 ' one minute timer
ON Timer1 Timer1_isr
STOP Timer1
CONST Timer1load = 6941
Timer1 = Timer1load
Ddrb = &B11111111 ' PORTB as output
Ddrd = &B11111111 ' PORTD (7-segment) as output
Ddrc = &B00000000 ' PINC (pushbutton) as input
Portc = &B11111111 ' activate the pullup resistors of PINC
DIM Onedigit AS Byte
DIM Twodigit AS Byte
DIM Timer1_active AS Byte
Onedigit = 0
Twodigit = 0
Timer1_active = 0
DO
IF Pinc.1 = 0 THEN ' when PINC.1 is pressed the digits will be activated
Waitms 200 ' and shows 1 on the onedigit segment
Enable Timer0 ' wait to detect only one signal of a push
Enable Interrupts ' enable timer and interrupts for segment multiplexing
Incr Onedigit
Portb.1 = 1
END IF
IF Pinc.0 = 0 THEN ' when PINC.2 is pressed the digits will be activated
Waitms 200 ' and shows 1 on the twodigit segment
Enable Timer0 ' wait to detect only one signal of a push
Enable Interrupts ' enable timer and interrupts for segment multiplexing
Incr Twodigit
Portb.2 = 1
END IF
IF Onedigit = 10 THEN ' when the onedigit variable reach 10 (9 on the segment) then set it to 0
Onedigit = 0
END IF
IF Twodigit = 10 THEN
Twodigit = 0 ' when the twodigit variable reach 10 (9 on the segment) then set it to 0
END IF
IF Pinc.2 = 0 AND Timer1_active = 0 THEN ' starts the timer if not started yet
Waitms 200
Disable Interrupts ' switch the segments of and one - for a visual acception after the timer start
Portb = 0
Waitms 200
Enable Interrupts
Enable Timer1
Start Timer1
Timer1_active = 1
END IF
IF Pinc.0 = 0 AND Timer1_active = 1 THEN ' you can change the digits when the timer is running, timer will be stopped after a push
Timer1_active = 0 ' you can start the timer with the Button PINC.2
Disable Timer1 ' timer will be disabled
STOP Timer1 ' timer will be stopped
Timer1 = Timer1load ' timer will be loaded with new value
Incr Twodigit 'the digit will be increased in the same time (only one push essential)
Waitms 200
END IF
IF Pinc.1 = 0 AND Timer1_active = 1 THEN ' the same for twodigit
Timer1_active = 0
Disable Timer1
STOP Timer1
Timer1 = Timer1load
Incr Onedigit
Waitms 200 ' detect only one push
END IF
IF Pinc.2 = 0 AND Timer1_active = 1 THEN ' when the timer is started you can reset the variables with the start timer button
Waitms 200 ' detect only one push
Timer1_active = 0
Disable Timer1 ' timer will be disabled
STOP Timer1 ' timer will be stopped
Timer1 = Timer1load ' timer will be loaded with new value
GOTO 0
END IF
LOOP
END
Segmente: ' 7-Segment table to control the digit output
'---------abc.degf--------
DATA &B10110111 ' 0
DATA &B00000110 ' 1
DATA &B01110011 ' 2
DATA &B01010111 ' 3
DATA &B11000110 ' 4
DATA &B11010101 ' 5
DATA &B11110101 ' 6
DATA &B00000111 ' 7
DATA &B11110111 ' 8
DATA &B11010111 ' 9
Timer0_isr:
Timer0 = Timer0load
IF Portb.1 = 1 THEN
Portd = Lookup(onedigit , Segmente) ' lookup in table with onedigit variable
Portb = &B00000100 ' onedigit active
ELSE
Portd = Lookup(twodigit , Segmente)
Portb = &B00000010 ' twodigit active
' lookup in table with twodigit variable
END IF
RETURN
Timer1_isr:
Timer1 = Timer1load
IF Twodigit = 0 AND Onedigit = 1 THEN ' if all digits zero, then activate the buzzer
Disable Timer1
STOP Timer1
Timer1 = Timer1load
Timer1_active = 0
Disable Interrupts ' switch the segments of and the buzzer on
Portb = &B00000001
Waitms 800
Enable Interrupts
END IF
' if onedigit greater zero then decrease the onedigit variable
IF Onedigit > 0 THEN
Decr Onedigit
ELSEIF Onedigit = 0 AND Twodigit > 0 THEN ' if onedigit zero and twodigit greater then zero decrease twodigit
Decr Twodigit ' and set the ondigit variable to nine
Onedigit = 9
END IF
RETURN
Jetzt brauche ich nur noch ein Gehäuse und dann hat meine Mutter eine Küchenuhr In diesem Sinne Vielen Dank für die Hilfe.
Als nächstes werde ich mir wohl nun mal einen LED-Cube anschauen, ist ja auch eine schöne Sache
Grüße Patrick
Zitieren).
Lesezeichen