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

[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

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

[HandSome]

شكرا على الشرح

[Best__wizard]

المشاركة الأصلية كتبت بواسطة ™TheEnd™ عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] شكرا على الشرح

العفو

[™_ BodY _™]

nice thx for it :goof:

[iMido]

ممتاز يا برنس

[Best__wizard]

شكرا على الردود

[CHeeToS]

تسلم يامعلم

[AhmedDiesel]

كلام زي الفل بس الواحد هيعمله
اذا مش فاهم Fundamental ولا كأنه فهم حاجة

اقتراح

انت تشرح Fundamental احسن وتسيب الاعضاء هما الي يعملو مواضيع

فتره الكوبي خلاص راحت لحالها

عاوزين الناس الزاي تعمل الحاجة من غير ما تنقلها

وشكرا اذا كنت اطالت عليكم

[iMido]

المشاركة الأصلية كتبت بواسطة ahmeddiesel عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] كلام زي الفل بس الواحد هيعمله اذا مش فاهم fundamental ولا كأنه فهم حاجة اقتراح انت تشرح fundamental احسن وتسيب الاعضاء هما الي يعملو مواضيع فتره الكوبي خلاص راحت لحالها عاوزين الناس الزاي تعمل الحاجة من غير ما تنقلها وشكرا اذا كنت اطالت عليكم

مينفعش يديك فكره و يسيبك
لو حاجه جديده عليك مش هتفهمها ولا هتعرف قيمتها
و قيمتها مش هتبان غير فى تطبيق

و الدروس كلها كده :)

[FightToDie]

شــكـــرا يــا غــالــى

[mazenkhaled]

تسلم

[°•.♥ H3ll King ♥.•°]

Nice Topic

[™~Mody~™]

مشكــــــــــــــــــور

[{viper}]

مشكور

[Stǿρ_Iąm_Tǿρ]

تسلم : )