تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتاج كود مقارنة
#1
رمضــــــــــــــــــــــــان كريــــــــــــــــــــــــــــــــــــم

احتاج كود مقارنة بين السطر الاول في التكست بوكس
وسطر موجود في البرنامج
وكمثال اريد لما اكتب في السطر الاول من التكست بوكس  
كود :
5289EAB6EC
يبحث هل هو موجود في الفوكشن ان كان موجود يحدث امر
وان لم يكن غير موجود يحدث امر اخر مثل خروج او شيء مغاير

كود :
Private Function InitValues() As Object
       SecCode(0) = "5289EAB6EC"
       SecCode(1) = "1289EAB6EC"
       SecCode(2) = "2289EAB6EC"
       SecCode(3) = "3289EAB6EC"
       SecCode(4) = "4289EAB6EC"
       SecCode(5) = "6289EAB6EC"
       SecCode(6) = "7289EAB6EC"
End Function
ارجو اني قد افهمة السؤال واتمنى ان اجد الاجابة عندكم اخواني
الرد
تم الشكر بواسطة:
#2
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If InitValues("5289EAB6EC") Then
            MsgBox("موجود")
        Else
            MsgBox("لا")
        End If
    End Sub

    Private Function InitValues(v As String) As Object
        Dim SecCode() As String = {
            "5289EAB6EC",
            "1289EAB6EC",
            "2289EAB6EC",
            "4289EAB6EC",
            "6289EAB6EC",
            "7289EAB6EC"
        }
        Return SecCode.Contains(v)
    End Function
الرد
تم الشكر بواسطة:
#3
(02-06-17, 10:52 PM)alma2 كتب :
كود :
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       If InitValues("5289EAB6EC") Then
           MsgBox("موجود")
       Else
           MsgBox("لا")
       End If
   End Sub

   Private Function InitValues(v As String) As Object
       Dim SecCode() As String = {
           "5289EAB6EC",
           "1289EAB6EC",
           "2289EAB6EC",
           "4289EAB6EC",
           "6289EAB6EC",
           "7289EAB6EC"
       }
       Return SecCode.Contains(v)
   End Function


الكود يعطيني كل الارقام موجودة  حتى لو كتبت رقم غير موجود يظهر انه موجود
الرد
تم الشكر بواسطة:
#4
طالما تتعامل مع Object فأنت هنا تحتاج الي Casting للحصول علي النوع و هو إما عبارة عن مصفوفة او عبارة عن String
مثلا لو الدالة التي تبدأ البيانات ستعود منها بالقيمة Object كما في الكود التالي فأنت هنا تحتاج لعمل Casting من Object الي مصفوفة

PHP كود :
  Private Function GetInitialValues() As Object
        Return 
New String(6) {"5289EAB6EC""1289EAB6EC""2289EAB6EC""3289EAB6EC""4289EAB6EC""6289EAB6EC""7289EAB6EC"}
 
   End Function 

عملية البحث يجب ان تتم هكذا

