تبليغاتX
vbmehrnooshnet - در آخر...

جلسه هفت(توابع داخلی)

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        

بین دکمه و ایکون باید علامت + بگذاریم. مقدارهایی که جعبه پیام می تواند بر گرداند به شرح زیر است:

نام ثابت

مقدار

vbOK

1

vbCancel

2

vbAbort

3

vbRetry

4

vbIgnore

5

vbYes

6

vbNo

7

مثال:

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

 

 

نوشته شده توسط mehrnoosh در ساعت 14:5 | لینک  | 
 

border="0" ALT="Google" align="absmiddle">
Choose a background color:
New Page 2

This free script provided by webloger site