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

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

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

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


پست های پیشنهاد شده

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

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

  • پسندیدن 1
  • ذوق زده 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
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

 

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
ارسال پاسخ به این موضوع ...

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

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

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

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

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


×
×
  • جدید...