آموزش VB.net براي تازه كارها

[tolid123456789]

سلام

در اين تاپيك تلاش مي كنم به صورت مقدماتي VB.net رو آموزش بدم

نكته اساسي اين تاپيك ساده بودن و آموزشي بودن هست.

اميدوارم بتونم كار كوچكي براي اون عزيزايي كه اطلاعات پايه رو مي خوان ياد بگيرند انجام بدم.




http://www.homeandlearn.co.uk

[tolid123456789]

جلسه اول
-------------------------------
شما بر حسب نيازتون بايد يكي از نسخه هاي VS رو نصب كنيد (براي مثال 2010)

با نصب Visual Stadiu نرم افزارهايي مثل #VB.net , C++, C هم رو سيستمتون نصب مي شه البته شما مي تونيد در هنگام نصب اين مورد رو مديريت كنيد
آموزش ما در خصوص VB.net است
با نصب نرم افزار و با كردن VS ابتدا يك پروژه جديد Application form ايجاد مي كنيم
اين نوع پروژه ها در وب كارايي ندارند



پس از كليك بر روي New Project پنجره زير باز ميشه شما گزينه اول رو انتخاب كرده و آدرس و نام ايجاد پروژه رو مي ديد و ok بزنيد

http://www.homeandlearn.co.uk/net/images/vb_2010/new_project_small.gif
بعد از ايجاد پروژه با زدن دكمه F5 يا Debug/Start Debugging پروژتون رو مي تونيد اجرا كنيد
در اين مثال كه در سايت http://www.homeandlearn.co.uk وجود داره پس از اجرا فرم پيش فرض 1 باز ميشه

http://www.homeandlearn.co.uk/net/images/vb_2012/chapter1/first_form_blank.gif

اگه الان به محل تشكيل پروژه در هارد مراجعه كنيد خواهيد ديد كه فولدري به نام debug تشكيل شده درون اين فولدر فايل exe وجود داره كه اگه اون رو اجرا كنيد باز هم همون فرم 1 باز مي شه
به عبارتي اگر فايل هاي Debug رو در يك كامپيوتر ديگه بريزيد و فايل exe اون رو اجرا كنيد باز هم فرم 1 روي اون كامپيوتر باز ميشه
البته توجه داشته باشد كه براي اجراي نرم افزارهاي .net نياز به framework داريد كه با نصب VS رو سيستمتون نصب مي شه



خوبه
شما تونستيد يك پروژه ايجاد و اجرا كنيد

[tolid123456789]

جلسه دوم
---------------------------
Toolbar
در نماي طراحي يعني زماني كه همه فرم هاي اجرا شده با F5 بسته باشد Toolbar فعال ميشه
با ابزارهايي كه در اين قسمت هست مي تونيد اشياء مختلف مثل TextBox - جهت ورود داده توسط كاربر - و ... رو به فرم اضافه كنيد.

http://www.homeandlearn.co.uk/net/images/vb_2010/designer_tab.gif http://www.homeandlearn.co.uk/net/images/vb_2010/toolbox_small.gif
http://www.homeandlearn.co.uk/net/images/CommonControl.gifهمانطور كه در شكل هاي بالا مي بينيد در قسمت Toolbar تب هاي مختلفي وجود داره كه اشياء رو به صورت طبقه بندي شده در خودشون نگه مي دارند
مثلا Common Controls اشيايي مانند دكمه ليبل و تكست باكس رو دارند
فرض كنيد شما مي خوايد يك دكمه به فرمتون اضافه كنيد حالا كافيه Button رو درگ (انتخاب و كشيدن) كنيد روي فرمتون.
اين شي بر روي فرم شما ايجاد ميشه

براي مثال سه تكست باكس و سه ليبل رو به فرم درگ كنيد
http://www.homeandlearn.co.uk/net/images/LabelsTextboxes.gif
حالا برنامه رو با F5 اجرا كنيد
جالبه مي تونيد در تكست باكس ها متن بنويسيد و در ليبل فقط نوشته هاي ايجاد شده در نماي طراحي رو ببينيد

خوبه
شما تونستيد چندتا شي رو به فرمتون اضافه كنيد

[tolid123456789]

