دستور if

صورت کلی

If [conditional] then

دستورات ویژوال بیسیک

End if

دستور کامل شده با else

If [conditional] then

دستورات ویژوال بیسیک

Else

دستورات ویژوال بیسیک

End if

Conditional یک عبارت یا متغیرشرطی است که false یا true را بر می گرداند .

درصورت true بودن کامپیوتر کد های بعد از then را یکی یکی انجام می دهد .

درصورت false بودن کامپیوتر کد های بعد از then را اجرا نمی کند و به کد های بعد از else رفته و آنها را اجرا می کند.

در صورت استفاده نشدن از else برنامه خطا می دهد.

برای بستن برنامه بعد کدنویسی باید دستور End if تایپ شود در صورت استفاده نشدن از End if برنامه خطا می دهد.

مثال1 :

Dim y as integer

Dim x as integer

X=text1.text

Y=text2.text

If x / y=3 then

Print “ali”

Else

Msgbox”error”

End if

در صورتی که تقسیم 2 عدد با هم جوابش 3 باشد کامپیوتر ali را چاپ می کند ودر غیر این صورت به خط else رفته و پیام error را نمایش می دهد.

مثال 2 :

If (val(text1.text)mod 2 = 0 ) then

Print”zooj”

Else

End

End if

اگر عددی تقسیمش بر دو باقیمانده 0 داشت zooj را نمایش می دهد در غیر این صورت از برنامه به کلی خارج می شود.

دستور if تک خطی

همان دستور if است اما در یک خط و در مواقعی که فقط دستور بدنه if فقط یکی باشد از آن استفاده می شود.

و در اخر آن نیاز به end if نیست.

دستورات ویژوال بیسیک If [conditional] then

مثال :

If option1.value = true then Print”good”

اگر اپشن باکس ما علامت دار باشد good را چاپ می کند.

دستور if تو در تو

در این دستور از یک if و چندین else استفاده می شود.

If [conditional] then

دستورات ویژوال بیسیک

Else if

دستورات ویژوال بیسیک

Else if

دستورات ویژوال بیسیک

.

.

.

.

Else

دستورات ویژوال بیسیک

End if

مثال :

If text1.text=1 then

Print “111111″

Else if text1.text=2 then

Print “222222″

Else if text1.text=3 then

Print “333333″

Else if text1.text=4 then

Print “444444″

Else

Msgbox”error”

End if

دستور select case

بهترین روش برای بررسی شرط های چند گانه دستور SELECT CASE است.اگر تعداد دستورات if تو در تو از سه یا چهار دستور بیشتر شود برنامه بسیار پیچیده می شود.

عبارت مور نظر Select Case

مقدار Case 1

یک یا چند دستور

مقدار [Case 2

یک یا چند دستور

مقدار[ Case 3

یک یا چند دستور

مقدار[ Case 4

یک یا چند دستور

.

.

.

مقدار Nام [Case

[Case Else

یک یا چند دستور

End Select

مثال 1 :

Select case x

Case 0 to 20

Print”00000″

Case 20 to30,33,44,56

Print “11111″

Case 100,200,300

Print “22222″

Case else

Print “error”

End select

کنترل check box

در صورتی که این کنترل انتخاب شود یک علامت √ را نمایش می دهد . از این کنترل برای انتخاب yes/no ویا true/false استفاده می شود. ومی تواند به صورت گروهی به کار رود تا چندین انتخاب را به کاربر دهد.

مشخصه value نشان دهنده انتخاب و یا عدم انتخاب کادر چک باکس را نمایش می دهد .

جدول مقادیر و ثابت های مشخصه value

مثال:

If  check1.value =1  then  x=2

If  check1.value =1  then  y=3

If  check0.value =1  then  x=4

If  check0.value =1  then  y=5

کنترل option button

برای انتخاب یک گزینه از چندین گزینه پیش فرض از این کنترل استفاده می کنیم.

مشخصه value می تواند مقدار true/false را بگیرد .

مثال:

If  option1.value = true  then  print”1111″

If  option2.value = true  then  print”2222″

If  option1.value = false  then  print”6666″

If  option2.value = false  then  print”0000″

کنترل frame

گاهی اوقات نیاز به چندین دسته option box داریم و اگر همه آنها را با هم در فرم قرار دهیم دچار تداخل میشوند زیرا در هر زمان فقط یک کنترل option box از را می توان انتخاب کرد.برای رفع این مشکل از کنتری frame استفاده می شود وهر دسته از option box ها را درون یک فریم قرار می دهیم و هم در هر زمان می توانیم چند انتخاب داشته باشیم و هم از پراکندگی وشلوغی صفحه جلوگیری می کنیم.

کنترل Lable

با این کنترل می توان متنی را به عنوان بر چسب به هر جای صفحه اضافه کرد ومهمترین مشخصه آن CAPTION است.

مثال:

LABEL1.CAPTION = “MEHDI”

LABEL1.CAPTION = X+Y

LABEL1.CAPTION = “ALI”+12

LABEL1.CAPTION = 2+”2″

کنترل COMMAND BUTTON

COMMAND BUTTON یا دکمه فرمان مهمترین کنترل است زیرا بیشتر کد ها و برنامه ها برای اجرا در آن نوشته می شوند و با هر بار زدن آن رویدادی کی برایش کد نویسی شده را به اجرا در می آورد.

جدول مجموع مهمترین مشخصه های دکمه فرمان

کنترل TEXT BOX

متداول ترین روش ورود داده های متنی از راه TEXT BOX است.

جدول مجموع مهمترین مشخصه های کادر متن