السلام عليكم ورحمة الله وبركاته
انشاء اله حاسبة متطورة
اولا : الاشياء المطلوبة.
الاشياء المطلوبة هي 18 زر (button) و واحدة مربع نص (textbox)
ثانيا : طريقة وضعها.
انت تختار الامكان التي تعجبك ولاكن في البداية انا انصحك ان تضعها كما هو موضح في الصورة
ثالثا : تصميم الازرار والمربعات النصوص.
اولا اضغط ضغطة واحدة علي الزر او مربع النص الذي تريد التعديل عليه ثم تذهب الي الخيار (properties) وتذهب الي الخيار text وتغير الاسم كما تشاء وانا انصحك ان يكون كما هو موضح في الصورة العلوية ومن الخيار font يمكنك ان تعدل علي الخط وشكله كما تشاء وانا انصحك بان يكون Arial, 9.75pt, style=Bold وهذا الخط الذي انا افضله.
ويمكن ان تعدل علي النافذة (form) كما تشاء واذا كنت تريد ان تضع ايقونة فأنا اننصحك بهاذا الموقع اضغط هنا
اما بانسبة لي مربع النصوص (text box) في يمكنك ان تجعل الخط Arial, 11.25pt, style=Bold.
ويمكن ان تعدل علي النافذة (form) كما تشاء واذا كنت تريد ان تضع ايقونة فأنا اننصحك بهاذا الموقع اضغط هنا
اما بانسبة لي مربع النصوص (text box) في يمكنك ان تجعل الخط Arial, 11.25pt, style=Bold.
رابعا : الأكواد.
هذا كود الفورم
Option Explicit On
Public Class Form1
Dim x As Single
Dim y As Single
Dim AnswerNumber As Single
Dim ArithmeticProcess As String
هذا الكود سوف نقوم باستخدامه لكافة الارقام 1و2و3و4 الخ
Textbox1.Text = TextBox1.Text & "تكتب هنا الرقم "
هذا الكود سوف نستعملة لكافة العمليات الحسابية بتغير الاشارة فقط
وهنا القسمة تعمل بكل الاشكال
x= Val(TextBox1.Text)
TextBox1.Text = " "
ArithmeticProcess = "هنا"
هذا الكود لعملية ال= وايظا لكل الاحتمالات
y= Val(Textbox1.Text)
If ArithmeticProcess = "+" Then
AnswerNumber = x+ y
End If
If ArithmeticProcess = "-" Then
AnswerNumber = x- y
End If
If ArithmeticProcess = "*" Then
AnswerNumber = x* y
End If
If ArithmeticProcess = "/" Then
If y= "0" Then
MsgBox("لا يمكن القسمة على صفر", 0, "Warning")
Exit Sub
End If
AnswerNumber = x/ y
End If
Textbox1.Text = AnswerNumber
كود البدء من جديد
TextBox1.Clear()
خامسا : تجربة البرنامج
ويمكنك تجربته عن طريق الضغط علي زر start كما هو موضح في الصورة
وهكذا يكون لديك اله حاسبة متطورة وشكرا لكم ولحسن قراتكم
الكاتب : محمود احمد
للتواصل
facebook :
https://www.facebook.com/mahmoud.ahmad.980967
youtube :
https://www.youtube.com/channel/UCibGYnyJzB-Yy849HJuKjsA
و عليكم السلام ورحمت الله وبركاته
لا يوجد تعليقات
أضف تعليق