جلسه سوم
----------------------
پنجره خصوصيات براي اشياء

تمامي شي هايي رو كه شما در فرم مي ياربد داراي خصوصيات و ويژگي هايي هستند
مثلا يك نام دارند، شايد رنگ به خودشون بگيرند و يا سايزشون رو بشه در قسمت ويژگي ها تغيير داد
كافي بر روي شي مورد نظرتون كليك كنيد و با زدن دكمه F4 ويژگي هاي اون رو ببينيد (روي فرم تمرينمون كليك كنيد)
http://www.homeandlearn.co.uk/net/images/Properties3.gif
الان كه برنامه رو اجرا مي كنيد روي نوار عنوان فرم مي نويسه form1 حالا مي خواهيم خصوصيت Text فرم 1 رو تبديل به My First Form كنيم
http://www.homeandlearn.co.uk/net/images/TextProperty2.gif
حالا برنامه رو اجرا مي كنيم

http://www.homeandlearn.co.uk/net/images/TextPropertyForm.gif

در اين مرحله همين كارها رو براي ليبل هاي 1 تا 3 مي كنيد و اونها رو هم تغيير ميديم
پس از اجرا فرممون به شكل زير ميشه
http://www.homeandlearn.co.uk/net/images/Label_On_Form.gif
خوبه
شما تونستيد تنظيمات و خصوصيات چندتا شي رو تغيير بديد

[tolid123456789]

جلسه چهارم
-------------------
علاوه بر Toolbar, Properties پنجره هاي ديگه اي هم در VB.net داريم
مثلا پنجره Solution Explorer
اين پنجره رو از منوي View > Other Windows > Solution Explorer مي تونيد مشاهده كنيد
همانطور كه مي بينيد فرم يك در اين پنجره وجود دارد شما تمام فرم ها گزارشات و چيزهاي ديگه اي كه مي سازيد رو مي تونيد در اين پنجره ببينيد و روش دابل كليك كرده و در نماي طراحي مشاهده كنيد
با كليك بر روي دكمه Show All تمامي اشياء موجود در اين پنجره ظاهر مي شند
http://www.homeandlearn.co.uk/net/images/SolExplorer_All_Files.gif

http://www.homeandlearn.co.uk/net/images/SolExplorer_All_Files2.gif
براي ذخيره تغييرات هم مي تونيد از منوي File > Save All استفاده كنيد.


خوبه
شما تونستيد با پنجره Solution Explorer تا حدودي آشنا بشيد.

[tolid123456789]

جلسه پنجم
-----------------
ايجاد متغير در vb.net
با راست كليك كردن بر روي فرم 1 و زدن گزينه View Code مي تونيد به نماي كد نويسي VB.net بريد
با دابل كليك كردن بر روي هر شيي مانند فرم باز هم مي تونيد به نماي كد نويسي بريد
دابل كليك كردن بر روي فرم و رفتن به نماي كد نويسي شما رو به رويداد لود فرم مي بره
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
*********
End Sub
End Class
الان اگه كدي در قسمتي كه با ستاره مشخص شده ، بنويسيد در هنگام لود فرم اون كد اجرا ميشه
مثلا من در اين قسمت كد زير رو مي نويسم
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("change")
End Sub
End Class
حالا اگر برنامه رو با F5 اجرا كنيد در هنگام باز شدن فرم يك پيغام به شما نمايش داده ميشه
پيغام chang رو ما مستقيما در تابع MSGBOX قرار داديم
حالا اگه به جاي اون بخواهيم از متغيير استفاده كنيد مراحل زير رو دنبال مي كنيم
1- ابتدا يك متغيير تعريف مي كنيم (از نوع رشته چون كلمه Change از نوع رشته ست)
Dim Var_String as string
dim براي تعريف متغيير است
بعد نام متغيير را مي نويسيم (Var_String)
بعد كلمه AS رو مي نويسيم تا تعيين كنيك كه اين نام چه نوع داده اي درون خود ذخيره خواهد كرد
بعد نوع داده اي كه در اين متغيير ذخيره خواهد شد را مي نويسيم
2- مقدار Change رو داخل اين متغيير قرار مي ديم
Var_String="Change"
كد بالا را از راست به چپ در هنگام مطالعه بخوانيد به عبارتي كد بالا را اينگونه مي خوانيم
رشته change را به داخل Var_String بريز
از اينجا به بعد متغيير Var_string مقداري را درخود نگه داري مي كند. اين مقدار همان رشته Change است
3- متغيير رو درون MSGBOX قرار مي ديم
Msgbox(Var_string)

