Hallo,

ich habe es jetzt so gemacht:
Code:
$regfile = "m16def.dat"
$crystal = 8000000

   Config Pinc.7 = Output
   Led1 Alias Portc.7

   Const True = 1
   Const False = 0

   Dim Hi As Integer
   Dim Lo As Integer
   Dim Phase As Bit

Config Timer0 = Timer , Prescale = 64
On Timer0 Timer0_isr
Enable Timer0
Enable Interrupts

Phase = 1

Dim Ende As Bit
Ende = 0

Do
   Waitms 5

   If Lo = 255 Then Ende = 1
   If Lo = 0 Then Ende = 0

   If Ende = 1 Then Lo = Lo - 1
   If Ende = 0 Then Lo = Lo + 1
Loop

Timer0_isr:
    If Phase = True Then
        Led1 = 1
        Timer0 = Lo
        Phase = False
    Else
        Led1 = 0
        Timer0 = Hi
        Phase = True
    End If
 Return
1:
Damit wird die Led immer auf und abgedimmt.
Nur leider wird am Ausgang des AVR´s nur knapp 2,4V max ausgegen und nicht die vollen 5V.
Wenn ich jetzt LED = 1 setzte ist die Led nochmals heller als wenn ich die max dimmen lasse.

2:
Wie kann ich das nun für mehrere Ausgänge umsetzen.
Habe einfach mal alle Variablen nochmal erstellt(natürlich nicht doppelt, sonder Lo2 z.B) Das läuft aber nicht... ?