منتدى علوم المنصورة

شاطر
استعرض الموضوع السابقاذهب الى الأسفلاستعرض الموضوع التالي
merrro
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 20
العمر : 27
الألتزام بقوانين المنتدى :

شرح الة حاسبة سهلة اوى

في الأحد مارس 28, 2010 8:54 am
تذكير بمساهمة فاتح الموضوع :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
يارب الناس تستفيد باى حاجة و يشجعونا بردودهم الحلوة
دى الة حاسبة سهلة والكود بتاعها سهل اوى ودا الشكل بتاعها وممكن تغيير الشكل ذى المصمم ما يحب



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




دا حاجة تبع ما المزاج الصور والالوان سهل تغيرها اوى والناس عارفة اذاى 
لان انا بشوف ابداع فى الكلام دا وانا فى السيكشن
نشوف الكود
الاول حل المعادلة التربيعية هنعمل3 texbox عشان ندخل a b c
2label عشان نخرج الجزرين
3 button 
اول واحد اللى هيقفل ودا الكود بتاعة سهل اوى ممكن
If MessageBox.Show("Are You Sure?", "Close Window", MessageBoxButtons.YesNo) = DialogResult.Yes Then
  Me.Close()
  End If
دا كود عشان يظهر رسالة تاكيد زى البرامج المحترمة وممكن دا شغال

Me.Close ()  
 
و التانى اللى هيمسح البيانات القديمة
t1.Text = "" 
t2.Text = "" 
t3.Text = "" 

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

و نخلى بالنا من الاسامى للتيكست بوكس

والتالت ودا المهم اللى هيحل المسالة
 Dim a, b, c, d, w, q As Double
  a = Val(t1.Text)
  b = Val(t2.Text)
  c = Val(t3.Text)
  If a = 0 Then
  Lb1.Text = " The equation is not Quadratic"
  Else
  d = (b ^ 2) - (4 * a * c)
  If d < 0 Then
  w = -b / (2 * a)
  q = Math.Sqrt(-d) / (2 * a)
  Lb1.Text = w & "+" & q & " i"
  Lb2.Text = w & "-" & q & " i"
  Else
  Lb1.Text = (-b - Math.Sqrt(d)) / (2 * a)
  Lb2.Text = (-b + Math.Sqrt(d)) / (2 * a)
  End If
  End If

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و كدة حل المعادلة التربيعية تمام 



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

المهم الالة الحاسبة
نعرف متغيرات عامة الاول دى هنستخدمها فى الكود بعدين بس بتبقى متعرفة فى الكود اول حاجة
Dim s1, s2 As Double
  Dim op As String
  Dim opactive, fristtime As Boolean
 s1 , s2 دى متغيرات هنستفيد بيها فى العمليات الحسابية

op دا رمز للعملية الحسابية اللى هنعملها
opactive ودا عشان البرنامج يعرف ان فى عملية حسابية شغالة
 boolean دا متغير من نوع 
fristtime دا عشان البرنامج يعرف ان دى اول مرة العملية الحسابية تتنفز
نعرف الارقام
If opactive = True Then
  textbox.Text = 1
  opactive = False
  Else
  If (textbox.Text) = "0" Then
  textbox.Text += 1
  Else
  textbox.Text += "1"
  End If
  End If

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

والكود دا بيقول لو فى عملية حسابية هتتنفز البرنامج هيمسح القيمة الموجودة وهيكتب العدد من الاول عشان نكتب العدد التانى ونفز العملية الحسابية وكمان يرج قيمة

opactive = false
ولو مفيش عملية حسابية هيكتب الععد عادى من غير اى مشكلة
ونعرف باقى الارقام بنفس الطريقة بس هنغير قيمة العدد
نعرف العلامة العشرية
If fristtime = False Then
  textbox.Text = "0."
  If textbox.Text.Contains(".") = True Then
  textbox.Text += ""
  Else
  textbox.Text += "."
  End If
  End If

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وهنا البرنامج هشوف لو فى عملية حسابية اتنفزت هيمسح الناتج ويكتب علامة عشرية

ولو الارقام تحتوى على علامة عشرية البرنامج مش هيكتب علامة عشرية تانية بس ودا كود سهل
نعرف العمليات الحسابية
الجمع
s1 = Val(textbox.Text)
  op = "+"
  opactive = True
  fristtime = True
البرنامج هيحفظ قيمة الرقام الموجودة فى التكست بوكس فى المتغير الاولوهيغير قيمة المتغير

op = "+"

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
باقى العمليات نفس التعريف بس هنغير بدل الجمع العملية اللى هتتنفز
نعرف الاشارة كل اللى هيتنفز العدد لو سالب يبقى موجب والعكس
textbox.Text = Val(textbox.Text) * -1
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


