| جلسه هفت(توابع داخلی) | ||||||||||||||||||
|
LoadPicture: این تابع یک تصویر را به برنامه اضافه می کند. در داخل پرانتز مسیر تصویر قرار می گیرد.مثل: Image1.Picture = LoadPicture(“c:\Pic1.bmp”) MsgBox: تابعی است که یک جعبه پیام را به کاربر نشان می دهد.
همانطور که می بینید جعبه پیام یک آیکون، یک پیام و چند دکمه فرمان دارد. شکل کلی این دستور به صورت مقابل است. intResponse=MsgBox(strPrompt,intStyle,strTilte) آرگمان اول اجباری و بقیه ارگمان ها اختیاری است. StrPrompt پیامی است که جعبه پیام نشان می دهد. اگر آرگمان های دیگر را مشخص نکنیم تنها پیام با دکمه OK نشان داده می شود. آرگمان دوم نوع دکمه ها و آیکون ها را مشخص می کند. strTitle تیتر جعبه پیام را مشخص می کند. intResponse کد دکمه ای را که کاربر فشار داده در خود نگه می دارد که با دستور If یا Select case می توان آن را بررسی کرد. دکمه های این جعبه در لیست پایین آمده است: vbOkOnly دکمه OK vbOKCancel دکمه های OK و Cancel vbAbortRetryIgnore دکمه های Abort,Retry,Ignore vbYesNoCancel دکمه های Yes,No,Cancel vbYesNo دکمه های Yes,No vbRetryCancel دکمه های Retry,Cancel آیکون هایی که می توان استفاده کرد به شرح زیر است: vbCritical vbQuestion vbExclamation vbInformation بین دکمه و ایکون باید علامت + بگذاریم. مقدارهایی که جعبه پیام می تواند بر گرداند به شرح زیر است:
مثال: Dim I As Integer I = MsgBox("Do you want to exit?", vbYesNo + vbQuestion, "Exit") Select Case (I) Case 6 MsgBox ("Yes") Case 7 MsgBox ("No") End Select InputBox: جعبه ای که سوالی می کند و کاربر باید جواب را وارد کند.
شکل کلی تابع به صورت زیر است: strAnswer = InputBox (پیام,تیتر,مقدار پیش فرض) توابع عددی: Int(Value) محاسبه جزء صحیح Fix(Value) اعشار را از عدد حذف می کند. Log(Value) محاسبه لگاریتم طبیعی Atn(Value) محاسبه آرکتانژانت Cos(Value) محاسبه کسینوس Sin(Value) محاسبه سینوس Tan(Value) محاسبه تانژانت Abs(Value) محاسبه قدر مطلق Sqr(Value) محاسبه جذر این توابع با عدد های داخل پرانتز سروکار دارند. توابع تشخیص نوع: IsEmpty() اگر متغییر داخل پرانتز مقدار نگرفته باشد True برمی گر داند. IsNull() اگر مقدار متغییر داخل پرانتز Null باشد True برمی گر داند. IsNumeric() اگر متغییر داخل پرانتز از نوع عددی باشد یا توانایی تبدیل به عدد را داشته باشد True برمی گر داند. توابع تبدیل نوع: این توابع برای تغییر نوع یک متغییر به نوع دیگر به کار می رود. مسئله مهمی که باید توجه کنید این است که باید حدود انواع متغییر را در نظر بگیرید تا ازاین توابع انتظار درست کار کردن داشته باشید. CBool() تبدیل آرگمان به Boolean CByte() تبدیل آرگمان به Byte CCur() تبدیل آرگمان به Currency CDbl() تبدیل آرگمان به Double CDec() تبدیل آرگمان به Decimal CInt() تبدیل آرگمان به Integer CLng() تبدیل آرگمان به Long CSng() تبدیل آرگمان به Single CStr() تبدیل آرگمان به String CVar() تبدیل آرگمان به Variant توابع رشته: Len() تعداد حرف یک متغییر String را برمی گرداند. Right() قسمتی از یک رشته را از سمت راست بر می گرداند. Left() قسمتی از یک رشته را از سمت چپ بر می گرداند. Mid() قسمتی از یک رشته را از وسط بر می گرداند.مثال: Dim str,str1,str2,str3 as String str = “abcdefg” str1 = Right(str,2) ‘ fg str2 = Left(str,2) ‘ ab str3 = Mid(str,3,2) ‘ cd UCase() تمام حروف متن داخلش را تبدیل به حروف بزرگ می کند. LCase() تمام حروف متن داخلش را تبدیل به حروف کوچک می کند. توابع اسکی: هر کاراکتر دارای یک کد است.توابع Chr() و Asc() برای تبدیل اعداد به کاراکتر و بلعکس هستند.مثال: Str = Chr(65) ‘ A I = Asc(“A”) ‘65
| ||||||||||||||||||






