• الإعلانات

    • فيصل الحربي

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

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

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

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

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

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

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


  1. أريد اذا كتبنا الكود
    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

  2. لدى عدة متغيرات رقمية (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

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

    كود 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

  4. لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك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

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

    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

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

    ولكم ألف شكر

    0

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

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

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

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

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

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

     

    0

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

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

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

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

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

    ولكم ألف شكر

     
    0

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

  10. عرفت الحل والحمد لله
    الحل هو أن يكون تعاملى مع 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

  11. لدى adodc مرتبط بأحد جداول قاعدة بيانات

    كيف يمكن معرفة قيمة حقل معين فى سجل معين (مثلآ قيمة حقل رقم 3 فى السجل العاشر)

    كل ما أعلمه من أجل ذلك أن أتوجه للسجل العاشر ثم أكتب الجملة

    XXX = Adodc1.Recordset.Fields(3)

    فكيف يمكن معرفة ذلك دون التوجه للسجل العاشر

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

    ولكم ألف شكر

    0

  12. لا أستطيع فتح النت
    كيف أتخلص من هذا الموقع
    لا أستطيع فتح أى موقع على النت بسببه
    هذه الكلمات التى تقرءونها الآن اضطررت لكى أضعها لكم فى المنتدى الى كتابتها أولآ فى ملف وورد ثم نسخها
    ثم لصقها هنا بسرعة حتى لا تطير صفحة المنتدى ويظهر بدلآ منها صفحة هذا الموقع
    فكيف أتخلص من هذا الموقع
    ولكم ألف شكر
    0

  13. أريد تنفيذ كود معين كلما تغيرت خلية الDATAGRID
    بحيث اذا قام المستخدم بعمل تعديل فى احدى الخلايا ثم انتقل الى خلية أخرى يقوم البرنامج بتنفيذ هذا الكود
    مع العلم أن حدث الDataGrid_Change لم يصلح فى ذلك لأنه يجعل البرنامج ينفذ هذا الكود بمجرد كتابة المستخدم حرف واحد أو رقم واحد فى هذه الخلية التى يريد تعديل ما فيها
    ولكنى لا أريد تنفيذ هذا الكود الا بعد أن ينتهى المستحدم من كتابته ويخرج من هذه الخلية الى غيرها
    ولكم ألف شكر
    0