بسم الله الرحمن الرحيم
أريد كود كتالي:-
في التكست بوكس رقم معين وليكن 12534678
وفي التكست الأخرى رقم اخر وليكن 12345678
أريد كود يقوم بطابقة الأرقام مع بعضها وأن يلون لي الأرقام الغير مطابقة
وشكرا لكم
اهلا اخي الكريم ، في البداية لاتستطيع تغيير لون جزء من النص في أداة التكست بوكس العادية أو الإفتراضية الموجودة في صندوق الأدوات الإفتراضي ، وإنما يجب عليك إستخدام أداة الـ 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
عند الضغط مرة أخرى يبقى اللون الرجاء تعديل الكود
عفوا من الأخ الكريم الرفيق أحمد منصور الكود غير طلبي سأقوم بالشرح بالتفصيل
عندي مجموعة رموز فقط فيها 01 ولا يوجد غيرها ولا يوجد حروف ليكن الرقم 10110101111011101010
وهناك مجموعة كبيرة من هذه الأرقام أريد كود أو برنامج يقوم بالاّتي:-
1-يقوم بالبحث عن الرقم ضمن مجموعة الأرقام ويعطني الرقم الأقرب من حيث تسلسل الأرقام أي أنه يطابق ال 0و 1
مع تجاورهما ويعطيني النتيجة وهي أقرب تسلسل لهذا الرقم أو مجموعة لا تتعدى ثلاثة أرقام أريد أن أستخلص من هذه المجموعة الكبيرة
أرقام بشروط خاصة وهذا شرط الإستخراج
الرجاء فهم السؤال وأي توضيح أنا جاهز
وشكرا للمساعدة
والله موفق الجميع