num$ = "255|255|000" ; Dieses Set muss aus 3x3 Ziffern bestehen und einen "|" als Trennen haben

;----- Beispiel Anfang
Print "Rot     :   "+ParseColorR(num$)
Print "Gruen   :   "+ParseColorG(num$)
Print "Blau    :   "+ParseColorB(num$)
Print ""
Print "Druecken für Vorschau"
   WaitKey
   Color ParseColorR(num$), ParseColorG(num$), ParseColorB(num$)
Print "Gewählte Farbe des Sets"

WaitKey
End
;----- Beispiel Ende

Function ParseColorR(set$)
   r = Mid$(set$, 1, 3)
   
   Return Int(r)
End Function

Function ParseColorG(set$)
   g = Mid$(set$, 5, 3)
   
   Return Int(g)
End Function

Function ParseColorB(set$)
   b = Mid$(set$, 9, 3)
   
   Return Int(b)
End Function

num$ = "255|255|000" ; Dieses Set muss aus 3x3 Ziffern bestehen und einen "|" als Trennen haben

;----- Beispiel Anfang
Print "Rot     :   "+ParseColorR(num$)
Print "Gruen   :   "+ParseColorG(num$)
Print "Blau    :   "+ParseColorB(num$)
Print ""
Print "Druecken für Vorschau"
   WaitKey
   Color ParseColorR(num$), ParseColorG(num$), ParseColorB(num$)
Print "Gewählte Farbe des Sets"

WaitKey
End
;----- Beispiel Ende

Function ParseColorR(set$,rbg) ; rbg -> 1-3
  local ret

  select rgb
    case 1
       ret = Int(Mid$(set$, 1, 3))
     case 2
       ret = Int(Mid$(set$, 5, 3))
     case 3       
       ret = Int(Mid$(set$, 9, 3))
   end select

   Return ret
End Function

num$ = "255|255|000" ; Dieses Set muss aus 3x3 Ziffern bestehen und einen "|" als Trennen haben

;----- Beispiel Anfang
Print "Rot     :   "+ParseColor(num$,1)
Print "Gruen   :   "+ParseColor(num$,2)
Print "Blau    :   "+ParseColor(num$,3)
Print ""
Print "Druecken für Vorschau"
WaitKey
Color ParseColor(num$,1), ParseColor(num$,2), ParseColor(num$,3)
Print "Gewählte Farbe des Sets"

WaitKey
End
;----- Beispiel Ende

Function ParseColor(set$,rgb) ; rbg -> 1-3
   Local ret
   
   Select rgb
      Case 1
         ret = Int(Mid$(set$, 1, 3))
      Case 2
         ret = Int(Mid$(set$, 5, 3))
      Case 3       
         ret = Int(Mid$(set$, 9, 3))
   End Select
   
   Return ret
End Function