مشکل با تایمر و کد نویسی

[1009645]

سلام دوستان :قلب:

من نمی دونم کد نویسیم درسته یا نه و لی در هر صورت قرار میدم که دوستان کمک کنند

من می خوام برنامه ای بنویسم که هر 1 ثانیه رنگ فرم رو عوض کنه از یک تایمر استفاده کردم و کد زیر رو درون اون قرار دادم


Form1.BackColor = vbWhite * Rnd


اما می خوام یکم جالب تر باشه

اگر ممکنه کمکم کنید

ممنونم

[m.4.r.m]

Private Sub Timer1_Timer()
Timer1.Interval = 1000
Form1.BackColor = QBColor(Rnd * 12)
End Sub

[1009645]

Private Sub Timer1_Timer()
Timer1.Interval = 1000
Form1.BackColor = QBColor(Rnd * 12)
End Sub



در مورد کد توضیح میدی ؟ { مثلا QBColor چیه ؟ }

من کد رو به این تغییر دادم درست شد اما می خوام در این مورد هم بدونم :


Private Sub Timer1_Timer()
Form1.BackColor = vbWhite * Rnd
End Sub

[arenaw]

همچنین اگه میخواید تعداد رنگهایی که میزاره نا محدود باشه میتونید از این کد استفاده کنید:

Private Sub Timer1_Timer()
Form1.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
End Sub

RGB یه تابعیه که مقدار 0 تا 255 برای هریک از سه رنگ اصلی مونیتور میگیره و رنگ ترکیبی اونا رو نشون میده که ما جای 3 تاش یه مقدار رندم گذاشتیم