حالا يك مثال رو با هم دنبال مي كنيم
فرض كنيد ما سه تا تكست باكس داريم
اولي و دومي عدد رو از كار بر مي گيره و با زدن دكمه اي كه در فرم آورديم مجموع اين دو عدد در تكست باكس سوم مشاهده ميشه
بر روي دكمه ي روي فرم دابل كليك مي كنيم و كد هاي زير رو مي نويسيم
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub
در كد بالا همانطور كه قبلا گفتم كد رو از سمت راست مي خونيم
مقدار تكست باكس 1و2 با هم جمع مي شه و در تكست باكس سه نمايش داده ميشه
فرض كنيد در تكست باكس اول عدد 3 و در تكست باكس دوم عدد 4 رو بنويسيم با زدن كليد جواب در تكست باكس سوم ظاهر ميشه
خروجي برنامه شما چيه؟
آيا جواب 7 در تكست باكس سوم ظاهر شد؟
خير
جواب 34 شد (البته شما از اين به بعد اين مقدار رو نبايد سي و چهار بخونيد چون دو تا رشته با هم جمع شدند جواب شده سه چهار و اصلا اين جواب ماهيت عددي نداره بلكه يك رشته ست)
خوب براي حل اين مشكل ما دو متغيير تعريف مي كنيم از جنس عدد و مقادير تكست باكس اول و دوم رو در آن متغييرها مي ريزيم و بعد دو متغيير عددي خودمون رو جمع كرده و در تكست باكس سوم مي ريزيم
كد تصحيح شده:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a + b
End Sub

خوبه
شما تونستيد يك متغيير تعريف كنيد و بهش مقدار بديد

[tolid123456789]

جلسه ششم
---------------
شرط IF

براي اينكه شرط IF رو بهتر متوجه بشيم مثالي رو مي زنم:
فرض كنيد دو تكست باكس داريد و يك كليد اگه در تكست باكس اول عددي بزرگتر از 20 وارد شد در تكست دوم بنويسه 20< و در غير اينصورت بنويسه
20>


Dim a as integer
a=text1.text
if a>20 then
textbox2.text=">20"
else
textbox2.text="<20"
endif

دستور IF رو دربالا مشاهده كنيد
ابتدا مقداري كه در تكست 1 هست ميره داخل متغير عددي a بعد در خط دستور IF كد رو اينطوري مي خونيم
اگر (IF)
مقدار متغير a بزرگتر از 20 بود (a>20)
سپس (Then)
در تكست دوم 20< رو بنويس Textbox2.text=">20"
در غير اينصورت (Else)
در تكست دوم 20> رو بنويس Textbox2.text="<20"
و شرط IF رو تمام كن (END IF)

همانطور كه در كد بالا مي بينيد شرط دو قسمتي است و به عبارتي دو دستور در آن مي تواند بسته به شرايط اجرا شود
1- اگر بزرگتر بود
2- اگر كوچكتر بود
در بعضي از شرطها ما يك قسمت داريم مثلا

Dim firstname As String
firstname = "Shadi"
If firstname = "Shadi" Then MsgBox("firstname is Shadi")

در مثال بالا ما علاوه بر اينكه چند خطي شرط رو ننوشتيم بلكه از else if و end if هم استفاده نكرديم
البته ما اين كد رو مي تونستيم به صورت چند خطي هم بنويسيم
If firstname = "Shadi" Then

MsgBox "firstname is shadi"
End If

وقتي بعد از شرط if دستورات و نه دستور داريد نياز اون دستورات رو در خط بعد then بنويسيد
الان مثال بالا رو توسعه مي ديم
firstname = "sara"
If firstname = "shadi" Then
MsgBox "firstname is shadi"
Else
MsgBox "firstname is not sara"
End If

