تقييم الموضوع :
  • 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 ك ب / التحميلات : 184)
الرد }}}}
تم الشكر بواسطة:
#4
الاستاذ الفاضل ابو رائد الف شكر علي المجهود بس المشكلة انا عايز المتغيرtextbox تيكست مش list box ثانيا اريد عند انتهاء الحلقة التكرارية للمتغير يكتب رسالة بانتهاء العملية وانتهاء قيم المتغيرات يعني لو المتغير من 5 الي 9 كل ضغطة زر من التيكست تكتب متغير غير متكرر وعندالانتهاء من المتغير 5و6و7و8و9 يخرج من الحلقة التكرارية برسالة توضح انتهاء العملية
وانا غيرت list box ب textbox
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 63 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  [VB.NET] ترقيم تلقائي بشرط محمد بوقزاحة 1 62 17-05-17, 06:35 AM
آخر رد: alma2
  كيف تكون جملة insert في جدول بشرط وفي خلية واحدة فقط ahmedfa71 0 33 16-05-17, 07:05 PM
آخر رد: ahmedfa71
  محتاج كود للتصفية داخل datagridviwe بواسطة حقل id وتصفية بشرط تحديد الرينج mohammed.gadain61 2 90 17-04-17, 09:00 PM
آخر رد: silverlight
  اختيار عنصر عشوائي من Listbox Basil Abdallah 1 52 17-04-17, 01:38 AM
آخر رد: عبـدالله
  تحديد و اظهار بيانات الجدول VB.Net khaled12345 6 180 11-04-17, 10:15 AM
آخر رد: khaled12345
  [سؤال] مساعده في اظهار قيمة عند الاختيار من combobox billyalhaj.2011 17 590 07-04-17, 06:38 AM
آخر رد: جميل علي
  [VB.NET] طلب كود اظهار الاحرف عشوائي Ameer.net 8 203 24-02-17, 02:06 PM
آخر رد: Ameer.net
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 152 05-02-17, 01:43 AM
آخر رد: المتألق9
  [سؤال] اظهار حقلين في كومبو بوكس ابو يوسف النواوي 2 4 222 02-02-17, 07:51 PM
آخر رد: ابو يوسف النواوي 2

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


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