انتخاب یک رنگ به صورت Random

[shamsoft]

می خواستم بدونم از میان چند تا رنگ چطوری میشه یکی از اونا رو به صورت Random انتخاب کرد.

[محمد حسینی]

اگه می خوای رنگ به صورت تصادفی انتخاب کنی می تونی اعداد RGB رو به صورت تصادفی انتخاب کنی. اگر چندتا رنگ از قبل انتخاب کردی به هر کدوم یه شماره اختصاص بده بین اونا یکی رو انتخاب کن. ( این روشیه که به ذهن آدمایی مثل من میرسه که دستورا رو بلد نیستن! )

[shamsoft]

اسپیدر جان اول بهت بگم که امشب توی جشنواره فیلم سینمایی شبکه 2 قراره که فیلم Spiderman2 رو بزاره (ساعت23:30 ) البته من قبلا فیلمشو دیدم.
روش شما هم قبلا به فکر من رسیده بود ولی چون طولانی میشه دیگه گذاشتمش برای آخرین کار.
قبلا یه کدی دیده بودم که تقریبا به صورت زیر بود:

کد:

Code (1,2,3,4)

که به جای code یه دستور بود و به جای 1و2و ... هر چیزی می تونستی بزاری و اونوقت می تونستی بین 1و2و... یکیشون رو به صورت رندم انتخاب کنی.حالا من این تاپیک رو به قصد این کد زدم ولی اگه کسی روشهای دیگه ای هم بلده بگه تا یاد بگیریم.

این روشیه که به ذهن آدمایی مثل من میرسه که دستورا رو بلد نیستن

پس من چی هستم.
اینم یه عکس نوروز که خودم ساختم.ببینید چطوره؟

[محمد حسینی]

پیشنهاد میکنم حتما فیلم رو ببینین. حسابی براش زحمت کشیدم! اگه خوب بود نظر بدین تا قسمت سومش هم بسازم ( آقایون مدیرا ببخشین! چرا میزنی؟!)

[esmaeily-hosein]

بهینه سازی کدها هم چیز جالبیه ها !

Private Sub ChangeColor_Click()
On Error GoTo L1:
start! = Timer
Randomize
Dim r, g, b As Byte
r = Int((255 - 0 + 1) * Rnd() + 0)
g = Int((255 - 0 + 1) * Rnd() + 0)
b = Int((255 - 0 + 1) * Rnd() + 0)
ChangeColor.BackColor = QBColor(Int((15 - 0 + 1) * Rnd() + 0))
Me.BackColor = RGB(r, g, b)
Lblrgb.Caption = "Rgb : " & r & "," & g & "," & b
MsgBox Format$(Timer - start, "##.##") & "Secs"
L1:
Select Case Err.Number
Case 5
Result% = MsgBox("Color Not Find")
End Select
End Sub

[Soheilvb]

از اين راه مي توني بر يكه خيلي راحته:
Private Sub Command1_Click()
Dim A As Long
A = Rnd() * 15
Me.BackColor = QBColor(A)
End Sub

كه يك دكمه بزار فرمت رنگ هاي مختلف مي شه.
يا اگه رنگ هاي بيشتر مي خواي 3 عدد بگير رندوم بگذار تا 255 بعد با RGB درست كن.

[shamsoft]

آقا سهیل بازم ممنون

[Soheilvb]

خواهش وكنم دوباره