| پیام مدیر |
|---|
فعلا هیچی
|
به این سایت سر بزنید
آموزش ویژوال بیسیک : آشنایی با کنترل Timer
در قسمت دهم سری مقالات آموزش برنامه نویسی ویژوال بیسیک 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 نيز صحبت كرده ايم.
نکته : نام اشیاء را مطابق مثال تغییر دهید. ( موفق باشید )
برنامه نويسي ويژوال بيسيك 6 (توليد اعداد تصادفي و نوشتن يك قطعه برنامه)
توليد اعداد تصادفي ( Random ) : براي توليد اين نوع اعداد از تابع RND استفاده مي شود. به عنوان مثال دستور زير باعث مي شود كه اعداد تصادفي بين صفر تا 10 توليد شود : Rnd*10 كه اعداد توليد شده شامل اعداد صحيح و اعشاري مي باشند. اما دستور : Int(Rnd*10) باعث مي شود فقط اعداد صحيح تصادفي در بازه ي صفر تا ده توليد شود.
مثال : a=Int(Rnd*10)
Print a
اگر هر بار دكمه را بفشاريد يك عدد صحيح بين صفر تا 10 توليد مي شود. ( قطعه كد ذكر شده را در در يك دكمه بنويسيد )
تفكر : قطعه برنامه زير چه كاري انجام مي دهد ؟
a=Int(Rnd*15)
s=QbColor(a)
Text1.ForeColor=s
راهنمايي :تابع QbColor براي استفاده از توابع رنگ كاربرد دارد. ( مقادير آن از صفر تا 15 )
» پاسخ تمرين بالا در مقاله بعدي توضيح داده مي شود.
» پاسخ تمرين قسمت يازدهم :
تمرين : قطعه برنامه اي بنويسيد كه اعداد 15 تا 25 را در يك آرايه ذخيره كند و سپس مقادير آن ها را از انتها به ابتدا روي صفحه فرم نمايش دهد. ( راهنمايي : از دستورات for و print در برنامه استفاده نمائيد و كد برنامه را در روال Activate بنويسيد. )
پاسخ :
Dim b(10) as integer
For I = 0 to 10
B(i) = i+15
Next i
For j = 10 to 0 step -1
Print b(j)
Next j
البته چون تراز متن راست چين است جاي پرانتز ها بايد اصلاح شود.
موفق باشيد …
جواب آقا رضا
وظیفه خودم دونستم که بهتون کمک کنم. البته بگم که من دو هفته هست که وی بی رو
به صورت جدی دونبال میکنم. البته قبلا درسشو تو دبیرستان پاس کردم. حالا بگذریم...
برای اینکه بتونید شیی رو تو فرم با استفاده از کلیدهای مکان نما حرکت بدید:
سه نکته اصلی داره:
1-Top شیی
2- leftشیی
3-keycode
top:بالا یا پایین رفتن شیی رو مشخص می کنه که اگه عدد منفی بهش بدی شیی میره بالا و
اگه مثبت بدی میره پایین.
left: چپ یا راست رفتن شیی رو مشخص می کنه که اگه عدد منفی بهش بدی شیی میره به چپ و
اگه مثبت بدی میره به راست.
keycode: این در واقع معرف کلیدی که فشرده میشه هستش که کد اسکی اون کلید رو باید براش وارد کنید.
سمت چپ: ۳۷ سمت راست: ۳۹ بالا: ۳۸ پایین:۴۰
یه برنامه هم برای نمونه آماده کردم که فکر می کنم کاملا روشن باشه
[لینک دانلود]
تغییر شکل با کنترل اسکرول
در عوض دوست عزیزم آقا فرشاد این وبلاگ رو به خوبی هدایت می کنن.
امروز براتون یه برنامه خیلی ساده گذاشتم که بیشتر برای آشنایی با کنترل اسکرول و تغییر شکل
یه شیپ در صفحه ست. دیگه بیشتر توضیح نمیدم خودتون ببینید
[ دانلود ]
برنامه ای برای تمرین و سرعت عمل در تایپ
البته کد هاشو محمد نوشته اما من اپ کردم برید حال کنید
پاسخ به سوالات شما
سلام یکی از دوست هامون گفتن که چرا دیر به دیر اپ میکنین اما ما که تقریبا" هر شب اپ میکنیم و درباره exe اگه میخواین فایلتون اجرایی باشه به ادرس زیر برید
file............make project.exe
اکنون ادرس پروژه رو میتونین مشخص کنین و فایلتون رو اجرایی کنین پیشنهاد ما به شما این است که در فایل های اجرایی حتما یک کامند پایان برای برنامتون بزارید که برنامه راحت بسته شه
مدیا پلیر ساخت این وبلاگ
اینم یه برنامه مدیا پلیر باحال که براتون آمادش کردم
ببخشید اگه در سطح تیم ملی نیست ولی در حد خودمون که مبتدی هستیم هست دادا
به دانلودش می ارزه ...
یه اسکین بیشتر براش طراحی نکردم
برنامه مبدل متر به سانتی
برنامه آقا رضا
برنامه تون رو آماده کردم...
مشکلی که داشت این بود که متغیر Rndnum درست مقدار دهی نمیشد
که با تعریف یه متغیر کمکی دیگه تو برنامه برنامه درست شد
اینم کد اصلاح شده:
General
Dim B As Integer
Private Sub Form_Load()
Form1.Caption = "Number Find"
Text1.Text = ""
End Sub
Public Sub Command1_Click()
Randomize Timer
rndnum = Int(10 * Rnd) + 1
B = rndnum
End Sub
Private Sub command2_click()
If Text1.Text > B Then
Label1.Caption = " x < " + Text1.Text
ElseIf Text1.Text < B Then
Label1.Caption = " x > " + Text1.Text
ElseIf Text1.Text = B Then
Label1.Caption = "u r winner"
End If
End Sub
یه برنامه برا محاسبه توان
یه برنامه باحال دارم براتون که میتونید هر عددی رو به هر توانی که خواستید باهاش محاسبه کنید
اینم یکی ازون بزنامه هاییه که فکر کنم در سطح تیم ملی باشه....
[دانلود]
حجم ۲ کیلو بایت
رنگ فرم
حتما" تو نظرات بنویسید و فرداش بیاین و جوابتونو بگیرین اگه هم دوست داشتین با من چت کنید این ای دی منه
اینم تقدیم به شما
