DeclareSub 32bit_to_16bit(byval Red As Long , Green As Long , Blue As Long )'tarife zir barname
Main:
Call 32bit_to_16bit (Red,Green,blue)'Seda zadane zirbarname
End
'-------------------------------------------------------
DeclareSub 32bit_to_16bit(byval Red AsLong , Green As Long , Blue As Long )'t
Red= Red
And 31
Green = Green
And 63
Shiff Green ,
Left , 5
Blue = Blue
And 31
Shift Blue , Left , 11
Event = Red
+ Green
+ Blue
Return
البته اینو تست نکردم.
تعاریف متغیرها و دیگر چیزهای جزئی رو ننوشتم و فقط ساختار اصلی رو قرار دادم. همچنین می تونید با استفاده از تابع برنامه رو باز نویسی کنید
ان شالله که جواب بده