تقييم الموضوع :
  • 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 ك ب / التحميلات : 177)
 
 
@@@ سامحوني، منقطع نهائياً @@@

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 69 05-02-17, 01:43 AM
آخر رد: المتألق9
  [سؤال] اظهار حقلين في كومبو بوكس ابو يوسف النواوي 2 4 120 02-02-17, 07:51 PM
آخر رد: ابو يوسف النواوي 2
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 274 21-11-16, 11:00 AM
آخر رد: trfa8899
  [سؤال] لعدم التكرار في naden 2 126 10-11-16, 03:15 AM
آخر رد: naden
  اظهار او اخفاء الرسائل للمستخدم العواد الصغير 11 284 09-11-16, 06:43 PM
آخر رد: العواد الصغير
  اضافة الاصناف جديد بشرط %Eman% 5 313 09-11-16, 01:39 PM
آخر رد: walkady
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 216 24-10-16, 06:45 AM
آخر رد: thevirus
  [سؤال] اظهار الصورة naden 3 240 03-10-16, 08:58 AM
آخر رد: silverlight
  اظهار الايقونه على gridview button حسب اذا كان يوجد بينات في السطر المعين Rabeea Qbaha 4 223 12-09-16, 08:48 PM
آخر رد: Rabeea Qbaha
  [VB.NET] اظهار رابط داخل تكست بوكس بعد الرفع ابو روضة 5 201 29-07-16, 12:02 PM
آخر رد: LoveVb

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


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