انجمن کدستانMoisrex

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

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

برنامه ۱) چطور میشه در یک فرم یک منو درست کرد که بتوان با فشردن کلید آن را باز نمود؟

چون منو را بدون استفاده از کلیک انجام میدهیم حتما باید به صورت تقلبی انجام داد

ببینید شما منویی به فرمتان اضافه کنید و سپس کلیدی هم اضافه کنید حالا از فرمان popupmenu در ناحیه کدنویسی مربوط به کلید استفاده میکنیم دقیقا به صورت زیر درمیاد:

()Private Sub Command1_Click

PopupMenu mnufile, , 0, 0

End Sub

مختصات ۰ و ۰ منو را زیر منو اول خواهد برد و شما برای منوهای بعدی باید مختصات را تغیر دهید

یعنی مختصات دقیق x,y زیر منوی مورد نظر را بده خیلی کار سختی نیست چون y همیشه ۰ است

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

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

اول درون فرمت دو تا تکست باکس و یک کامند درست کن

خوب

در ناحیه کد نویسی مربوط به کامند این رو تایپ کن

If Text1.Text = “iran” Then Text2.Text = “TEHRAN”

“If Text1.Text = “germany” Then Text2.Text = “LONDON

حالا اینجوری میتونی پشت سر هم کشور و پایتخت شون رو برای برنامه درست کنی

تا دلت میخواد کشور و پایتخت بده

البته میتونی فارسی هم بنویسی

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

برنامه ۳) چطور میشه عکسی از سمتی به سمت دیگر به توسط کلیدی انجام شود؟

در برنامه زیر عکس مورد نظر از سمت چپ به راست حرکت میکند

راهنمایی: با استفاده از تایمر میتونی برنامه خودت رو درست کنی

اول یک متغیر سراسری به نام a درست کن

یک تایمر به فرمت اضافه کن و بعدش خاصیت Enabled اون رو به false تبدیل کن و خاصیت interval تایمرت هم به ۱ تبدیل کن چون در حالت پیش فرض این خاصیت مقدارش ۰ است. بعدش کدهای زیر رو در تایمرت قرار بده:

a = 1

For a = 1 To 5

Picture1.Left = Picture1.Left + a

Next

بعد یک کنترل picture به فرمت اضافه کن و در سمت چپ فرمت قرارش بده

حالا یک کامند درست کن و کد زیر رو در آن تایپ کن:

Timer1.Enabled = Timer

کد بالا در حقیقت کارش اینه که وقتی کلید کامند زده شد تایمر رو به کار می اندازه

حالا caption کامندت رو به RUN تبدیل کن

تشکر یادتون نره ، موفق باشید.