بسم الله الرحمن الرحيمى
السلام عليكم اقدم لكم سورس كود برنامج الة حاسبة


- ثلات صناديق نص TextBox
2- صندوق مجموعة نص GroupBox
3- أربعة ازرار راديو  Radio Button توضع في صندوق المجموعة
4- ثلات ادواة    Labe 


تم قم بضبط الفورم
right to lift = yes
 ونجعل أسماء الكائنات كالتالي

نضغط دبل كليك على زر جمع ونضع هادا الكود

 Dim x, y As Double

        X = TextBox1.Text
        Y = TextBox2.Text
     TextBox3.Text = x + y

----------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زر الطرح

 Dim x, y As Double

        x = TextBox1.Text
        y = TextBox2.Text
     TextBox3.Text = x - y

-------------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زرالضرب

 Dim x, y As Double

        x = TextBox1.Text
        y = TextBox2.Text
    TextBox3.Text = x * y

--------------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زر القسمه

Dim x, y As Double

        x = TextBox1.Text
        y = TextBox2.Text
  TextBox3.Text = x / y

---------------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زر

                                                                  

Dim x, y As Double

x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x ^ y

----------------------------------------------------------------------------------------

ويمكننا تغير بعض الأشياء متل لعمل زر يساوي

نضع بدل ^ نضع =

-------------------------------------------------------------------------------------------

وانشاء الله انكون ماقصرت عليكم

                                                                 والسلام عليكم  أخوكم : احمد المشاط