دربخش پنجم با نحوه نوشتن تابع آشنا شدید و در این بخش میخواهم شما را با توابع داخلی ویژوال بیسیک آشنا کنم.توابع داخلی توابعی هستند که از قبل نوشته شده اند و دیگر نیازی نیست که شما آنها را بنویسید.من در اینجا سعی میکنم چون توابع داخلی ویژوال بیسیک بسیار زیاد است توابعی را به شما معرفی کنم که بیشترین کاربرد را دارند.

برای ادامه روی "ادامه متن" کلیک کنید.

توابع داخلی ویژوال بیسیک

در فصل قبل با نحوه نوشتن تابع آشنا شدید و در این فصل میخواهم شما را با توابع داخلی ویژوال بیسیک آشنا کنم.توابع داخلی توابعی هستند که از قبل نوشته شده اند  و دیگر نیازی نیست که شما آنها را بنویسید.من در اینجا سعی میکنم چون توابع داخلی ویژوال بیسیک بسیار زیاد است توابعی را به شما معرفی کنم که بیشترین کاربرد را دارند.

تابع MsgBox

این تابع یک کادر محاوره را همراه بایک پیغام نمایش داده تا زمانی که کاربر بر روی یکی از دکمه ها کلیک کند.

همانطور که قبلا از این تابع استفاده کردیم چون این تابع در برنامه ها بسیار استفاده می شود در اینجا میخواهم در مورد این تابع بیشتر توضیح بدهم

شکل کلی استفاده از این تابع بدین صورت است:

MsgBox (prompt [, buttons] [, title])

 Prompt متنی است که میخواهید به کاربر نمایش داده شود

MsgBox(“Your Computer is running out of memory!”)

با اجرای این کد به کاربر یک پیغام نمایش داده میشود که روی آن همان متن بالا قرار دارد

Button  هم برای مشخص کردن نوع دکمه ها است به عنوان مثال شما میخواهید از کاربر سوال کنید و کاربر باید یا یکی از دکمه های Yes  یا No   را کلیک کند انواع دکمه ها برای این تابع در جدول زیر آمده است:

.برای اینکه تشخیص دهیم که کاربر کدام دکمه را فشار داده باید از مقدار برگشتی که تابع به ما میدهد استفاده کنیم به مثال زیر توجه کنید:

زمانی که کاربر این قطعه کد را اجرا کند پیغام زیر نمایش داده میشود

حالا با چک کردن مقدار برگشتی با یکی از این مقدار ها(جدول پایین) میتوان تشحیص داد که کاربر چه دکمه ای رافشار داده است: 

Title (موضوع)

در این قسمت هم باید عنوان پیغام را مشخص کنیم اگر هم مشخص نکنیم ویژوال بیسیک به طور پیش فرض نام پروژه را قرار میدهد:

تابع FileLen()

FileLen (مسیر فایل)

مثال:

کار این تابع این است که مسیر یک فایل را به عنوان ورودی میگیرد و حجم فایل را به صورت بایت بر میگرداند:

Dim intFileLen as Integer

intFileLen  = FileLen ("C:test.txt")

MsgBox intFileLen

تابع Len()

این تابع یک رشته به عنوان ورودی دریافت می کند و طول رشته را به بایت بر میگرداند:

Len (رشته)

مثال:

Dim strName as String

strName = "Hamed"

MsgBox Len (strName)

مقدار برگشتی این مثال 5 خواهد بود

تابعLeft()

این یک رشته را گرفته و از سمت چپ با توجه به تعدادی که مشخص می کنید جدا می کند و به صورت رشته بر گشت می دهد

Left(رشته,تعداد)

مثال:

Dim strTest as String

strTest = "Hamed"

MsgBox Left(strTest,3)

تابع Right()

این تابع هم مانند تابع Left() است با این تفاوت که رشته را از سمت راست جدا می کند

Right (رشته, تعداد)

مثال:

Dim strTest as String

strTest = "Hamed"

MsgBox Right(strTest,3)

تابع Mid()

این تابع هم برای جدا کردن رشته از وسط رشته دلخواه میباشد

Mid (رشته, نقطه شروع, طول)

