17-06-17, 05:43 PM
معذرة أخي ، يجب أن يدخل المستخدم البيانات في مستند نص واحد فقط بحيث يكون ما يدخله مجموع واحد من المجموعة الأولي + واحد من المجموعة الثانية + واحد من المجموعة الثالثة
17-06-17, 05:43 PM
17-06-17, 06:00 PM
السلام عليكم
تفضل
تفضل
17-06-17, 07:26 PM
جزاك الله خيرا يا أخي الكريم وبارك لك في علمك
كيف يمكنني إزالة المسافات بحيث أكتب ما هو داخل المربع فقط بدون مسافات وجزاك الله خيرا ؟؟
يعني 741 وليس 7 4 1
كيف يمكنني إزالة المسافات بحيث أكتب ما هو داخل المربع فقط بدون مسافات وجزاك الله خيرا ؟؟
يعني 741 وليس 7 4 1
17-06-17, 10:27 PM
تفضل
PHP كود :
Private Sub Command2_Click()
Dim m As String
sp = Split("1 2 3 4 5 6 7 8 9", " ")
For i = 0 To UBound(sp)
m = m + Trim((sp(i)))
Next
MsgBox m
End Sub
17-06-17, 10:50 PM
لم أفهم أخي الكريم ، أنا عندما أدخل الأرقام كما أعطيتني الكود مشكورا يلزمني أن أضع بينها مسافات فيجب أن أكتب 1 4 7 ليعتبرها صحيحة ، وأنا أريد أن أكتب 147 هكذا بدون مسافات ، وسامحني لكثرة أسئلتي ..
18-06-17, 03:38 AM
أهلا أخي الكريم , هذا تعديل على مثال الأخ العزيز السندباد100 .
18-09-17, 11:54 AM
السلام عليكم و رحمة الله وبركاته
لقد أتعبتكم جدا معي ولكن باقي مشكلة بسيطة خالص أحتاج إلي حلها
عند تنفيذ الأمر فإنه يكتب صحيح حتي لو كتبت شيئا بعد النصوص
يعني لو كتبت واحد أربعة سبعة فإنه يقول صحيح
ولو كتبت واحد أربعة سبعة عشرة خمستاشر فإنه يقول صحيح برضه
أريده أن يكتب صحيح فقط إذا كانت واحد أربعة سبعة دون شيء ورائها
وجزاكم الله خيرا كثيرا
لقد أتعبتكم جدا معي ولكن باقي مشكلة بسيطة خالص أحتاج إلي حلها
عند تنفيذ الأمر فإنه يكتب صحيح حتي لو كتبت شيئا بعد النصوص
يعني لو كتبت واحد أربعة سبعة فإنه يقول صحيح
ولو كتبت واحد أربعة سبعة عشرة خمستاشر فإنه يقول صحيح برضه
أريده أن يكتب صحيح فقط إذا كانت واحد أربعة سبعة دون شيء ورائها
وجزاكم الله خيرا كثيرا
19-09-17, 04:54 AM
وعليكم السلام و رحمة الله وبركاته
أهلا بك أخي الكريم , تم تعديل المثال .
أهلا بك أخي الكريم , تم تعديل المثال .
19-09-17, 05:47 PM
السلام عليكم و رحمة الله و بركاته
جزاك الله خيرا علي الاستجابة و زادك علما ، بقيت مشكلة أخري ..
أن الكود يعمل بالترتيب الأصلي والعكسي
يعني واحد أربعة سبعة و
سبعة أربعة واحد
أنا أريد واحد أربعة سبعة فقط
وجزاك الله خيرا كثيرا
جزاك الله خيرا علي الاستجابة و زادك علما ، بقيت مشكلة أخري ..
أن الكود يعمل بالترتيب الأصلي والعكسي
يعني واحد أربعة سبعة و
سبعة أربعة واحد
أنا أريد واحد أربعة سبعة فقط
وجزاك الله خيرا كثيرا
20-09-17, 01:42 AM
السلام عليكم
فكرتي كالاتي وعليك تحويلها الى كود
بالاضافة الى
أنا اعمل فقط على vb.Net ولست متأكد من أن الفكرة يمكن تطبيقها في vb6
قم بتقطيع النص من التكست بوكس وضع نص كل تكست بوكس داخل مصفوفة خاصة
ثم أختبر تشابه الكلمة الاولى مع أي كلمة من المجموعة الاولى وكذلك الكلمة الثانية مع المجموعة الثانية وهكذا ...
أتمنى أن الفكرة قد وصلت
فكرتي كالاتي وعليك تحويلها الى كود
بالاضافة الى
أنا اعمل فقط على vb.Net ولست متأكد من أن الفكرة يمكن تطبيقها في vb6
قم بتقطيع النص من التكست بوكس وضع نص كل تكست بوكس داخل مصفوفة خاصة
ثم أختبر تشابه الكلمة الاولى مع أي كلمة من المجموعة الاولى وكذلك الكلمة الثانية مع المجموعة الثانية وهكذا ...
PHP كود :
Private Function CheckWord(word As String, queue As String()) As Boolean
For i As Integer = 0 To UBound(queue)
If word = queue(i) Then Return True
Next
Return False
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim txt As String = TextBox1.Text
Dim words() As String = txt.Split(" ")
Dim queue_1, queue_2, queue_3 As String() ' إملأها بنفسك
If words.Count <> 3 Then Exit Sub ' لان عدد المجموعات 3
If CheckWord(words(0), queue_1) And
CheckWord(words(1), queue_2) And
CheckWord(words(2), queue_3) Then
MsgBox("Exact !")
End If
End Sub
أتمنى أن الفكرة قد وصلت