آرشيو ماهانه

لوگوي ما

آمار وبلاگ

سلام

بسم الله الرحمن الرحیم

سلام کاربران گرامی من از امروز تصمیم گرفتم با ایجاد این وبلاگ تجربیات برنامه نویسی خود را در اختیار شما قرار بدهیم.امیدوارم بتونم در این کارم به یاری خداوند متعال موفق باشم.

کد نویسی در ویژوال بیسیک

مي خوايم كه با هم با تابع Msgbox( ) و تابع inputbox( ) به همراه دستور شرطي if و هم چنين عملگر And آشنا شويم.

تابع Msgbox( ): كه كادر پيامي را مانند شكل زير ظاهر مي كند كه شما مي توانيد آيكون و نوشته و تعداد دكمه هاي آن را تععين كنيد.در واقع فرم تابع msgbox( ) با آرگومان هاي آن به صورت زير است:

تابع msgbox ( ) يك آرگومان اجباري strtprompt)) و دو آرگومان اختياري (intstyle , strtitle) دارد .از پيشوند نام اين آرگومان مي توانيد حدس بزنيد كه نوع آن ها چيست.آرگومان اول پيامي است كه بايد كادر پيام نشان دهد و آرگومان دوم تعداد و نوع دكمه هاي كادر پيام را تعيين خواهد كرد و آرگومان سوم عنوان پنجره كادر پيام خواهد بود .براي فهم بيشتر شما عزيزان يك مثال ميزنم كه شكلش هم مي توانيد مشاهده كنيد: يك Command از كنترل ها به صفحه اضافه كنيد و روي آن دابل كليك كنيد تا صفحه كد نويسي باز شود و سپس كد هاي زير را وارد كنيد:

a = MsgBox("خوش آمديد", vbYesNoCancel + vbInformation + vbDefaultButton2, "اطلاعات")

سپس برنامه را به همان روشي كه قبلا گفتم Exe كنيد و سپس آن را اجرا كرده و روي Command كليك كنيد تا برنامه اجرا شود شكل اين برنامه به صورت زير است:

نكته : روش Exe كردن كه قبلا گفتم رو بازم اين جا ميگم كه براي اين كار بايد از منوي File گزينه Make to exe file را انتخاب كنيد وسپس برنامه را در يك جايي توي هاردتون ذخيره كنيد و براي اجراي برنامه به محلي كه برنامه در آن ذخيره شد برويد و روي فايل دابل كليك كنيد و بقيش رو هم كه تو بالا گفتم.

اينم شكلش :

تابع InPutBox( ) : اين تابه هم پيامي به كاربر ارائه مي دهد و هم امكان مي دهد تا كاربر جواب خود را وارد كند.

شكل كلي اين تابه به صورت زير است:

از ميان تمام آرگومان هاي اون فقط آرگومان اولش اجباريه و بقيشون همه اختيارين و مي تونيم حتي ننويسيمشون.

Strprompt :پيام ويا پرسشيه كه بايد تو كادر نمايش داده بشه.

Strtitle :عنوان پنجره كادر كه اگه وارد نشه ويژوال بيسيك به طور پيش فرض اون رو Project در نظر مي گيره.

Strdefault: اگه بخوايم كه توي ابتدا كه كادر ظاهر ميشه توي قسمت مربوط به كاربر عدد يا چيز ديگه اي باشه پس اين قسمت رو پر كنيد.

intYpos ,intXpos:مختصاتي رو كه بايد كادر تو صفحه ظاهر بشه رو نشون ميده.

يك Command از كنترل ها به صفحه اضافه كنيد و روي آن دابل كليك كنيد تا صفحه كد نويسي باز شود و سپس كد هاي زير را وارد كنيد:

شكل برنامه پس از اجرا به صورت زير خواهد بود:

عملگر هاي رابطه اي ويژوال بيسيك

عملگر	توضيح	مثال	نتيجه
>	بزرگ تر از	6>3	درست يا True
<	كوچك تر از	5<11	درست يا True
>=	بزرگ تر يا مساوي	23>=23	درست يا True
<=	كو چكتر يا مساوي	4<=21	درست يا True
=	تساوي	7=11	نادرست يا False
<>	نا مساوي	3<>3	نادرست يا False

