Printable View
سلام دوستان
يه فرم دارم كه مي خواهم با تايمرم هر يه ثانيه يه بار رنگش عوض بشه . خوب خودم چند بار نوشتم همش ارور ميداد يا بعد از اينكه چند تا رنگ عوض ميكرد برنامه خطا مي داد ( فكر كنم همون 15 تا رنگ QBCOLOR ) خوب حالا من بايد چي بنويسم ؟در ضمن مي خواهم رنگ ها تكراري و محدود نباشن ! :46::10:
Private Sub Timer1_Timer()
Form1.BackColor =?
End Sub
این برنامه به صورت ساده هستش.
Private Sub Timer1_Timer()اینم مقداری حرفه ای تر
RndVar = Int(Rnd * 16)
Form1.BackColor = QBColor(RndVar)
End Sub
Private Sub Timer1_Timer()
RndVar1 = Int(Rnd * 256)
RndVar2 = Int(Rnd * 256)
RndVar3 = Int(Rnd * 256)
Form1.BackColor = RGB(RndVar1, RndVar2, RndVar3)
End Sub
خوب دوست عزيز اگه من بخواهم اين رنگ ها رو به صورت كنترل شده داشته باشم بايد چكار كنم يعني اينكه رنگم از قرمز كمرنگ بياد به پرنگ بعد يه رنگ ديگه و .............................نقل قول:
الان کدشو برات میذارم.
بهتر نیست که هدف مساله رو بگی؟
چون همین الان اگه بخای من یه برنامه رو برات میذارم که از قرمز پررنگ شروع کنه و به سفید ختم کنه.
ولی بعدا اگه کار دیگه ای رو بخای ممکنه مشکل ساز بشه.
عزيز دل برادر :31: اين فقط فرم رو مشكي مي كنه (نمي دونم شايد هم دارم چاوشي مشكي رنگه عشقه رو داره مي خونه روي ويژال تاثير گذاشته :18::31::46:)نقل قول:
خوب اونوقت از رنگ قرمز به ديگر رنگ ها هم سوييچ مي كنه ؟نقل قول:
اگه اره خوب همين رو بده عزيز :31:
تا کی برنامه رو میخای؟
هر چه زودتر بهتر :31:نقل قول:
فردا یه برنامه حرفه ای شو برات میفرستم.
يكي از مدل هاي خودتو يه كم كامل تر نوشتم ولي باز هم نه اين هم خوب نيست
Private Sub Timer1_Timer()
rnd1% = (Rnd * 255)
rnd2% = (Rnd * 255)
rnd3% = (Rnd * 255)
Form1.BackColor = RGB(rnd1, rnd2, rnd3)
End Sub
ببین این برنامه بعدا قراره با برنامه دیگه ای ترکیب بشه یا فقط گفتن که این رو بسازید بیارید؟
ببین من این دوتا را برات نوشتم اون کاری رو که میخای انجام میده منتها در مدت زمان بسیار سریع
برات برنامه هاشو اپلود کردم که راحت بشه خوند و تغییرش داد.
امید وارم به دردت بخورهکد:http://www.2shared.com/file/4431092/84e69ef2/Barname.html
سلام.
این کد رو ببین. خودت میتونی تغییر توش بدی تا اون جای که میخوای تغییر کنه.
یه توضیح هم در مورد rgb بدم. 3 تا پارامتر Red و Green و Blue میگیره. هر چند این پارامتر ها از نوع اینتیجر هستن. ولی در عمل از نوع بایت هستند. چون اعداد پارامتر فقط در صورتی که بین 0 تا 255 باشه رنگ رو تغییر میدن. در واقعکد:Private Sub Timer1_Timer()
Static intRed As Integer, intGrn As Integer, intBlu As Integer
Me.BackColor = RGB(intRed, intGrn, intBlu)
intRed = intRed + 5
If intRed > 255 Then
intRed = 0
intGrn = intGrn + 5
If intGrn > 255 Then
intGrn = 0
intBlu = intBlu + 5
If intBlu > 255 Then
intBlu = 0
End If
End If
End If
End Sub
باکد:rgb(5,5,255)
فرقی نمیکنه. چون اعداد بزرگتر از 255 هم 255 در نظر گرفته میشن.کد:rgb(5,5,500)
با توجه به اعدادی که شما به پارامتر میدی یعنی شدت سه رنگ اصلی قرمز و سبز و آبی رو تعیین میکنی rgb در خروجی یه رنگ به شما میده. اگه 3 پارامتر 0 باشن رنگ مشکی و 3 پارامتر 255 باشن سفید میشه.
حالا شما میتونی با دادن اعداد مختلف رنگ های مختلف داشته باشی.