موضوع : آشنایی با کنترل Timer و ساخت یک برنامه شبیه محافظ نمایش ( ScrennServer ) در قسمت دهم سری مقالات آموزش برنامه نویسی ویژوال بیسیک 6 شما را با کنترل تایمر و ساخت یک برنامه نمونه جالب آشنا می کنم. کنترل تایمر : در جعبه اشیا وجود دارد و شکل یک ساعت است. نام این شیء Timer می باشد. خاصیت های مهم کنترل تایمر : · خاصیت Interval : فاصله ی زمانی بر حسب میلی ثانیه ( هر 1000 میلی ثانیه معادل 1 ثانیه میباشد ) · خاصیت Enable : جهت فعال و غیر فعال کردن کنترل تایمر · خاصیت Name : جهت تعویض نام کنترل ( به صورت پیش فرض Timer1 است ) دستور نمایش ساعت با استفاده از کنترل تایمر : Private Sub Timer1_Timer() Timer1.Interval = 1000 Label1.Caption = Format(Now, “h:s:mm”) End Sub نکته اینکه احتیاج به اشیاء Label و Timer دارید. نام پیش فرض اشیاء را تغییر ندهید. ساخت یک برنامه شبیه محافظ نمایش ( ScrennServer ) : کد های زیر را وارد نمائید : ( توضیحات این کد ها در درس های قبلی ذکر شده است ) Private Sub Form_Load() Dim inti As Integer Pic1.AutoRedraw = True Pic1.BackColor = QBColor(15) Pic1.ScaleMode = vbPixels Pic1.TabStop = False End Sub Private Sub Timer1_Timer() Dim intx, inty, intr, intc As Integer Randomize Timer For i = 1 To 50 intx = Int(Rnd * Pic1.ScaleWidth) inty = Int(Rnd * Pic1.ScaleHeight) intr = Int(Rnd * 40) intc = Int(Rnd * 16) Pic1.Circle (intx, inty), intr, QBColor(intc) جهت توليد دايره در كادر تصوير : Next End Sub اشیاء مورد نیاز : کنترل تصویر ( Picture ) و کنترل Timer نکته : دستور RND یک عدد تصادفی تولید می کند و دستور INT باعث مي شود اعداد توليد شده از حالت اعشاري به حالت صحيح تبديل شوند. همچنين قبلاً درباره ي دستور FOR نيز صحبت كرده ايم. نکته : نام اشیاء را مطابق مثال تغییر دهید. ( موفق باشید )

ادامـــه مطلب