تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود اظهار رقم عشوائي بشرط عدم التكرار
#1
اريد كود اظهار رقم عشوائي بشرط عدم التكرار وعند انتهاء الارقام لايبدا العد من جديد

ولكن تظهر رسالة بانتهاء الا عداد
الرد }}}}
تم الشكر بواسطة:
#2
اخي شغلة التكرار ما اعرف بها لكن اذا ردت رقم عشوائي أو حرف من عدة حروف عشوائي استخدم

Imports vb = Microsoft.VisualBasic

Public Class Form1
Const num As String = "0123456789"
Dim Res As String

Public Function RandX(ByVal HightX As Short) As Short
Randomize(VB.Timer())
RandX = CShort(Int(Rnd() * HightX) + 1)
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Res = ""
Do
Res = Res & Mid(num, RandX(62), 1)
Loop Until Len(Res) = 4
TextBox1.Text=Res
End Sub
الرد }}}}
تم الشكر بواسطة:
#3

السلام عليكم ورحمة الله وبركاته





هذا مثال يتضمن ( دالة توليد مصفوفة أرقام عشوائية ضمن مجال بدون تكرار )





السلام عليكم ورحمة الله وبركاته


الملفات المرفقة
.rar   Radomize-01.rar (الحجم : 91.82 ك ب / التحميلات : 172)
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#4
الاستاذ الفاضل ابو رائد الف شكر علي المجهود بس المشكلة انا عايز المتغيرtextbox تيكست مش list box ثانيا اريد عند انتهاء الحلقة التكرارية للمتغير يكتب رسالة بانتهاء العملية وانتهاء قيم المتغيرات يعني لو المتغير من 5 الي 9 كل ضغطة زر من التيكست تكتب متغير غير متكرر وعندالانتهاء من المتغير 5و6و7و8و9 يخرج من الحلقة التكرارية برسالة توضح انتهاء العملية
وانا غيرت list box ب textbox
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 132 21-11-16, 11:00 AM
آخر رد: trfa8899
  [سؤال] لعدم التكرار في naden 2 79 10-11-16, 03:15 AM
آخر رد: naden
  اظهار او اخفاء الرسائل للمستخدم العواد الصغير 11 156 09-11-16, 06:43 PM
آخر رد: العواد الصغير
  اضافة الاصناف جديد بشرط %Eman% 5 232 09-11-16, 01:39 PM
آخر رد: walkady
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 127 24-10-16, 06:45 AM
آخر رد: thevirus
  [سؤال] اظهار الصورة naden 3 154 03-10-16, 08:58 AM
آخر رد: silverlight
  اظهار الايقونه على gridview button حسب اذا كان يوجد بينات في السطر المعين Rabeea Qbaha 4 140 12-09-16, 08:48 PM
آخر رد: Rabeea Qbaha
  [VB.NET] اظهار رابط داخل تكست بوكس بعد الرفع ابو روضة 5 143 29-07-16, 12:02 PM
آخر رد: LoveVb
  مشكلة التكرار فى ملف txt أسامة 0 84 30-06-16, 01:54 AM
آخر رد: أسامة
  هل من الممكن اظهار بيانات موجودة بفورم الى Report viewer غير متصل بقاعدة بيانات رهف العريفي 11 467 02-06-16, 07:54 PM
آخر رد: حلا ابوحامضة

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


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