ساختارهای شرطی در Visual Basic . net
این گفتار برآنیم تا ساختارهای شرطی در ویژوال بیسیک دات نت را بررسی کنیم . این ساختارها if . . then و select . . case می باشند .
ساختار if . . then
ابتدائی ترین ساختار شرطی در ویژوال بیسیک دات نت ساختار if . . then می باشد . با استفاده از این ساختار هنگامی که شرط مورد نظر برقرار باشد، می توان دستور یا دستورات متعددی را اجرا نمود .
بعنوان مثال در برنامه زیر اگر زمان سیستم بعد از ظهر را نشان دهد، جمله "good evening iranasp . net" بر روی صفحه نمایش داده می شود .
dim mytime as datetime
mytime = now
if hour(mytime) >= 12 then
response . write ("good evening iranasp . net !")
end if
%>
همچنین ساختار if . . then عبارت else را هم پشتیبانی می کند . اگر شرط مربوط به if برقرار نباشد، دستورات موجود در قسمت else اجرا می شوند . به مثال زیر توجه فرمائید .
dim mytime as datetime
mytime = now
if hour(mytime) >= 12 then
response . write ("good evening iranasp . net !")
else
response . write ("good morning iranasp . net !")
end if
%>
ساختار select . . case
در ساختار select . . case می توان مقداری را با مقادیر مختلفی مقایسه کرده و دستورات مربوط به مقدار یافت شده را اجرا نمود . بعنوان مثال قطعه برنامه زیر پیامهای مختلفی را برحسب نوع مرورگر نمایش می دهد .
dim strbrowser as string
strbrowser = request . browser . browser
select case strbrowser
case "ie"
response . write( "you are using internet explorer!" )
case "netscape"
response . write( "you are using netscape!" )
case else
response . write( "what browser are you using?" )
end select
%>
دقت داشته باشید که ساختار select . . case در برنامه فوق دارای یک قسمت case else می باشد . هرگاه هیچ یک از حالات مقایسه ای برقرار نبود، دستورات موجود در قسمت case else اجرا می گردند . استفاده از case else اختیاری است .