رفتن به مطلب

مجید آرتا

ارسال‌های توصیه شده

به نام خدا

با سلام

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

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

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

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

  • 4 سال بعد...

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

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

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

 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...