$crystal = 8000000

 $baud = 1200



 Config Timer0 = Pwm , Pwm = On , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up

 Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down

 'Diese PWM-Register haben eine Breite von 8 Bit - also Werte von 0 bis 255

'Wobei 0 = 0% Helligkeit und 255 = 100% Helligkeit bedeuten

Config Pind.2 = Output

Config Pind.3 = Input

Enable Int1



Portd.2 = 0

Config Serialin = Buffered , Size = 10



'Timer freigeben:

 Enable Timer1

 Enable Timer0



'Timer starten:

 Start Timer1

 Start Timer0



'PWM-Register zuweisen:

 Ledg Alias Pwm1a

 Ledb Alias Pwm0a

 Ledr Alias Pwm0b

'PWM-Register vorladen:

 Ledr = 100

 Ledg = 100

 Ledb = 100

'Dim Wert As String * 4                                      'Die Variable wo der Eingelesene Wert vom UART reinkommt

'Dim Farbe(3) As String * 4                                  'Das Array mit den durch SPLIT einzelnen Farben

Dim Rot As Byte                                             'Die Farben als Integer wo die String rein sollen

Dim Gruen As Integer

Dim Blau As Integer

'Dim Bcount As Byte



Do

  Input Rot                                                 'Wert                                                'Hier wird der UART gelesen

  'Bcount = Split(wert , Farbe(1) , " ")                     'Hier wird der eingelesene String in 3 Teile nämlich R, G und B gesplittet

 ' Rot = Val(farbe(1))                                       'Die Versuche einen String in ein Integer zu konvertieren

 ' Gruen = Val(farbe(2))

 ' Blau = Val(farbe(3))

  Compare0b = Rot                                           'Die PWM Kanäle

  Compare0a = Gruen

  Compare1a = Blau

Loop

End



 End

G = Waitkey()

 Gn = Val(g)

 Ledg = Gn

 Gn = Waitkey()

 Ledg = Gn

Dim Wert As String * 12                                     'Die Variable wo der Eingelesene Wert vom UART reinkommt

Dim Farbe(3) As String * 12                                 'Das Array mit den durch SPLIT einzelnen Farben

Dim Bcount As Byte



Do

  Input "" , Wert                                           'Hier wird der UART gelesen

  Bcount = Split(wert , Farbe(1) , " ")                     'Hier wird der eingelesene String in 3 Teile nämlich R, G und B gesplittet

  Pwm0b = Val(farbe(1))                                     'Die Versuche einen String in ein Integer zu konvertieren

  Pwm1a = Val(farbe(2))

  Pwm0a = Val(farbe(3))

Loop

End

 $regfile = "attiny2313.dat"

 $lib "Mcsbyte.lbx"

 $crystal = 8000000

 $baud = 9600

 Config Timer0 = Pwm , Pwm = On , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up

 Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down

Config Portd.2 = Output



Portd.2 = 0





 Ledg Alias Pwm1a

 Ledb Alias Pwm0a

 Ledr Alias Pwm0b

' Ledr = 0

' Ledg = 0

 'Ledb = 0

Dim Lr As Byte

Dim Lg As Byte

Dim Lb As Byte





Dim Wert As String * 4



Dim R As String * 1

Dim G As String * 1

Dim B As String * 1

Dim Crc As String * 1

Dim Crcb As Byte



Do

  Inputbin Wert

Crc = Right(wert , 1)

 Crcb = Val(crc)

 If Crc8(wert , 3) = Crcb Then

 R = Left(wert , 1)

 G = Mid(wert , 2 , 1)

 B = Mid(wert , 3 , 1)

 Lr = Val(r)

 Lg = Val(g)

 Lb = Val(b)

 Ledr = Lr

 Ledg = Lg

 Ledb = Lb

 End If

Loop

End