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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 57 أمس, 01:49 PM
آخر رد: أبو نوره
  [سؤال] عرض إسم عشوائي من TextBox1 و وضعه في TextBox2 كل 60 ثانية فارس محمد 7 194 08-09-17, 06:29 AM
آخر رد: Amjad
  استفسار حول اظهار البرنامج زيد زينوبي 11 392 26-08-17, 04:49 PM
آخر رد: زيد زينوبي
  هل من الممكن اظهار بيانات موجودة بفورم الى Report viewer غير متصل بقاعدة بيانات رهف العريفي 13 1,143 24-08-17, 01:48 PM
آخر رد: زيد زينوبي
  سؤالى عن جملة select بشرط معكوس كرم ابوهشام 4 138 27-07-17, 06:05 PM
آخر رد: كرم ابوهشام
  اظهار تاريخ بعد اسبوع من تاريخ اليوم تناسيم 3 177 12-06-17, 02:24 PM
آخر رد: Amir_alzubidy
  [VB.NET] عرض البيانات بشرط ( تاريخ اليوم) محمد بوقزاحة 2 192 09-06-17, 02:30 AM
آخر رد: محمد بوقزاحة
Question [VB.NET] سؤال اظهار واخفاء الفورم بدون مسح بيانات الفورم AYAD VB PROF 15 477 02-06-17, 07:46 PM
آخر رد: AYAD VB PROF
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 172 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  [VB.NET] ترقيم تلقائي بشرط محمد بوقزاحة 1 185 17-05-17, 06:35 AM
آخر رد: alma2

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


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