آشنايي با كنترل تايمرو وساخت يك برنامه شبيه اسكرين سرور - تالار گفتمان آذر فروم





دعوت به همکاری با آذر فروم

 

آشنايي با كنترل تايمرو وساخت يك برنامه شبيه اسكرين سرور
زمان کنونی: 13-09-1395،07:55 ق.ظ
کاربران در حال بازدید این موضوع: 1 مهمان
نویسنده: moderator
آخرین ارسال: moderator
پاسخ: 1
بازدید: 320

 
 
رتبه موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5

موضوع: آشنايي با كنترل تايمرو وساخت يك برنامه شبيه اسكرين سرور
ارسال: #1
آشنايي با كنترل تايمرو وساخت يك برنامه شبيه اسكرين سرور
پست‌ها: 1,456
تاریخ عضویت: 22 اردیبهشت 1390
اعتبار: 36
حالت من: Ghafelgir
با سلام خدمت دوستان
در اين پست قصد دارم آموزش كار با كنترل تايمر و نحوه كاركردش درويژوال بيسيك 6 رو بزارم کنترل تایمر در جعبه اشیا وجود دارد و شکل یک ساعت است. نام این شیء Timer هست.
خاصیت های مهم کنترل تایمر :
- خاصیت Interval : فاصله ی زمانی بر حسب میلی ثانیه ( هر 1000 میلی ثانیه معادل 1 ثانیه میباشد )
- خاصیت Enable : جهت فعال و غیر فعال کردن کنترل تایمر
- خاصیت Name : جهت تعویض نام کنترل ( به صورت پیش فرض Timer1 است )
دستور نمایش ساعت با استفاده از کنترل تایمر :
Private Sub Timer1_Timer()
Timer1.Interval = 1000Label1.Caption = Format(Now, “h:s:mm”
EndSub
نکته اینکه احتیاج به اشیاء Label و Timer دارید. نام پیش فرض اشیاء را تغییر ندهید.
ساخت یک برنامه شبیه محافظ نمایش ( ScrennServer ) :
کد های زیر را وارد نمائید :
PrivateSub Form_Load()
Dim inti As IntegerPic1.AutoRedraw = TruePic1.BackColor = QBColor(15)
Pic1.ScaleMode = vbPixelsPic1.TabStop = FalseEnd SubPrivate Sub Timer1_Timer()
Dimintx, inty, intr, intc As IntegerRandomize TimerFor i = 1 To 50intx = Int(Rnd * Pic1.ScaleWidth)
inty = Int(Rnd * Pic1.ScaleHeight)
intr = Int(Rnd * 40)
intc = Int(Rnd * 16)
Pic1.Circle (intx, inty), intr, QBColor(intc) جهت توليد دايره در كادر تصوير :
NextEnd Sub
اشیاء مورد نیاز : کنترل تصویر ( Picture ) و کنترل Timer
نکته : دستور RND یک عدد تصادفی تولید می کند و دستور INT باعث مي شود اعداد توليد شده از حالت اعشاري به حالت صحيح تبديل شوند.
توجه :
چون تراز متن راست چين است جاي پرانتز ها بايد اصلاح شود.
















گوزلیم عکسین دوشوب پیماندن پیمانیه

گوندریب عشقین منی میخاندن میخانیه

گئتمیشم میخانیه من دردیمه درمان اولام

دردیمی بیر بیر دیم من ساغر و پیمانیه

دردیمه درمان شراب اولدو حبیبیم ساقی لر

گوندریب عشقیم منی گور هانسی داروخانیه


[عکس: images?q=tbn:ANd9GcTiJ4evUTSiPaWN4c5Iczp...VY2wXNRMnQ]
11-06-1390 01:43 ب.ظ
 


[-]
پاسخ سریع
پیام
پاسخ خود را برای این پیام در اینجا بنویسید.


کد تصویری
royalfuns
(غیر حساس به بزرگی و کوچکی حروف)
لطفاً کد نشان داده شده در تصویر را وارد نمایید. این اقدام جهت جلوگیری از ارسال‌های خودکار ضروری می‌باشد.

موضوعات مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  مثالي از برنامه نويسي يك پروژه با vb moderator 0 395 17-06-1390 01:00 ق.ظ
آخرین ارسال: moderator

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان