معرفی برنامه ی مایکروسافت vb6
قدرتمند ترین نسخه زبان قدیمی basic ابزاری بزای توسعه برنامه های کاربردی ویندوز می باشد .این ابزار امکان استفاده از نوشتن اصلاح وآزمایش برنامه های کاربردی ویندوز را میسر می کند وشامل بزارهایی است که به کمک انها می توان فایل های "راهنما"help وکنترل های "اکتیوایکس"و حتی برنامه هایی را طراحی کرد که در شبکه جهانی اینترنت به اجرا در می آیند.
ویژوال بیسیک 6در چند نسخه عرضه می شود .در حالت موجود دو نگارش آن
Standard/perfessionalونگارش enterpriseمی با شند
نگارش perfessional با ارا ئه ی کنترل های اضافی (چون کنترل های اکتیو ایکس ) حمایت بهتر از برنامه نویس اینترنت افزودن کامپایلر های ویژه برای فایل های help وارئه ی ابزاهای پیشرفته دسترسی به پایگاه داده ای بیشتر برنامه نویسان را به سوی خود کشیده است .
نگارش استاندارد معروف به نسخه آموزشی است .
نگارش enterprise برای برنامه نویسان سیستم های متقاضی /سرویس دهنده دارای ابزارهای پیشرفته ای است و یک محیط شبکه ای وتوزیع شده را در اختیار کاربر می گذارد.
*برای دیدن کد برنامه view/code
* وبرای افزودن ابزار project/compontes
*پنجره ی form layout وضعیت واندازه ی نسبی فرم را نشان میدهد
((ما جول فرم))فایلی است که یک یا چند فرم وکد ی را نگه میدارد ه به فرم ها مربوط نیست .این ماجول از طریق کد به یک فرم متصل است .رویه های رخداد وسایر کد هایی که مستقیمآ به رخداد ها مربو طنمی شوند در ماجول فرم قرار دارند(مثل روتین محاسبات ومرتب کردن داده ها)
((ماجول استاندارد))فایلی است که کدی را نگه می دارد که به فرم ها مربوط نیست .
علاوه بر ماجول های فرم برنامه های کاربردی ممکن است یک یا چند ماجول استاندارد داشته باشند که شامل کدی است که در برنامه های مختلف قابل استفاده باشد (مثل فرمول محاسبات)
پنجره ی project explorer
مدیریت پروژه هایی را که احتیاج به چند فایل دارند را به عهده دارد با کلیک راست روی این پنجره امکان حذف و افزودن فایلها امکان پذیر است. فهرستی از تمام فایل های پروژه را به صورت ساختار درختی نشان می دهد .در این پنجره فرم ها ماجول ها((فایل هایی که کد برنامه را نگه میدارند ))کلاس ها((ماجول های پیشرفته ))و بر خی دیگر را نشان میدهد این پنجره دو موضوع مهم را خاطر نشان می سازد :1-نام فایل های موجود در پروژه که بر روی دیسک با این نام ها ذخیره می شوند 2-نام هایی که در داخل خود پروژه مورد استفاده قرار می گیرند
پنجره ی peropertise
هر کنترل در ویژوال بیسیک دارای خصوصیاتی است مثل نام کنترل وعنوان آن(caption) که در پنجره ی peropertise جلوی nameمی توان نام کنترل را تایپ کرد مثلآبرای یک دکمه
Name cmdcomput
Caption &cmdcomput
برای دکمه
Name Exit
Caption E&xit
*کنترل های روی یک فرم نمی توانند هم نام باشند .
*عنوانی که در شاخه های modules در پنجره peropertiseمشاهده می شود نام فایلی است که کد برنامه درآن قرار دارد . فایل ماجولی که خارج از ماجول فرم قرار دارد عمومآ به ماجول استاندارد معروف است .رویه های رخداد های مربوط به کنترل های یک فرم در ماجول آن فرم قرار گرفته و رروتین های عمومی که درتمام فرم های برنامه استفاده می شوند به صورت ماجول استاندارد در خارج از فرم ماجول گذاشته میشوند (اما در درون پروژه) هر کنترل دارای رخداد هایی است .برای کار کردن با رویه رخداد کنترل های فرم کافی است کلیک مضاعف روی آن کنترل کنیم تاپنجره یکد ورویه ی رخداد پیش فرض آن ظاهر شود.مثل رویه ی رخداد مربوط به دکمه exit
Private sub cmdexit_click()
Unlode frminterest
End
End sub
رویه های رخداد با دستور private sub… شروع شده وبا ثدی سعذ ختم می شوند بلوک private… end اولین وآخرین خط یک رخداد را نشان میدهد و دستورات مابین آن بدنه نامیده می شوند .
نام رویه همیشه بدین صورت است ()رخداد کنترل_نام کنترل
برای نوشتن مطلب در راهنمای ابزار هر کنترل با کلیک کردن روی کنترل در قسمت peropertiseجلوی Tooltiptext متن راهنما را می نویسیم.
برای دسترسی به شکل ظاهری کنترل از قبیل (رنگ وعنوان وغیره)کافی است روی خصوصیت Appreance کلیک کنید. عمومآما برای نمایش اطلاعات کوتاه بر روی فرم از برچسب ها استفاده می کنیم .labele که خصوصیات خاص خود را دارا می باشند
نام خصو صیت
شرح
Border style
تعیین میکند دور تا دور برچسب کادر تک خطی نشان داده شود یا نه
Fore color
رنگ متن بر چسب را نشان می دهد
Back style
تعیین می کند آیا زمینه برچسب نشان داده شود یا نه
Word warp
تعیین اینکه برچسب به اندازه متنی که روی آن ظاهر می شود بزرگ شود یا نه
Auto size
با true بودن آن اندازه بر چسب با عنوانی بزرگتر حتی(در زمان اجرا )نشان داده شود
بر خی خصوصیات button
خصو صیت
شرح
Back color
تعیین رنگ زمینه دکمه که با کلیک روی خصوصیت system فهرستی از رنگ ها را برای زمینه دکمه نشان می دهد خصوصیت style از
0-standard به1-graphical تغییر می دهیم.
defult
تعیین می کند ایا دکمه به کلیدenterپاسخ دهد یانه حتی اگر فوکوس روی کنترل دیگری باشد.
style
تعیین می کند دکمه به صورت استانداردویندوز0-standardیابه صورت زمینه رنگی باشد 1-graphical.
Tab stop
تعیین می کنددکمه فوکوس داشته باشد.
picture
ایکنی رامشخص می کند که روی دکمه باید باشد (برای عمل کردن خصوصیت styleاز 0-standard به 1-graphcal باشد
Focus در زمان اجرا
توانایی پنجره یا کنترل در پاسخ دادن به کلید هایی که کاربر از صفحه کلید فشار مدهد با آمدن یک کادر خط چین دور کنترل به ما میگوید که با زدن کلید اینتر این کنترل اجرا می شود باtabدر جهت عکس (shift+tab) کاربر می تواند فوکوس را از کنترلی به کنترل دیگر حرکت دهد.
*همان طور که واقعیت focusمشخص میکند با زدن enter کدام کنترل پاسخ دهد واقعیت cancel دکمه ها مشخص می کند با زدن esc واقعه click
کدام دکمه شبیه سازی شده است.
*غالبآ دکمه ای که برای خروج از برنامه ا بستن پجره مورد استفاده قرار میگیرد خصوصیت cancelآن برابر true می باشد
*هنگام ورود به یک فرم دکمه ای به کلید enter پاسخ میدهد که خاصیتdefult آنtrue شده باشد(در هر فرم این خاصیت فقط برای یک دکمه فقط trueمیتواند باشد)
ویژوال بیسیک به همان ترتیبی که کنترل ها روی روی فرم قرار میگیرند برای فوکوس تنظیم می کند اگر کنترل را به ترتیب روی فرم نگذاشتیم می توان با تعیین خاصیت tab index برای اولین کنترل (0وبعدی 1 الی آخر )می گذاریم .
برخی خصوصیاتname فقط در زمان طراحی قابل تنظیم است .درحالیکه برخی خصوصیات مثل captionهم درزمان اجراوهم درزمان طراحی (ازطریق رویه های رخدادهاوسایرماجول ها)قابل تنظیم اند.
انواع داده در vb
نوع داده در vb
توضیح
boolean
داده منطقی دارای مقادیر true ,false
curency
مبلغ ارزی در واحد دلار با 4رقم اعشار
date
مقادیر تاریخ وساعت
byte
اعداد مثبت 0تا255
decimal
اعشاری تا 28 رقم اعشار
dauble
اعشار مضاعف
integer
عددصحیح
single
اعشار تک دقت
long
عدد صحیح بلند
string
رشته ای علاوه بر عدد حرف []^%@نیز می باشد
variant
داده هایی از هر نوع
object
یک نوع داده ی ویژه برای اشیایی چون کنترل ها و فرم ها
*به مقادیری که در طول برنامه vb تغییر نکنند(( لیترال)) گفته می شود برای نشان دادن لیترال ها از" " استفاده می کنیم برای نشان دادن لیترال های تاریخ از
# #استفاده میکنیم .
کاراکتر هایی که به صورت پسونددر کنار لیترال ها می آیند با استفاده از آنها vb نوع داده های پیش فرض را نا دیده گرفته و نوع آن ها را از روی پسوند تشخیص می دهد.
کاراکتر پسوند
نوع داده
مثال
&
long
86&
!
single
86!
#
double
86#
@
curency
86@
*دستور option explicit در ابتدای فرم یا ماجول استاندارد می آید که باعث می شود بخش general. قبل از تمامی رویه ی رخداد ها بکار آید و این باعث می شود تمام متغییر ها را قبل از استفاده اعلان کرددرغیر اینصورت vb تمامی متغییر ها را variant در نظر می گیرد.چنان چه متغییر در بخش general ماجول تعریف شود تمام رویه های به آن دسترسی دارند ((متغییر سراسری)).
دستور dimدر یک رویه به طور محلی استفاده می شود وچنانچهpublic در بخش general تعریف کنید متغییر علاوه بر آن ماجول در ماجول های دیگر پروژه هم قابل استفاده است (اکثرآ برای ماجول های استاندارد استفاده می شود).
تعریف متغییر
نوع متغییر As اسم متغییر Dim *هر گز دو متغییر هم نام را در یک رویه نمی توانیم بنویسیم.
strtitle متغییری از نوعstring است که می تواند رشته ای له طول 0تا20 داشته باشد البته خصوصیت(textbox) باید autosize شده باشد.
Dim strtitle as string*20
منظور از ثابت مقداری است که تغییر نمی کند در حالی که لیترال مقدار ثابتی است که به منظور معینی مورد استفاده قرار می گیرد .
امکان انتساب داده های هم نوع در vb وجود دارد همچنین امکان انتساب متغییربه کنترل و کنترل به متغییر هم وجود دارد .
با فرض تایپ مقدار 18.34در کادر متن اگر نام این کادر txtfactor باشد دستور این مقدار را در متغییری به نام sngfactorval قرار میدهد
Sngfactorval = txtfactor.text
یک رویه ی رخداد برای انتساب مقدار جدیدی به caption یک باتن :
Private sub cmd_click()
Daily" Cmdpress.caption = "brush your teth
End sub
عملگر اتصال+یا&
Strfullname = txtfirst.text?&" "&txtlast.text
Strfullname = txtfirst.text&txtlast.text
کادر پیغام(msgbox)
کادری برای ارائه ی اطلاعات به کاربر در حد یک جمله می دهد و کاربر با فشار کلید
ادامه روند برنامه را در پیش می گیرد.
کادر ورودی (inputbox)
کادر پیامی است که دارای یک کادر متن است وپیامی را نمایش داده و پاسخی را دریافت نموده ودو دکمه و دارد.
تابع msgbox یک مقدار integer بر میگرداند.
(عنوان کادر و شماره دکمه مورد نظر یاآیکن یا لیترال معادل و "پیغام")msgbox =مقدار صحیح
لیترال
مقدار
توضیح
Vb ok only
0
دکمه های ok,cancel
Vbabort retry ignory
1
دکمه های Vbabort retry ignory
Vbyes no cancel
2
دکمه های Vbyes no cancel
Vb yes no
3
دکمه های Vb yes no
Vb ok cancel
4
دکمه های Vb ok cancel
Vb retry cancel
5
دکمه های Vb retry cancel
آیکن های قابل استفاده در کادر های پیغام
لیترال
مقدار
توضیح
vbcritical
16
آیکن critical massage
Vbquestion
32
آیکنwarning query
vbexclamation
48
آیکنwarning massage
Vbinformation
64
آیکن information massage
vbsystemodal
4096
یک کادربیغام سیستم نشان می دهد
کاربر باید حتمآ به چنین کادری پپاسخ دهد تا به ادامه کار بپردازد
دکمه های پیش فرض در کادر های پیغام
لیترال
مقدار
توضیح
Vbdefultbutton1
0
اولین دکمه پیش فرض
Vbdefultbutton2
256
دومین دکمه پیش فرض
Vbdefultbutton3
512
سومین دکمه پیش فرض
حالت های مختلفی را می توان از طریق آرگومان دوم تابع msgbox( ) مشخص کرد نوع کادر پیغام می تواند ((مخصوص برنامه )) یا((مخصوص سیستم)) باشد.
کادر پیغام مخصوص برنامه_ قبل از پاسخ کاربر_اجازه کار را در همان برنامه را نمی دهد در حالی که کادر پیغام مخصوص سیستم قبل از پاسخ کاربر اجازه هیچ کاری را در تمام سیستم به کاربر نمی دهد .
*در صورت مشخص نکردن مقدار آیکن vb هیچ آیکنی زا نمایش نمی دهد و اگر نوع کادر را مخصوص سیستم تعریف نکنیم آنرا مخصوص بر نامه در نظر می گیرد .
طرز استفاده ازتابع msgbox( )
Intpress=msgbox("are you ready for report ?",vbyesnocacel,"report request")
برای استفاده از مقادیر چندین جدول آن ها را با هم جمع می بندیم.
مقادیر بازگشتی تابع msgbox( )
لیترال
مقدار
توضیح
vbok
1
دکمهok کلیک شده
Vbcancel
2
دکمهcancel کلیک شده
Vbabort
3
دکمهabort کلیک شده
Vbretry
4
دکمهretry کلیک شده
Vbignory
5
دکمهignory کلیک شده
vbyes
6
دکمه yes کلیک شده
vbno
7
دکمهno کلیک شده
تابع inputbox( )
(x,y و مقدار پیش فرض و عنوان کادر ورو دی و "پیغام" )inputbox =متغییررشته ای
X,y مکان ظاهر شدن کادر به توئیپ مباشد که در صورت وارد نکردن این مقدار vb فرم را در وسط قرار می دهد .
مثال
)"xyz,ink"و"company request"و"what is the name of company?")inputbox=strcompany
دستور unload در رویه ی رخداد کلیک دکمه exit
دسور unload باعث خارج شدن یک فرم از حافظه می شود .چنانچه فرم مربوطه در حال نمایش باشد vb آنرا از حافظه پاک وتمتم کنترل ها را به حالت design بر می گرداند
(در حالتی که برنامه یک فرم داشته باشد نیازی به این دستور نیست)اما اگر برنامه شامل چند فرم باشد ممگن است کاربر یکی از آن ها را با close ببندد در این صورت دیگر نمی توان منابع اشغال شده توسط فرم را را آزاد کرد.
اجازه استفاده از یک روش میان بر ((بدون تایپ نام فرم)) unload me
me یک شی خاص است که به فرم فعال اشاره دارد.
فرمان format برای قالب بندی رشته های عددی و کوتاه کردن آنها مورد استفاده قرار می گیرد . )"رشته قالب مورد نظر"وعبارت عددی)format
مثال
Txtending.text=format(cur*sng,"$###,##0.00")
با این کار اگر صفر داشته باشیم نمایش داده می شوند.
تابعerror check( ) تابعی برای بررسی خطا وکنترل برنامه استفاده می شود این تابع باید در ماجولی جداگانه(نه در انتهای ماجول فرم ) اضافه شود.اگر ورودی ها دارای خطا باشند تابع مورد بحث مقدار 1را داده وبا exit sub دستورات موجود در رویه دیگر اجرا نمی شوند.در صورتی که خطایی در ورودی وجود نداشته باشد تابع عددی غیر از یک را برمی گرداند.
Private sub cmdcomput_click()
پس از تعریف متغییر ها
If errorcheck=1 then
Exit sub
End if
.
.
.
مراحل افزودن ماجول جدیدی به فرم
کلیک روی آیکن module Project | addmodule
Vb ماجول جدیدی را با نام پیش فرض modul1 (و نام فایل module.bas )
به پروژه افزوده می شودو در پنجره ی project نشان داده شده ویک صفحه خالی کد به ما می دهد.
*در ماجول استاندارد رجوع به هر یک از اجزای فرم با نام فرم همرته است چون این ماجول بیرونی ایست وجزء کد خود فرم نیست .این ماجول می تو اند به بسیاری از فرم های پروژه دسترسی داشته با شد .
* List box مجموعه ای از یک textbox ویک لیست می باشد.
آیتم ها ی یک list box فقط درزمان اجراازطریق کدبرنامه قابل مقداردهی اند.
جدول خصوصیات list box
نام خصوصیت
توضیح
Back color
رنگ زمینه لیست باکس را تعیین می کند
columns
تعداد ستون های لیست باکس را تعیین می کند اگر 0 باشد لیست باکس عمودی (تک ستونی)و اگر 1 باشد لیست باکس چند ستونی می شود.
Fore color
رنگ متن list box
height
درازای لیست را تعیین می کند
Integral height
تعیین مکند که آیا لیست باکس می تواند بخشی از آیتم ها را (مثلآ نیمه بالا یی پنهان شده را )نمایش دهد یا نه
list
در لیست باکس های کشو یی مقادیری نگه میدارد که می توان هنگام طراحی وارد کرد
Multi select
حالت گزینه های لیست باکس را تعیین میکند 0-none کاربرفقط یک گزینه را
می تواند انتخاب کند1-simple با کلیک روی هر کدام بیش از یک گزینه می توان انتخاب کرد2-extended بیش از یک گزینه باshift+click,shift+arrow
انتخاب کرد
Sorted
اگر true باسد مقادیر لیست خود کار مرتب می شوند
style
تعیین میکند معمولی باشد یا در کنار هر آیتم یک چک باکس باشد
*متد روتینی است که کنترل میداند چگونه آن ها را اجرا کند
متد های رایج لیست باکس
نام متد
توضیح
Add item
یک آیتم به لیست اضافه می کند
clear
تمام آیتم های لیست را پاک می کند
list
یک آرایه که آیتم های لیست را نگه میدارد
List count
تعداد کل آیتم های لیست را بر می گرداند
Remove item
یک آیتم از لیست حذف می کند
مقداردهی لیست باکس یک ستونی به نام lstonecol در رویه ی رخداد form_ loade( )
که درست قبل از ظاهر شدن فرم رخ می دهد.
Lstonecol.additem "maryam"
Lstonecol.additem "michel"
Lstonecol.additem "masomeh"
هر آیتم دارای یک اندیس می باشد که با آن به آیتم دسترسی پیدا می کنیم برای حذف یک آیتم به صورت زیر عمل می کنیم
Lstonecol.remove item (2)
سومین آیتم را حذف می کند چون اندیس ها از صفر شروع می شوند
برای پاک کردن تمام ایتم های لیست بدین صورت عمل می کنیم
Lstonecol.clear
Strvar = lstoncol.list(0)
Strvar = lstonecol.list(3)
عنصر اول وچهارم را در متغییر قرار میدهد
Intnum=lstoncol.listcount
تعداد آیتم های لیست را درمتغییری به نام intnum قرار می دهد
*متد selected در صورتی که آیتم یا آیتم هایی از لیست انتخاب شده باشد true
می شود.
Combo box
تر کیبی از یک لیست باکس ویک text box است در واقع درست مثل یک لیست باکس است با این تفاوت که که کار بر می تواند در زمان اجرا مقادیری را به آن اضافه کند.
سه نوع combo box داریم:1-combo box کشویی شامل یک خط از فرم و کشویی که با دکمه باز می شود 2-combo boxساده مثل لیست باکس است و می توان به آن آیتم اضافه کرد 3-list box کشویی که اجازه ی افزودن آیتم نمی دهد.
خصو صیات اصلی combo box
نام خصوصیت
توضیح
Back color
رنگ زمینه کومبو باکس را تعیین می کند
Fore color
رنگ متن combo box
height
درازای کومبو باکس را تعیین می کند
Integral height
تعیین مکند که آیا می تواند بخشی از آیتم ها را (مثلآ نیمه بالا یی پنهان شده را )نمایش دهد یا نه
list
آرایه ی مقادیر کومبو باکس را که در زمان طراحی یا اجرا می توانند مقدار دهی شوند
Sorted
اگر true باسد مقادیر کومبو باکس خود کار مرتب می شوند
style
نوع کومبو باکس را تعیین می کند 0-drop down یک کومبو کشویی است1-simple combo یک لیست باکس معمولی است 2-drop down list یک لیست باکس کشویی است
مقادیر کادر متن کومبو به خودی خود اضا فه نمی شوند برای افزوده شدن این مقادیر باید در رویه ی رخداد changeیاlost focus کومبو باکس کدی نوشته شود که آیتم را به لیست اضا فه کند.
مثل
Combobox.additem combobox.text
آرایه : لیستی از آیتم هایی با نوع و نام یکسان با dim یاpublic تعریف می شود.
یک آرایه ی10 عنصری از نوع داده پولی
Public curdivsales(10) as curency
مقدار دهی عناصر آرایه
Curtotal=0
For intctr=0 to 9
Curtotal=curtotal+curdivsales(intctr)
Next intctr
گرفتن نام 10 دانش آموز یک کلاس
For intctr=0 to 9
Strchildname(intctr) = inputbox ("enter child name")
Next intctr
آرایه ی کنترل ها
لیستی از کنترل ها با نام یکسان است (هنگام نیاز به کنترل های مشابه ولی با ایندکس متفاوت)
Private sub cmdtotal_ click(I as integer)
Cmdtotal (i).caption=" a new caption")
Select box (دکمه های گزینه)
دادن حق انتخاب به کاربر با کلیک کردن یا فو کوس کردن یا space bar زدن یک گزینه انتخاب شده و بقیه از حالت انتخاب خارج می شوند یکی از خصوصیات آن
Alignment است که تععین می کند متن گزینه در سمت چپ آن قرار بگیرد یا در سمت راست آن و خصوصیت Apreance آنها آن ها را با یک آرایه ساخته یا تک تک بر روی فرم برده و همه را انتخاب می کند ودر peropertise خاصیت خود کار ش را Auto بر می گزینیم.
مهم ترین خاصیت دکمه های select box , value است که انتخاب یا عدم انتخاب دکمه ها را در زمان اجرا می گوید در تعیین خصوصیات ان ها باید همیشه یکی از دکمه ها به حالت انتخاب شده باشد .واگر گروهی را در یک فریم وگروهی را بیرون فریم گذاشتیم برای هر کدام باید یک دکمه را انتخاب شده قرار دهیم.
Checked box
خصو صیت اصلی آن value دارای سه مقدار است.
مقدار 1 وضعیت انتخاب شده
مقدار 0 وضعیت انتخاب نشده
مقدار 2 وضعیت خاکستری(انتخاب چک باکس میسر نباشد)
خصوصیت style دو حالت دارد.
0-standard
1-graphicalباعث می شود چک باکس مثل دمه های فرمان در هنگام انتخاب به صورت ((فرو رفته)) و عدم انتخاب ((برجسته)) به نظر برسند.
Scroll bar (نوار پیمایش)
نام خصوصیت
توضیح
Large change
میزان حرکت مربع کوچک درون نوار هنگام کلیک در جای خالی از نوار را تعیین می کند
max
بالا ترین حد نوار راتعیین می کند
min
پایین ترین حد نوار را تعیین می کند
Small change
میزان حرکت مربع کوچک درون نوار هنگام کلیک روی قلش دو سر از نوار را تعیین می کند
value
موقعیت فعلی نوار را تعیین می کند
برای پیمایش افقی 5تا100دلار به صورت دلار به دلار وپزش5دلار به5دلار موقع کلیک در ناحیه ی خالی نوار خصو صیات به شرح زیر تنظیم میشود
Min : 5 max :100
Smallchange : 100 largechange : 5
کنترل Timer
این کنترل همیشه در پشت صحنه کار میکند وکاربر آن را در هنگام اجرا نمی بیند خصوصیت interval آن مقدار1تا 65535 را می گیردکه بر حسب میلی ثانیه است و1000 آن معادل یک ثانیه است .هر چه مقدار interval آن کوچکتر با شد تایمر بیشتر به تاخیر می افتد.
فرا خوانی رویه ها call procedure اگر رویه ای با کلمه کلیدی private در ماجولی تعریف شده باشد فقط رویه های دیگر آن ماجول می توانند آن را صدا بزنند واگر با کلمه کلیدی public تعریف شده باشد میتواند تمام رویه های دیگر در کل پروژه را صدا بزند
تفاوت ساب روتین با تابع
به طور کلی برنامه نویسان , رویه های عمومی (public ) را در ماجول های بیرونی قرار می دهند (برای اعمالی چون چاپ و محاسبات) که در بسیاری از برنامه ها مورد استفاده است بهتر است کد برنامه را یکبار نوشته ودر یک ماجول استاندارد ذخیره گردد سپس آن ماجول را به هر برنامه ای که به آن احتیاج دارد اضافه کنیم در این حالت ماجول فرم برنامه ی روتین موجود, ماجول بیرونی را هنگام نیاز فرا می خواند.
برای نوشتن تابع یا زیر برنامه باید در زیر خط آخر برنامه تعریف شود.از منویtools گزینه add procedureو کادر محوره ای add procedure
* اگر می خواهید تابع یا روتینی را قبل از رسیدن به دستور پایانی تمام کنید بادستورexit functionیاexit sub این کار را انجام دهید.
* هنگام تعریف رویه باید نوع داده آرگومان را مشخص کنید .
مثل integer ,k as integer) public sub recproc(I as
Call recproc (I, k)
* اگر رویه ای آرایه ای را به عنوان ورودی دریافت کند باید بدون اندیس تعریف شود
Public sub witedata (gnames() as string , cdate as variant)
توا بع توکار رشته ایvbبا مثال
مقایسه دو کلمه عبور
If ucase (struser) =ucase(strpassword) then
' true
Strsentence = "I flew home"
Strsentence,3, 4)="rode")mid
خروجی"I rode home"
با فرض true بودن خاصیت autosize کنترل
if ( len (strvar) <=20 ) then
txtcontrol.text = strvar
Ltrim (str (123 ) )
خروجی 123
توابع سا عت و تاریخ
T= Timeserial (14, 32,25)
ذخیره شده به صورت2:32:25pm
TS=Timeserial (14-20, 30, 16)
ذخیره شده به صورت2:30:16
کار کردن با 20 روز بعد از تاریخ کار کرد کاربر
Df=Dateadd(" d ", dteuser)
کار کردن با یک سال بعد از تاریخ کار کرد کاربر
Df=Dateadd(" yyyy ", -1 ,dteuser)
تعداد هفته های بین دو تاریخ
DateDiff("ww" ,dte1 ,dte2)
سه تابعdate(),year(),day() برای بیرون کشیدن روز ماه و سال به کار می روند.
تابعtimer تعداد ثانیه های سپری شده از نیمه شب تا لا را بر می گرداند.
تابعnow تاریخ و ساعت جاری را بر می گرداند.
تابع( ) vartype مقداری را برمی گرداند که نوع داده آرگومان را مشخص می کند.اگر( ) varitype عددی بزرگتر از 8192 را برگرداند آنرا از این عدد کم کرده و نوع آنرا بدست می آوریم اگر خود 8192 را برگرداند صحیح است.
مقدار باز گشتی
لیترال
توضیح
0
vbempty
آرگومان خالی ومقدار دهی نشده است
1
vbnull
آرگومان رشته خالی یا داده نا معتبر
2
Vbinteger
آرگومان عددی صحیح
3
vblong
آرگومان عدد صحیح بلند
4
Vbsingle
آرگومان اعشاری تک دقت
5
Vbdouble
آرگومان اع شار دقت مضاعف
6
Vbcurency
آرگومان پول رایج
7
vbdate
آرگومان تاریخ/ساعت
8
Vbstring
آرگومان رشته ای
9
Vbobject
آرگومان یک شئ است
10
Vberror
آرگومان ایراد دارد
11
Vbboolean
آرگوماناز نوع منطقی است
12
Vbvariant
آرگومان از نوع واریانت است
13
Vbdateobject
آرگومان از نوع(dao )data access object است
14
vbdecimal
آرگومان دهدهی
15
vbbyte
آرگومانبایت
8192+int
vbarray
آرگومان آرایه ای از نوعی که با int مشخص شده