230V dimmer softwarefrage

[bastian07]

Hallo,
sorry das ich mich erst jetzt melde habs früher leider nicht geschafft zu testen.
Also was ihr gesagt hab klappt. Aber leider nur sehr eingeschränkt.
Wenn ich das Programm so ablaufen lasse mit einer Lampe wie unten im Code dann geht das so lange wie ich nichts zum Programm hinzufüge wie zum Beispiel einen Printbefehl. Dann fängt die lampe direkt an unrythmisch zu flackern. Ebenso wenn ich versuche über nen Taster den vergleichs Wert "X" zu erhöhen. Irgenwie scheint das mit der zeit nciht hinzuhauen.
Vielleicht könnt ihr mir ja nochmal helfen. Wär echt klasse.
Desweiteren habe ich mal Schaltpläne angehangen.
Der dritte Port an der Nulldurchgangscontrolle hängt dann halt am Interrupt vom Mega8.
Schönen Gruß S. Kogel

Do
Debounce Pind.4 , 0 , Taste1
'Print X

'Waitms 1
If X => 200 Then
   X = 200
End If

If Dimmer1 => X Then                                        'statt der Zahl (50) warscheinlich eine Variable?
Dimmer1 = 0                                                 'und hier der Code der sonst in der TimerRoutiene wäre
 Set Triac
  Waitus 10
  Reset Triac
End If


Loop

Timer_irq:
Incr Dimmer1
Return

Int0_isr:
Start Timer1
Dimmer1 = 0
Return

Taste1:
   X = X + 100
Return