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

ارسال شده توسط احمد محمد علیزاده در ۷ آبان, ۱۳۸۵ ساعت ۱۲:۴۶

با سلام . امیدوارم بازدید کنندگان سایت شاهوار یک کمی از تنبلی دست بردارن و دنبال برنامه نویسی برن تا من هم امید وار بشوم و برای این بخش بیشتر کار کنم. از آن جایی که معلوم است ظاهراً این بخش طرف دار کمی دارد. من به شما پیشنهاد می کنم که واقعاً اگر همت کنید می توانید ویژوال بیسیک را بیاموزید.

اما بگذریم. در قسمت هشتم آموزش برنامه نویسی ویژوال بیسیک 6 – با توجه به مقالات قبلی و آموزش های داده شده – چند برنامه می نویسیم که با توضیح کامل برای شما گذاشته ام.

برنامه 1) چطور میشه در یک فرم یک منو درست کرد که بتوان با فشردن کلید آن را باز نمود؟
چون منو را بدون استفاده از کلیک انجام میدهیم حتما باید به صورت تقلبی انجام داد
ببینید شما منویی به فرمتان اضافه کنید و سپس کلیدی هم اضافه کنید حالا از فرمان popupmenu در ناحیه کدنویسی مربوط به کلید استفاده میکنیم دقیقا به صورت زیر درمیاد:
()Private Sub Command1_Click
PopupMenu mnufile, , 0, 0
End Sub
مختصات 0 و 0 منو را زیر منو اول خواهد برد و شما برای منوهای بعدی باید مختصات را تغیر دهید
یعنی مختصات دقیق x,y زیر منوی مورد نظر را بده خیلی کار سختی نیست چون y همیشه 0 است

البته نام منوی خودتان را به جای mnufile عوض کنید.

برنامه 2) چطوری میشود که کاربر با ورود کردن نام کشور در تکست باکس و فشار دادن کلید،پایتخت اون کشور در تکست باکس دوم  مشخص بشه؟
اول درون فرمت دو تا تکست باکس و یک کامند درست کن

خوب

در ناحیه کد نویسی مربوط به کامند این رو تایپ کن
If Text1.Text = “iran” Then Text2.Text = “TEHRAN”
“If Text1.Text = “germany” Then Text2.Text = “LONDON
حالا  اینجوری میتونی پشت سر هم کشور و پایتخت شون رو برای برنامه درست کنی
تا دلت میخواد کشور و پایتخت بده
البته میتونی فارسی هم بنویسی

البته با این روش میتونی یک  دیکشنری خوب هم درست کنی!

برنامه 3) چطور میشه عکسی از سمتی به سمت دیگر به توسط کلیدی انجام شود؟
در برنامه زیر عکس مورد نظر از سمت چپ به راست حرکت میکند
راهنمایی: با استفاده از تایمر میتونی برنامه خودت رو درست کنی
اول یک متغیر سراسری به نام a درست کن
یک تایمر به فرمت اضافه کن و بعدش خاصیت Enabled اون رو به false تبدیل کن و خاصیت interval تایمرت هم به 1 تبدیل کن چون در حالت پیش فرض این خاصیت مقدارش  0 است. بعدش کدهای زیر رو در تایمرت قرار بده:
a = 1
For a = 1 To 5
Picture1.Left = Picture1.Left + a
Next
بعد یک کنترل picture به فرمت اضافه کن و در سمت چپ فرمت قرارش بده
حالا یک کامند درست کن و کد زیر رو در آن تایپ کن:
Timer1.Enabled = Timer
کد بالا در حقیقت کارش اینه که وقتی کلید کامند زده شد تایمر رو به کار می اندازه
حالا caption کامندت رو به RUN تبدیل کن

به همین سادگی!

البته در مورد کنترل تایمر هنوز مقاله ای منتشر نکرده ام و برنامه بالا برای کاربرانی است که با کنترل تایمر آشنایی کافی را داشته باشند.

موفق باشید.

مربوط به آموزش برنامه نويسي | ۹ نظر »