منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريد كود اظهار رقم عشوائي بشرط عدم التكرار وعند انتهاء الارقام لايبدا العد من جديد

ولكن تظهر رسالة بانتهاء الا عداد

اخي شغلة التكرار ما اعرف بها لكن اذا ردت رقم عشوائي أو حرف من عدة حروف عشوائي استخدم

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

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

اريد كود لمن التكرار العشوائي في الlistbox