+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عدم تكرار عنصر في مصفوفة (/showthread.php?tid=42136)
عدم تكرار عنصر في مصفوفة - atefkhalf2004 - 12-08-22
السادة
هذا كود يعرض 3 اسماء عشوائية
Dim array As String() = New String(DataGridView1.Rows.Count - 1) {}
For i As Integer = 0 To DataGridView1.Rows.Count - 1
array(i) = DataGridView1.Rows(i).Cells("name").Value
Next
For i = 1 To 3
Dim arrNames As Array = array
Dim rand As New Random
Dim rndIndex As Integer = rand.Next(0, arrNames.Length)
Dim rndName As String = arrNames(rndIndex)
MsgBox(rndName)
Next
لعدم خبرتي بالمصفوفات
ارغب في عدم تكرار عنصر
اي
اضع شرط في حالة وجود العنصر يعرض عنصر بدلا منه
شكرا
RE: عدم تكرار عنصر في مصفوفة - Taha Okla - 12-08-22
هل تعرف بقواعد البيانات - التخزين فيها واستخراج البيانات منها ؟؟
إن كنت تعرف فالحل الأمثل هو :
أن تجعل برنامجك يستخرج القيم من جدول من قاعدة البيانات باستخدام الخاصية (distinct) فهي تمنع التكرار..
فيكون الاستعلام المستخدم في ااسلاتعلام عن البيانات هو :
"select distinct FieldName From TablName"
ثم انسب هذه القيم لمصفوفتك العشوائية .. واستخرج منها ما شئت من قيم ..
RE: عدم تكرار عنصر في مصفوفة - atefkhalf2004 - 12-08-22
انا حضرتك اريدها علي الكود المرسل
للتعليم
ارغب في معرفة كيفية اختبار عنصر في مصفوفة مع عدم التكرا ر
شكرا
RE: عدم تكرار عنصر في مصفوفة - atefkhalf2004 - 13-08-22
السادة الزملاء برجاء الرد
RE: عدم تكرار عنصر في مصفوفة - atefkhalf2004 - 16-08-22
السادة الافاضل
لو سؤالي خطا برجاء التوصيح
او ابجاد حل للتعليم
RE: عدم تكرار عنصر في مصفوفة - معاند الحظ - 16-08-22
اخوي اي مصفوفة او اي عنصر تحكم من النوع الذي يحتوي داخله عناصر اخرى يحتوي على
خاصية Contains وهي مفيدة لمعرفة اذا كان عنصر ما موجود داخل المصفوفة او داخل الليست بوكس مثلا وهكذا
والطريقة بسيطة فقط ضع شرط تحقق If واستخدم الدالة او الخاصية Contains لتعرف هل المصفوفة تحتوي على
العنصر الذي قمت بتمريره كوسيط الى Contains .
اذا فعلت هذا فيجب ان ياتي جواب الشرط اما بالنفي او الاثبات وعندها افعل مايتوجب عليك فعله
كود :
If MyArray.Contains(SomeValue) Then
Do somthing if exist
Else
Do somthing if not exist
End Ifاخوي اي مصفوفة او اي عنصر تحكم من النوع الذي يحتوي داخله عناصر اخرى يحتوي على
خاصية Contains وهي مفيدة لمعرفة اذا كان عنصر ما موجود داخل المصفوفة او داخل الليست بوكس مثلا وهكذا
والطريقة بسيطة فقط ضع شرط تحقق If واستخدم الدالة او الخاصية Contains لتعرف هل المصفوفة تحتوي على
العنصر الذي قمت بتمريره كوسيط الى Contains .
اذا فعلت هذا فيجب ان ياتي جواب الشرط اما بالنفي او الاثبات وعندها افعل مايتوجب عليك فعله
كود :
If MyArray.Contains(SomeValue) Then
Do somthing if exist
Else
Do somthing if not exist
End IfRE: عدم تكرار عنصر في مصفوفة - atefkhalf2004 - 19-08-22
Dim array As String() = New String(DataGridView1.Rows.Count - 1) {}
For i As Integer = 0 To DataGridView1.Rows.Count - 1
array(i) = DataGridView1.Rows(i).Cells("tname").Value
Next
For i = 1 To 3
Dim arrNames As Array = array
Dim rand As New Random
Dim rndIndex As Integer = rand.Next(0, arrNames.Length)
Dim rndName As String = arrNames(rndIndex)
If array.Contains(rndName) Then
Else
MsgBox(rndName)
End If
Next
لم تضبط معي
برجاء التصويب
شكرا