تحليل الرقم

ممكن توضيح أكثر

شكراً

موجود ليبل :

مكتوب عليه : س

موجود تكست بجانبه

يكتب عليه (القوة),,,,,,,,,,,,,,,,,,,, يعني مثال : ( س ^ 2) = (س * س) ,,,,,, (س ^ 3) = (س * س * س)

موجود ليبل اخر مكتوب عليه : " = "

موجود تكست اخر بجانب الليبل الذي مكتوب عليه يساوي :

يكتب فيه الناتج ::

يعني مجموع الليبلات والتكسات يكون :

س^# = #

مثال (س ^ 2 = 4)

_______________

طيب الكود بيعمل ايه ؟؟

الكود بحلل بسوي هذي الطريقة (س^2 = 4) = (س * س = 4)

اذا كان س متغير واحد له نفس القيمة

فشيء طبيعي بكون س = 2

اقتباس

اريد الكود يقول س = 2

فهمتك أخي ، بإختصار شديد أنت ترغب في إجراء معالجة أسية ( 2 ^ 3 = 8 ) ، وفي نفس الوقت تكتب معادلة ترتجع قيمة ( س ) الرئيسية !!!!

صراحتاً انا لا أملك معادلة مباشرة حالياً ، ولكنني سأرفق لك مثال بسيط جداً ( Loop ) تعالج هذه المشكلة ، أنظر :

1- إيجاد قيمة الأس :

Private Sub Command1_Click()
	Dim S As Single
	Dim Basis As Single
	Dim Calc As Double
	''Input.
	S = 2
	Basis = Val(Text1.Text)
	''Processes.
	Calc = S ^ Val(Text1.Text)
	''Output.
	Text2.Text = Calc
End Sub

2- إرتجاع قيمة ( س ) :

Private Sub Command2_Click()
	Dim S As Single
	Dim Basis As Single
	Dim Calc As Double
	Dim X As Long

	Basis = Val(Text1.Text)
	Calc = Val(Text2.Text)
	S = 2

	For X = 1 To Basis - 1
		Calc = Calc / S
	Next

	Text3.Text = Calc
End Sub

معزرتاً أخي علي هذه الطريقة الغبية ، ولكنني أحببت أوضح لك الفكرة بوجة عام ، وبمشيئة الله عند حصولي علي المعادلة الصحيحة سأرفقها لك

شكراً

أخى العزيز مبرمج مبتدأ

فى الوصلة المرفقة موضوع عبارة عن آلة حاسبة احترافية بها مئات العمليات الرياضية العادية و المعقدة و بالسورس كود ستجد بها ما ترغبه من سورس كود مباشر يحقق لك ما تريد ان شاء الله

تقبل تحياتى

ممكن رؤية المثال وذكر اخطائه

os.rar

up

مشكوريــــــــــــــــــــن

اقتباس

مشكوريــــــــــــــــــــن

الأخ الكريم ، انا بالفعل بقالي فترة بفكر في الموضوع ، للأسف كان لدي معادلة رياضية مباشرة ، ولكن الآن لا أتذكرها !!!

شكراً أخي

MsgBox Val(Text2.Text) ^ (1 / Val(Text1.Text))