قالب وردپرس



  •  ثبت نام |     |



ارسال موضوع جدید پاسخ به موضوع
 صفحه 1 از 1  [ 6 پست ] 

پنج شنبه فروردین 7, 92 1:16 am

آفلاین
مدیر سایت
آواتار کاربر
تاریخ عضویت: چهارشنبه فروردین 6, 92 1:04 am
پست: 1366
{ GIVEN }: { THANKS }
{ RECEIVED }: { THANKS }
با سلام همکاران گرامی می توانند از این بخش سوالات و مشکلات خود درباره این درس را مطرح کرده و یا به سوالات همکاران دیگر پاسخ دهند.
برای این منظور بر روی گزینه ارسال پاسخ کلیک نمایید.

_________________


بالا بالا
  پروفایل
  پاسخ با نقل قول 

#

شنبه فروردین 24, 92 10:50 pm

آفلاین
تاریخ عضویت: شنبه فروردین 24, 92 10:16 pm
پست: 14
سن: 22
محل اقامت: آذربایجان شرقی_تبریز_هادیشهر
نام: رضا
نام خانوادگی: قدمگاهی
شاخه: فنی و حرفه ای
استان: آذربایجان شرقی
{ GIVEN }: { THANKS }
{ RECEIVED }: { THANKS }
سلام
اولا میخواستم ازتون بابت سایت خوبتون تشکر کنم
من میخواستم در باره حلقه تکرار for ...next و do ... loop بیشتر بدونم(در سطح مقدماتی باشه)ممنون میشم بهم کمک کنید اگه خواستین بهم ایمیل کنین تا بفهمم جواب دادین
تشکر
reza_ghadamgahi@ymail.com

_________________
در صورت پاسخ ایمیل کنید
reza_ghdamgahi@ymail.com


بالا بالا
  پروفایل YIM 
  پاسخ با نقل قول 

#

شنبه فروردین 24, 92 11:34 pm

آفلاین
مدیر سایت
آواتار کاربر
تاریخ عضویت: چهارشنبه فروردین 6, 92 1:04 am
پست: 1366
{ GIVEN }: { THANKS }
{ RECEIVED }: { THANKS }
با سلام نکاتی چند درباره حلقه های for , do loop
تو برنامه نويسي گاهي (شايدم زياد) پيش مياد كه بخوايم يه تيكه از كدمون رو تا وقتي كه ميخوايم تكرار كنيم

مثلا ساده ترين برنامه اي كه ميشه نوشت به اين صورته كه اگه بخوايم اعداد يك تا 10 رو چاپ كنيم در صورتي كه از

ساختار حلقه استفاده نشه بايد يه الگوريتمي مثل پايين داشته باشه


1 رو چاپ كن
2 رو چاپ كن
3 رو چاپ كن
.
.
.
.
و الي آخر


که اين برنامه حدودا ميشه 10 يا 12 سطر ولي اگه بخوايم از 1 تا 100 يا 1000 رو چاپ كنيم بايد برناممون 100 خط

داشته باشه كه اين 100 خط رو ميشه با يه حلقه تو 3 يا 4 خط خلاصه كرد

حلقه تکرار For:

از این حلقه برای تکرار عملیات خاصی به تعداد مشخص انجام می شود. يعني هموني كه بالا مثال زدم

شكل كلي :

کد
کد:
:
For Counter = Start_Value To End_Value [Step Step_Count]

   بلاکی از یک یا چند دستور ویژوال بیسیک

Next  [Counter]

Counter شمارنده حلقه

Start_Value مقدار اولیه شمارنده

End_Value مقدار پایانی شمارنده

ابتدا متغییر counter برابر Start_Value قرار می گیرد و دستورات یک بار اجرا می شوند سپس counter به اندازه

Step_Count افزایش یافته و دوباره دستورات اجرا می شوند و این عمل تا وقتی که به End_Value برسیم تکرار می

شود.

نکته:

