Problem bei RGB zu HSV-Wandlung

[troede]

Hey!
Wie gesagt ich dachte an einen "humanoiden" Roboter, der z.B. Gesichter erkennen kann und Menschen. Aber auch einfache Gegenstände.
Ist das für privat überhaupt realisierbar? Denn man hat ja nicht immer einfache Hintergründe in ner Wohnung, eher das Gegenteil davon...

Würdet ihr für Menschen lieber eine Infrarotkamera nehmen? Ist ja doch deutlich einfacher oder?

Grüße


EDIT:
Ich hab das grad mal mit deinem Testbild getestet...ich glaub da stimmt wohl doch irgendwas nicht, schauts euch mal im Anhang an.

Public Sub RGBColorToHSV(ByVal Color As Long, rH As Integer, _
 rS As Integer, rV As Integer, rBack As Integer, gBack As Integer, bBack As Integer)

  OleTranslateColor Color, 0&, Color
  nR = Color Mod 256
  rBack = nR
  Color = Color \ 256
  nG = Color Mod 256
  gBack = nG
  Color = Color \ 256
  nB = Color Mod 256
  bBack = nB
  
  RGBtoHSV nR, nG, nB, rH, rS, rV
End Sub

Public Sub RGBtoHSV(ByVal R As Integer, ByVal g As Integer, _
 ByVal b As Integer, rH As Integer, rS As Integer, rV As Integer)
On Error Resume Next
  
  nRR = R / 255
  nGG = g / 255
  nBB = b / 255
  nRGBs(0) = nRR
  nRGBs(1) = nGG
  nRGBs(2) = nBB
  nMax = zMax(nRGBs)
  nMin = zMin(nRGBs)
  nV = nMax
  If nMax <> 0 Then
    nS = (nMax - nMin) / nMax
  End If
  
  If nS = 0 Then
    nH = -1
  Else
    nDelta = nMax - nMin
    Select Case nMax
      Case nRR
        nH = (nGG - nBB) / nDelta
      Case nGG
        nH = 2 + ((nBB - nRR) / nDelta)
      Case Else
        nH = 4 + ((nRR - nGG) / nDelta)
    End Select
    nH = nH * 60
    If nH < 0 Then
      nH = nH + 360
    End If
  End If
  rH = nH
  rS = nS * 100
  rV = nV * 100
End Sub

Und das ist der Code für die Umwandlung, copy&paste deswegen sollte das ja eigentlich gehn oder? Was auf dem Bild ist ist der "H-Kanal".
Oder liegt das wieder nur daran dass das n JPG ist? Hast du das mal probiert, deinen Screenshot umzuwandeln?