• الإعلانات

    • فيصل الحربي

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

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

سارة العروي

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

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

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

السمعه بالموقع

0 عادي

عن سارة العروي

  • الرتبة
    عضو جديد
  1. من يستطيع نقل هذا الكود إلى لغة VB.NET

    خلاص الحمد لله تم :) الله يفتح على كل المسلمين و عليك أخي و يحقق لهم كلهم كلللللللل أمآنيهم :)
  2. من يستطيع نقل هذا الكود إلى لغة VB.NET

    رائع أخي افدتني كثير ... :) بس بافي سؤال بالنسبة لتعريف المتغيرات أين يكون في الـ form أو بالـ module ?
  3. من يستطيع نقل هذا الكود إلى لغة VB.NET

    الكود يقوم بالتحكم بدائرة إلكترونية خارجية عن طريق منفذ الطابعة بالكمبيوتر ...
  4. من يستطيع نقل هذا الكود إلى لغة VB.NET

    المشكلة إني لا أملك محرر للغة الـ vb ... لذلك أرغب في نقله إلى vb.net لكي استخدم visual studio 2010 من يستطيع أعطائي رابط محرر للغة الـ vb يكون مجاني غير مكرك أو بسريال ويعمل على windows7 ... أعتقد ان ايجاد محرر بهذة الصفات صعب لأن اغلب محررات الـ VB قديمة و لا تعمل على windows 7 بالإضافة إلى انه لا توجد نسخة مجانية تجربية لأن اللغة قديمة و الشركات قد انتهت من عرض النسخة التجربيبة لا أرغب بإستخدام نسخة كاملة أو مكركة لأجل الحقوق ولا أملك المال لشراء النسخة الأصلية لذلك خياري الوحيد هو visual studio 2010 حيث ان موقع ميكروسفت يعرض نسخة تجربيبة لمدة 90 يوماً .. كيف يمكن لي كتابة كود بلغة الـ VB على محرر الـ visual stdio 2010 أعتقد انه لابد أن انقله إلى لغة vb.net وبما أنني لا أملك خلفية عن لغة الـ vb.net فأنا أحتاج مساعدتكم :)
  5. السلام عليكم ورحمة الله وبركاتة املك الكود التالي بلغة VB واحتاج مساعدة في نقله لغة VB.NET لا أملك أي خلفية عن لغة الـ VB.NET . Dim counter1, x, y, outputs, inputs, flag As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() dp.address = 888 sp.address = 889 cp.address = 890 cp.Value = 1 End Sub Private Sub Timer1_Timer() DoEvents If counter1 < 0 Then counter1 = 0 x = counter1 Mod 10 y = (counter1 - x) / 10 y = y * (2 ^ 4) outputs = y Or x dp.Value = outputs If counter1 > 99 Then counter1 = 0 inputs = (sp.Value And 24) / 8 If inputs = 3 Then flag = 3 ElseIf inputs = 2 Then If Not inputs = flag Then counter1 = counter1 + 1 flag = 2 End If ElseIf inputs = 1 Then If Not inputs = flag Then counter1 = counter1 - 1 flag = 1 End If ElseIf inputs = 0 Then flag = 0 End If End Sub
  6. السلام عليكم ورحمة الله وبركاتة أخواني و اخواتي ... أريد التحكم بدائرة خارجية عن طريق منفذ الطابعة أو الـ (Parallel port ) وأرغب في استخدام اللابتوب في العمل ... بطبيعة الحال ، لابتوبي لا يحتوى على منفذ طابعة ... قمت بشراء الـ usb to parallel port adapter لغرض التحكم ولكني قرأت في هذا المنتدى انه لا يمكن استخدامه للتحكم وانه فقط لغرض الطباعة ... فكرت بإضافة الـ parallel Port عن طريق الـ expansion slot بالتحديد الـ Express card فسؤالي هنا للخبـراء هل إذا قمت بإضافة المنفذ بهذة الطريقة يمكنني التحكم من خلالة بالدائرة الخارجية أم فقط للطباعة مثل الـ usb to parallel port adapter وشكراً
  7. السلام عليكم ورحمة الله وبركاتة ماهو معنى كلمة flag في الكود التالي Private Sub Form_Load() dp.address = 888 sp.address = 889 cp.address = 890 cp.Value = 1 End Sub Private Sub Timer1_Timer() DoEvents If counter1 < 0 Then counter1 = 0 x = counter1 Mod 10 y = (counter1 - x) / 10 y = y * (2 ^ 4) outputs = y Or x dp.Value = outputs If counter1 > 99 Then counter1 = 0 inputs = (sp.Value And 24) / 8 If inputs = 3 Then flag = 3 ElseIf inputs = 2 Then If Not inputs =flagThen counter1 = counter1 + 1 flag = 2 End If ElseIf inputs = 1 Then If Not inputs =flag Then counter1 = counter1 - 1 flag = 1 End If ElseIf inputs = 0 Then flag = 0 End If End Sub علماً بأن الكود هو للتحكم بدائرة الكترونية خارجية بإستخدام منفذ الطابعة