كيفية عمل الالة حاسبة بلفيجوال بيسك

[Best__wizard]

انا انهاردة جايبلكم شرح عمل الالة حاسبة
نبتدى
هنحتاج 2 textbox
3 label
11 button
الفروم هيبقابلشكل دا

قبل ما نكتب اى كود هنستدعى الاداة import system.math
هانكتب الكود هنا

هنبتدى الاكواد

هتكتب فى الزر cos

كود PHP:

 Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Cos(Integer.Parse(TextBox1.Text)) 


هتكتب فى الزر tan

كود PHP:

 Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Tan(Integer.Parse(TextBox1.Text)) 


هتكتب فى الزر sin

كود PHP:

 Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Sin(Integer.Parse(TextBox1.Text)) 


هتكتب فى الزر sqrt

كود PHP:

 Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Sqrt(Integer.Parse(TextBox1.Text)) 


هتكتب فى الزر abs

كود PHP:

Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Abs(Integer.Parse(TextBox1.Text)) 


هتكتب فى الزر round

كود PHP:

 Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Round(Integer.Parse(TextBox1.Text)) 


هتكتب فى الزر sgin

كود PHP:

 Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Sign(Integer.Parse(TextBox1.Text)) 


هتكتب فى الز ر acos

كود PHP:

 Dim x As Integer
x = Decimal.Parse(Me.TextBox1.Text)
Label1.Text = Math.Acos(Integer.Parse(TextBox1.Text)) 


هتكتب فى الزر -

كود PHP:

Dim x As Decimal
x = Decimal.Parse(Me.TextBox1.Text)
x = TextBox1.Text - TextBox2.Text
Label1.Text = x.ToString 


هتكتب فى الزر *

كود PHP:

 Dim x As Decimal
x = Decimal.Parse(Me.TextBox1.Text)
x = TextBox1.Text * TextBox2.Text
Label1.Text = x.ToString 


هتكتب فى الزر ^

كود PHP:

 Dim x As Decimal
x = Decimal.Parse(Me.TextBox1.Text)
x = TextBox1.Text ^ TextBox2.Text
Label1.Text = x.ToString 


هتكتب فى الزر /

كود PHP:

 Dim x As Decimal
x = Decimal.Parse(Me.TextBox1.Text)
Try
x = TextBox1.Text / TextBox2.Text
Catch ex As Exception
MsgBox("second value must not be zero")

 Label1.Text = x.ToString 


خلاص كدا خلصنا