تعلم كيفية عمل الة حاسبة باستخدام فيجوال بيسك دوت نت
اعداد: مصطفى حيدر
اهلا بكم اخوانى الاعزاءاقدم لكم الاكواد الخاصة بعمل الة حاسبة كاملة مبسطة.
يتم عمل اللآلة الحاسبة بناء العناصر الاتية:
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.ClickDim 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@