Názory ke článku Práce s grafikou XIII - Plastický obraz – Programujte.com

Moc hezký, jenom bych si troufl dodat:
Kdo by chtěl ušetřit místo v zápisu, dovolil jsem si udělat funkci, která z barvy vypíše R,G,B
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub inRGB(barva As Long, r As Integer, g As Integer, b)
Ca = barva
r = Ca Mod 256
g = (Ca - r) / 256 Mod 256
Ca = Ca - Ca Mod 256 - (((Ca - r) / 256) Mod 256) * 256
b = Ca / 256 / 256
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Použití:
inRGB Barva, R, G, B
přičemž do R se uloží hodnota R složky atd...

No snad je to přehledné, stručněji se mi to napsat nepodařilo , vždy mě to hlásilo Overflow, absolutně nepobírám proč

Jinak tak, jak jsem to napsal nahoře vyžduje předem nadeklarování proměných, kdo je na to moc liný tak by mu asi stačilo toto:

Sub inRGB(barva, r, g, b)
Ca = barva
r = Ca Mod 256
g = (Ca - r) / 256 Mod 256
Ca = Ca - Ca Mod 256 - (((Ca - r) / 256) Mod 256) * 256
b = Ca / 256 / 256
End Sub