كود في فيجوال بسيك لتحديد القاسم المشترك الأكبر

[myloc2012]

السلام عليكم يا أعضاء برامج نت

الشرح :

قم بانشاء مشروع جديد

ضع خانتي نص Text1 + Text2

أضف زرا ‎command1

في الاعلانات العامة قم بكتابة هذا الكود

Function PGDCDET(A As Long, B As Long)
Dim r As Long
r = A - (A \ B) * B
If r = 0 Then
PGDCDET = B
ElseIf B \ r = B / r Then
PGDCDET = r
Else
PGDCDET = PGDCDET(B, r)
End If
End Function

في الحدث click للزر command1

اضف هذا الكود

Dim X as integer
Dim Y as integer
Dim N as integer
Dim M as integer

X = cint(text1.text)
Y = cint(text2.text)

If Abs(x) > Abs(y) Then
N = Abs(X)
M = Abs(Y)
Else
N = Abs(Y)
M = Abs(X)
End If

Print PGDCDET(N, M)
ملاحظة : يمكنك اضافة كود للتحقق من أن القيمة المذخلة عددية

الكود هو عمل شخصي مني ويرتكز على خوارزمية اقليدس

[zeykow]

السلام عليكم
ميرسي كثير اخي على الشرح
و ان شاء الله نستفيد

[ziedev]

السلام عليكم
شكرا أخي على هذه المشاركة الرائعة و ننتظروا المزيد من روائعك
لغة الفيجيار بازيك هي أقوى لغة برمجة في التعامل مع قواعد البيانات

[referralbux12]

شكرا على المشاركه الرائعه وننتظر المزيد فىالفيجول باسيك

---------- Post added at 11:28 AM ---------- Previous post was at 11:25 AM ----------

شكرا على المشاركه الرائعه وننتظر المزيد فى الفيجول باسيك ولغات البرمجه كلها

[doola]

يا أخي هذا المنتدي ليس للغات البرمجة ولكنه منتدي فوركس فأنا اريد معلومات عن الفوركس

[azifek]

شكرا لك أخي الكريم على هذا الكود في لغة فيجوال بيك
ولكن لو وضعت الكود داخل اقتباس أحسن حتى يعطي جمالية للموضوع و يكون منظم

[arabien]

شرح خارق لل عادة
لكم ألف شكر
أفادني كثيراً

[mohammedIraqi]

السلام عليكم ورحمة الله وبركاته شكرا لك أخي الكريم على هذا الكود في لغة فيجوال بيك
وانشاء الله التوفيق الجميع

[kbyassine]

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

[bozit]

السلام عليكم ورحمة الله وبركاته
الشرح مفيد جدا
شكرا وبالتوفيق لك وللجميع

[fadhel herbegue]

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

---------- Post added at 11:00 AM ---------- Previous post was at 10:59 AM ----------

السلام عليكم
شكرا أخي على هذه المشاركة الرائعة و ننتظروا المزيد من روائعك
لغة الفيجيار بازيك هي أقوى لغة برمجة في التعامل مع قواعد

[mohamedsniper12]

شكرا جزيلا على هذا الكود نفعني كثير وجزاك الله كل خير انشا ءالله

[reda ali]

السلام عليكم
ميرسي كثير اخي على الشرح
و ان شاء الله نستفيد ا
وشكرا أخي على هذه المشاركة الرائعة و ننتظروا المزيد من روائعك

[doola2020]

فيجوال بيسيك مين يا عم اللي انت جايبهولنا هواحنا يا جدعان في منتدي فوركس العرب ولا في موقع برمجة

[lordofdracula]

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

---------- Post added at 08:05 PM ---------- Previous post was at 07:18 PM ----------

لقاسم المشترك الأكبر لعددين, كما يدل على ذلك اسمه، هو أكبر عدد يقسم في نفس الوقت العددين معاً بدون أي باقي قسمة، فمثلاً القاسم المشرك الأكبر للعددين 48 و 60 هو 12.

قد يمدد هذا المفهوم إلى متعددات الحدود ؛ من أجل ذلك انظر القاسم المشترك الأكبر لمتعددتي حدود.

[WASEM DALLOUL]

السلام عليكم
شكرا لك يا أخي الكريم على هذا الكود الجيد في الفيجوال بيسك وجزاك الله كل خير وبارك الله فيك
وبالتوفيق

[fatilahcen]

يا أخي هذا المنتدي ليس للغات البرمجة ولكنه منتدي فوركس فأنا اريد معلومات عن الفوركس

[emanahmed201334]

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

مشكور اخى على المعلومه القيمه

ويارب الكل يكون استفاد


الله الموفق للجميع

[forex pop]

شكرا لك أخي الكريم على هذا الكود في لغة فيجوال بيك...
ولكن لو وضعت الكود داخل اقتباس أحسن حتى يعطي جمالية للموضوع و يكون منظم....

