• الإعلانات

    • فيصل الحربي

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

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

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

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

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

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

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

  1. خطأ فى الكود 2147217865-

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

    عرفت الحل والحمد لله من أراد معرفة الحل فليفتح هذا الرابط http://vb4arb.com/vb/thread-15515.html
  3. لدى قاعدة بيانات اسمها bass1 بها جدول اسمه table1 مكون من تسعة صفوف وأربعة أعمدة وأريد باستخدام الado عمل مصفوفة أزواج مرتية على الصورة xa(i,j) بمعنى اذا كان السجل الثالث فى الحقل الثانى مثلآ قيمته=588  أريد كودآ يجعل   xa(2,3)= 588 ولكم ألف شكر
  4. من قاعدة البانات الى مصفوفة أزواج مرتبة

    كتبت هذا الكود فقام بالمطلوب والحمد لله   PHP كود : Set RS = New ADODB.Recordset                RS.Open "select * from table1", db, adOpenStatic, adLockReadOnly  NFieldS = 4  RS.MoveFirst    For I = 1 To RS.RecordCount      For J = 1 To NFieldS      XA(I, J) = RS.Fields(J)      Next J     RS.MoveNext   Next I  ولكن مشكلتى أن هذه العملية أريد عملها على عشرة جداول لا على الجدول table1  فقط وطبعآ اسم المصفوفة المطلوبة مختلف من مرة لأخرى  أى أنى أريد عمل عشرة مصفوفات من عشرة جداول فاذا كنت فى المرة الأولى قمت بعمل المصفوفة  xa(I,J) من الجدول table1          فأريد فى المرة الثانية عمل المصفوفة EGRA(I,J) من الجدول table2          وأريد فى المرة الثانية عمل المصفوفة TEMP(I,J) من الجدول table3          وأريد فى المرة الثانية عمل المصفوفة WAIT(I,J) من الجدول table4 وهكذا بعشرة أسماء مختلفة فكيف يمكن ذلك دون اعادة الكود السابق عشر مرات؟ أى هل يمكن أن نجعل اسم الجدول كمتغير( TBLL مثلآ) واسم المصفوفة كمتغير(MASFF مثلآ) ثم كتابة الكود السابق مرة واحدة ؟ طبعآ مع كتابة سطر فى كل مرة قبل التوجه لتنفيذ هذا الكود لتحديد قيم هذه المتغيرات ففى المرة الثانية مثلآ نكتب قبل التوجه لتنفيذ هذا الكود TBLL=table2: MASFF=EGRA وفى المرة الثالثة مثلآ نكتب قبل التوجه لتنفيذ هذا الكود TBLL=table3: MASFF=TEMP كيف يمكن ذلك؟   أم لابد من اعادة كتابة هذا الكود عشر مرات؟ ولكم ألف شكر
  5. من قاعدة البانات الى مصفوفة أزواج مرتبة

    كتبت هذا الكود فقام بالمطلوب والحمد لله   PHP كود : Set RS = New ADODB.Recordset                RS.Open "select * from table1", db, adOpenStatic, adLockReadOnly  NFieldS = 4  RS.MoveFirst    For I = 1 To RS.RecordCount      For J = 1 To NFieldS      XA(I, J) = RS.Fields(J)      Next J     RS.MoveNext   Next I  ولكن مشكلتى أن هذه العملية أريد عملها على عشرة جداول لا على الجدول table1  فقط وطبعآ اسم المصفوفة المطلوبة مختلف من مرة لأخرى  أى أنى أريد عمل عشرة مصفوفات من عشرة جداول فاذا كنت فى المرة الأولى قمت بعمل المصفوفة  xa(I,J) من الجدول table1          فأريد فى المرة الثانية عمل المصفوفة EGRA(I,J) من الجدول table2          وأريد فى المرة الثانية عمل المصفوفة TEMP(I,J) من الجدول table3          وأريد فى المرة الثانية عمل المصفوفة WAIT(I,J) من الجدول table4 وهكذا بعشرة أسماء مختلفة فكيف يمكن ذلك دون اعادة الكود السابق عشر مرات؟ أى هل يمكن أن نجعل اسم الجدول كمتغير( TBLL مثلآ) واسم المصفوفة كمتغير(MASFF مثلآ) ثم كتابة الكود السابق مرة واحدة ؟ ولكم ألف شكر
  6. نعلم جميعآ أن نوع بيانات الحقل أمر هام عند التعامل مع قواعد البيانات ولكن هل من كود يحدد لى نوع بيانات الحقل كتبت هذا الكود ظنآ منى أن الخاصية TYPE ستعطينى نوع بيانات الحقل  فاذا بها تعطينى أرقام   For I = 1 To 14AField1 = Adodc1.Recordset.Fields(I).NameTYPP = Adodc1.Recordset.Fields(I).TypePrint AField1, TYPPIf TYPP = Number Then MsgBox ("NNNNNNNNNNNNNNNIf TYPP = "Date / Time" Then MsgBox ("KKKKKKKKKKKKNext I ولكم ألف شكر 
  7. أذا كان (a=0,b<>0) أطبع : "مستحيل الحل" طبعآ مستحيل لأنه لو كانت  A=0 , B<> 0 فانك بالتعويض فى المعادلة عن A=0 تجد أن B=0 وهذا فعلآ مستحيل ، فمثلآ لو كانت المعادلة AX+7=0  وكانت A=0 فكأنك تقول أن 0=7 وهذا طبعآ لايحدث الا اذا كانت A فقط هى التى تساوى صفر لأنه لو كان كلاهما =صفر فستجد عكس الاستحالة تمامآ (ستجد أن أى حل يخطر ببالك سيكون صحيحآ) لأن أى قيمة للمتغير X  لوعوضت بها فستئول المعادلة الى أن  0=0+0 وهذا صحيح
  8. ويمكن ضمها أيضآ فى جملة  If  واحدة بطريقة أخرى اراها اسهل  هكذا: If Text1.Text = "1" Or Text1.Text = "2" Or Text1.Text = "3" Then Text2.Text = "Thanks"أو هكذا: X = Text1.TextIf X = "1" Or X = "2" Or X = "3" Then Text2.Text = "Thanks  
  9. أرجووووووووكم أريد تحميل برنامج  الفيجوال بيزك6   أو الفيجوال ستوديو6 كله ولكن لا أريد روابط ان كان فى استطاعة أحدكم أن يرفق أحد البرنامجين فى ملف فليرفقه وله ألف شكر وان لم لم يستطع الا أن يكتب رابطآ لتحميله فلا داعى لأن يتعب نفسه (حتى وان كان الرابط مباشر أو صاروخى أو أو أو...........)   ولكم ألف شكر
  10. أقصد بالملف التنفيذى كل ما يمكنك بعد أن قمت بعمل برنامجك بأى لغة برمجة (برنامج الVB6 مثلآ)  يمكنك من أن تعطيه لغيرك ليقوم بعمل الRUN دون أن يطلع على برنامجك وكيفية تخطيطك له
  11. أرى بمنتدانا الفريق العربى للبرمجة أقسام خاصة كثيرة لابد منها لأنها مرتبطة بالبرمجة (قسم قواعد البيانات مثلآ) وأقترح اضافه قسم خاص جديد بالمنتدي أراه أيضآ لابد منه ومرتبط بالبرمجة (قسم الملف التنفيذى) يكون متخصص فى شرح الطرق المختلفة لتحويل البرنامج الذى تم عمله بأى لغة برمجة (برنامج الVB6 مثلآ)  الى ملف التنفيذى وفى مشاكل كل طريقة والبحث عن حلها   أنتظر رأى الجميع لأن كثيرآ من وقتى يضيع بسبب ذلك ولكم ألف شكر
  12. رسم أو نسخ جدول

    وكيف أحصل على هذه الصورة أصلآ ؟ كل ما لدى ملف وورد يحتوى على جدول معين مرفق ملف وورد بهذا الشكل New مستند Microsoft Word.doc
  13. كيف يمكننى أثناء كتابة موضوعى رسم جدول أو نسخ جدول من ملف وورد حاولت نسخ جدول من ملف وورد فنسخه بالفعل نسخآ ممتازآ فى صفحة كتابتى ، ولكن حين ضغطت على الزر " معاينة الموضوع" وجدت الجدول غير موجود بالمرة فى صفحة المعاينة غير موجود سوى كلماته ( كل كلمة منهم فى سطر ) ولكم ألف شكر
  14. جدول جمع تسلسلي

    مثال منى للبرنامج.rar   هذه آخر محاولة لعلى أفهم بها ما تريد مرفق لديك الجدول Data_OLD  بأرقام من عندى وأريد منك تنفيذ ما تريد على هذا المثال مع الشرح حتى تصل للمطلوب   ويكون أسلوب الشرح هكذا      1) من خلال الحقل X نختار القيم ... و ... و ... و ... و ... و ... و ...      وذلك بسبب ............................  2) هذه الأرقام المختارة نجد قيم الحقل Y لها هى ... و ... و ... و ... و ... و ... و ...      ولو جمعنا هذه القيم ل Y  لوجدنا مجموعهم =........  3)  هذا المجموع لايقبل القسمة على 7    اذآ نفعل................   فتكون المجموعة الأولى هى الموضحة فى الجدول التالى     أو هذا المجموع يقبل القسمة على 7    اذآ نفعل.................   فتكون المجموعة الأولى هى          الموضحة فى الجدول التالى                                                          NUMBER   X   Y     4) ............................................................ 5) ............................................................ 6) ............................................................   وهكذا يستمر شرحك بنفس الأسلوب حتى تصل للمطلوب   ملحوظة هاااااااااااااااامة: لابد أن ترد جميع هذه العبارات السبعة  أثناء شرحك بالأسلوب الموضح سابقآ الخطوة الأولى ، الخطوة الثانية ، الخطوة الثالثة المجموعة الأولى ، المجموعة الثانية ، المجموعة الثالثة  حزمة واحدة   وأيضآ لابد أن ترد جميع هذه الأرقام أثناء شرحك بالأسلوب الموضح سابقآ 17 , 19 , 23   8 , 14 , 15 , 21 , 22, 28              
  15. جدول جمع تسلسلي

    --------------أولآ-------------- بردو معرفتنيش الموضوع ده بيتعمل أساسآ ليه؟ يعنى النتايج بتعتوه هتعمل بيها ايه؟ ايه اللى انطلب منك فى البداية وعشانه بتعمل كل ده   --------------ثانيآ-------------- المفروض على قدر فهمى أنه بعد ذلك تكون جميع قيم الجدول الثالث ثابتة من 15 الى 21.                                     ثم بعد ذلك تكون جميع قيم الجدول الرابع ثابتة من 22 الى 28.                                  وهكذا الى أن ينتهى ال82 رقم كلهم  فهل هذا صحيح أم لا؟ وان كان صحيحآ فما معنى هذا الكلام؟  أى ما المقصود بالقيم الثابتة؟ (اضرب ثلاثة أمثلة من الجدول الأول وثلاثة أمثلة من الجدول الثانى)    وأيضآ ان كان صحيحآ فكيف يكون اجمالى عدد الأرقام 82 رقم  ؟     
  16. عالم الكمبيوتر يبدأ من الآن

    طبعآ مستحيل حدوث هذا من دولنا العربية الآن (وسل نفسك أنت هذا السؤال هل يمكنك ذلك؟  بالطبع لا) مستحيل حدوث هذا من دولنا العربية الا اذا رأيناه قد حدث بالفعل فى بعض الدول الكبرى واستمروا عليه عامآ كاملآ مثلآ
  17. عالم الكمبيوتر الحديث يبدأ من الآن فقط http://hasrr.org/c-8866 
  18. جدول جمع تسلسلي

    فتحت الرابط فظهرت لى صفحة لم أستطع التعامل معها ليتك ترفق لى الملف كملف مضغوط  كالتالى 1- فى "ارفاق الملفات" اضغط على الزر"تصفح"  واختار الملف من جهازك 2- اضغط على "رفع الملف" 3- اضغط على "اضافة الى الموضوع"
  19. جدول جمع تسلسلي

    طيب متعرفنا الموضوع ده بيتعمل أساسآ ليه؟ يعنى النتايج بتعتوه هتعمل بيها ايه؟ ممكن نساعدك فى عمل الغرض الأصلى
  20. أرجومن كل من يفهم ربط الVB6 بقواعد البيانات جيدآ  أن يجيبنى كيف يمكن تشغيل ال ConnectionString ADODC على أى فولدر قمت بعمل البرنامج ووضعت فى كود الForm_Load هذه الجملة Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\STUDENT.mdb;Persist Security Info=False"وعمل البرنامج جيدآ فى فولدره ولكن لما نقلت الملف الى فولدر آخر حدثت مشكلة واعترض البرنامج بسبب خصائص الADODC ففى خصائصه كانت خاصية الConnectionString مكتوبة كالآتى Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\New FOLDER\STUDENT.mdb;Persist Security Info=False فلما غيرتها بنفس اسلوب جملة الكود كالآتى Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\STUDENT.mdb;Persist Security Info=False اعترض البرنامج أيضآ فلما جعلت مكان هذه الخاصية فارغآ ظنآ منى أنه قد يأخذها حينئذ من جملة الكود اعترض البرنامج أيضآ   فما الحل أرجوكم ولكم ألف شكر  
  21. ان كان هذا هو طلبك فأرجوك لأن ادارة المنتدى هنا لا تعترف نهائيآ بمثل هذا الشكر فأرجوك أن تضغط على الزر الأخضر فى نهاية مشاركتى على يسار الصفحة (زر المشاركة القيمة) وان كنت تريد أكثر من ذلك فاطلب طلبك وشكرآ
  22. أليس هذا هو طلبك؟ أم ماذا كنت تريد بالضبط
  23. هذا هو طلبك   برنامج السبعات للمنتدى.rar
  24. هكذا أبدأ باذن الله فى عمل برنامجك وأرفقه لك فى القريب العاجل ان شاء الله
  25. لم أفهم اجابتك أجبنى على سؤالى السابق باحدى الاجابتين   اما  "نعم يجوز"  واما   "لا يجوز"   أو دعك من هذا السؤال(يبدو أنك لم تفهم معناه)  وأجبنى على كل من هذين السؤالين باحدى الاجابتين   اما  "نعم يجوز"  واما   "لا يجوز"   السؤال الأول:-              هل يجوز فى أى مرة اختيار الأرقام   {8, 8, 8, 8, 10, 21, 21}    تأكيد لاجابة السؤال الأول:-              هل يجوز فى أى مرة اختيار الأرقام   {1, 2, 6, 6, 15, 18, 78}    السؤال الثانى:-              هل يجوز فى مرة اختيار الأرقام   {1, 3, 7, 23, 25, 50, 80}              ثم فى مرة أخرى اختيار الأرقام   {1, 3, 7, 23, 46, 50, 80}        وهذا آخر ما عندى     ان لم تفهم معنى هذه الأسئلة فلا بد أن تسأل أى صديق لك     يشرح لك معناها  ثم يجيبنى عليها