منتــــــــــــدى العـــــــــــــلم و المعـــــــــــــرفة
اهلا و سهلا بزوارنا الكرام
منتــــــــــــدى العـــــــــــــلم و المعـــــــــــــرفة
اهلا و سهلا بزوارنا الكرام
منتــــــــــــدى العـــــــــــــلم و المعـــــــــــــرفة
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

منتــــــــــــدى العـــــــــــــلم و المعـــــــــــــرفة

ما فائدة القلم إذا لم يفتح فكرا..أو يضمد جرحا..أو يرقا دمعة..أو يطهر قلبا..أو يكشف زيفا..أو يبني صرحا..يسعد الإنسان في ضلاله..
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول

 

 تعلم كيفية عمل آلة حاسبة

اذهب الى الأسفل 
كاتب الموضوعرسالة
عبد الحميد
المدير
عبد الحميد


عدد المساهمات : 487
نقاط : 1984
تاريخ التسجيل : 24/01/2012
العمر : 64

تعلم كيفية عمل  آلة حاسبة  Empty
مُساهمةموضوع: تعلم كيفية عمل آلة حاسبة    تعلم كيفية عمل  آلة حاسبة  36_1_710السبت أغسطس 18, 2012 7:24 pm

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

اهلا بكم اخوانى الاعزاءاقدم لكم الاكواد الخاصة بعمل الة حاسبة كاملة مبسطة.
يتم عمل اللآلة الحاسبة بناء العناصر الاتية:
1-ادخال المتغيرات للعمليات الحسابية
2-كتابة كود خاصة للارقام
3-كتابة الكود للعمليات الحسابية (+،-،*،/)
4-ترتيب العمليات الحسابية
5-أكواد المعادلاات
6-كتابة الاكواد التكميلة


اولا :المتغيرات (العامة)



Public Class Form1
Dim op1 As Double
Dim op2 As Double
Dim sign As String
ثانيا :الارقام
(الزر رقم واحد)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = TextBox1.Text + "1"
End Sub
(الزر رقم اثنين)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
TextBox1.Text = TextBox1.Text + "2"
End Sub
(الزر رقم ثلاثة)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
TextBox1.Text = TextBox1.Text + "3"
End Sub
(الزر رقم اربعة)

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text + "4"
End Sub
(الزر رقم خمسة)

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text + "5"
End Sub
(الزر رقم سته)
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text + "6"
End Sub
(الزر رقم سبعة)

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + "7"
End Sub
(الزر رقم ثمانية)

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + "8"
End Sub
(الزر رقم تسعة)

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text + "9"
End Sub
(الزر رقم عشرة)

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
TextBox1.Text = TextBox1.Text + "0"
End Sub
(زر العلامة العشرية)

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
TextBox1.Text = TextBox1.Text + "."
End Sub
ثالثا: العمليات الحسابية
(كود العلامة "+")

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
op1 = Val(TextBox1.Text)
sign = "+"
TextBox1.Text = ""
End Sub

(كود العلامة "-")

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
op1 = Val(TextBox1.Text)
sign = "-"
TextBox1.Text = ""


End Sub
(كود العلامة "*")

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
op1 = Val(TextBox1.Text)
sign = "*"
TextBox1.Text = ""

End Sub
(كود العلامة "/")

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
op1 = Val(TextBox1.Text)
sign = "/"
TextBox1.Text = ""
End Sub
(كود العلامة "=")

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
If sign = "+" Then
TextBox1.Text = op1 + Val(TextBox1.Text)
Else
If sign = "-" Then
TextBox1.Text = op1 - Val(TextBox1.Text)
Else
If sign = "*" Then
TextBox1.Text = op1 * Val(TextBox1.Text)
Else
If sign = "/" Then
TextBox1.Text = op1 / Val(TextBox1.Text)

End If
End If
End If
End If
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

TextBox1.Text = "0"
TextBox1.Text = ""
sign = ""

End Sub
رابعا: المعادلات
back space
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
If TextBox1.Text = TextBox1.Text.Contains("-") Then
TextBox1.Text = TextBox1.Text.Replace("-", "")
Else : TextBox1.Text = "-" + TextBox1.Text
End If

End Sub

الجزر التربيعى
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim sqr As Double
sqr = Math.Sqrt(TextBox1.Text)
TextBox1.Text = sqr

End Sub
log
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim y As Single

y = Math.Log(TextBox1.Text)
TextBox1.Text = y
End Sub
سادسا : الاكواد التكميلية
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If TextBox1.Text = "" Then
TextBox1.Text = ("cannot divide by zero")
Else : TextBox1.Text = 1 / Val(TextBox1.Text)
End If
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
BackColor = Color.Black
If Me.Opacity >= 100 Then Me.Timer1.Start()
Me.Opacity += 5.5
End Sub

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
If TextBox1.Text = "" Then
Exit Sub
Else : TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)

End If
End Sub


Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

TextBox1.Text = ""
sign = ""


End Sub

Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
Dim Y As Single
Dim X As Integer
X = TextBox1.Text
Y = Math.Sinh(X)
TextBox1.Text = Y
End Sub

Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Dim LABLE2 As String
If op2 = "" Then op2 = "0"
TextBox1.Text = Val(op2) + Val(op1)

LABLE2 = "M"
End Sub

Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Dim Y As Single
Dim X As Integer
X = TextBox1.Text
Y = Math.Cosh(X)
TextBox1.Text = Y

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class


وفى النهاية أتمنى ان ينال اعجابكم
ولاتنسونا من صالح دعائكم
راسلونا على: Mostafa_Hider22@
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://mazika28.ahlamontada.com
 
تعلم كيفية عمل آلة حاسبة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» موسوعة هل تعلم ؟
» الفرق بين .com .net .org ادخل و تعلم

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتــــــــــــدى العـــــــــــــلم و المعـــــــــــــرفة  :: منتدى الإعلام الآلي-
انتقل الى: