جزوه1 ارائه شده در همايش برنامه نويسي ويژوال بيسيک – دوشنبه -15/11/1386
مدرس: مهندس ميرباقري
کلاس: مجموعه اي از مشخصه ها و روال ها
ايجاد کلاس براي حل معادله درجه 2 – با هدف کپسوله سازي (Encapsulation)
1- باز کردن پروژه جديد
2- اجراي گزينه Project ? Add Class Module و انتخاب Class Module
3- ذخيره کلاس (Cls) – فرم (Frm) – پروژه (Vbp)
4- انتخاب ماژول (Class1) براي کد نويسي
اضافه کردن مشخصه ها به کلاس (3 مشخصه a و b و c)
5- با توجه به تعداد و نوع مشخصه هاي کلاس، در قسمت General ماژول، متغيرهاي عضو (Private) را براي نگهداري داده هاي واقعي کلاس تعريف مي کنيم.
Private x As Single, y As Single, z As Single
6- اجراي گزينه Tools ? Add Procedure
7- انتخاب Property از نوع Public و دادن نام
داده هاي از نوع Public را مشخصه هاي کلاس مي گويند.
8- روال هاي Get و Let اضافه مي شوند. درصورت نياز مي توان نوع خروجي يا پارامترهاي آنها را تغيير داد.
9- روال Get براي دسترسي به داده هاي داخلي کلاس
Public Property Get a( ) As Single
a = x
End Property
10- روال Let براي مقدار دهي به داده هاي داخلي کلاس
Public Property Let a(ByVal vNewValue As Single)
x = vNewValue
End Property
11- براي مشخصه هاي ديگر (b , c) نيز اعمال 6 تا 10 را انجام مي دهيم.
اضافه کردن روال ها به کلاس ( يک روال محاسبه ريشه هاي معادله)
12- اجراي گزينه Tools ? Add Procedure
13- انتخاب Sub يا Function از نوع Public و دادن نام
اگر ميدان ديد روال را Public تعيين کنيم، متدي از کلاس خواهد بود و اگر Private باشد، فقط اعضاي کلاس مي توانند از آن روال استفاده کنند و به آن روال، "توابع عضو" مي گويند.
14- آرگومان هاي ورودي و خروجي روال را تعيين مي کنيم. و کدهاي مناسب را مي نويسيم.
Public Function Answer(ByRef x1 As Single, ByRef x2 As Single) As Byte
Dim del As Single
del = y ^ 2 - (4 * x * z)
If del < 0 Then Answer = 0
If del = 0 Then Answer = 1: x1 = -b / 2 * a
If del > 0 Then Answer = 2: x1 = (-b + Sqr(del)) / 2 * a: x2 = (-b - Sqr(del)) / 2 * a
End Function
ايجاد شيء از کلاس
15- تعريفي شئي از نوع کلاس معادله (Class1) در قسمت General فرم
Public mo As New Class1
16- طراحي فرم و نوشتن دستورات مناسب
ايجاد ActiveX DLL براي حل معادله درجه 2
فايل cls ساخته شده در قسمت قبل فقط داخل همان پروژه قابل استفاده است. براي آنکه ساير برنامه ها در زمان اجرا بتوانند به عنوان يک DLL به آن دسترسي داشته باشند، مي توانيم اين کار را با يک کلاس ActiveX DLL انجام دهيم.
1- پروژه جديدي را ايجاد کرده و ActiveX DLL را به عنوان پروژه انتخاب کنيد.
2- کلاس پيش فرض را حذف مي کنيم.
3- با راست کليک در پنجره Project و انتخاب گزينه Add ? Add File ماژول ساخته شده را اضافه مي کنيم.
4- در پنجره Properties مشخصه ي Instancing را برابر 5-MultiUse قرار مي دهيم.
5- توسط گزينه Project ? Properties مي توانيم خصوصيات پيش فرض DLL را تغيير دهيم.
6- توسط گزينه File ? Make عمليات کامپايل را انجام مي دهيم.
استفاده از فايل DLL ساخته شده
1- پروزه ي جديدي از نوع Standard EXE ايجاد کنيد.
2- فرم ها را به دلخواه طراحي کنيد. (مي توانيد از فرم آماده معادله درجه2 استفاده کنيد.)
3- توسط گزينه Project ? Refrences فايل DLL مورد نظر را انتخاب کنيد.
4- با زدن کليد F2 در پنجره Object Browser با انتخاب فايل DLL اجزاي کلاس نمايش داده خواهند شد.
پايگاه داده در ويژوال بيسيک
1- ايجاد بانک اطلاعاتي توسط گزينه Add-Ins ? Visual Data Manager
2- File ? New ? Microsoft Access ? Version 2.0 MDB
3- با راست کليک جدول هاي پايگاه را ايجاد مي کنيم.
4- با دابل کليک روي نام جدول مي توانيم عمليات گوناگون روي داده ها انجام دهيم.
5- کنترلهاي خارجي Microsoft ADO Control 6.0 و Microsoft DataGrid Control 6.0 را توسط گزينه Components به نوار ابزار اضافه مي کنيم.
6- کنترل ADO را به فرم اضافه مي کنيم.
7- راست کليک و انخاب Properties
8- انتخاب گزينه Build
9- Microsoft Jet 4.0 OLE
10- انتخاب پايگاه داده
11- اجراي گزينه Test Connection و زدن OK
12- انتخاب زبانه RecordSource
13- انتخاب حالت جدول (adCmdTable) و انتخاب نام جدول
14- اضافه کردن کنترل DataGrid به فرم
15- تنظيم مشخصه DataSource به کنترل ADO