خوبه
شما تونستيد با دستور شرطي IF آشنا بشيد

[tolid123456789]

جلسه هفتم
---------------
Select Case
فرض كنيد ميخواهيم مقدار داخل يك تكست باكس را بررسي كنيم
اگر 0 بود - صفر -
اگر 1 بود - يك -
واگر 2 بود - دو در پنجره پيغام ظاهر شود
Dim Number_Input As Integer
Dim Msg_txt As String
Number_Input= TextBox1.Text
Select Case Number_Input
Case 0
Msg_txt= "صفر"
Case 1
Msg_txt= "يك"
Case 2
Msg_txt= "دو"
Case Else
Msg_txt= "عدد صفر يا يك يا دو تايپ نشده است"

End Select
MsgBox Msg_txt

در كد بالا مقدار درون تكست باكس درون يك متغيير عددي قرار مي گيرد
و در دستور Case چك مي شود اگر عدد درون اين متغير 0 بود در متغيير ديگري كه در ابتدا تعريف شده مقدار صفر و اگر 1 بود يك و اگر 2 بود دو و اگر هيچ كدام از آنها نبود
عدد صفر يا يك يا دو تايپ نشده است ذخيره شده و در انتها توسط پنجره پيام ظاهر مي شود

شما مي توانيد ساختار Select Case را به شكل هاي گوناگون نمايش دهيد براي مثال به كد زير توجه كنيد

Select Case agerange
Case 16 To 21
MsgBox “جوان”
Case 50 To 64
MsgBox “پير”
End Select


در مثال بالا اگر عدد مورد بررسي بين 16 تا 21 باشد كلمه جوان و اگر عدد بين 50-64 باشد كلمه پير در پيغام ظاهر خواهد شد.

خوبه
شما تونستيد با دستور Select Case آشنا بشيد

[tolid123456789]

جلسه هشتم
---------------
كار با اشياء (‍Combobox)
در نماي طراحي فرم و در نوار ابزار كامبو را بر روي فرم درگ مي كنيم
http://www.homeandlearn.co.uk/NET/images/ComboBox.gif
كامبو باكس مانند تكست باكس است ولي داراي گزينه آبشاري براي نمايش آيتم هاي از پيش ثبت شده مي باشد
مثلا شما مي خواهيد به كاربرتان اين امكان را بدهيد كه نام شهر خود را انتخاب كند
در اين حالت مي توانيد با كمك اين شي نام تمام شهر ها را درون كامبو قرار داده و اجازه بدهيد تا كاربر شهر خود را انتخاب كند
براي اينكار ابتدا بايد نام شهرها راداخل كامبو قرار دهيمبر روي كامبو كليك كنيد و به نماي خصوصيات آن وارد شويد در قسمت Items مي توانيد نام شهر ها را وارد كنيد
http://www.homeandlearn.co.uk/NET/images/ComboBoxItems.gif
http://www.homeandlearn.co.uk/NET/images/ComboBoxItems3.gif
در اين حالت اگر برنامه را اجرا كنيد شكل فرم اينگونه خواهد شد:
http://www.homeandlearn.co.uk/NET/images/ComboBoxRun.gif
فرض مي كنيم كه مي خواهيم زماني كه كاربر ر روي يكي از آيتم هاي كامبو كليك كرد متن داخل آن آيتم به جاي نوار عنوان فرم نمايش داده شود (كد زير را براي رويداد تغيير ComboBox1_SelectedIndexChanged مي نويسيم - براي دسترسي به اين رويداد بر روي كامبو در نماي طراحي دابل كليك كنيد)
me.combobox1.text
خوبه
شما تونستيد با Combobox آشنا بشيد

[tolid123456789]

جلسه نهم
---------------
عمليات هاي شرطي
http://www.homeandlearn.co.uk/NET/con_operators.gif
http://www.homeandlearn.co.uk/NET/nets1p23.html

[tolid123456789]

جلسه دهم
------------
حلقه For
Dim answer As Integer
Dim startNumber As Integer
answer = 0
For startNumber = 1 To 4
answer = answer + startNumber
Next startNumber
MsgBox answer