اگر Step_Count ذکر نشود مقدار پیش فرض آن یک می باشد.

می توان Counter جلوی Next را ننوشت ولی به دلیل ناخوانایی برنامه در حلقه های تودرتو این کار توصیه نمی شود.

مثال:

کد:

کد:
Dim i, Sum As Integer

For i = 0 To 100

    Sum = Sum + i

Next i

Text1.Text = Sum
در این مثال مجموع اعداد بین 0 تا 100 محاسبه شده و در آخر مقدار آن در جعبه متن قرار داده می شود.

کد:

کد:
Dim i, Sum As Integer

For i = 1 To 10 Step 2

    Sum = Sum + i

Next i

Text1.Text = Sum

در این مثال مجموع اعداد فرد بین 1 تا 10 محاسبه می شود.

کد:

Dim i As Single

Dim Counter As Integer

For i = 5 To -5 Step -0.5

    Counter = Counter + 1

Next

Text1.Text = Counter
در این مثال تعداد پیمایش اعداد بین 5 تا 5- با مقدار 0.5- شمارش می شود.

این مثال برای این آورده شده است که ببینید از اعداد منفی و اعشاری هم می توان در حلقه For استفاده کند.


با استفاده از دستور Exit For می توان قبل از موعد مقرر از حلقه خارج شد
.
مثال:

کد:

کد:
For i = 10 To 100

    If (i Mod 7) = 0 Then Exit For

Next i

Text1.Text = "The first number is " & i
این مثال اولین عدد بخش پذیر بر 7 را بر می گرداند. هنگامی که عدد بر 7 بخش پذیر شود با دستور Exit For از حلقه

بیرون می آییم. (راستش يادم نيست MOD رو گفتيم يا نه ولي بهش ميرسم . Mod باقيمانده i رو بر 7 برميگردونه )


يه مثال ديگه (يه كم بزرگتر) :

کد:

کد:
For i = 0 To 100

    If (i Mod 2) = 0 Then

        Even = Even + 1

    Else

        Odd = Odd + 1

    End If

Next i

Text1.Text = "Even numbers: " & Even & " Odd numbers: " & Oddاين برنامه هم تعداد اعداد زوج و فرد رو از 1 تا 100 ميشمره و تو text1 چاپ ميكنه



For مقدار اولیه = شمارنده To مقدار نهایی Step گام افزایش
   دستور 1
   دستور 2
   دستور 3
   ...
Next شمارنده

در این ساختار تکرار مشخص میکنیم دستورات مورد نظر چند بار به اجرا در آیند. در حالتی که گام افزایش را وارد نکنیم برابر با 1 خواهد بود و تعداد دفعات تکرار دستورات برابر با مقدار نهایی منهای مقدار اولیه به علاوه ی یک خواهد بود. در صورتی که مقدار نهایی کوچکتر از مقدار اولیه باشد و گام افزایش نیز مثبت باشد دستورات حلقه اجرا نخواهند شد. در این حالت بایستی گام افزایش را یک عدد منفی در نظر بگیریم.
For I = 1 To 10
   ListBox1.AddItem Str(I)
Next I

دستورات بالا اعداد 1 تا 10 را درون یک ListBox اضافه میکند.

در ویژوال بیسیک از حلقه های For تو در تو نیز میتوان استفاده کرد که ساختار آن به صورت زیر میباشد.

For I = 1 to 10
   For J = 1 to 10
      ...
   Next J
Next I

یکی دیگر از ساختارهای تکرار در ویژوال بیسیک حلقه ی While میباشد که به صورت زیر قابل استفاده میباشد:

While شرط
   دستوراتی که باید اجرا شوند
Wend

در این ساختار تا زمانی که شرط روبروی While درست باشد مجموعه دستورات حلقه اجرا خواهند شد. زمانی که شرط دارای مقدار False باشد حلقه پایان می یابد. دستورات زیر اعداد 0 تا عدد وارد شده در TextBox را به صورت معکوس چاپ میکنند.
N = Val(TextBox1.Text)
While N >= 0
   Print N
   N = N - 1