[oannabi]

أهلا أخي
مشكور على البرنامج
البرمجة بالفيجوال باسيك سهلة

[nacero]

ايسر الطرق لتعلم لغات البرمجة هى اخذ دورات متخصصة فى اللغة التى تريد العمل عليها ... ولكن بشرط أن تكون قارىء جيد فتطالع الكتب التى تظهر فى هذا المجال وايضا قراءة المقالات والدروس الموجودة على النت .

[fido]

السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا وبارك فيك
واسأل الله ان يجعل عملك هذا بموازيين حسناتكم ..

.................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. ................

[Azeddinovic]

السلام الفوركس هو تجارة متميزة و مربحة بالنسبة للاشخاص دو معرفة خاصة و متميزة
لدلك انصح و مع التاكيد المبتدئين بعدم التسرع و التهور لانه في اخر المطاف الافلاس التام

[rachedcom]

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

و شكرا لك أخي الكريم على هذا الكود في لغة فيجوال بيك

[tazdayte]

السلام عليكم ورحمة الله وبركاته
خبرة في البرمجة ليست بالأمر السهل، وتحتاج إلى الكثير من الصبر والتفاؤل ولكن منذ فترة طويلة يصبح مألوفا
وبالتوفيق لك وللجميع

[حسنى صادق]

انهااول مرة اسمع عن فيجوال بيك و لكن اود ان اعرف باستفاضة ما هو م عبارة عن ماذا و ما هو اسلوب تداول و استخدامة فى التجارة و اشكرك على اتاحة لى اففرصة فى معرفة الجديد

[ahmedibrahim258259]

السلام عليكم ورحمة الله وبركاته انا موش فاهم حاجة بصراحة بس انا نسخت الكود لاني ممكن احتاجة في يوم من الايام
تقبل مروري

[hamadarizk]

اخى الكريم انا مش فاهم اى حاجه

اىيه فايدة الكود ده

تقبل تحيااااتى

[abokarem]

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

[nahedmilad]

شكرا لك أخي الكريم على هذا الكود في لغة فيجوال بيك
ولكن لو وضعت الكود داخل اقتباس أحسن حتى يعطي جمالية للموضوع و يكون منظم
ارجو ان تكون قد تفهمت وجهة نظري وشكرا والسلام عليكم ورحمة الله وبركاته

[mohamed20149883]

شكرا على الموضوع الجميل أخي الكريم ..

[RGSteel]

شكرا اخي علي ال كود
جارى التجربه وباذن الله تكون ناجحه
شكرا لك

[ashrafshawky]

مشكور اخى الكريم على هذا العمل الجيد وننتظر المزيبد منة فى الفوركس لتعلم الكثير عنة وبالتوفيق للجميع والربح الكبير

[الشاعر]

السلام عليكم ورحمه الله وبركاته اخوتي واحبتي في الله شكرآ لكم جدآ علي ما قدمتم من معلومات في غايه الاهميه والافاده والربح والي الافضل بأذن الله

[titou2378]

بارك الله فيك اخي على المووضع القيم

[geomagdy]

سلام عليكم ورحمة الله تعالى وبراكاته
شكرا لك اخي الكريم على الموضوع
واصل عملك الجيد اخي الكريم تقبل تحياتي اخي الغالى
تقبل مرورى اخى الكريم
شكراااااااااا

[شمس]

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

[MedMax]

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

[yhassen]

السلام عليكم ورحمة الله تعالى وبركاته و بعـد.
جزاك الله خيرا اخـي على هذه المعلومات والتوضيحـــات
..أشكرك آخى الفاضل على الموضوع المميز
وأسأل الله الربح الوفير و تحقيق الأحلام للجميع في عالم الفوركس
شـكرا جزيلا و جـزاك الله كل خــيـر و بالتوفيق ان شـــاء الله

[zouhairz]

بسم الله الرحمن الرحيم الحمد لله وأفضل الصلاة وأتم التسليم على سيدنا محمد وعلى آله الطيبين وصحبه الغر المحجلين
ومن والاهم واتبع هداهم إلى يوم الدين السلام عليكم و رحمة الله تعال و بركاته


شكرااااا ه جزيلاااااا اااااخي

[alimed]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله تعالى وبركاته
بارك الله فيك
إن شاء الله في ميزان حسناتك و دعائي لك وأن يثبت الله أجرك ونفعا الله وإياك بما تقدمه

[mamdouh.adil]

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

[torkhan mohamed]

السلام عليكم ورحمه الله وبركاته
شكرا اخى على الموضوع الجميل
واتمنى منك دائما الافاده لنا والله يجازيك كل خير واتمنى لك التوفيق
وبارك الله فيك وجزاك خيراً والسلام عليكم ورحمه الله

[AboMoZo]

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

[minoch]

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

[ashrafbek]

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

[AYA.M]

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