PHP كود :
Dim valueToSearch As String "5289EAB6EC"

 
       If TryCast(GetInitialValues(), String()).Contains(valueToSearchThen
            MsgBox
("موجود")
 
       Else
            MsgBox
("لا")
 
       End If 

حاول ان تقوم بتغيير قيمة المتغير valueToSearch بأي قيمة أخري تريدها و تري ماذا سيحدث معك

الخلاصة طالما أنك تستخدم object عليك دوما ان تقوم بعمل casting حتي تعود بالنوع الاصلي
الرد
تم الشكر بواسطة:
#5
(03-06-17, 04:33 AM)silverlight كتب : طالما تتعامل مع Object فأنت هنا تحتاج الي Casting للحصول علي النوع و هو إما عبارة عن مصفوفة او عبارة عن String
مثلا لو الدالة التي تبدأ البيانات ستعود منها بالقيمة Object كما في الكود التالي فأنت هنا تحتاج لعمل Casting من Object الي مصفوفة

PHP كود :
  Private Function GetInitialValues() As Object
        Return 
New String(6) {"5289EAB6EC""1289EAB6EC""2289EAB6EC""3289EAB6EC""4289EAB6EC""6289EAB6EC""7289EAB6EC"}
 
   End Function 

عملية البحث يجب ان تتم هكذا

PHP كود :
Dim valueToSearch As String "5289EAB6EC"

 
       If TryCast(GetInitialValues(), String()).Contains(valueToSearchThen
            MsgBox
("موجود")
 
       Else
            MsgBox
("لا")
 
       End If 

حاول ان تقوم بتغيير قيمة المتغير valueToSearch بأي قيمة أخري تريدها و تري ماذا سيحدث معك

الخلاصة طالما أنك تستخدم object عليك دوما ان تقوم بعمل casting حتي تعود بالنوع الاصلي
اخي الكريم شكرا لك لكن انا في سؤالي خصصة السطر الاول يعني التكست بوكس سيعرض به نص اريد التحقق من الرقم الموجود في السطر الاول ان كان موجود ام لا مثل الي بالصورة
الرد
تم الشكر بواسطة:
#6
سؤالك هكذا أخذ شكل مختلف قليلا لكن يمكنك استخدام الفكرة التالية

كود :
  Private Function GetInitialValues() As Object
       Return New String(6) {"5289EAB6EC", "1289EAB6EC", "2289EAB6EC", "3289EAB6EC", "4289EAB6EC", "6289EAB6EC", "7289EAB6EC"}
   End Function

    Dim isExist As Boolean = False
       Dim strings As String() = TryCast(GetInitialValues(), String())
       Dim s As String = "???1289EAB6EC HTTP"
       For i = 0 To strings.Length - 1
           Dim valueTosearch As String = strings(i)
           If s.Contains(valueTosearch) Then
               isExist = True
               Exit For

           End If
       Next

       If isExist Then
           MsgBox("موجود")
       Else
           MsgBox("لا")
       End If
الرد
تم الشكر بواسطة: anes , anes
#7
كود :
Private SecCode() As String = {
        "5289EAB6EC",
        "1289EAB6EC",
        "2289EAB6EC",
        "4289EAB6EC",
        "6289EAB6EC",
        "7289EAB6EC"
    }

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim v As String = Me.TextBox1.Text.TrimStart.Substring(0, 10)
        If SecCode.Contains(v) Then
            MsgBox("موجود")
        Else
            MsgBox("لا")
        End If
    End Sub
الرد
تم الشكر بواسطة: anes , anes
#8
شكرا لكما ايها الاساتذة الكرام تمام
جزاكم الله خيرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 367 26-09-21, 08:31 PM
آخر رد: mohamedgadain61
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 253 24-08-21, 09:12 AM
آخر رد: malek369
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 2 1,447 16-07-21, 02:12 PM
آخر رد: إليسار
  احتاج كود يقوم بتكملة رقم الجول تلقائيا بنفس الحقل عندما اقوم بكتابة جوال العميل mohamedgadain61 5 703 12-01-21, 07:52 PM
آخر رد: محمد بن عطية
  مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي Alziny 3 451 05-01-21, 08:22 PM
آخر رد: 62531
  احتاج microsoft visual c++ 2010 registration key Mina Botros 4 1,576 06-12-20, 10:03 PM
آخر رد: سعود
  [VB.NET] احتاج الى كود ترحيل البيانات بنت الشام 2 960 08-09-20, 09:42 PM
آخر رد: Anas Mahmoud
  احتاج مساعده محمد ايمن 4 1,024 06-07-20, 04:11 AM
آخر رد: محمد ايمن
  بعد ازن اخونا المبرجمين احتاج كود محمد ايمن 3 883 29-06-20, 01:10 AM
آخر رد: WaeLx
  شباب احتاج مساعدتكم للضرورة بأرسال ملفPDF بواسطة الواتس اب ويب من خلال Report Viewer mohamedgadain61 0 662 12-06-20, 03:42 PM
آخر رد: mohamedgadain61

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


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