آموزش Do While

[مجید آرتا 5,699 مدیر کل سایت]

به نام خدا

با سلام

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

در خدمتتون هستیم با آموزش کار با حلقه 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 برسد و کار حلقه به پایان برسد

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

[Elham-Karimi 8 کاربر عادی]

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

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

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

 

[rasool.g 91 کاربر نیمه فعال]

در 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