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