• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

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

اعضاء
  • عدد المشاركات

    306
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة اسلام الكبابى

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

     ألا يمكن هذا فى لغة الvb6 ؟
  3. مهم بحاجة الى مساعدة في برنامج

    هذا برنامج بسيط يوضح لك طلبك وان لم تستطع أن تأخذ منه الى برنامجك فأرفق برنامجك لأعدله لك New Folder.rar
  4. السؤال الثاني من مسابقة الفريق العربي للبرمجة-2

    على العموم ان كان من الجائز كتابة عدد يساره صفر فان عدد التشكيلات التي يمكن تشكيلها من 20 صفرا و20 احدا يساوى X = 3 * 2 ^ (N - 2) + 2وان كان لايجوز كتابة عدد يساره صفر فان عدد التشكيلات التي يمكن تشكيلها هو نصف هذا العدد  أى يساوى X = 3 * 2 ^ (N - 3) + 1حيث N هى عدد الأرقام كلها ( أى أنه فى مثالك N=20+20=40)   أى أنه فى مثالك ان كان من الجائز كتابة عدد يساره صفر فان عدد التشكيلات التي يمكن تشكيلها يساوى X = 3 * 2 ^ 38 + 2وان كان لايجوز كتابة عدد يساره صفر فان عدد التشكيلات التي يمكن تشكيلها هو نصف هذا العدد  أى يساوى X = 3 * 2 ^ 37 + 1
  5. السؤال الثاني من مسابقة الفريق العربي للبرمجة-2

    هل ستتعامل مع الصفر مثل التعامل مع أى رقم آخر أم لايجوز كتابة عدد يساره صفر(لأن الصفر ناحية اليسار لافائدة منه) أى هل يجوز مثلآ كتابة عدد كهذا أم لا؟ 0001111111011101111100000000001000001111
  6. جزاك الله خيرا هل يمكن اجراء هذا الربط للفجوال بيزك مع الأتوكاد المعمارى ارشيكاد أم autocad architecture
  7. كود جابلي صداع

    Private Sub Text1_Change() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Text2_Change() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub
  8. كود بسيط للغاية

    كنت قد أجبتك على سؤالك الأصلى بخصوص رسالة الخطأ ولم أجبك على موضوع التقريب للتقريب دالة بسيطة round تكتب لها الرقم المطلوب تقريبه وعدد الأرقام العشرية المطلوبة وهذ برنامج بسيط عملته لك مخصوص لتقريب الأموال   وهوعبارة عن فورمين FORM1 تعليمية للتقريب لأقرب ربع جنيه FORM2 وهى الأساسية  للتقريب حسب المبلغ الذى تريده تقريب الأموال.rar
  9. كود بسيط للغاية

    هذا برنامج بسيط يخاللي الليبال يتغير من حالة الى اخرى في حالة تحقق شرط معين ولك أن تطبق مثله على أى خاصية أخرى ولك أن تطبق مثله على الكوماند أو أى كائن آخر   LABELتغيير خواص ال.rar
  10. كود بسيط للغاية

    عفوآ لا تسألنى عن قواعد البيانات أو عن الاكسيل أو عن غيرها لأن هذه الأمور أنا السائل فيها  دائمآ انما تسألنى فقط عن أكواد الVB نفسها (دون ارتباط بأى برنامج آخر)
  11. كود بسيط للغاية

    فعلآ كان هناك خطأ فى كتابة الكود اليك البرنامج به فورمين كل فورم مكتوبة بطريقة من الطريقتين راعى اسم كل تكست فى كل فورم (من خواصه) النسبة.rar
  12. كود بسيط للغاية

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

    تفضل لاحظ أن N هى التى جعلتها فى مثالك =4 Private Sub Command1_Click()N = InputBox("", "")For I = 1 To NFor J = (5 * I - 4) To (5 * I)Print I, JNext JNext IEnd Sub 
  14. بارك الله فيك يا باشمهندس حسام ولكن لى سؤال هام كيف بعد الرسم بالاتوكاد يتم الانتقال الى الفيجوال و نجد انه قد قام باستخدام احداثيات النقط المرسومة كمدخلات فى كود البرنامج هذا برنامج مرفق بسيط تطبيقآ لما شرحته لنا أفتح به الأتوكاد وأرسم فيه ما أشاء وأرجو منك أن تعدل لى البرنامج بوضع زرين جديدين Command4 وCommand5 بحيث اذا أشرت فى الرسم على قطعةمستقيمة معينة ثم ضغطت على الزر Command4 أجده يكتب احداثيات نقطتى طرفيها فى أىTEXT وأيضآ بحيث اذا أشرت فى الرسم على مستطيل معين ثم ضغطت على الزر Command5 أجده يكتب احداثيات رءوسه الأربعة فى أىTEXT ولكم ألف شكر الرسم بالأوتوك&#15.zip
  15. أليس لهذا الموضوع أى حل؟
  16. أريد أى طريقة لربط الفيجوال بيزك 6 بالاتوكاد ( أو أى برنامج رسم هندسي ) علمت سابقآ كيف لو تتم الادخالات بالفيجوال ومن ثم يتم الانتقال الى الاتوكاد و نجد انه قد قام بعملية الرسم ولكنى أتمنى الآن العكس أيضآ أى أتمتنى أيضآ أن يتم الرسم بالاتوكاد ( أو أى برنامج رسم هندسي ) ومن ثم يتم الانتقال الى الفيجوال و نجد انه قد قام باستخدام احداثيات النقط المرسومة كمدخلات فى كود البرنامج وهذا مثال أبسط مثلآ بفرض أنى رسمت بالاتوكاد ( أو أى برنامج رسم هندسي ) قطعة مستقيمة فى أى مكان من صفحة الرسم أتمنى أن أضغط على زر معين فيعطينى احداثيات نقطتى طرفى هذه القطعة أو بفرض أنى رسمت بالاتوكاد ( أو أى برنامج رسم هندسي ) نقطة فى أى مكان من صفحة الرسم أتمنى أن أضغط على زر معين فيعطينى احداثيات هذه النقطة   ولكم ألف شكر
  17. لغز (52) : الترتيب الوحيد ؟

    العبارة غير واضحه لأنك بالتأكيد لم تقرأ بدايتها أو من أين جاءت
  18. لغز (52) : الترتيب الوحيد ؟

  19.  هذا برنامج مرفق بسيط أفتح به الأتوكاد وأرسم فيه ما أشاء وأرجومن أى منكما أن يعدل لى البرنامج بوضع زرين جديدين Command4 وCommand5 بحيث اذا أشرت فى الرسم على قطعةمستقيمة معينة ثم ضغطت على الزر Command4 أجده يكتب احداثيات نقطتى طرفيها فى أىTEXT وأيضآ بحيث اذا أشرت فى الرسم على مستطيل معين ثم ضغطت على الزر Command5 أجده يكتب احداثيات رءوسه الأربعة فى أىTEXT ولكم ألف شكر   الرسم بالأوتوك&#15.zip
  20. لغز (52) : الترتيب الوحيد ؟

      كل هذا الذى قلته لكم صحيح ، وجميع الشروط التى ذكرتها صحيحة ولكن تساوى اثنين منهما لايؤدى فى هذه المسألة الجديدة الى الغرض الأساسى للمسألة(الوصول فى النهاية الى لون واحد) انما لكى نصل الى لون واحد لانحتاج قبله الى لونين متساوين ولكن نحتاج قبله الى لونين أحدهما ضعف الآخر حتى نتمكن بعدها من الجمع بينهما وتحويلهما الى اللون الثالث ولكى يحدث ذلك بعد هذه الزيادة وهذا النقص لابد من تحقق أحد الشروط الآتية الأول :-أن تكون س-أ=2(ع+4أ)   أى تكون س=2ع+9أ          وبعدها ننقص س بمقدار أ لتصبح 2ع+8أ  ، ونزيد ع بمقدار 4أ لتصبح ع+4أ        وهذا الشرط يعنى أن تكون أ=(س - 2ع)÷9 الثانى :-أن تكون 2(س-أ)= ع+4أ   أى تكون ع=2س-6أ         وبعدها ننقص س بمقدار أ لتصبح س-أ  ، ونزيد ع بمقدار 4أ لتصبح 2س-2أ        وهذا الشرط يعنى أن تكون أ=(2س - ع)÷6 الثالث :-أن تكون ص-2أ=2(ع+4أ)   أى تكون ص=2ع+10أ         وبعدها ننقص ص بمقدار 2أ لتصبح 2ع+8أ  ، ونزيد ع بمقدار 4أ لتصبح ع+4أ        وهذا الشرط يعنى أن تكون أ=(ص - 2ع)÷10 الرابع :-أن تكون 2(ص-2أ)= ع+4أ   أى تكون ع=2ص-8أ          وبعدها ننقص ص بمقدار 2أ لتصبح ص-2أ ، ونزيد ع بمقدار 4أ لتصبح 2ص-4أ        وهذا الشرط يعنى أن تكون أ=(2ص - ع)÷8 الخامس :-أن تكون س-أ=2(ص-2أ)   أى تكون س=2ص-3أ        وبعدها ننقص س بمقدار أ لتصبح 2ص-4أ ، وننقص ص بمقدار 2أ لتصبح ص-2أ        وهذا الشرط يعنى أن تكون أ=(2ص - ع)÷3 السادس :-أن تكون 2(س-أ)= ص-2أ   أى تكون ص=2س        وبعدها لا ننقص ولا نزيد لأن هذا هو ما نريده أصلآ(لونين أحدهما ضعف الآخر)        وهذا الشرط يعنى أن تكون أ= أى قيمة   ويمكن اختصار الحالات الستة الى ثلاث حالات كالآتى 1- أن يكون ضعف أحد العددين أكبر من الآخر بمقدار يقبل القسمة على 3 أ، 6 أ، 8 2- أن يكون أحد العددين أكبر من ضعف الآخر بمقدار يقبل القسمة على 9 أ، 10 3- أن يكون أحد العددين مساويآ ضعف الآخر      
  21. لغز (52) : الترتيب الوحيد ؟

     يمكن ذلك باتباع نفس الأسلوب المشروح سابقآ   ان نقص أحد العددين بمقدار 1 يحدث معها نقص الثانى بمقدار2 وزيادة الثالث بمقدار4 لأنه اذا كان الأول مثلآ = س والثانى = ص والثالث =ع فلكى يتساوى اثنان منهما بعد هذه الزيادة وهذا النقص لابد من تحقق أحد الشروط الآتية الأول :-أن تكون س-1=ع+4 أى تكون س - ع = 5 أى أن يكون الأول أكبر من الثالث بمقدار5 الثانى :-أن تكون ص-2=ع+4 أى تكون ص - ع = 6 أى أن يكون الثانى أكبر من الثالث بمقدار6 الثالث :-أن تكون س-1=ص-2 أى تكون ص - س =1 أى أن يكون الثانى أكبر من الأول بمقدار1 طبعآ 5 أو 6 أو 1 أو مضاعفاتهم   ملحوظة هامة:- الشرط الثالث (أن يكون الثانى أكبر من الأول بمقدار1 أو مضاعفاته) يعنى أن يكون الثانى أكبر من الأول بأى مقدار وهذا يعنى أنه مهما كانت الأعداد الثلاثة فمن الممكن أن يتساوى العددين الأول والثانى طالما أن الثانى أكبر من الأول
  22. لغز (52) : الترتيب الوحيد ؟

     
  23. لغز (52) : الترتيب الوحيد ؟

    لوفتحت البرنامج الذى أرفقته فى أول مشاركة لى (كود كامل وليس ملف تنفيذى) لوجدت الرد على سؤالك فى الجمل الثلاثة التالية ونظائرها 60 X = X - 1: Y = Y - 1: Z = Z + 270  If Z = X Or Z = Y Then decr = A(1) - X: GoTo 100If Y = 1 And X - Z = 3 Then Y = 0: X = X - 1: Z = X: decr = A(2) - Y: GoTo 100الشرط X - Z = 3 لأن نقص أحد العددين بمقدا 1 يحدث معها زيادةالآخر بمقدار2 فلكى يتساوى اى عددين لابد أن يكون الفرق بينهما قبل هذه الزيادة وهذا النقص= 3 لأنه اذا كان أحدهما مثلآ = س والآخر= ص فلكى يتساوا بعد هذه الزيادة وهذا النقص تكون س+2= ص-1 أى تكون س-ص = 3 طبعآ 3 أو مضاعفاتها لأن نقص أحد العددين بمقدار 1 يحدث معها زيادةالآخر بمقدار 2 (1+2=3) وأيضآ نقص أحد العددين بمقدار 2 يحدث معها زيادةالآخر بمقدار 4 (2+4=6) وأيضآ نقص أحد العددين بمقدار 4 يحدث معها زيادةالآخر بمقدار 8 (4+8=12)   ولو غيرت نظام الزيادة والنقص فى المسألة لتغيرهذا الرقم 3 فاذا كان نقص أحد العددين بمقدار 1 يحدث معها زيادةالآخر بمقدار4  لكان الشرط هو أن يكون الفرق بين العددين يقبل القسمة على 5 (1+4=5) فاذا كان نقص أحد العددين بمقدار 6 يحدث معها زيادةالآخر بمقدار7  لكان الشرط هو أن يكون الفرق بين العددين يقبل القسمة على 7 (6+7=13)        
  24. لغز (52) : الترتيب الوحيد ؟

     
  25. لغز (52) : الترتيب الوحيد ؟

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