Attiny13 Led langsam hell werden lassen

[Marcelo F. (klaps)]

Hallo
Ich bin einsteiger im thema mikrocontroller und habe hier etwas 
schwierigkeiten. Ich möchte eine Led langsamm zum Leuchten bringen.
Habe folgendes Programm:

$regfile = "attiny13.dat"
$crystal = 120000

$hwstack = 10
$swstack = 10
$framesize = 24

Config Portb = Output

Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down

Dim A As Integer
Dim B As Integer
B = 0
A = 0

Do
     Portb = A
     B = B + 1

  If B = 500 Then
   A = A + 0.6
   B = 0

  End If


Loop

End



Aber irgendwie blinkt die LED immer nur. Sollte der Ausgang PortB nicht 
immer +0.6 sein, also die LED leuchtet immer Heller? Oder ist das voll 
Falsch?
Habe die Led am Ausgang PB4 mit einem Vorwiederstand.

Danke für die antwort
Grus
Marcelo

[Falk B. (falk)]

Siehe LED-Fading. Und auf einen Port eine Zahl zu schreiben ist 
reichlich sinnlos in diesem Fall. Versuch mal die Zahl in OCRA0 zu 
schreiben. Stichwort PWM. Und 0,6 auf eine Integer addieren ist auch 
nicht so ganz erfolgreich.

MfG
Falk