• الإعلانات

    • فيصل الحربي

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

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

man86

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

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

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

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

0 عادي

عن man86

  • الرتبة
    عضو جديد
  1. السلام عليكم  لدي مربع نص غير منضم ويستقبل رقم من جهاز  وزن موصول بلكبيوتر كيفيه حزف اول رقمين من اليسار الرقم يضهر على هذا الشكل 00000000+sD مثال 1.rar
  2. الرقم يظهر بلمثال 00000000+ D و s كيفيه حزف كلمه + و D وs من مربع نص غير منضم
  3. السلام عليكم  مربع نص غير منصم يقراء من جهاز خارجي كيفيه حزف اول حرفين منه  Total = bug & I Label1 =left(total,12) Label1 = (Label1)  
  4. كيفية دمج الكودين مع هذا الميثال ارجو التوضيح من الاخوى الكرام Private Sub Form_Timer() Me.txt_time = Time If Me.MSComm1.CommEvent = comEvReceive Then 'MSComm1.InputMode = comInputModeText Dim buff As Variant Dim bufflen As Integer ' string length 14chrcters Dim MyStr As String TXT_Received.Text = "" 'MSComm1.InputLen = 0 buff = MSComm1.Input 'txtnotfilt.Text = buff bufflen = Len(buff) If bufflen > 15 Then bufflen = 15 MyStr = Trim(StrConv(buff, vbUnicode)) For s = 1 To bufflen - 1 For i = 0 To 9 If Mid$(MyStr, s, 1) = i Then Me.TXT_Received.SetFocus Me.TXT_Received.Text = Me.TXT_Received.Text & i End If Next Next End If End Sub Private Sub MSComm1_OnComm() If Me.MSComm1.CommEvent = comEvReceive Then MSComm1.InputMode = comInputModeText Dim buff As Variant Dim bufflen As Integer ' string length 14chrcters Dim MyStr As String TXT_Received.Text = "" MSComm1.InputLen = 0 buff = MSComm1.Input 'txtnotfilt.Text = buff bufflen = Len(buff) If bufflen > 12 Then bufflen = 12 MyStr = Trim(StrConv(buff, vbUnicode)) For s = 1 To bufflen - 1 For i = 0 To 9 If Mid$(MyStr, s, 1) = i Then Me.TXT_Received.SetFocus Me.TXT_Received = Me.TXT_Received & i End If Next Next End If End Sub
  5. السلام عليكم الاخوة الافاضل : لدي مثال مرفق اريد استخلاص احدث رقم يظهر في مربع غير منظم من دون تكرار المربع يقرء من جهاز خارج الكمبيوترموصول بمنفذ com 1 الكود في المثال يقراء الرقم لكن بشكل مكرر من الاعلا الى الاسفل اريد ان يقراء بسطر واحد مع تحديث البينات يعني احدث رقم يظهر بهاذه الاسطر المثال يوضح مع جزيل الشكر و التقدير مثال 1.rar
  6. و انا ايضا بحاجه الى شرح هل يعمل كود الفيوجل على الاكسس ام يوجد اكواد خاصة ارجو التوضيح مع جزيل الشكر و التقدير
  7. ما زال السؤال مطروح كيف يعمل هذا الكود على الاكسس او كيفية تشغيل برنامج الفيوجل ضمن نموزج الاكسس
  8. ما زال السؤال مطروح كيف يعمل هذا الكود على الاكسس هذ الكود يعمل على الفيوجل 6 لكن اريد تطبيق على اكسس عندما اضع هذا الكود في وحدة نمطية لا اعرف كيف وصلة على النموزج في اكسس ارجو التوضيح مع جزيل الشكر
  9. السلام عليكم الاخوة الكرام انا اريد شرح تشغيل إجراءات فيجوال في نموذج الاكسس فقط او شرح اضافة كود الفيوجل ضمن برنامج الاكسس ليصبح يعمل على الاكسس و هل كود الفيوجل 6 يعمل على الاكسس مع جزيل الشكر و التقدير
  10. كيفية يمكن تشغيل برنامج ايقونة مصممة بلفيوجل ضمن برنامج الاكسس او كيف يمكن نقل كود الايقونة من الفيوجل الى الاكسس مع رفع مثال بلاكسس لكي استطيع قراءة السريال بور ضمن برنامج الاكسس انا استطيع قراءة بلفيوجل لكن اريد اظهار الرقم بلاكسس مع جزيل الشكر و الاحترام تشغيل بلاكسس.rar
  11. لزم حل لهل موضوع لانو مو موجود حلول بلمنتديات العربي فقط عند الاجانب
  12. لزم حل لهل موضوع لانو مو موجود حلو بلمنتديات العربي فقط عند الاجانب