در كد بالا متغييرهاي answer و startNumber را از نوع Integer تعريف كرده ايم
خروجي برنامه را كه در يك پنجره پيغام نمايش خواهيم داد اعداد 1 تا 4 را جمع كرده و نمايش مي دهد
در ابتداي برنامه جواب 0 است خط مربوط به For متغير StartNumber را در مرحله اول 1 در نظر مي گيرد
در خط بعدي عدد 1 با مقدار 0 مربوط به answerجمع شده و مقدار جديد answer را ايجاد مي كند
0+1=1
در خط بعدي مقدار متغير افزايش مي يابد Next startNumber به عبارتي از 1 به 2 افزايش مي يابد
برنامه دوباره به خط For باز مي گردد . در اين مرحله مقدار 2 با مقدار قبلي جواب يعني 1 جمع شده و جواب جديد را تشكيل مي دهد
1+2=3
در مراحل بعدي جواب ها اينگونه خواهند بود
3+3=6
6+4=10
در اين مرحله برنامه سعي مي كند مقدار startNumber را افزايش دهد ولي حلقه ما بين 1 تا 4 كار مي كند و وقتي به عدد 5 مي رسد برنامه به خط
MsgBox answer انتقال مي يابد و آخرين جواب يعني 10 در پنجره پيغام نمايش داده مي شود.


مثال بالا يكي از ساده ترين شكل هاي برنامه For بود در قسمت هاي بعدي با شيوه هاي ديگر اين دستور آشنا مي شويد.

[tolid123456789]

جلسه دهم
------------
حلقه For
ما در حلقه For مي توانيم ميزان افزايش حلقه را نيز تحت كنترل قرار دهيم به كد زير دقت كنيد
Dim answer As Integer
Dim startNumber As Integer
answer = 0
For startNumber = 1 To 4 step 2

answer = answer + startNumber
Next startNumber
MsgBox answer

با اضافه شدن Step 2 افزايش مقدار به صورت 2 عدد رو به بالا خواهد بود به عبارتي جواب ها در مراحل مختلف به شرح ذيل مي باشند
0+1=1
1+3=4
به عبارتي
startNumber در محله اول ----------- 1
startNumber در محله دوم ---------- 3
در محله بعدي حلقه startNumber بايد 5 شود ولي چون حلقه For تا عدد 4 اجازه افزايش دارد از حلقه خارج مي شويم.

[tolid123456789]

جلسه دهم
------------
حلقه For
چند مثال در مورد حلقه ها

Dim number as Integer
number = 1
Do While number < 5
MsgBox number
number = number + 1
Loop



Do
number = number + 1
Loop While number < 5


Do Until number < 5
MsgBox number
number = number + 1
Loop


Do
MsgBox number
number = number + 1
Loop Until number >= 5



http://www.homeandlearn.co.uk/NET/nets3p3.html

[tolid123456789]

جلسه دهم
------------
حلقه For

مثال

http://www.homeandlearn.co.uk/NET/images/ListBox.gif

http://www.homeandlearn.co.uk/NET/images/FormTimesTable.gif


Dim number1 As Integer
Dim number2 As Integer
Dim multiplier As Integer
Dim answer As Integer
Dim i As Integer
number1 = Val(TextBox1.Text)
number2 = Val(TextBox2.Text)
multiplier = 2
For i = number1 To number2
answer = i * multiplier
ListBox1.Items.Add(i & " Times " & multiplier & " = " & answer)
Next i



خروجي برنامه

http://www.homeandlearn.co.uk/NET/images/ListBox2.gif

در مورد هر يك از كد ها اگر سئوالي داريد بپرسيد.

[tolid123456789]

جلسه يازدهم
------------
نمادهاي پايه رياضي در VB.net
+
-
*
/
مثال:
answer = 8 + 4
answer = 8 - 4
answer = 8 * 4
answer = 8 / 4


مثال
8 - 4 = 4
+ 4 = 8
+ 2 = 10
* 2 = 20

تشريح مثال فوق:
خط اول عدد 8 منهاي عدد 4 مي شود و نتيجه در سمت چپ تساوي 4 خواهد شد
خط دوم عدد ايجاد شده در مرحله اول (4) با علامت + 4 عدد افزايش خواهد يافت و نتيجه 8 خواهد شد
خط سوم عدد ايجاد شده در مرحله دوم (8) دو واحد افزايش مي يابد و 10 مي شود
خط چهارم عدد 10 مرحله سوم ضرب در 2 مي شود و نتيجه 20 مي شود.

