چطوري رنگ فرم رو به صورت اتوماتيك عوض كنم ؟

واضح آرشیو وب فارسی:سایت ریسک: aaaammmm8707-12-2008, 09:09 PMسلام دوستان يه فرم دارم كه مي خواهم با تايمرم هر يه ثانيه يه بار رنگش عوض بشه . خوب خودم چند بار نوشتم همش ارور ميداد يا بعد از اينكه چند تا رنگ عوض ميكرد برنامه خطا مي داد ( فكر كنم همون 15 تا رنگ QBCOLOR ) خوب حالا من بايد چي بنويسم ؟در ضمن مي خواهم رنگ ها تكراري و محدود نباشن ! :46::10: Private Sub Timer1_Timer() Form1.BackColor =? End Sub BLACK-BLACK07-12-2008, 09:28 PMاین برنامه به صورت ساده هستش. 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 aaaammmm8707-12-2008, 09:39 PMprivate sub timer1_timer() rndvar = int(rnd * 16) form1.backcolor = qbcolor(rndvar) end sub خوب دوست عزيز اگه من بخواهم اين رنگ ها رو به صورت كنترل شده داشته باشم بايد چكار كنم يعني اينكه رنگم از قرمز كمرنگ بياد به پرنگ بعد يه رنگ ديگه و ............................. BLACK-BLACK07-12-2008, 10:06 PMالان کدشو برات میذارم. BLACK-BLACK07-12-2008, 10:18 PMبهتر نیست که هدف مساله رو بگی؟ چون همین الان اگه بخای من یه برنامه رو برات میذارم که از قرمز پررنگ شروع کنه و به سفید ختم کنه. ولی بعدا اگه کار دیگه ای رو بخای ممکنه مشکل ساز بشه. aaaammmm8707-12-2008, 10:19 PMt] اینم مقداری حرفه ای تر private sub timer1_timer() rndvar1 = int(rnd * 16) rndvar2 = int(rnd * 16) rndvar3 = int(rnd * 16) form1.backcolor = rgb(rndvar1, rndvar2, rndvar3) end sub عزيز دل برادر :31: اين فقط فرم رو مشكي مي كنه (نمي دونم شايد هم دارم چاوشي مشكي رنگه عشقه رو داره مي خونه روي ويژال تاثير گذاشته :18::31::46:) aaaammmm8707-12-2008, 10:20 PMبهتر نیست که هدف مساله رو بگی؟ چون همین الان اگه بخای من یه برنامه رو برات میذارم که از قرمز پررنگ شروع کنه و به سفید ختم کنه. ولی بعدا اگه کار دیگه ای رو بخای ممکنه مشکل ساز بشه. خوب اونوقت از رنگ قرمز به ديگر رنگ ها هم سوييچ مي كنه ؟ اگه اره خوب همين رو بده عزيز :31: BLACK-BLACK07-12-2008, 10:26 PMتا کی برنامه رو میخای؟ aaaammmm8707-12-2008, 10:33 PMتا کی برنامه رو میخای؟ هر چه زودتر بهتر :31: BLACK-BLACK07-12-2008, 10:39 PMفردا یه برنامه حرفه ای شو برات میفرستم. aaaammmm8708-12-2008, 08:59 AMيكي از مدل هاي خودتو يه كم كامل تر نوشتم ولي باز هم نه اين هم خوب نيست Private Sub Timer1_Timer() rnd 1% = (Rnd * 255) rnd 2% = (Rnd * 255) rnd 3% = (Rnd * 255) Form1.BackColor = RGB(rnd 1, rnd 2, rnd 3) End Sub BLACK-BLACK08-12-2008, 07:14 PMببین این برنامه بعدا قراره با برنامه دیگه ای ترکیب بشه یا فقط گفتن که این رو بسازید بیارید؟ BLACK-BLACK10-12-2008, 07:37 PMببین من این دوتا را برات نوشتم اون کاری رو که میخای انجام میده منتها در مدت زمان بسیار سریع برات برنامه هاشو اپلود کردم که راحت بشه خوند و تغییرش داد. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! امید وارم به دردت بخوره Payman_6211-12-2008, 12:19 AMسلام. این کد رو ببین. خودت میتونی تغییر توش بدی تا اون جای که میخوای تغییر کنه. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! یه توضیح هم در مورد rgb بدم. 3 تا پارامتر Red و Green و Blue میگیره. هر چند این پارامتر ها از نوع اینتیجر هستن. ولی در عمل از نوع بایت هستند. چون اعداد پارامتر فقط در صورتی که بین 0 تا 255 باشه رنگ رو تغییر میدن. در واقع !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! با !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! فرقی نمیکنه. چون اعداد بزرگتر از 255 هم 255 در نظر گرفته میشن. با توجه به اعدادی که شما به پارامتر میدی یعنی شدت سه رنگ اصلی قرمز و سبز و آبی رو تعیین میکنی rgb در خروجی یه رنگ به شما میده. اگه 3 پارامتر 0 باشن رنگ مشکی و 3 پارامتر 255 باشن سفید میشه. حالا شما میتونی با دادن اعداد مختلف رنگ های مختلف داشته باشی. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 523]