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

[Best__wizard]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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