تطبيق اول مثال على الفيجوال دوت نت آله حاسبة

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

اليوم باذن الله نبدأ بأول مثال لنا داخل الفيجوال دوت نت

ومثل ما  قمنا بعمل تصميم لبرنامج آله حاسبة داخل بيئة الفيجوال 6

سنقوم بعمل نفس البرنامج ولكن افضل طبعا من  السابق يعني احنا بنتقدم ونعمل نفس القديم لا لازم يكون في احساس

بأن فيه جديدوفي تغيير للافضل

يلا الكل معايا يمسك الورقة والقلم( الماوس والكيبورد والبرنامج)

طبعا هنفتح مشروع جديد عادي خالص

مكونات الادوات على الفورم

17 زر button

1 تكست بوكس

1 ليبل لزوم كلمة اوفيسنا بس

والقائمة  Menustrip

الجديد هنا موضوع القائمة دا كيفية  عملها

بعد وضع الاداة يظهر لنا ثلاث مستطيلات للكتابة داخلهم وهي اول مستطيل وهو اسم اول القائمة وهو فايل مثلا

والثاني لجانبها الايمن وهو لاضافة قائمة بجانبها كما في about

والثالث اسفل القائمة لاضافة عناصر داخل القائمة نفسها

وكل هذا يتم اضافته بطريقة سهله مجرد تحديد المستطيل والكتابة داخله فقط

اما موضوع كيفية وضع لكل عنصر كود برمجي فهو كالتالي يتم الضغط مرتين على اي عنصر لوضوع الكود داخل هذا العنصر مثله مثل ا اداة عادي

هنا وضعنا كود لنسخ التكست في copy

وكود خروج من البرنامج في Exit

وكود رسالة  في About

طريقة عمل الآله الحاسبة واكوادها

Public Class Form1
    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
'في التبويب about  وضعنا هذه الرسالة فقط
        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
        TextBox1.Text = TextBox1.Text & "/"
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
'هنا وضعنا متغير من نوع اوبجكت وهو سكربت كنترول وهو لتحويل العمليات الحسابية داخل التكست الى ناتج  لا اعلم هل سيعمل مع كافة انظمة التشغيل ..
        Dim Y As Object = CreateObject("ScriptControl")
        Y.Language = "VBScript"
        TextBox1.Text = Y.Eval(TextBox1.Text)
        Y = Nothing
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        TextBox1.Text = TextBox1.Text & "*"
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        TextBox1.Text = TextBox1.Text & "-"
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        TextBox1.Text = TextBox1.Text & "+"
    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 = ""
    End Sub

End Class

الكود سهل ولكن انظرو ماذا قمنا بانهائه وبشكل جميل وبرنامج  ويعتمد عليه عكس تصميماتنا القديمة

ومن الممكن وضع اضافات لاختصارات كتير ولكن نبدأ بالسهل ثم الاصعب

اظن كدا دا انتاج محلى بقي المفروض نعتمد عليها ونسيب الآله الحاسبة بتاعه الويندوز ونشجع المنتج بتاعنا

نشغل البرنامج بتاعنا ونشوف شكله ايه

أي استفسارات  طبعا موضوع الردود موجود 

ياريت نشوف الابداع انا عملت آله حاسبة انا عايز كيبورد مش آله حاسبة بس 

انا بقول كدا عشان عارف انكم عندكوا لمسات كويسة

طبعا مرفق البرنامج عشان الجماعة اللي بيكسلوا يصمموا من الاول

والسلام عليكم

تقبلوا تحياتي

ياسر العربي

يتبع

شارك المقال

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