اريد مساعدتكم لعمل هذه المعادلة الرياضية

مغلق

بدأه al-iskafy في 3 يناير 2007 · 7 رد · 825 مشاهدة · في Microsoft Visual Basic.NET

#13 يناير 2007 في 23:49 صاحب الموضوع

السلام عليكم

كيف اعمل معادله رياضيه يقوم باسقاد العدد 12 من العدد الذي وضعته الى ان يعطيني اقرب قيمه للصفر

مثال العدد 1045 تقوم المعادله بطرح 12 ويتكرر ذلك الى ان يصل الى 1

العدد 142 يطرح منه 12 الى ان يصل الى الرقم 10 ( بحيث ان يعطيني الناتج من 1 الى 12 ) ولا يعطيني 0

يعني لو يعطيني اي رقم موجب صحيح بالعالم تقوم المعادله بطرح 12 ويتكرر ذلك الى ان يعطيني الاجابه من رقم 1 الى الرقم 12 فقط لا غير

اذا لم يكن شرحي للمثال مفهوم ارجو اخطاري بذلم لكي اشرحه بشكل آخر

#24 يناير 2007 في 00:30

 dim i as integer 

for i = 1045 to 1 step -12

textbox1.text = i

next i

الشغلة ما بدها تفكير..:D

#34 يناير 2007 في 00:39

اخي هذا الكود يعطيني الناتج دائما = 1 !!!

#44 يناير 2007 في 01:14

شكرا اخوي SalehRam

عدلت على الكود مالك وضبط الكود معاي :D

Dim n As Integer = TextBox1.Text
For i = n To 1 Step -12

TextBox2.Text = i

Next

													Dim i As Integer

تم تعديل هذه المشاركة بواسطة al-iskafy في 4 يناير 2007 في 01:37

#56 يناير 2007 في 01:46

هذه الطريقة بطيئة خصوصا مع الأرقام الكبيرة

استخدام الطريقة Mod( ) أفضل لايجاد الباقي:

Dim Input As String = TextBox1.Text

TextBox2.Text = Input Mod 12

WindowsApplication1.rar

M0oATH

اقتباس
وكم من طالب غلب أستاذه

كيف أحول لعبة الى بلاي ستيشن؟؟

#66 يناير 2007 في 17:40

i = Val(InputBox(""))
While i > 12
i = i - 12
Wend
MsgBox i

بالتوفيق اخوي

تم تعديل هذه المشاركة بواسطة محـ جمال مـد في 6 يناير 2007 في 17:46

مـــبــــــرمـــــــج Asp.Net

لــخدمـ الـــبرمـــجـــة ـــــــات

يــــــــــرجــــى الاضــــافــــــة

Mr.Asp@Hotmail.Com

#76 يناير 2007 في 17:48

مشكور على الكود

تم تعديل هذه المشاركة بواسطة M0OATH في 6 يناير 2007 في 17:51

M0oATH

اقتباس
وكم من طالب غلب أستاذه

كيف أحول لعبة الى بلاي ستيشن؟؟

#87 يناير 2007 في 07:40

وعلى الدوت نت اعتقد هذا

dim i as integar
i = Val(InputBox(""))
While i > 12
i = i - 12
end while
MsgBox i

والله ولي التوفيق

تحياتي لك اخوي