منتــــــــــــدى العـــــــــــــلم و المعـــــــــــــرفة
اهلا و سهلا بزوارنا الكرام

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

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

شاطر | 
 

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

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

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

مُساهمةموضوع: تعلم كيفية عمل آلة حاسبة    السبت أغسطس 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@
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://mazika28.ahlamontada.com
 
تعلم كيفية عمل آلة حاسبة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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