عملگر And بر روي دو عبارت عمل مي كند. جواب ما موقعي True خواهد بود كه كه دو عبارت ورودي هر دو True باشند در غير اين صورت جواب False خوا هد بود. از اين عملگر معمولا براي پيوند دو شرط استفاده ميشه كه بعدا تو عبارت شرطي در باره اين موضوع بيشتر براتون ازش ميگم.

دستور If : كه به صورت زير است

Then عبارت شرطي If

مثلا مي خواهيم برنامه اي بنويسيم كه يك عدد از كاربر دريافت كند و اگر آن عدد 11 بود روي فرم به كاربر پيام دهد كه موفق باشيد و اگر نبود پيام دهد كه متأسفم :

اول يك Command به فرم اضافه كنيدو در صفحه كد نويسي مربوط به آن كد هاي زير را وارد نماييد:

("يك عدد وارد نماييد") a= inputbox

If a = "11" Then

"موفق باشيد"print

"متأسفم" print

آموزش کد نویسی در ویژوال بیسیک

 سلام !
امروز من فرشاد دخت ملکي اولين پستم رو توي اين وبلاگ انجام مي دم هدف من  آموزش گام به گام ويژوال بيسيک با سورس هستش
در زير به اون مي پردازم

كنترل Command Button : اين كنترل كه به آن دكمه فرمان هم ميگن براي شروع و يا توقف و يا پايان يك فرايند است.

كنترل text : كه براي نوشتن متن در داخل آن به كار مي رود.

تابع Val() : اين تابع ورودي خود را به عدد تبديل مي كند.

حالا با يك مثال ساده تمام چيز هايي رو كه گفتم به طور عملي انجام مي دهيم

مي خواهيم برنامه اي بنويسيم كه در آن بتوانيم دو عدد را باهم جمع و تفريق و ضرب و تقسيم كنيم و جواب را روي فرم چاپ كنيم

ابتدا بايدچهار command درست كنيم كه يكي براي جمع و يكي براي تفريق ويكي  براي ضرب و يكي هم براي  تقسيم باشد پس در نوار ابزار روي Command Button  چهار با ر دابل كليك كنيد البته هر بار مكان كامند را جابجا كنيد . بعد دو    text مي خوايم تا عددهارو توش وارد كنيم .

روي Command1 دابل كليك كنيد و كدهاي زير را وارد كنيد

روي Command۲ دابل كليك كنيد و كدهاي زير را وارد كنيد

Command1.caotion="-" a=val(text1) b=val(text2) c=a-b print c

روي Command۳ دابل كليك كنيد و كدهاي زير را وارد كنيد

Command1.caotion="*" a=val(text1) b=val(text2) c=a*b print c

روي Command۴ دابل كليك كنيد و كدهاي زير را وارد كنيد

Command1.caotion="/" a=val(text1) b=val(text2) c=a/b print c

حال از منوي File گزينه ي Make project1.exe…  را انتخاب كنيد ، حال برنامه را در يك مسير مشخص ذخيره و Ok را بزنيد ،حال از ويژوال بيسيك خارج شويدو به محلي كه برنامه را در آن ذخيره كرده ايد برويد و برنامه را اجرا كنيد دو عدد را در text  وارد كنيد و يكي از command  ها را فشار دهيد،مي بينيد كه جواب روي فرم چاپ مي شود.شكل فرم به صورت زير است:

دانلود بازي کم حجم و زيباي حدس اعداد

دانلود در ادامه مطلب

سورس ۱: برنامه کوچکي براي مديريت کتابخانه که چون نسخه اولشه داراي نقايصي هستش که در نسخه هاي  بعدي  رفع ميشود.

 دانلود مستقیم

حجم : ۳۰۰ کیلو بایت

سورس ۲: اين هم يک برنامه کوچک ديگه براي مشاهده عکس ها که از اکثر فرمت ها پشتيباني ميکنه.

دانلود مستقیم

حجم : ۱۰ کیلو بایت

.::با تشکر از شما::.