[tolid123456789]

جلسه دوازدهم
------------
اضافه كردن منو به برنامه

ابتدا از نوار ابزار اين شي را به برنامه اضافه كنيم
http://www.homeandlearn.co.uk/NET/images/MenuToolbox.gif

با اضافه كردن اين شي به برنامه فرم برنامه به شكل زير در مي آيد و يك آيكن كه نشان دهنده وجود اين شي است در سيني برنامه نمايش مي يابد
http://www.homeandlearn.co.uk/NET/images/MenuTypeHere.gif

http://www.homeandlearn.co.uk/NET/images/MenuContro.gif
در اين مرحله مي توانيد متن داخل آيتم هاي منو را مشخص كنيد
http://www.homeandlearn.co.uk/NET/images/MenuItem.gif
http://www.homeandlearn.co.uk/NET/images/MenuItem3.gif
خروجي برنامه اينگونه خواهد شد
http://www.homeandlearn.co.uk/NET/images/MenuItem5.gif
حال در نماي طراحي با دابل كليك بر روي هر يك از اين آيتم ها به رويداد كليك آنها رفته و كد مورد نظر خود را مي نويسيم تا از اين به بعد در زمان كليك كردن كاربر بر روي آنها آن رويداد اجرا شود.
براي مثال بر روي گزينه Quit دابل كليك مي كنيم و كد زير را مي نويسيم
http://www.homeandlearn.co.uk/NET/images/MenuItemExitCode.jpg
اگر كاربر بر روي اين گزينه كليك كند پنجره فرم بسته خواهد شد.

[tolid123456789]

جلسه دوازدهم
------------
ادامه بحث منو به برنامه
شما مي توانيد به هر گزينه اصلي در منو يك زير شاخه اضافه كنيد
تمامي مراحل كاري مانند حالت قبلي و با كمك ماوس امكانم پذير است
http://www.homeandlearn.co.uk/NET/images/SubMenu.gif
http://www.homeandlearn.co.uk/NET/images/SubMenu2.gif
http://www.homeandlearn.co.uk/NET/images/SubMenu3.gif
نتيجه پس از اجراي برنامه
http://www.homeandlearn.co.uk/NET/images/SubMenu5.gif

[tolid123456789]

جلسه دوازدهم
------------
ادامه بحث منو به برنامه
اضافه كردن Shortcutبه منوها
اگر بخواهيم كاربر با كمك كليد هاي F1 و ... رويداد گزينه موجود در منو را فعال كند از روش زير استفاده مي كنيم
1- با اضافه كردن & به ابتداي هر حرف از متن داخل گزينه منو در زمان اجرا با نگه داشتن Alt آن كلمه و با تايپ آن كلمه توسط كيبور آن گزينه از منو اجرا مي شود
http://www.homeandlearn.co.uk/NET/images/underline1.gif
http://www.homeandlearn.co.uk/NET/images/underline3.gif

2- ShortcutKeys
به قسمت خصوصيات گزينه مورد نظر در منو برويد
در قسمت ShortcutKeys كليد مورد نظر خود را انتخاب كنيد
از اين پس با انتخاب اين كليد از روي كيبورد در زمان اجراي برنامه دستور داخل رويداد كليك اجرا خواهد شد.در مثال زير براي دكمه خروج اينكار انجام شده است
http://www.homeandlearn.co.uk/NET/images/shortcutKeys.gif
http://www.homeandlearn.co.uk/NET/images/shortcutKeys2.gif
http://www.homeandlearn.co.uk/NET/images/shortcutKeys3.gif

[tolid123456789]

مثال شماره 1
---------------
در این مرحله یک مثال رو مرحله به مرحله دنبال می کنیم
فرمی که در درس منو ها ایجاد کردیم رو تکمیل کنید
http://www.homeandlearn.co.uk/NET/images/MenuEdit.gif
http://www.homeandlearn.co.uk/NET/images/MenuView.gif