المهم فى العملية دى كلها اليساوى
If fristtime = True Then
  s2 = Val(textbox.Text)
  Select Case op
  Case "+"
  textbox.Text = s1 + s2
  Case "-"
  textbox.Text = s1 - s2
  Case "*"
  textbox.Text = s1 * s2
  Case "/"
  If s2 = 0 Then
  textbox.Text = "Can not divide by zero"
  Else
  textbox.Text = s1 / s2
  End If
  Case "^"
  textbox.Text = s1 ^ s2
  End Select
  fristtime = False
  Else
  Select Case op
  Case "+"
  textbox.Text += s2
  Case "-"
  textbox.Text -= s2
  Case "*"
  textbox.Text *= s2
  Case "/"
  textbox.Text /= s2
  Case "^"
  textbox.Text ^= s2
  End Select
  End If

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


والبرنامج هياخد قيمة المتغير الاول من الذاكرة والمتغير التانى من التيكست بوكس ودا لو اول مرة يتنفذ فيها الامر ولو تانى مرة قيمة المتغير الاول هتتغير بس وهينفز العملية الحسابية

تعريف sin , cos and tan
ممكن تقابل الناس مشكلة هنا عشان لازم الزاوية تكون تقدير ستينى مش تقدير دائرى عشان كدة لازم نحول القيم
textbox.Text = Math.Sin((Val(textbox.Text) * Math.PI) / 180)

بس هنضرب القيمة فى باى على 180
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و cos , tan نفس التعريف
والقيم العكسية
textbox.Text = (Math.Asin(Val(textbox.Text)) * 180) / Math.PI
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ودى شوية دوال تانية

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ويارب يكون اى حد استفاد باى حاجة
والعمليات الباقية فى الكود ودا رابط تحميل البرنامج

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
   لو الكلام اتقلب عشان تغير اللغة من عربى الى الانجليزية خدو بالكم وكلمة شكر من اى حد كفاية 

ويارب لو فى اى استفسار او اى تعديل او اى تعليق يعنى متبخلوش علينا بعلمكم
هذا وما كان من توفيق فمن اللة عز وجل وما كان من سهو او من نسيان فمن نفسى ومن الشيطان

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

avatar
nona44
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 23
العمر : 27
الألتزام بقوانين المنتدى :
الكليه : علوم
الفرقه والقسم : isa statistcs & computer science

رد: شرح الة حاسبة سهلة اوى

