05-04-18, 08:35 PM
السلام عليكم
عندي برنامج بسيط 2 تيكست وبيكتشر
بضع في التيكست الاول اسم والتيكست الثاني يظهر صفاتة والبيكتشر يعرض صورتة
وتاتي الثلاث بيانات من ثلاثة مصفوفات
-1 مصفوفة لاسماء
2- مصفوفة للصفات
3- مصفوفة للصور والصور تاتي من الريسورس
المصفوفات متناسقة كل اسم يقابلة في المصفوفة الاخري صفاتة وبالريسورس صورتة
استخدمت الكود التالي ويعمل ولكن عندما تصل المصفوفة الي اربعين عنصر البرنامج ياخذ وقت مبالغ فية جدا للبحث واظهار النتيجة اريد طريقة لتجاوز البطء الذي يحدث بالبرنامج او طريقة سريعة لظهور البيانات
مع العلم ان عندد العناصر يفوق 90 عنصر والثلاث مصفوفات متساوية العدد ومرتبة كل ايتم متساوي مع عناصر المصفوفة الاخري
عندي برنامج بسيط 2 تيكست وبيكتشر
بضع في التيكست الاول اسم والتيكست الثاني يظهر صفاتة والبيكتشر يعرض صورتة
وتاتي الثلاث بيانات من ثلاثة مصفوفات
-1 مصفوفة لاسماء
2- مصفوفة للصفات
3- مصفوفة للصور والصور تاتي من الريسورس
المصفوفات متناسقة كل اسم يقابلة في المصفوفة الاخري صفاتة وبالريسورس صورتة
استخدمت الكود التالي ويعمل ولكن عندما تصل المصفوفة الي اربعين عنصر البرنامج ياخذ وقت مبالغ فية جدا للبحث واظهار النتيجة اريد طريقة لتجاوز البطء الذي يحدث بالبرنامج او طريقة سريعة لظهور البيانات
مع العلم ان عندد العناصر يفوق 90 عنصر والثلاث مصفوفات متساوية العدد ومرتبة كل ايتم متساوي مع عناصر المصفوفة الاخري
كود :
Dim WEATHER() As String = {"dog", "the wolf", "the lion"}
Dim RESULT() As String = {"DANGROUS", "MOST DANGROUS", "MORE DANGROUS"}
Dim imageresou() As String = {"My.Resources.imag0", "My.Resources.imag1", "My.Resources.imag2"}
Dim STRL As String = TextBox1.Text
For i = 0 To WEATHER.Length - 1
For B = 0 To RESULT.Length - 1
For v = 0 To WEATHER.Length - 1
Dim idx = Array.IndexOf(WEATHER, TextBox1.Text)
Dim fullsprite = imageresou(idx)
Dim resName = fullsprite.Substring(fullsprite.LastIndexOf("."c) + 1)
If idx > -1 Then
TextBox3.Text = RESULT(idx)
PictureBox1.Image = DirectCast(My.Resources.ResourceManager.GetObject(resName, My.Resources.Culture), Bitmap)
Else
TextBox3.Text = "لم يتم ادراجة"
End If
Next
Next
Next