none
Potrebuji zadat R G B barvu

    Dotaz

  • Jak by mel vypadat tento kod abych do nej mohl zadat R G i B barvu respektive aby 1. hodnotu nastavil na dannou ciferu, 2. hodnotu nastavil na dannou ciferu, treti hodnotu nastavil na dannou ciferu a ctvrtou preskakoval?

    For counter As Integer = 0 To rgbValues.Length - 1
    Dim modulo As Integer = counter Mod 4
    If modulo = 3 Then
    Continue For
    End If
    If modulo = 2 Then
    rgbValues(counter) = 255
    Else
    rgbValues(counter) = 174
    End If

    (Tenhle kód nastaví každou 3. hodnotu ze 4 na 255, první a druhou na 174. Čtvrtou přeskakuje.)


    • Upravený klikihak sobota 5. ledna 2013 21:17
    sobota 5. ledna 2013 20:28