• الإعلانات

    • فيصل الحربي

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

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

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

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

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

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

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

  1. لدى ADODC متصل باستعلام بقاعدة بيانات وكتبت كود اضافة سجل جديد ويعمل تمامآ ولكنه يقف دائمآ بعد الاضافةعند آخر سجل فهل من أمر يجعل الADODC يقف عند السجل المضاف حديثآ مهما كان موضعه بين السجلات  Private Sub cmdAdd_Click() On Error GoTo AddErr    Adodc1.Recordset.AddNew    Adodc1.Caption = "Record: " & CStr(Adodc1.Recordset.AbsolutePosition)    txtFields(0).SetFocusExit SubAddErr:  MsgBox Err.Description End SubPrivate Sub cmdUpdate_Click()Adodc1.Recordset.Fields(0) = Adodc1.Recordset.AbsolutePosition On Error GoTo UpdateErrAdodc1.Recordset.UpdateBatch adAffectAllExit SubUpdateErr:  MsgBox Err.Description End Sub  أرجومنكم تعديل هذا الكود ولكم ألف شكر
  2. رسالة الINPUTBOX تظهر ومعها زران OK, CANCE ولكنى حين أضغط على الزرCANCE أجد البرنامج اما يعترض وينهى عملية الRUN واما يعتبر قيمة المتغير المطلوب ادخاله تساوى صفر ، والصواب طبعآ غير ذلك الصواب أن يعيد الوضع كما كان وكأن جملة الINPUTBOX لم تكن موجودة فى الكود أصلآ الصواب أنه عند الضغط على هذا الزرCANCE ينفذ أمرآ معينآ (يكون مكتوبآ فى الكود) (كما هو الحال فى الMsgBox) وهذا كوزد بسيط يوضح سؤالى Private Sub Command1_Click()S1 = 50S2 = InputBox("أدخل العدد الثانى")SUM = S1 + S2Print "         SUM = "; SUMEnd Sub ولكم ألف شكر
  3. سؤال فى الINPUTBOX

    جزاك الله خيرآ ولك ألف شكر
  4. سؤال فى الINPUTBOX

      جزاك الله خيرآ ولك ألف شكر
  5. وما هى دالة تحديد الزاوية بمعلومية جيبها؟ مثلآ جا  أ = 0.25  اوجد قياس زاوية أ ولكم ألف شكر
  6. مشكلة الكتابة باللغة العربية

    عرفت الحل والحمد لله فى شاشة الفجوال بيزك نضغط على Tools Options Editor Format ثم نختار نوع الخط أحد الخطوط المنتهية بكلمة"Arabic"
  7. عندى مشكلة تحدث فقط عند كتابة أكواد الفيجوال بيزك كلما أردت الكتابة باللغة العربية أجده يكتب رموزآ غريبة فأرجو منكم شرح كيفية حل هذه المشكلة ولكم ألف شكر
  8. مشكلة الكتابة باللغة العربية

    أما حدثت هذه المشكلة مع أى عضو قبل ذلك وعرف حلها ؟ أرجو منه أن يشرح لى كيف حلها ؟ ولكم ألف شكر
  9. حساب مقدار جبرى فىTEXT

    شكرآ
  10. كلنا يعرف أن المقدار 5 + 2 * 9 يساوى 23 وكلنا يعرف بسهولة كتابة الكود الذى يحسب هذا المقدار   X = 9 * 2 + 5  PRINT Xولكنى اريد الكود الذى يحسب هذا المقدار من خلال Text أو Label كتبه المستخم فيه ارجو تعديل المثال المرفق ولكم ألف شكر New Folder.rar
  11. حساب مقدار جبرى فىTEXT

    أولآ: شكرآ لك   ثانيآ: لواستخدمنا هذا الكود فمطلوب منى استكماله   بعمل كود مثله اذا كانت  "+" = Text2.Text   ثم عمل كود مثله اذا كانت  "-" = Text2.Text ثم عمل كود مثله اذا كانت  "/" = Text2.Text   بالتأكيد هناك حل أسهل من ذلك   ولكم ألف شكر
  12. حساب مقدار جبرى فىTEXT

    نسيت التوضيح انه  مسموح للمستخدم بتغييرأى علامةرياضية (مثلما هومسموح بتغييرالأرقام تمامآ)   فله ان يكتب المقدار مثلا  8 - 2 + 9   ولكم ألف شكر
  13.   كيف هذا؟ ارجو أن توضح طلبك ثم ما معنى"جانفي" ؟  وما معنى"فيفري" ؟
  14. طبعآ من يتقن الفيجوال بيزك6 يمكنه استبدال هذه الجملة بكود بسيط بحيث يصلح هذا البرنامج مع أى نسخة أوتوكاد
  15. هذا البرنامج المرفق هام جدآ للمبتدئين فى ربط الفيجوال بيزك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
  16.   من لم يتقن الفيجوال بيزك6 اتقانآ جيدآ فعليه بهذا الموضوع (تعلم التحكم ببرنامج أتوكاد من خلال فجوال بيزك واصنع برنامجك الخاص خطوة بخطوة)   فى هذا الرابط http://www.arab-eng.org/vb/showthread.php?t=18343
  17. هل الأعداد العقدية .. جميلة ؟

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

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

    ما هى الأعداد العقدية ؟
  20. حساب ال 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
  21. رسم نقطة والضغط عليها

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

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

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