• الإعلانات

    • فيصل الحربي

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

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

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

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

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

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

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

  1. هذا البرنامج المرفق هام جدآ للمبتدئين فى ربط الفيجوال بيزك6 بالأوتوكاد وهو عبارة عن تجميع لبعض الأكواد من مواضيع فى بعض المنتديات الأخرى المتخصصة فى الأوتوكاد   ملحوظة هامة:- لن يستفيد من هذا البرنامج الا من يتقن الفيجوال بيزك6 اتقانآ جيدآ ولكنه مبتدئ فقط فى ربطها بالأوتوكاد   قبل تشغيل المشروع (قبل عمل الRUN) يجب عمل الخطوات الآتية 1- من قائمة Project نختار References ، ثم يجب اختيار الأوتوكاد المطابق لنفس الإصدار المرتبط بالنسخة المحملة على جهازك (2000-2004-2007-2009....) (فى برنامجى المرفق كانت Autocad 2007 Type Libraryفيجب عليك تعديلها حسب النسخة المحملة على جهازك)   2- ان كانت نسخة الأوتوكاد المحملة على جهازك 2004 أوقبل ذلك فابحث فى كود البرنامج المرفق(FIND current project) عن العبارة"AutoCAD.Application.17"   وعدلها الى  "AutoCAD.Application.16"    وان كانت نسخة الأوتوكاد المحملة على جهازك 2007 أو 2008 أو 2009 فاتركها كما هى  "AutoCAD.Application.17"    وان كانت 2010 أو 2011 فعدلها الى  "AutoCAD.Application.18"    وان كانت 2012 أو 2013 أو 2014 فعدلها الى  "AutoCAD.Application.19"   3- فى كود ال(Form_Load) عدل الجملة الآتية حسب اسم الملف ومساره عندك   DRAWNAME = "E:\برامج الرسم\فورم للمنتدى\DRAWING1"فورم للمنتدى.rar
  2.   من لم يتقن الفيجوال بيزك6 اتقانآ جيدآ فعليه بهذا الموضوع (تعلم التحكم ببرنامج أتوكاد من خلال فجوال بيزك واصنع برنامجك الخاص خطوة بخطوة)   فى هذا الرابط http://www.arab-eng.org/vb/showthread.php?t=18343
  3. هل الأعداد العقدية .. جميلة ؟

    بانتظار الاخ العزيز مصطفى ليبين لنا ذلك.
  4. هل الأعداد العقدية .. جميلة ؟

    اذآ فهى الأعداد المركبة التى يدرسها طلاب الثانوية على الصورة  أ + ب ت   بارك الله فيك   ولكن ما علاقتها بالبرمجة
  5. هل الأعداد العقدية .. جميلة ؟

    ما هى الأعداد العقدية ؟
  6. حساب ال running time

    Private Sub Command1_Click()       sssSEC = DateTime.Second(Now)       sssMIN = DateTime.Minute(Now) Rem"الجملتان السابقتان توضعان قبل أى كود لقياس سرعة تنفيذه"                Rem"هنا تكتب كود برنامجك"       eeeSEC = DateTime.Second(Now)       eeeMIN = DateTime.Minute(Now)     timeCodsec = eeeSEC - sssSEC     timeCodMIN = eeeMIN - sssMIN Rem"الجمل الأربعة السابقة توضع فى نهاية أى كود لقياس سرعة تنفيذه"    Print "timeCodsec= "; timeCodsec    Print "timeCodMIN= "; timeCodMIN End Sub
  7. رسم نقطة والضغط عليها

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

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

    هذا برنامج بسيط يوضح لك طلبك وان لم تستطع أن تأخذ منه الى برنامجك فأرفق برنامجك لأعدله لك New Folder.rar
  11. السؤال الثاني من مسابقة الفريق العربي للبرمجة-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
  12. السؤال الثاني من مسابقة الفريق العربي للبرمجة-2

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

    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
  15. كود بسيط للغاية

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

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

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

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

    هذا هو الكود       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  
  20. طلب بسيط حول 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 
  21. بارك الله فيك يا باشمهندس حسام ولكن لى سؤال هام كيف بعد الرسم بالاتوكاد يتم الانتقال الى الفيجوال و نجد انه قد قام باستخدام احداثيات النقط المرسومة كمدخلات فى كود البرنامج هذا برنامج مرفق بسيط تطبيقآ لما شرحته لنا أفتح به الأتوكاد وأرسم فيه ما أشاء وأرجو منك أن تعدل لى البرنامج بوضع زرين جديدين Command4 وCommand5 بحيث اذا أشرت فى الرسم على قطعةمستقيمة معينة ثم ضغطت على الزر Command4 أجده يكتب احداثيات نقطتى طرفيها فى أىTEXT وأيضآ بحيث اذا أشرت فى الرسم على مستطيل معين ثم ضغطت على الزر Command5 أجده يكتب احداثيات رءوسه الأربعة فى أىTEXT ولكم ألف شكر الرسم بالأوتوك&#15.zip
  22. أليس لهذا الموضوع أى حل؟
  23. أريد أى طريقة لربط الفيجوال بيزك 6 بالاتوكاد ( أو أى برنامج رسم هندسي ) علمت سابقآ كيف لو تتم الادخالات بالفيجوال ومن ثم يتم الانتقال الى الاتوكاد و نجد انه قد قام بعملية الرسم ولكنى أتمنى الآن العكس أيضآ أى أتمتنى أيضآ أن يتم الرسم بالاتوكاد ( أو أى برنامج رسم هندسي ) ومن ثم يتم الانتقال الى الفيجوال و نجد انه قد قام باستخدام احداثيات النقط المرسومة كمدخلات فى كود البرنامج وهذا مثال أبسط مثلآ بفرض أنى رسمت بالاتوكاد ( أو أى برنامج رسم هندسي ) قطعة مستقيمة فى أى مكان من صفحة الرسم أتمنى أن أضغط على زر معين فيعطينى احداثيات نقطتى طرفى هذه القطعة أو بفرض أنى رسمت بالاتوكاد ( أو أى برنامج رسم هندسي ) نقطة فى أى مكان من صفحة الرسم أتمنى أن أضغط على زر معين فيعطينى احداثيات هذه النقطة   ولكم ألف شكر
  24. لغز (52) : الترتيب الوحيد ؟

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