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... ?
Lesezeichen