04-04-13, 04:59 PM
اريد كود اظهار رقم عشوائي بشرط عدم التكرار وعند انتهاء الارقام لايبدا العد من جديد
ولكن تظهر رسالة بانتهاء الا عداد
ولكن تظهر رسالة بانتهاء الا عداد
كود اظهار رقم عشوائي بشرط عدم التكرار
|
04-04-13, 04:59 PM
اريد كود اظهار رقم عشوائي بشرط عدم التكرار وعند انتهاء الارقام لايبدا العد من جديد
ولكن تظهر رسالة بانتهاء الا عداد
04-04-13, 05:46 PM
اخي شغلة التكرار ما اعرف بها لكن اذا ردت رقم عشوائي أو حرف من عدة حروف عشوائي استخدم
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 تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
04-04-13, 06:10 PM
السلام عليكم ورحمة الله وبركاته هذا مثال يتضمن ( دالة توليد مصفوفة أرقام عشوائية ضمن مجال بدون تكرار ) السلام عليكم ورحمة الله وبركاته تم الشكر بواسطة: ابراهيم ايبو , Amir_Alzubidy
05-04-13, 02:44 AM
الاستاذ الفاضل ابو رائد الف شكر علي المجهود بس المشكلة انا عايز المتغيرtextbox تيكست مش list box ثانيا اريد عند انتهاء الحلقة التكرارية للمتغير يكتب رسالة بانتهاء العملية وانتهاء قيم المتغيرات يعني لو المتغير من 5 الي 9 كل ضغطة زر من التيكست تكتب متغير غير متكرر وعندالانتهاء من المتغير 5و6و7و8و9 يخرج من الحلقة التكرارية برسالة توضح انتهاء العملية
وانا غيرت list box ب textbox
30-01-20, 03:57 PM
اريد كود لمن التكرار العشوائي في الlistbox
|
|