اساسيات برنامج visual stuido 2015 (اله حاسبة متطورة)

0

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

انشاء اله حاسبة متطورة


اولا : الاشياء المطلوبة.

الاشياء المطلوبة هي 18 زر (button) و واحدة  مربع نص (textbox) 

ثانيا : طريقة وضعها.

انت تختار الامكان التي تعجبك ولاكن في البداية انا انصحك ان تضعها كما هو موضح في الصورة



ثالثا : تصميم الازرار والمربعات النصوص.

اولا اضغط ضغطة واحدة علي الزر او مربع النص الذي تريد التعديل عليه ثم تذهب الي الخيار (properties) وتذهب الي الخيار text  وتغير الاسم كما تشاء وانا انصحك ان يكون كما هو موضح في الصورة العلوية ومن الخيار font يمكنك ان تعدل علي الخط وشكله كما تشاء وانا انصحك بان يكون Arial, 9.75pt, 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

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

لا يوجد تعليقات

أضف تعليق

الأكثر مشاهدة