اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


مجید آرتا

آموزش Do While

3 ارسال در این موضوع قرار دارد

به نام خدا

با سلام

امیدوارم حالتون خوب باشه

در خدمتتون هستیم با آموزش کار با حلقه Do While

Do While:کاری مانند حلقه For را دارد با این تفاوت که در این حلقه شمارنده وجود ندارد

حالا با یک مثال کار را شروع می کنیم:

مثال:

Dim i As Int
Dim pluse As Int

i=0
Pluse=1
Do While (i<20)
pluse = pluse + 1
MsgBox(pulse,"Do While")
i = i +1
Loop

در کد بالا ابتدا 2تا متغیر اینتجر تعریف کردیم و یک مقدار به آن ها تخصیص دادیم

در ادامه در حلقه شرط گذاشتیم تا زمانی عمل کند که مقدار i کمتر از 20 باشد،در هر بار تکرار یک مقدار به متغیر pluse اضافه می شود.

و این مقدار را در یک مسج باکس نشان می دهیم

در آخر هم یک مقدار به i اضافه می کنیم تا به عدد 20 برسد و کار حلقه به پایان برسد

موفق و موید باشید

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

استاد واقعا ممنونم با تشکر از شما

ببخشید میشه این کد رو اینجوری هم نوشت؟

Dim i As Int = 0
Dim pluse As Int = 1
Do While (i<20)
pluse = pluse + 1
MsgBox(pulse,"Do While")
i = i +1
Loop

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 10 ساعت قبل، Elham-Karimi گفته است :

استاد واقعا ممنونم با تشکر از شما

ببخشید میشه این کد رو اینجوری هم نوشت؟


Dim i As Int = 0
Dim pluse As Int = 1
Do While (i<20)
pluse = pluse + 1
MsgBox(pulse,"Do While")
i = i +1
Loop

 

بله. به روش های مختلفی میشه نوشت

Dim i As Int = 0
Dim plus As int  
Do While (i<20)
		log(i)      '0-19
		plus = i+1
		log(plus)   '1-20
	i = i+1
Loop

Dim i As Int = 0    
Do While (i<20)
		log(i+1)   '1-20
	i = i+1
Loop

Dim i As Int = 1
Do While (i<21)
		log(i)      '1-20
	i = i+1
Loop

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

مطالب شما نیاز است به تایید مدیران برسد

مهمان
شما به عنوان کاربر مهمان در حال حاضر دیدگاه ارسال می کنید. اگر دارای حساب کاربری در سایت هستید لطفا وارد حساب کاربری خود شوید.
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.