اسلام الكبابى

هذا هو الكود For I = 0 To 1 Rem"'عندك فى مثالك هنا عددهم 2text طبعآ الرقم 1 على حسب عدد ال" If text(I).Text = "" Then Z = MsgBox("من فضلك أدخل جميع بياناتك", vbOKOnly, "ماهذا؟ ") text(I).SetFocus: GoTo 400 End If A=text(0).Text B=text(1).Text M = Val(B * 100 /…

أعلم أن كود رسم نقطة هو مثلآ PSet(30,20), vbRedForm1.DrawWidth = 5 كما أعلم أن هناك أداة تسمى shape ويمكن التحكم فى شكلها ولونها بحيث تكون عبارة عن دائرة صغيرة(نقطة) بالكود التالى Shape1.Shape = 3 Shape1.Height = 5: Shape1.Width = 5 Shape1.BorderColor = vbRed …

تفضل لاحظ أن N هى التى جعلتها فى مثالك =4 Private Sub Command1_Click() N = InputBox("", "") For I = 1 To N For J = (5 * I - 4) To (5 * I) Print I, J Next J Next I End Sub

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

أليس لهذا الموضوع أى حل؟

العبارة غير واضحه لأنك بالتأكيد لم تقرأ بدايتها أو من أين جاءت

وما رأيك فى العددين 4 و7 الفرق بين ضعف ال7 وال4 يقبل القسمة على10 فهل بالطبع ان يكون احدهما ضعف الاخر ؟ اذآ لابد من فصلهما حالتين مختلفتين كما ذكرت سابقآ ولكل حالة كيفية التعامل معها وسببه

هذا برنامج مرفق بسيط أفتح به الأتوكاد وأرسم فيه ما أشاء وأرجومن أى منكما أن يعدل لى البرنامج بوضع زرين جديدين Command4 وCommand5 بحيث اذا أشرت فى الرسم على قطعةمستقيمة معينة ثم ضغطت على الزر Command4 أجده يكتب احداثيات نقطتى طرفيها فى أىTEXT وأيضآ بحيث اذا أشر…

كل هذا الذى قلته لكم صحيح ، وجميع الشروط التى ذكرتها صحيحة ولكن تساوى اثنين منهما لايؤدى فى هذه المسألة الجديدة الى الغرض الأساسى للمسألة(الوصول فى النهاية الى لون واحد) انما لكى نصل الى لون واحد لانحتاج قبله الى لونين متساوين ولكن نحتاج قبله الى ل ونين أحدهما…

يمكن ذلك باتباع نفس الأسلوب المشروح سابقآ ان نقص أحد العددين بمقدار 1 يحدث معها نقص الثانى بمقدار2 و زيادة الثالث بمقدار4 لأنه اذا كان الأول مثلآ = س و الثانى = ص و الثالث =ع فلكى يتساوى اثنان منهما بعد هذه الزيادة وهذا النقص لابد من تحقق أحد الشروط الآتية الأ…

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

لوفتحت البرنامج الذى أرفقته فى أول مشاركة لى ( كود كامل وليس ملف تنفيذى) لوجدت الرد على سؤالك فى الجمل الثلاثة التالية ونظائرها 60 X = X - 1: Y = Y - 1: Z = Z + 2 70 If Z = X Or Z = Y Then decr = A(1) - X: GoTo 100 If Y = 1 And X - Z = 3 Then Y = 0: X = X - 1:…

لم أقل أنك نسيت ذلك ولكن قلت أنك نسيت أن تذكرها لأعضاء المنتدى فى شرحك

كلام الزميل fmgret12 صحيح 100% تساوى مجموع عددين منهم للعدد الثالث ليس له علاقة بالموضوع وستؤدى الى نتيجة واحدة دائمآ بتحقق شرط الزميل fmgret12 فقط (شرط وجود فرق واحد بين اى عددين من الاعداد الثلاثة يقبل القسمة على 3) جرب مثلآ 5 و 11 و 19 وأوضح لكم نقطة بسيطة …

ما الذي تعنيه هذه العبارة بالتحديد ؟ هذه العبارة لأن أحد الأعضاء كان قد قال ولماذا لا يؤدي لنتائج اخري غير اللون الاخضر ؟ كيف ذلك؟ جميع الأمثلة الثلاثة التى ذكرتها تؤدى الى نتائج أخرى

هذا رغم أن الأعداد كلها تقبل القسمة على 3 وبدون باقى وماذا كان تعليقك أو ملاحظاتك عن المثالين الآخرين 7,10,28 و 8,11,20 أما عن اللون الأول والثانى والثالث فلا أظنها تفرق شيئآ عن أحدد ثلاثة ألوان بعينها

وهاهو البرنامج فى صورة ملف تنفيذى أيضآ مع تعديل بسيط بحيث تكون النتائج المكتوبة أوضح وأسهل للجميع (يكتب بدلآ من أعداد الحرباءات يكتب الأول أو الثانى أو الثالث ) أرجو من كل من يحمل المرفق أن يعرف اجابات هذه الأمثلة ثم يكتب لنا تعليقه 12,15,18 و 7,10,28 و 8,11,2…

هاهو ابرنامج فى صورة ملف تنفيذى لكل من لا يعرف هذه اللغة من لغات البرمجة الترتيب EXEالوحيد.zip

لغز رياضى جميل أنا من عشاق الخوارزميات الرياضية وبرمجتها وهذا برنامج بسيط يعطى بعض الحلول لأى مسألة من نفس النوع مهما تغيرت الأعداد الثلاثة 17و10و7 لغز رياضى الترتيب الوحيد.zip

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