في الأربعاء مارس 31, 2010 8:01 am
شغل غالي اوووووووي تسلم ايدك [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
استمر [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
avatar
لوليتا
مشرفه منتدي الرياضيات

مشرفه منتدي الرياضيات
عدد المساهمات : 1378
العمر : 27
العمل/الترفيه : مش فى الدنيا!!!!
المزاج : ------------
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : العلوم
الفرقه والقسم : وأخيرا فى البكالوريوس

رد: شرح الة حاسبة سهلة اوى

في الأربعاء مارس 31, 2010 6:55 pm
مش عارفة افتحها بعد ما نزلتها اعمل ايه؟؟
BOLLA_MAHMOUD
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 2
العمر : 27
المزاج : يارب على طول دايما مبسوطة
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : العلوم
الفرقه والقسم : الاحصاء وعلوم الحاسب

رد: شرح الة حاسبة سهلة اوى

في الأربعاء مارس 31, 2010 7:40 pm
thankssssssssss 4 ur effort
story love
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 8
العمر : 29
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : Science
الفرقه والقسم : Statistic and Compter Science

رد: شرح الة حاسبة سهلة اوى

في الأربعاء مارس 31, 2010 9:32 pm
الأخ ميرو شكله أول مره يشترك فى منتدى علشان كده داخل سخن جدا وعمال يغلط فى زملائه
شكله نقله كودين من أى موقع وجاى يتنطط عليه
merrro
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 20
العمر : 27
الألتزام بقوانين المنتدى :

رد: شرح الة حاسبة سهلة اوى

في الخميس أبريل 01, 2010 6:15 am
انا الموضوع دا انا اللى عاملة وانا اللى واخد الصور من على جهازى وانا اللى كاتب الكود لو مش مصدق انت حر




الاخت لوليتا اية اللى مش بيفتح 
merrro
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 20
العمر : 27
الألتزام بقوانين المنتدى :

رد: شرح الة حاسبة سهلة اوى

في الخميس أبريل 01, 2010 6:40 am
لو الالة الحاسبة مش بتفتح يبقى اعملى ذى الصور

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]وبعدين 
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
ولو عايزة تشغلى  الالة الحاسبة زى برنامج منفرد يبقى افتحى المسار دا
 CALCULATOR\CALCULATOR\obj\Debug
ومن الملف دا
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ويارب الكل يستفيد
mijo
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 11
العمر : 27
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : كلية العلوم
الفرقه والقسم : sts

رد: شرح الة حاسبة سهلة اوى

في الخميس أبريل 01, 2010 10:35 am
علي رايك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ومتزعلش نفسك كده
ده انت ماكملتش 5 مساهمات
امال لو بقيت 20 هتعمل ايه ؟ ؟ [/quote]
avatar
لوليتا
مشرفه منتدي الرياضيات

مشرفه منتدي الرياضيات
عدد المساهمات : 1378
العمر : 27
العمل/الترفيه : مش فى الدنيا!!!!
المزاج : ------------
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : العلوم
الفرقه والقسم : وأخيرا فى البكالوريوس

رد: شرح الة حاسبة سهلة اوى

في الخميس أبريل 01, 2010 7:40 pm
شكل الالة الحاسبة وكمان بيظهر لى اكواد لحاجات ىمعينة بس وفى اكواد غريبة وجايز انا اللى مش فاهمة ولا ايه؟ [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
merrro
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 20
العمر : 27
الألتزام بقوانين المنتدى :

رد: شرح الة حاسبة سهلة اوى

في الخميس أبريل 01, 2010 8:14 pm
اكتبى الكود وانا هشوفة وهشرحلك الكود دا بيعمل اية

ولو احتجتى اى حاجة انا موجود
avatar
لوليتا
مشرفه منتدي الرياضيات

مشرفه منتدي الرياضيات
عدد المساهمات : 1378
العمر : 27
العمل/الترفيه : مش فى الدنيا!!!!
المزاج : ------------
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : العلوم
الفرقه والقسم : وأخيرا فى البكالوريوس

رد: شرح الة حاسبة سهلة اوى

في الجمعة أبريل 02, 2010 7:58 am
يعنى يبقى شكرا جدا لو بعت الكود بتاع الالة الحايبة بنعمله ازاى بمعنى دوال sin cos tan
لان بعد محاضرة امبارح حسيت بفشل رهييييييب يعنى لازم اعمل حاجة كويسة وكمان لسة ما اخدناش ازاى نعمل الة حاسبة فى السكشن اخدنا الاساسيات بس والمعادلة التربيعية
mijo
عالم علي ماتفرج

عالم علي ماتفرج
عدد المساهمات : 11
العمر : 27
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : كلية العلوم
الفرقه والقسم : sts

رد: شرح الة حاسبة سهلة اوى

في الجمعة أبريل 02, 2010 11:15 am
بجد الة حاسبة غاية في الروعة بس بردة نصبر يمكن نشوف حاجة احسن بالتوفيق ياميرو ......وعقبالنا ان شاء الله اما نعمل حاجة ذى دى !!!!!!!!!!!!
avatar
لوليتا
مشرفه منتدي الرياضيات

مشرفه منتدي الرياضيات
عدد المساهمات : 1378
العمر : 27
العمل/الترفيه : مش فى الدنيا!!!!
المزاج : ------------
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : العلوم
الفرقه والقسم : وأخيرا فى البكالوريوس

رد: شرح الة حاسبة سهلة اوى

في الثلاثاء أبريل 06, 2010 1:43 am
ياريت حد يقولى امتحان د/حمدى بيبقى ازاى؟طيب عملى الحاسب وعارفين انو هيبقى برامج طيب والنظرى؟؟؟
كمان فين كتاب السكشن اللى قولتو هتعملوه وكمان ياريت حد يفهمنى د\حمدى قال هيوزع الدرجات على الشغل اللى بنعمله ازاى واحصاء هتبقى زى رياضة ولا هيختلفو.هو قال فى المحاضرة انهم هيختلفو
avatar
لوليتا
مشرفه منتدي الرياضيات

مشرفه منتدي الرياضيات
عدد المساهمات : 1378
العمر : 27
العمل/الترفيه : مش فى الدنيا!!!!
المزاج : ------------
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : العلوم
الفرقه والقسم : وأخيرا فى البكالوريوس

رد: شرح الة حاسبة سهلة اوى

في الثلاثاء أبريل 06, 2010 1:45 am
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
avatar
لوليتا
مشرفه منتدي الرياضيات

مشرفه منتدي الرياضيات
عدد المساهمات : 1378
العمر : 27
العمل/الترفيه : مش فى الدنيا!!!!
المزاج : ------------
الاوسمه :
الألتزام بقوانين المنتدى :
الكليه : العلوم
الفرقه والقسم : وأخيرا فى البكالوريوس

رد: شرح الة حاسبة سهلة اوى

في الأربعاء أبريل 14, 2010 9:19 pm
ياااااااااااااجماعة هو مش الدكتور قال برضه تنزلو المعادلة التربيعية والتكعيبية واكوادها.هو يعنى ىالشخص اللى الدكتور قاللو ينزلها مش نزلها ليه.على فكرة عشان اطمنه بس ممكن ناخد الاكواد ونعملها وتطلع غلط برضه عندنا احنا لانها عاوزة حد فاهم مش ناقل يعنى مش كنت تخاف لو نزلت الاكوادوعلى العموم انا هحاول فيها ويكفينى شرف المحاولة حتى لو ميت واحد عملها الا انا والدكتور قال حاولوا.انتو هتجننونى على فكرة بطريقتكو الغريبة دى....انا هسأل الدكتور بكرة هو اكتر واحد هيقدر يفهمنى...
استعرض الموضوع السابقالرجوع الى أعلى الصفحةاستعرض الموضوع التالي
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى