انجمن کدستانMoisrex

موضوع : آشنایی با کنترل Timer و ساخت یک برنامه شبیه محافظ نمایش ( ScrennServer )در قسمت دهم ( جلسه آخر ) سری تاپیک های آموزش برنامه نویسی ویژوال بیسیک ۶ شما را با کنترل تایمر و ساخت یک برنامه نمونه جالب آشنا می کنم.

کنترل تایمر : در جعبه اشیا وجود دارد و شکل یک ساعت است. نام این شیء Timer می باشد.

خاصیت های مهم کنترل تایمر :

· خاصیت Interval : فاصله ی زمانی بر حسب میلی ثانیه ( هر ۱۰۰۰ میلی ثانیه معادل ۱ ثانیه میباشد )

· خاصیت 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 نیز صحبت کرده ایم.

نکته : نام اشیاء را مطابق مثال تغییر دهید. ( موفق باشید / تشکر یادتون نره )