Thema: LED Dimmen per Software | Problem

Ich möchte gerne 1 LED per Software dimmen. Per Hardware ist nicht möglich weil die Ports schon belegt sind.

Ich wollte das ganze mit einen Timer machen.

So weit bin ich schon gekommen:

Code:

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 14745600
$baud = 9600

Config Portc.7 = Output
led Alias Portc.7

'#####Timer############

Config Timer1 = Timer , Prescale = 8
On Timer1 Int_timer1

Const Timervorgabe = 47104 ' 100 Hz

Enable Timer1
Enable Interrupts

Timer1 = Timervorgabe

Do

Loop


Int_timer1:

     Timer1 = Timervorgabe
     Toggle led

Return

End

Wie muss ich den Code so erweitern das die LED dynamisch von hell zu dunkel und umgekehrt leuchtet?

Ich würde mich freuen wenn mir einer weiter helfen kann.

Kann man das Programm so erweitern das man eine Variable definiert kann zwischen 0% und 100% und dadurch die LED so gedimmt wird?


//EDIT

Ich habe es jetzt so gemacht, ich hoffe das dies nicht so sehr das Hauptprogramm beeinflusst.

Code:

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 14745600
$baud = 9600

Config Portc.7 = Output

Config Timer1 = Timer , Prescale = 1
Enable Timer1
On Timer1 Timer1_int
Enable Interrupts

Timer1 = 65530

Dim Zaehler As Byte                                         '<- wichtig, dass es byte ist
Dim Trigger As Byte
Dim Taste As Byte

Trigger = 0

Do
Taste = Inkey()

If Taste > 0 Then
    Select Case Taste
      Case 43                                               'Das ist der ASCII Code für Taste +
         Trigger = Trigger + 1
         Print Trigger

      Case 45                                               'Das ist der ASCII Code für Taste -
         Trigger = Trigger - 1
         Print Trigger

   End Select
End If

Loop

Timer1_int:
   Timer1 = 65530

   If Zaehler > Trigger Then
         Set Portc.7
      Else
         Reset Portc.7
      End If

   Zaehler = Zaehler + 1

Return