$regfile "m8def.dat" $crystal = 8000000 $baud = 38400 Config Portb.1 = Output Config Portb.2 = Output Config Portb.3 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1 Config Timer2 = Pwm , Pwm = On , Compare Ocr2 Pwm = Clear Up , Prescale = 1 Start Timer1 Start Timer2 Enable Interrupts Dim Wert As String * 20 'Die Variable wo der Eingelesene Wert vom UART reinkommt Dim Farbe(3) As String * 20 'Das Array mit den durch SPLIT einzelnen Farben Dim Rot As Integer 'Die Farben als Integer wo die String rein sollen Dim Gruen As Integer Dim Blau As Integer 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 Rot = Val(farbe(1)) 'Die Versuche einen String in ein Integer zu konvertieren Gruen = Val(farbe(2)) Blau = Val(farbe(3)) Compare1a = Rot 'Die PWM Kanäle Compare1b = Gruen Ocr2 = Blau Loop End