مكونات سطح المكتب

تصميم آلة حاسبة باستخدام برنامج فيجوال بيسك Visual Basic

استخدام دالة Val في العمليات الحسابية

الدالة Function: عبارة عن برنامج صغير يتكون من مجموعة من الجمل المكتوبة بلغة   Visual Basic.net وتؤدي وظيفة محددة.، ومن أمثال الدوال ( InputBox - MsgBox - Cstr - TimeOFDay _ Val)

 قم بتصميم نموذج1 Form1 بحيث تسمح للمستخدم اجراء العمليات الحسابية المختلفة من خلال ادخال قيم عددية في مربعات النصوص مربع نص1 TextBox1  و مربع نص2 TexBoxt2 واستخراج النتائج في مرابع النص Textbox3

متطلبات تصميم الآلة الحاسبة : 

كما يظهر من الشكل المقابل

1- نموذ 1 Form1 يحتوي على الكائنات التالية :

2- عدد 6 ازرار  ( 6 Buttons) وظيفتها كالتالي : 

• +     زر الجمع 
• -      زر الطرح 
• *     زر الضرب 
• /      زر القسمة
• زر المسح 
• زر الإغلاق

3-  عدد 3 مربع نص TextBox

• TextBox1     مربع ادخال الرقم الأول
• TextBox2    مربع إدخال الرقم الثاني
• TextBox3    مربع اظهار الناتج 

Public Class Form1

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        End ________________________كود زر الاغلاق

    End Sub

• كود زر الجمع

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

    End Sub

كود زر الطرح

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

    End Sub

• كود زر الضرب

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

    End Sub

• كود زر القسمة

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

• كود زر المسح

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

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

    End Sub

End Class

ملحوظة : الكود المكتوب باللون الأحمر هو الكود الذي سيقوم المستخدم بكتابته يدويا بعد النقر على الكائن الخاص بكتابة كوده