Wend

یکی دیگر از ساختارهای تکرار در ویژوال بیسیک حلقه Do ... Loop While میباشد که به دو صورت زیر مورد استفاده قرار می گیرد:
Do While شرط
   دستوراتی که باید اجرا شوند
Loop
       (1st Condition)

Do
   دستوراتی که باید اجرا شوند
Loop While شرط
       (2nd Condition)


حالت 1 دقیقا مشابه حلقه ی While عمل میکند. ولی تفاوت حالت 2 با حلقه ی While این است که در این حالت مجموعه دستورات حلقه حتما یک بار اجرا میشوند سپس درستی شرط بررسی میشود.

یکی دیگر از ساختارهای تکرار در ویژوال بیسیک حلقه ی Do ... Loop Until میباشد که ساختار آن به صورت زیر است

Do
   مجموعه دستوراتی که باید اجرا شوند
Loop Until شرط

در این حلقه ابتدا دستورات حلقه یک بار اجرا میشوند. سپس شرط حلقه بررسی میشود. در صورتی که شرط حلقه نادرست باشد دستورات حلقه دوباره اجرا میشوند و در صورتی که شرط حلقه درست باشد اجرای حلقه پایان می یابد.
--------------------------------------------------------------------------------------
کلوب کشوری کامپیوتر http://cmpclub.vvs.ir

_________________


بالا بالا
  پروفایل
  پاسخ با نقل قول 

#

شنبه فروردین 24, 92 11:47 pm

آفلاین
تاریخ عضویت: شنبه فروردین 24, 92 10:16 pm
پست: 14
سن: 22
محل اقامت: آذربایجان شرقی_تبریز_هادیشهر
نام: رضا
نام خانوادگی: قدمگاهی
شاخه: فنی و حرفه ای
استان: آذربایجان شرقی
{ GIVEN }: { THANKS }
{ RECEIVED }: { THANKS }
خیلی خیلی ممنونم ازتون تشکر میکنم

_________________
در صورت پاسخ ایمیل کنید
reza_ghdamgahi@ymail.com


بالا بالا
  پروفایل YIM 
  پاسخ با نقل قول 

#

دوشنبه اردیبهشت 7, 94 2:31 pm

 
آفلاین
تاریخ عضویت: دوشنبه اردیبهشت 7, 94 2:19 pm
پست: 1
نام: tara
نام خانوادگی: m
شاخه: فنی و حرفه ای
استان: کرمانشاه
{ GIVEN }: { THANKS }
{ RECEIVED }: { THANKS }
برنامه ای بنویسید که یک عدد صحیح را دریافت کند و سپس اعدا فرد از یک تا ان عدد را چاپ نماید :mrgreen:


بالا بالا
  پروفایل
  پاسخ با نقل قول 

#

سه شنبه اردیبهشت 7, 94 12:52 am

آفلاین
مدیر سایت
آواتار کاربر
تاریخ عضویت: چهارشنبه فروردین 6, 92 1:04 am
پست: 1366
{ GIVEN }: { THANKS }
{ RECEIVED }: { THANKS }
dim n as integer
n=val(t1.text)
for i=1 to n step 2
     print i;
next i

_________________


بالا بالا
  پروفایل
  پاسخ با نقل قول 
نمایش پست ها از آخر به اول:  مرتب سازی بر اساس  
ارسال موضوع جدید پاسخ به موضوع
 صفحه 1 از 1  [ 6 پست ] 

همه زمان ها بر اساس UTC + 3:30 ساعت [ DST ] تنظیم شده اند


چه کسی آنلاین است

کاربران حاضر در این انجمن : کاربر عضو شده ای موجود نیست و 5 مهمان


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


جستجو برای:
پرش به:  
cron

Powered By www.Cmpclub.ir
کلوب کشوری کامپیوتر
2016

قالب وردپرس