[king]

با سلام خدمت دوستان خوبم

بعد از این که کلاسهای آموزشی تعطیل شد و دیگه هم حرفی کسی نزد از اون مقع من ابتدا به

فکر افتادم خودم آموزش گام به گام رجیستری را راه بیاندازم بعد به این فکر رسیدم که اگر بتونم

در مورد ویژوال بیسیک هم چنین کاری بکنم خوب می شه برای همین در سایتهای مختلف

گشتم و آموزشهایی نیز پبداکردم که در اختیارتون قرار میدم . ( البته این راهم بگم خودم ویژوال

را تقریبا" خوب می فهمم و لی وقت ندارم که بشینم و قسمت ، قسمت مطلب بنویسم برای

همین در شبکه دنبال این موضوع گشتم .

خوب حالا بریم سراغ آموزش ، اگر که بد بود بعد از همین پست اول بگبد تا ادامه ندم .

[king]

جلسه اول : آشنايى با ابزارها و داده ها


Visual Basic 6

سلام خدمت همه دوستان . اين بار با آموزش ويژوال بيسيك در خدمتتون هستيم . اين جلسه اول آموزش و چون از پر حرفى خوشم نمياد خيلى سريع مىرم سراغ آموزش .

خب برنامه ويژوال بيسيك 6 رو باز مىكنيم . عكس مقابل تصوير اولين صفحه بعد از باز شدن ويژوال را نشان مىدهد كه از ما نوع كار با قسمت هاى ويژوال را سوال خواهد كرد .


بجاى اينكه بخوام در مورد قسمت هاى مختلف اين پنجره توضيح كامل بدم در يك كلام مىگم كه اين ها براى زمانى كه حرفه اى شديم. و در آموزش هاى بعدى در مورد اين گزينه ها توضيح خواهيم داد .





پس گزينه اول Standard EXE كه به طور پيش فرض انتخاب شده است را Open مىكنيم . سپس وارد محيط اصلى ويژوال بيسيك مىشويم . ويژوال هم مانند ديگر برنامه ها شامل نوار عنوان , نوار منو , نوار ابزار , نوار استاندارد و ... مىباشد . در قسمت پايين در مورد نوار ابزار كه مهمترين قسمت ويژوال بيسيك است توضيحاتى داده شده كه آن ها را بررسى مىكنيم .




عكس مقابل نماى نوار ابزار ويژوال است .





1- Pointer : براى انتخاب , درگ كردن و ... در فرم اصلى به كار مىرود .

2- Label : قرار دادن بر چسب براى يك قسمت , نوشتن متن داخل فرم اصلى

3- Frame : براى ساخت يك قسمت مستقل در فرم

4 - CheckBox : براى تاييد يا قبول كردن رويدادها

11- PictureBox : براى نمايش عكس داخل فرم

12- TextBox : قرار دادن قسمتى براى تايپ كردن و نوشتن در فرم

13- Command Button : براى قرار دادن دكمه يا گزينه داخل فرم

14- Option Button : براى انتخاب و انجام يك رويداد



تعجب نكنيد كه چرا بقيه رو توضيح ندادم چون تا 20 جلسه اول هيچ كارى با گزينه هاى 4 و 14 به پايين به جز گزينه 19 كه براى خط كشيدن و رسم كردن به كار مىرود نداريم . خب فكر مىكنم براى جلسه اول بس باشه . فقط يه سرى داده در پايين مىنويسم و هيچ توضيحى نمىدم چون جلسه بعدى به طور كامل در مورد رويداد ها توضيح داده مىشود . فقط اون ها رو ياد بگيريد .



Boolean : اين داده فقط True و False را د داخل خود جاى مىدهد .

Byte : داده اى است كه اعداد 0 تا 255 را در خودش جاى مىدهد .

Date : داده ای برای قرار دادن زمان در درون متغیر که برای محاسبات زمانی استفاده میشه.

Integer : اين داده اعداد -32,768 تا +32,767 را در خود جاى مىدهد .

Long : اين داده اعداد منفى دو ميليارد تا مثبت دو ميليارد را در خود جاى مىدهد .

Single : اين داده اعداد اعشارى را در خود جاى مىدهد .

String : اين داده يك جمله يا متن ( رشته ) را درون خود جاى مىدهد .

[Mohammad]

king, جان من هم چند کتاب الکترونیک در این رابطه دارم ..
این یکی از آن ها هست .امیدوارم مفید واقع شود

[king]

Mohammad ، جان ممنون

راستی یادم رفت بگم 4 درس اول مال سایت وین پرشین است .

[king]

جلسه دوم : كار با داده ها و رويدادها

Visual Basic 6

سلام خدمت شما دوستان عزيز . امروز مىخوام براتون در مورد داده ها و رويدادها صحبت كنم و كاربرد اون ها رو بهتون معرفى كنم . خب , جلسه پيش يك سرى داده براتون نوشتم كه كامل نيستند البته داده هاى ديگرى هم هستند كه لازم نمىدونم براتون بنويسيم چون بيشتر با داده هاى نوشته شده سر و كار داريم .





خب گفتيم كه :



Boolean : اين داده فقط True و False را د داخل خود جاى مىدهد .

Byte : داده اى است كه اعداد 0 تا 255 را در خودش جاى مىدهد .

Date : داده ای برای قرار دادن زمان در درون متغیر

Integer : اين داده اعداد -32,768 تا +32,767 را در خود جاى مىدهد .

Long : اين داده اعداد منفى دو ميليارد تا مثبت دو ميليارد را در خود جاى مىدهد .

Single : اين داده اعداد اعشارى را در خود جاى مىدهد .

String : اين داده يك جمله يا متن ( رشته ) را درون خود جاى مىدهد .



به عنوان مثال منظور از Integer چيست ؟ فرض مىكنيم ظرفى داريم كه قرار است داخل آن متغير يا رويدادى قرار گيرد پس قبل از هر كارى بايد تعيين شود كه اين متغير از چه نوعى است و با توجه به آن بايد ظرفى كه در آن متغير ما قرار مىگيرد از نوع آن متغير باشد . فرض كنيد برنامه اى داريم كه مقدار آن مقداريست بين 32,768- تا 32,767+ يعنى (Integer) پس ما بايد براى اين برنامه داده Integer را انتخاب كنيم .

تعين و نوشتن يك داده :

Dim a As Integer <== مثال
Dim VarName As DataType
نوع داده As نام متغير Dim




سه نوع رويداد رو در اين جلسه بهتون آموزش مىديم كه عبارت اند از :



مىتوان از طريق اين برنامه يك متن , عدد و ... را وارد كرد <== ورودى = ("متن مورد نظر")InputBox

مىتوان از طريق اين برنامه يك متن , عدد , حاصل جواب و ... را نشان داد <== خروجى = متن مورد نظر يا متغير MsgBox

مىتوان از طريق اين برنامه يك متن , عدد , حاصل جواب و ... را نشان داد <== خروجى = متن مورد نظر يا متغير Print



فرق بين MsgBox و Print اين است كه Msgbox رويداد را در كادر جديدى نمايش مىدهد اما Print آن رويداد را در داخل فرم اصلى نمايش مىدهد .



اگر بخواهيم يكى از خروجى هاى ما يك متغير را نشان دهد علامت " " را حذف مىكنيم . اما اگر بخواهيم يك متن را نمايش دهيم بايد آن را داخل " " قرار دهيم . يعنى اينكه اگر متنى داخل " " باشد هر برنامه اى كه نوشته شود را نشان مىدهد اما اگر داخل " " نباشد يك متغير است و برنامه اى كه در اين متغير در حال اجرا است را نشان مىدهد .



MsgBox A | "سلام" MsgBox



برنامه اى مىنويسيم كه از طريق ورودى برنامه مورد نظر ما را گرفته و به وسيله يكى از خروجى ها نمايش دهد .



خب ويژوال را باز كرد و Standard EXE را انتخاب مىكنيم . حال روى فرم اصلى دابل كليك مىكنيم . در پنجره باز شده بين دو دستور زير برنامه را مىنويسيم :



()Private Sub Form_Load



محل نوشتن برنامه اصلى



End Sub


برنامه را به صورت زير مىنويسيم :



()Private Sub Form_Load

("متن مورد نظر")A = InputBox

MsgBox A

End Sub



توجه داشته باشيد كه A يك متغير است و مىتوان به جاى آن از هر چيز ديگرى استفاده كرد مانند : X , Y , Result . همچنين مىتوان به جاى خروجى MsgBox از خروجى Print استفاده كرد .



براى اجراى برنامه از منوى Run گزينه Start را انتخاب مىكنيم (Run / Start) و يا از دكمه F5 استفاده مىكنيم .

[king]

جلسه سوم : تمرين - ساخت يك برنامه



Visual Basic 6





سلام خدمت شما دوستان عزيز . امروز مىخوام آموزش جلسه قبل رو كمى كامل تر كنم و يك برنامه اى رو بهتون آموزش بدم كه محيط و مساحت يك مستطيل رو بدست بياره . و اگر مايل باشيد مىتونيد براى مربع , دايره و ... اين برنامه رو اجرا كنيد .
خب جلسه پيش برنامه اى رو براتون نوشتم كه از طريق يك ورودى متن يا عدد مورد نظر ما را دريافت مىكرد و به وسيله يك خروجى اون رو نشون مىداد . حالا مىخوام براى ورودى اين برنامه از يك TextBox استفاده كنم . خب ويژوال رو باز كنيد . داخل فرم اصلى يك TextBox و CommandButton بسازيد . روى دكمه CommandButton دابل كليك كنيد و بين دو دستور زير برنامه اصلى رو بنويسيد .



()Private Sub Command1_Click



محل نوشتن برنامه اصلى


End Sub




برنامه رو به صورت زير مىنويسيم :

توجه داشته باشيد كه intA يك متغير است و ميتونه جاى اون هر چيزى قرار بگيره . همچنين براى اينكه برنامه دقيق تر كار كنه به Text1 مىتونيد پسوند Text. رو وصل كنيد . يعنى اين Text فقط براى دادن عدد يا نوشته است .



()Private Sub Command1_Click
intA = Text1.Text
MsgBox intA
End Sub



بريم سر ساخت برنامه بعدى . مىخوام برنامه اى رو براتون بنويسم كه از طريق دو ورودى InputBox و خروجى MsgBox مساحت مستطيل رو بدست بياره . فرمول مساحت مستطيل به اين شكل هستش : طول X عرض = مساحت

وارد محيط ويژوال شويد . روى فرم اصلى دابل كليك كنيد و بين دو دستور زير برنامه اصلى رو بنويسيد .



()Private Sub Form_Load



محل نوشتن برنامه اصلى



End Sub



برنامه رو به صورت زير مىنويسيم :



()Private Sub Form_Load
("طول مستطيل")intA = InputBox
("عرض مستطيل")intB = InputBox
intC = intA * intB
MsgBox "Javab = " & intC
End Sub


براى اجراى برنامه از منوى Run گزينه Start را انتخاب مىكنيم (Run / Start) و يا از دكمه F5 استفاده مىكنيم .

بعد از اينكه برنامه رو اجرا كرديد و اعداد رو وارد كرديد خروجى مانند زير نمايش داده مىشود .








اگر در برنامه بالا جمله & " = Javab" رو از جلوى MsgBox حذف كنيم فقط عدد در داخل آن نمايش داده مىشود .



قبل اينكه اين برنامه رو آموزش بدم براى يكى از دوستام اونو توضيح دادم . سوالى عجيب از من پرسيد . گفت كه به جاى طول مستطيل و عرض مستطيل عدد بنويسم ! . جواب : لازم نيست جاى اين دو چيزى بنويسيد اين متنى كه وقتى كادر InputBox ظاهر ميشه در اون كاد نوشته ميشه طول يا عرض مستطيل . و شما بايد در اونجا عدد رو وارد كنيد .



تمرين : برنامه اى بنويسيد كه از طريق دو ورودى Text1 و Text2 طول و عرض مستطيل را بگيرد و به وسيله Text3 محيط مستطيل رو نمايش بده . ! فقط بايد دقت كنيد كه از دادها براى آن استفاده كنيد .

براى خالى كردن متن داخل Text ها روى آن كليك كنيد و كليد Back Space را بفشاريد . يا Caption آن را خالى كنيد !

محيط مستطيل : طول + عرض * 2 = محيط



لينك دانلود اين برنامه رو گذاشتم البته بدون ديدن كدها : فايل exe. حجم :24KB




دانلود کنید

[king]

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

گذاشتم تا اگر فدا نیامدم جبران بشه

[Mahdi Hero]

king جاد دست درد نکنه ببينم تا اخرشو ميزاری يا نه

[king]

mi8236 ، جان متمعا" تا زمانی که در این مورد بتونم مطلب می زارم .

[To0pi]

king, جان اگه میشه لینک دانلود نسخه 6 این برنامه را بگذارید.