تبلیغات
برنامه نویسی بانک اطلاعاتی وِیژوال نت همه چی - برنامه سازی ویژوال بیسیک 6 ( قسمت دهم )
برنامه نویسی بانک اطلاعاتی وِیژوال نت همه چی
خدایان برنامه نویسی آمده اند بیایید و فیض ببرید

لینکدونی

آرشیو موضوعی

آرشیو

← آمار وبلاگ

  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :

برنامه سازی ویژوال بیسیک 6 ( قسمت دهم )

موضوع : آشنایی با کنترل 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 نیز صحبت کرده ایم.
نکته : نام اشیاء را مطابق مثال تغییر دهید. ( موفق باشید )

درباره وبلاگ

مدیر وبلاگ : دانیال

آخرین پست ها

جستجو

نویسندگان