تطبيق مثال آله حاسبة بكود اخر وتوضيح شكل محرر الاكواد

 السلام عليكم ورحمة الله وبركاته

اليوم سنذكر طريقة اخرى لعمل آله حاسبة  في حال اذا عمل الكود  السابق على نظام 32 بت فقط

اما اليوم سنذكر طريقة تفي لكل الاغراض

الكود كالتالي

Public Class Form1
'سنقوم بالاعلان عن ثلاثة متغيرات لتخزين القيمة الاولي والعملية الحسابية والقيمة الثانية
'القيمةالاولى
    Dim nn1 As Double
'القيمة الثانية
    Dim nn2 As Double
'العملية الحسابية
    Dim nn As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text & "1"
    End Sub
    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        MsgBox("تصميم وبرمجة أوفيسنا مصطبة الحبايب -_-")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text & "2"
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text & "3"
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text & "4"
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text & "5"
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text & "6"
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text & "7"
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text & "8"
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text & "9"
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text & "0"
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        TextBox1.Text = TextBox1.Text & "."
    End Sub
    Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
        TextBox1.SelectAll()
        TextBox1.Copy()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
'يكرر هذا الكود في العمليات الحسابيةكلها
'هنا يتم حجز قيمة التكست بوكس داخل المتغر الاول
        nn1 = Val(TextBox1.Text)
'مسح قيمة التكست بوكس
        TextBox1.Text = ""
'حجز العملية الحسابية داخل المتغير الخاص بالعملية الحسابية
        nn = "/"
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
'حجز القيمة الثانية في المتغير الخاص بالقيمة الثانية
        nn2 = Val(TextBox1.Text)
'هنا نستخدم if & elsif لتحديد نوع العملية وحسابها واخراج الناتج
'بمعنى اذا كان المتغير الخاص بالعملية الحسابية ان ان يساوي (-) اذا متغير القيمية الاولى - متغير القيمة الثانية
        If nn = "-" Then
            TextBox1.Text = nn1 - nn2
        ElseIf nn = "+" Then
            TextBox1.Text = nn1 + nn2
        ElseIf nn = "*" Then
            TextBox1.Text = nn1 * nn2
        ElseIf nn = "/" Then
            TextBox1.Text = nn1 / nn2
        End If
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        nn1 = Val(TextBox1.Text)
        TextBox1.Text = ""
        nn = "*"
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        nn1 = Val(TextBox1.Text)
        TextBox1.Text = ""
        nn = "-"
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        nn1 = Val(TextBox1.Text)
        TextBox1.Text = ""
        nn = "+"
    End Sub
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
'البدأ من جديد بالغاء قيمة التكست  وقيم المتغيرات
        TextBox1.Text = ""
        nn = Nothing
        nn1 = Nothing
        nn2 = Nothing
    End Sub
End Class

طبعا نفس الآله الحاسبة مجرد تبديل الكود الخاص بالزر = & + & - & / & *

مرفق المثال

يتبع

شارك المقال

شاركه على فيسبوكشاركه على جوجل+