الموقع العربي الاول للعبة Silkroad Online - كيفية عمل الالة حاسبة بلفيجوال بيسك

- اخـبـار الـتـقـنـيـة و الـتـكـنـولـوجـيـا (https://silkroad4arab.com/vb/forumdisplay.php?f=154)

- - كيفية عمل الالة حاسبة بلفيجوال بيسك (https://silkroad4arab.com/vb/showthread.php?t=436925)

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

http://www.eggdrops.net/welcome.gif
انا انهاردة جايبلكم شرح عمل الالة حاسبة
نبتدى
هنحتاج 2 textbox
3 label
11 button
الفروم هيبقابلشكل دا
http://www2.0zz0.com/2012/06/28/15/222333052.jpg
قبل ما نكتب اى كود هنستدعى الاداة import system.math
هانكتب الكود هنا
http://www2.0zz0.com/2012/06/28/15/731875782.jpg
هنبتدى الاكواد

هتكتب فى الزر 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

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

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

اقتباس:

المشاركة الأصلية كتبت بواسطة ™TheEnd™ (المشاركة 4211323)

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

العفو

nice thx for it :goof:

ممتاز يا برنس

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

تسلم يامعلم
:bye1:

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

اقتراح

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

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

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

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

اقتباس:

المشاركة الأصلية كتبت بواسطة ahmeddiesel (المشاركة 4213962)

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

اقتراح

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

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

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

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

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

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

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

Nice Topic
:mf_fartnew2:

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