• الإعلانات

    • فيصل الحربي

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

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

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

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

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

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

مشاركه بواسطة اسلام الكبابى


  1. أريد استعلام بحيث لو وضعت كلمة احمد عمر

    يجيب لي كل العملاء الذين تبدأ أسماؤهم بكلمة احمد عمر (سواء بهمزة او بدون همزة)

    مثلآ احمد عمر سعيد

        ،أحمد عمر فاروق

        ،أحمد عمر محمد

        ،احمد عمر عبد العزيز

    ولكم ألف شكر

     

    0

  2. كيف يمكن تحويل برنامج الVB6 الى EXE

    بحيث يظهر المكتوب باللغة العربية كما يظهر تمامآ فى برنامج الVB6 نفسه

        If Not IsNumeric(X) Then MsgBox "من فضلك أدخل رقم        ", vbCritical, "          ما هذا ؟"
    

    حين أردت التحويل ضغطت فى برنامج الVB6 على FILE ثم على MAKE Project1.EXE

    وشغلت برنامج الEXE اشتغل تمام ولكن كتب الرسالات المكتوبة باللغة العربية معكوسة

    فمثلآ الجملة "ما هذا ؟" كتبها "؟ اذه ام"

    فما حل هذه المشكلة

    ولكم ألف شكر

    0

  3. Quote

    البحث سوف يضم التالى ( اثبات ما سبق فى المقدمة - وضع نظرية لاولية العدد - وضع النتائج المتعلقة بالاعداد المؤلفة و هى نتائج لنظرية و مبرهنة و ليست نتائج اختبارات - وضع نتائج متعلقة باعداد اخرى و نظريات مثل نظرية ويلسون و عدد ميرسين -شرح الغربال المتعلق بالنظرية - شرح طريقة تحليل العدد الى عوامله -براهين متعلقة بتحديد ما اذا كان العدد له جذر صحيح ولن ابلغ بها قبل نشر البحث للاسف رغم انى فى حاجة لها فى الخوارزمية - خوارزمية برمجية بكود مبسط تم استخراج نتائج منه - النتائج و المناقشات ...الخ)

    هل معنى هذا أنه لاينفعك أى كود يقوم بتحليل أى عدد الى عوامله الأولية؟

    0

  4. أريد اذا كتبنا الكود
    X = AA
    X = X + 10
    Y = 5 * X
    Print Y
    يعتبر الكود المكتوب هو
    AA = AA + 10
    Y = 5 * AA
    Print Y

    و اذا كتبنا الكود
    X = BB
    X = X + 10
    Y = 5 * X
    Print Y
    يعتبر الكود المكتوب هو
    BB = BB + 10
    Y = 5 * BB
    Print Y

    و اذا كتبنا الكود
    X = CC
    X = X + 10
    Y = 5 * X
    Print Y
    يعتبر الكود المكتوب هو
    CC = CC + 10
    Y = 5 * CC
    Print Y


    وطبعآ الأكواد أطول من ذلك بكثير
    والمتغيرات ليست 3 فقط(AA , BB , CC) ولكنها كثييرة

    فكيف يتم ذلك؟
    ولكم ألف شكر

    0

  5. لدى عدة متغيرات رقمية (AA ,BB ,CC)
    وأريد عمل متغير( X مثلآ) تكون قيمته هى أحد أسماء هذه المتغيرات
    أى تكون قيمته =AA  أو  =BB  أو =CC
    يحيث اذا كتبنا الكود  
     X = "BB"
    X = X + 10
    Y = 5 * X
    Print Y
    يعتبر الكود المكتوب هو
    BB = BB + 10
    Y = 5 * BB
    Print Y
    فكيف يتم ذلك؟
    ولكم ألف شكر
    0

  6. كيف يمكن عمل أداة التكست( أو غيرها) فى شكل مصفوفة مزدوجة ؟
    أنا أستطيع عملها كمصفوفة فردية كالآتى

    كود PHP:
    Private Sub Text1_Change(Index As Integer)
    Index
    Text1
    (I).FontSize 16
    End Sub 

    وتم عمل هذا الكود بعد أن وضعت على الفورم أداة TEXT1
    ثم عملت لها COPY و PEAST عشر مرات مثلآ فصار على الفورم الأدوات TEXT1(10) , .................., TEXT1(3) , TEXT1(2) , TEXT1(1)

    فكيف يمكن عمل
    الأدوات TEXT1(10,10) , .................., TEXT1(1,3) , TEXT1(1,2) , TEXT1(1,1)
    واستخدامها فى كود مثل السابق

    ولكم ألف شكر

    0

  7. لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6

    ما هو الكود اللازم لمعرفة احداثيات نقطة بداية مستقيم مرسوم ونقطة نهايته

    هذا الكود نقلته من أحد مواضيع الأستاذة/ سميرة عبد الله أو الأستاذة samira2009

    لمعرفة بعض خصائص مستقيم مرسوم 

    Private Sub Command4_Click()
    Dim acadapp As AcadApplication
    Dim newssett As AcadSelectionSet
    Dim obj3 As AcadEntity
    Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk")
    newssett.SelectOnScreen
    For Each obj3 In newssett
    If obj3.ObjectName = "AcDbLine" Then
    Print "  طول المستقيم "; obj3.Length
    Print "زاوية ميله بالتقدير الدائرى "; obj3.angle
    End If
    Next obj3
    acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete
    End Sub  

    ولما حاولت اضافة الجملتين التاليتين فى هذا الكود لمعرفة احداثيات نقطة بداية المستقيم ونقطة نهايته مع طوله وزاوية ميله
    اعترض البرنامج

     Print "نقطة بدايته"; obj3.STARTX; obj3.STARTY
    Print "نقطة نهايته"; obj3.ENDX; obj3.ENDY  

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

     

    0

  8. هذا كود منقول من أحد المواضيع

    Private Sub Command1_Click()
    Dim newssett As AcadSelectionSet
    Dim obj3 As AcadEntity
    Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk")
    newssett.SelectOnScreen

    For Each obj3 In newssett
    obj3.Color = acGreen
    Print "  obj3.Color= "; obj3.Color
    Next obj3
     
    acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete
     Rem"الجملةالسابقة حتى لا يحدث خطأ واعتراض من البرنامج اذا ضغط المستخدم على هذا الزر مرة أخرى ليعرف خصائص مجموعةأخرى من العناصر"
    300 End Sub

    ولكنه لا يقوم بتلوين جميع العناصر المرسومة باللون الأخض
    انما يطلب منى أن أختار بعض العناصر فيقوم بتلوينها
    أرجو تعديل هذا الكود ليقوم بتلوين جميع العناصر المرسومة

    ولكم ألف شكر

    0

  9. لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6
    ما هو الكود اللازم بعد رسم المستخدم أى عناصر فى صفحة الأوتوكاد ثم ضغطه على زر معين فى صفحة الفيجوال بيسك
    كى يتم تلوين جميع العناصر المرسومة باللون الأخضر مثلآ

    ولكم ألف شكر

    0

  10. حاولت الاشتراك فى منتدى نصرة رسول الله

    ففتح لى نموذج التسجيل 

    وفى نهاية البيانات المطوب ادخالها وجدت هذه الرسالة الغريبة " من فضلك أدخل كود الأمان الظاهر أمامك * "

    فأين هو هذا الكود ؟ وأين أكتبه ؟

    كان أى بيان قبل ذلك اجابته معلومة عندى  وأمامه تكست لأكتبه فيه

    ولكن أين كود الأمان الذى تطلبونه ؟ وأين أكتبه ؟

     

    0

  11. لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6
    كيف يمكن بعد رسم شبكة المحاور الأفقية والرأسية فى صفحة الأوتوكاد
    عمل أى كود يحدث عند ضغط المستخدم على نقطة من نقط تقاطعات المحاور

    كلنا نعلم أن الكود اللازم لكتابة الجملة "علم الهندسة واسع" داخل الTEXT1 عندما يضغط المستخدم على الزرCOMMAND1 يكون كالتالى

    PHP كود :
    Private Sub Command1_Click()
    Text1.Text "علم الهندسة واسع"
    End Sub

      فما هو الكود اللازم لكتابة الجملة "علم الهندسة واسع" داخل ال TEXT1 عندما يضغط المستخدم على نقطة من نقط تقاطعات المحاور

    نقطة من نقط تقاطعات المحاور  وليس أى نقطة فى الصفحة

    ولكم ألف شكر

     
    0

  12. ما الفرق بين الجملتين
    XXX = Adodc1.Recordset.AbsolutePosition
    XXX = Adodc1.Recordset.Bookmark        
    أرى أن هذه تحسب موقع السجل الحالى
              وهذه تحسب موقع السجل الحالى
    ولكن بالتأكيد هناك فرق
    والا ما جعلت ميكروسوفت هذه خاصية وهذه خاصية أخرى
    أرجو الرد مع  شرح بأى مثال
    ولكم ألف شكر
    0

  13. عرفت الحل والحمد لله
    الحل هو أن يكون تعاملى مع RS وليس مع الADODC نفسه
    أى أن يكون الكود هكذا
    If RS.State = adStateOpen Then RS.Close
    RS.Open "SELECT * FROM table1", db, adOpenStatic, adLockPessimistic
    RS.MoveFirst: RS.Move (9)
    XXX = RS.Fields(3)

     

    0