سؤال هام و عاجل لو تكرمتم ؟ - الصفحة 2

نور الهدى N · 04:35 AM

السلام عليكم
أشكر الأستاذ أحمد و الأستاذ حيدر و الأستاذ ماجد و الأستاذ أبو معاذ
على المساعدة و الإهتمام
لقد توصلت أنا أيضاً إلى هذا الحل الذي قام بالغرض المطلوب

كود:

   B  = I / N
 
if  B = 7 Then
   N = N + 1
End If

لكن عندي إستفسار حول هذا الكود

كود:

if I/7 = I\7 then N=N+1

كيف يتم ذلك و الأرقام غير متساوية

كود:

 7  /  7  =  1
14  /  7  =  2
21  /  7  =  3

شكرا لكم .

ماجد عباس محمد · 09-04-2011, 08:46 AM

اقتباس المشاركة الأصلية كتبت بواسطة أبو معاذ 2010

يا له من حل ذكي ، سلمت يداك يا أستاذ ماجد .

شكرا أخى العزيز
تحياتى

ماجد عباس محمد · 09-04-2011, 09:00 AM

اقتباس المشاركة الأصلية كتبت بواسطة نور الهدى N

السلام عليكم

لقد توصلت أنا أيضاً إلى هذا الحل الذي قام بالغرض المطلوب

كود:

   B  = I / N
 
if  B = 7 Then
   N = N + 1
End If

هذا الكود خطأ لأن فى البدء سيكون كل من المتغيرين = صفر ولا يجوز القسمة على صفر

لكن عندي إستفسار حول هذا الكود

كود:

if I/7 = I\7 then N=N+1

كيف يتم ذلك و الأرقام غير متساوية

كود:

 7  /  7  =  1
14  /  7  =  2
21  /  7  =  3

شكرا لكم .

كتبت الشرح فى مشاركتى و يبدو أنك لم تقرأيه وها هو مرة أخرى
I/7 returns floating point result
I\7 returns integer result

Read more: http://www.qariya.com/vb/showthread....#ixzz1J0DXISDA
يعنى ذلك بمثال الرقم 10 مثلا
10/7=1.42857
10\7=1
إذن الرقمين غير متساويان
أما الرقم 14 ففى كلا الحالتبن سيكون الناتج = 2 وعندها نزود المتغير N

ماجد عباس محمد · 09:53 AM

هناك حل آخر

كود:

If I MOD 7 =0 then N=N+1

operator MOD divides 2 numbers and return the remainder only
يقسم عددين و يعطى الباقى فقط

كود:

7 Mod 7 =0
8 Mod 7 = 1
9 Mod 7 =2

وهكذا

نور الهدى N · 03:19 PM

السلام عليكم , أشكرك استاذ ماجد على شرحك و مساعدتك

اقتباس المشاركة الأصلية كتبت بواسطة ماجد عباس محمد

هذا الكود خطأ لأن فى البدء سيكون كل من المتغيرين = صفر ولا يجوز القسمة على صفر

كلامك صحيح أستاذ ماجد لذلك
المتغير N لن تكون قيمته 0 أبداً
لأنه عندما يصل إلى قيمته العظمى المحددة مسبقاً , سوف يعود إلى 1
و كذلك نقطة نهاية العد 7 أصبحت 8

كود:

iF  N  > 8  then
N  =   1
end if

اقتباس المشاركة الأصلية كتبت بواسطة ماجد عباس محمد

كتبت الشرح فى مشاركتى و يبدو أنك لم تقرأيه
I/7 returns floating point result
I\7 returns integer result

عذراً لقد قرأت المشاركة ولكني لم أفهمها جيداً و لم أستطيع تطبيقها على bascom-avr

شكراً لك .