در اینجا نقطه شروع یعنی از کجای رشته باید جدا کند و طول هم یعنی به چه تعداد باید جدا کند

مثال:

Dim strTest As String

strTest = "This Is Test"

MsgBox Mid(strTest, 2, 6)

تابع UCase()

این تابع یک رشته میگیرد و تمام حروف درون رشته را به حروف بزرگ تبدیل میکند

UCase (رشته)

مثال:

Dim strTest As String

strTest = "Example"

MsgBox UCase (strTest)

تابع LCase()

این تابع هم عکس تابع UCase()  کار میکند یعنی تمام حروف یک رشته را به حروف کوچک تبدیل می کند

LCase (رشته)

مثال:

Dim strTest As String

strTest = "EXAMPLE"

MsgBox LCase (strTest)

تابع LTrim()

این تابع از سمت چپ رشته فضاهای خالی را حذف می کند

LTrim (رشته)

مثال:

Dim strTest As String

strTest = "    Example"

MsgBox LTrim (strTest)

تابع RTrim()

این تابع فضاهای حالی رشته را از سمت راست حذف می کند

RTrim (رشته)

مثال:

Dim strTest As String

strTest = "Example      "

MsgBox RTrim (strTest)

تابع Trim()

این تابع هم فضاهای خالی موجود در رشته را از دو طرف رشته حذف می کند

Trim (رشته)

مثال:

Dim strTest As String

strTest = "         Example      "

MsgBox Trim (strTest)

تابع Asc()

این تابع کد اسکی حروف را بر میگرداند

Asc (رشته)

مثال:

MsgBox Asc ("A")

تابع Chr()

این تابع هم کد اسکی حروف را می گیرد و حرف آن را بر میگرداند

Chr (کد اسکی)

مثال:

MsgBox Chr (65)

تابع  Time()

این تابع زمان جاری سیستم را بر میگرداند

Time ()

مثال:

MsgBox Time ()

تابعDate()

این تابع هم تاریخ جاری سیستم را بر میگرداند

Date ()

مثال:

MsgBox Date ()

تابع Now ()

این تابع هم زمان و تاریخ جاری سیستم را بر میگرداند

Now ()

مثال:

MsgBox Now ()

تابع Format ()

تابع Format  یکی از قدرتمند ترین توابع ویژوال بیسیک است.به طور کلی این تابع برای نمایش اعداد و حروف و تاریخ و زمان مناسب می باشد به عنوان مثال شما میخواهید که از تاریخ فقط روز آن را مشخص کنید که چه روزی است و یا برای نمایش حقوق آنها را به وسیله کا ما (,) از هم جدا کنید و بعد از آن هم ریال نوشته شود شما به وسیله این تابع همه این کارها را انجام دهید البته کار تابع Format  به این جا ختم نمیشود در آینده با همه کار های این تابع آشنا خواهید شد.در زیر سه مثال برای زمان و تاریخ و حقوق آورده ام امیدوارم مفید واقع شود.

شکل کلی استفاده از این تابع بدین صورت است:

Format (expression [,format [,firstdayofweek [,firstweekofyear ]]])

 Expression برای هر مقدار که میخواهید Format روی آن انجام دهید

Format هم برای مشخص کردن نوع فرمت به کار می رود

مثال:شما می خواهید از زمان فقط دقیقه آن را مشخص کنید با از تابع Format  به شکل زیر استفاده کنید

MsgBox Format (Now, "n")

مقدار 17 نشان دهنده مقدار دقیقه زمان جاری سیستم است

در مثال قبل به جای حرف "n" می توانید از مقادیر زیر هم استفاده کنید:

مثال:شما می خواهید از تاریخ سیستم هم بعضی از مقادیر را که لازم دارید استفاده کنید به مثال زیر توجه کنید:

MsgBox Format(Now, "yyyy")

این مثال سال جاری سیستم را بر میگرداند

حالا به جای عبارت "yyyy" می توانید از مقادیر زیر برای برگشت دیگر مقادیر استفاده کنید:

عبارت	مقدار برگشتی
yyyy	سال جاری
q	فصل
m	ماه
y	روز سال
d	روز
w	روز هفته
ww

ارسال شده در مورخه : دوشنبه، 25 آذر، 1387 توسط PCTips