تصميم آلة حاسبة باستخدام برنامج فيجوال بيسك Visual Basic
استخدام دالة Val في العمليات الحسابية
الدالة Function: عبارة عن برنامج صغير يتكون من مجموعة من الجمل المكتوبة بلغة Visual Basic.net وتؤدي وظيفة محددة.، ومن أمثال الدوال ( InputBox - MsgBox - Cstr - TimeOFDay _ Val)
قم بتصميم نموذج1 Form1 بحيث تسمح للمستخدم اجراء العمليات الحسابية المختلفة من خلال ادخال قيم عددية في مربعات النصوص مربع نص1 TextBox1 و مربع نص2 TexBoxt2 واستخراج النتائج في مرابع النص Textbox3
متطلبات تصميم الآلة الحاسبة :
كما يظهر من الشكل المقابل
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
ملحوظة : الكود المكتوب باللون الأحمر هو الكود الذي سيقوم المستخدم بكتابته يدويا بعد النقر على الكائن الخاص بكتابة كوده