Hallo zusammen,

es ist mal wieder so weit, ich komme nicht weiter...

hier die Funktion um die es geht:
Die Funktion bekommt HSV Farbwerte und gibt RGB Farbwerte wieder.
Jetzt möchte ich diese Farbinformation gerne per Serieller Schnittstelle meinen PIC senden.
Die Schnittstele Funktioniert auch, schon getestet.


Hier der Code

Public Function HSVtoRGBa(ByVal H As Double, ByVal S As Double, ByVal V As Double) As Color
'Löst den Sektor auf
Dim Hi As Double = H / 60
'Löst den Sektorwert auf
Dim n As Integer = Int(Hi)
Dim f As Double = Hi - n

'Werte nomieren
S = S / 100
V = V / 100

'Berechnug zur Farbverteilung
Dim p As Integer = V * (1 - S) * 255
Dim q As Integer = V * (1 - f * S) * 255
Dim t As Integer = V * (1 - (1 - f) * S) * 255

Select Case n
Case 0
P_a_out.BackColor = Color.FromArgb(V * 255, t, p)

Wie bekomme ich an dieser Stelle den Color.FromArgb(V * 255, t, p) Wert in einen String gewandelt,
so das ich diesen dann als String senden kann??

Case 1
P_a_out.BackColor = Color.FromArgb(q, V * 255, p)
Case 2
P_a_out.BackColor = Color.FromArgb(p, V * 255, t)
Case 3
P_a_out.BackColor = Color.FromArgb(p, q, V * 255)
Case 4
P_a_out.BackColor = Color.FromArgb(t, p, V * 255)
Case 5
P_a_out.BackColor = Color.FromArgb(V * 255, p, q)
End Select

End Function

Wäre super wenn mir jemand helfen könnte.

Danke

Gruß Marco

Haste schonmal was von .ToString() gehört?