تذكير بمساهمة فاتح الموضوع :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
يارب الناس تستفيد باى حاجة و يشجعونا بردودهم الحلوة
دى الة حاسبة سهلة والكود بتاعها سهل اوى ودا الشكل بتاعها وممكن تغيير الشكل ذى المصمم ما يحب
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
دا حاجة تبع ما المزاج الصور والالوان سهل تغيرها اوى والناس عارفة اذاى
لان انا بشوف ابداع فى الكلام دا وانا فى السيكشن
نشوف الكود
الاول حل المعادلة التربيعية هنعمل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
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ودى شوية دوال تانية
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ويارب يكون اى حد استفاد باى حاجة
والعمليات الباقية فى الكود ودا رابط تحميل البرنامج
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
لو الكلام اتقلب عشان تغير اللغة من عربى الى الانجليزية خدو بالكم وكلمة شكر من اى حد كفاية
ويارب لو فى اى استفسار او اى تعديل او اى تعليق يعنى متبخلوش علينا بعلمكم
هذا وما كان من توفيق فمن اللة عز وجل وما كان من سهو او من نسيان فمن نفسى ومن الشيطان
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
يارب الناس تستفيد باى حاجة و يشجعونا بردودهم الحلوة
دى الة حاسبة سهلة والكود بتاعها سهل اوى ودا الشكل بتاعها وممكن تغيير الشكل ذى المصمم ما يحب
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
دا حاجة تبع ما المزاج الصور والالوان سهل تغيرها اوى والناس عارفة اذاى
لان انا بشوف ابداع فى الكلام دا وانا فى السيكشن
نشوف الكود
الاول حل المعادلة التربيعية هنعمل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
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ودى شوية دوال تانية
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ويارب يكون اى حد استفاد باى حاجة
والعمليات الباقية فى الكود ودا رابط تحميل البرنامج
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
لو الكلام اتقلب عشان تغير اللغة من عربى الى الانجليزية خدو بالكم وكلمة شكر من اى حد كفاية
ويارب لو فى اى استفسار او اى تعديل او اى تعليق يعنى متبخلوش علينا بعلمكم
هذا وما كان من توفيق فمن اللة عز وجل وما كان من سهو او من نسيان فمن نفسى ومن الشيطان
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]