تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود مطابقة أرقام
#1
Heart 
بسم الله الرحمن الرحيم
أريد كود كتالي:-
في التكست بوكس رقم معين وليكن 12534678
وفي التكست الأخرى رقم اخر وليكن 12345678
أريد كود يقوم بطابقة الأرقام مع بعضها وأن يلون لي الأرقام الغير مطابقة
وشكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
اهلا اخي الكريم ، في البداية لاتستطيع تغيير لون جزء من النص في أداة التكست بوكس العادية أو الإفتراضية الموجودة في صندوق الأدوات الإفتراضي ، وإنما يجب عليك إستخدام أداة الـ RichTextBox التي تسمح بتغيير لون جزء معين من النص بداخلها ، لذلك لنفترض أنك أدرجت على الفورم ٢ ريتش تكست بوكس الأول بإسم T1 والثاني بإسم T2 , عندها سيكون كود المطابقة كالتالي :

كود :
Dim I As Integer

For I = 1 To Len(T1.Text)
    If Mid$(T1.Text, I, 1) <> Mid$(T2.Text, I, 1) Then
      T1.SelStart = I - 1: T2.SelStart = I - 1
      T1.SelLength = 1: T2.SelLength = 1
      T1.SelColor = vbRed: T2.SelColor = vbRed
    End If
Next
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#3
عند الضغط مرة أخرى يبقى اللون الرجاء تعديل الكود
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
اخي قمت بتطبيق كود الرفيق احمد منصور
وتم تعديل ما طلبت

.rar   Vb6_Coding.rar (الحجم : 2.32 ك ب / التحميلات : 28)
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة:
#5
عفوا من الأخ الكريم الرفيق أحمد منصور الكود غير طلبي سأقوم بالشرح بالتفصيل
عندي مجموعة رموز فقط فيها 01 ولا يوجد غيرها ولا يوجد حروف ليكن الرقم 10110101111011101010
وهناك مجموعة كبيرة من هذه الأرقام أريد كود أو برنامج يقوم بالاّتي:-
1-يقوم بالبحث عن الرقم ضمن مجموعة الأرقام ويعطني الرقم الأقرب من حيث تسلسل الأرقام أي أنه يطابق ال 0و 1
مع تجاورهما ويعطيني النتيجة وهي أقرب تسلسل لهذا الرقم أو مجموعة لا تتعدى ثلاثة أرقام أريد أن أستخلص من هذه المجموعة الكبيرة
أرقام بشروط خاصة وهذا شرط الإستخراج
الرجاء فهم السؤال وأي توضيح أنا جاهز
وشكرا للمساعدة
والله موفق الجميع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] مساعدة في تعديل كود مقارنة أرقام ثم وضعها في لست بوكس asto 1 120 14-06-16, 08:00 AM
آخر رد: Ahmed_Mansoor
  كيفية توليد مجموعة أرقام faridfarid 2 166 04-03-16, 08:44 PM
آخر رد: Fantastico
Heart كود أقرب مطابقة KamelArab 2 317 13-06-15, 03:45 PM
آخر رد: KamelArab
Question [vb6.0] كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين Microformt 0 507 30-08-14, 09:06 AM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم