مجید آرتا 5,875 ارسال شده در 29 آبان، 2014 اشتراک گذاری ارسال شده در 29 آبان، 2014 به نام خدا با سلام امیدوارم حالتون خوب باشه در خدمتتون هستیم با آموزش کار با حلقه 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 ارسال شده در 1 آذر، 2018 اشتراک گذاری ارسال شده در 1 آذر، 2018 استاد واقعا ممنونم با تشکر از شما ببخشید میشه این کد رو اینجوری هم نوشت؟ 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 135 ارسال شده در 1 آذر، 2018 اشتراک گذاری ارسال شده در 1 آذر، 2018 در 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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.