كيف يكن كتابة كود للمضاعف المشترك الأصغر

وعليكــم السـلام ورحمة الله وبركاتـه..

أخي الكريم، باستخدام الجوجل عثرت على الدالة التالية، التي تعيد المضاعف المشترك الأدنى لعددين:

' the Least Common Multiple of two integers
' (it uses the Euclide's algorithm)
' if either argument is zero you get a "Division by Zero" error
'
' Note: if your app also includes the CGD() function,
'	   you can simplify the following code as follows:
'	   LCM = (n1 * n2) \ GCD(n1, n2)

Function LCM(ByVal n1 As Long, ByVal n2 As Long) As Long
	Dim tmp As Long, product As Long
	product = n1 * n2

	' the following block evaluates the GCD
	' of the two numbers
	Do
		' swap the items so that n1 >= n2
		If n1 < n2 Then
			tmp = n1
			n1 = n2
			n2 = tmp
		End If
		' take the modulo
		n1 = n1 Mod n2
	Loop While n1

	' now n2 contains the GCD of the two numbers
	' The LCM is equal to (n1*n2) \ GCD(n1,n2)
	LCM = product \ n2
End Function

' Francesco Balena

مصدر المثال : http://www.devx.com/vb2themax/Tip/19015

ثم أضفت عليه الجزء الذي يسمح بتكرار العملية بين عدد من الأرقام (في المثال جعلت العدد غير محدود ويحفظ في حقل في جدول)، وتجد ذلك في الملف المرفق بإذن الله...

Least_Common_Multiple.rar

اخونا واستاذنا / أحمد مبارك

الله الله عليك يا أخي - خبير خبير

لك كل تقدير لصراحتك المطلقة وامانتك حين قلت بالبحث في جوجل

الله يعطيك على قدر امانتك وتواضعك

لقد حاولت بشتي الطرق في عمل ذلك ولكن للاسف لن تثمر اي طريقة

ورغم ان المثال المرفق به بعض المصطلحات البرمجية غير مفهمومه لي خصوصا الوحدة النمطية المرفقه الا انه بشوية مذاكرة ان شاء الله يمكن فهمها

وهذا لا ينقص اي شئ من ابداعك دائما

حياك الله ويعطيك الف عافيه

ابو شادي

السلام عليكم ورحمة الله وبركاته

الاخ أحمد مبارك .. شكرا لك أحمد الله على وجود مثلك بيننا

ماشاء الله تبارك الله .. علم وخلق وأدب جم .. وفقك الله ورعاك

الاخ ابو شادي شكرا لتواجدك

الأخ ابو كورد نرجو ان يكون هذا طلبك ونأمل منك التعقيب

أخى الحبيب أحمد مبارك الحيقى

رغم أنى لم أحمل المرفق .. ورغم أنى لست مهتماً بحكاية المضاعف المشترك الأصغر (الكلام ده كبير قوى) ..

ولكنى رأيت عظمة الكود والمثال المرفق فى ردود الأخوة .. ورأيت أيضاً كيف يتعامل الأساتذة مع الجواهر فى رد أخى إكسير.

ماشاء الله عليكم .. ما شاء الله

تحياتى

محمد ندا

بسم الله الرحمن الرحيم

لا اقول الا ماشاء الله ... ماشاء الله ... ماشاءالله ...

ثلاثه عباقره يهتمون بموضوعك هذا يدل على رضاء والديك الك

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

اختكم في الله

الف شكر لكم جميعا

لكن لو كان لدي اكثر من 2 عدد مثلا 7 عدد هل سيكون العملية سهلة

شكرا

اقتباس

ثم أضفت عليه الجزء الذي يسمح بتكرار العملية بين عدد من الأرقام (في المثال جعلت العدد غير محدود ويحفظ في حقل في جدول)، وتجد ذلك في الملف المرفق بإذن الله...

ماشاء الله استاذ أحمد مبارك الحيقي

الله يحفظك ويرضى عليك