Scrolling through Hue

[Frodo_Baggins]

Let's say I have an array of, say, 50 picture boxes.
I want the first one to have a backcolor whose Hue is 0, the next to have a Hue of 1, and so forth. But since HSB and RGB are not perfectly interchangeable, how would I code this using a for-next loop?

[Frodo_Baggins]

Well, in order to solve the problem I first decided to make a little converter from RGB to HSB. There are three textboxes and a command button. There are no errors, however the code does not return the correct values for Hue and Saturation based on the RGB values. What am I doing wrong?? (I found a mathematical operation on the web and adapted it... maybe something is wrong).

Note: All variables dimmed as Single

Private Sub Command1_Click()
R = Val(txtR.Text) / 255
G = Val(txtG.Text) / 255
B = Val(txtB.Text) / 255
vMax = Max(R, G, B) 'Function that returns maximum of the three values
vMin = Min(R, G, B) 'Function that returns minimum of the three values
Delta = vMax - vMin
If Delta = 0 Then
    Hue = 0
    Sat = 0
Else
    Sat = Delta / vMax
    dR = (((vMax - R) / 6) + (Delta / 2)) / Delta
    dG = (((vMax - G) / 6) + (Delta / 2)) / Delta
    dB = (((vMax - B) / 6) + (Delta / 2)) / Delta
    If R = vMax Then
        Hue = dB - dG
    ElseIf G = vMax Then
        Hue = 1 / 3 + dR - dB
    ElseIf B = vMax Then
        Hue = 2 / 3 + dG - dR
    End If
    If Hue < 0 Then
        Hue = Hue + 1
    ElseIf Hue > 0 Then
        Hue = Hue - 1
    End If
End If
Hue = Hue * 180
'Ranges: -180<Hue<180
'        0<Sat<1
Debug.Print Hue
Debug.Print Sat
End Sub

[dglienna]

Here's a program that does conversions. You can try it for free for 10 days.
It will let you know if you are doing things correctly.

http://www.google.com/url?sa=U&start...icker/&e=10431

[Frodo_Baggins]

Here's a program that does conversions. You can try it for free for 10 days.
It will let you know if you are doing things correctly.

Well, I know that I'm doing them incorrectly
The program can't help me.....

[dglienna]

Try this one. It gives you soure code.

http://www.xbeat.net/vbspeed/c_RGBToHSL.htm

[Frodo_Baggins]

Try this one. It gives you soure code.

http://www.xbeat.net/vbspeed/c_RGBToHSL.htm

I'll check it out... thanks

[Frodo_Baggins]

Hum, it seems to be exactly what I need... Thanks, dglienna

[Frodo_Baggins]

Alright! Coded...
If anybody's interested, the code for "scrolling through hue" is attached.

[dglienna]

I thought I had that before, but couldn't find it. Glad things worked out.