مرتب کردن رنگ ها [بایگانی]

justforvb

شنبه 02 اردیبهشت 1391, 13:42 عصر

سلام .

می خواستم بدونم چطوری میشه مثلا 20 تا یا بیشتر رنگ رو از رنگ سفید تا سیاه چید یعنی کلا از رنگ های روشن به سمت رنگ های تیره بره .

program2vb

شنبه 02 اردیبهشت 1391, 15:01 عصر

سلام دوست عزیز

با استفاده از حلقه میونی این کار رو انجام بدی

Picture1.Width = 1020
Picture1.Height = 1020
Picture1.Appearance = 0
Picture1.AutoRedraw = True

For x = 0 To 1020 Step 5 'Picture1.Width Step 25
For y = 1020 To 0 Step -5 'Picture1.Height Step 25
Picture1.PSet (x, y), RGB(x / 4, y / 4, 0)
Next
Next

امیدوارمبدردت بخوره . اگه سوالی داشتی من در خدمتم . موفق و پیروز باشی . یا علی

ROSTAM2

شنبه 02 اردیبهشت 1391, 15:27 عصر

اگه چیدمان می خوای می تونی از دستور Enum استفاده کنی

Enum MyColors
Color1 = vbBlack
Color2 = X....
End Enum

Maybe...

justforvb

پنج شنبه 21 اردیبهشت 1391, 12:03 عصر

تشکر به خاطر جوابهاتون .

نه مثلا فرض کنید داریم :

Color(1)=RGB(255,100,70)
Color(2)=RGB(50,120,87)
Color(3)=RGB(140,120,80)
Color(4)=RGB(0,200,255)
.
.
.

حالا می خوایم این رنگها از روشن ترین تا تیره ترین رنگ کنار هم چیده بشن .
( البته خودم رنگ ها رو به روش کدگذاری تو مبنای 16 ( همون کدگذاری برای رنگها تو ویبی ) بردم و چینش رو انجام دادم ولی نتیجه خوبی نداشت )

program2vb

دوشنبه 01 خرداد 1391, 21:05 عصر

داداش منظورت مرتب کردن آرایه هست یا اینکه میخوای برنامه رنگها رو تشخیص بده و کنار هم بچینه ؟