تقييم الموضوع :
  • 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 ك ب / التحميلات : 56)
الرد }}}
تم الشكر بواسطة: rnmr , rnmr
#5
عفوا من الأخ الكريم الرفيق أحمد منصور الكود غير طلبي سأقوم بالشرح بالتفصيل
عندي مجموعة رموز فقط فيها 01 ولا يوجد غيرها ولا يوجد حروف ليكن الرقم 10110101111011101010
وهناك مجموعة كبيرة من هذه الأرقام أريد كود أو برنامج يقوم بالاّتي:-
1-يقوم بالبحث عن الرقم ضمن مجموعة الأرقام ويعطني الرقم الأقرب من حيث تسلسل الأرقام أي أنه يطابق ال 0و 1
مع تجاورهما ويعطيني النتيجة وهي أقرب تسلسل لهذا الرقم أو مجموعة لا تتعدى ثلاثة أرقام أريد أن أستخلص من هذه المجموعة الكبيرة
أرقام بشروط خاصة وهذا شرط الإستخراج
الرجاء فهم السؤال وأي توضيح أنا جاهز
وشكرا للمساعدة
والله موفق الجميع
الرد }}}
تم الشكر بواسطة:



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


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