كود اظهار رقم عشوائي بشرط عدم التكرار - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : كود اظهار رقم عشوائي بشرط عدم التكرار (/showthread.php?tid=8330) |
كود اظهار رقم عشوائي بشرط عدم التكرار - mazen - 04-04-13 اريد كود اظهار رقم عشوائي بشرط عدم التكرار وعند انتهاء الارقام لايبدا العد من جديد ولكن تظهر رسالة بانتهاء الا عداد كود اظهار رقم عشوائي بشرط عدم التكرار - 3booody - 04-04-13 اخي شغلة التكرار ما اعرف بها لكن اذا ردت رقم عشوائي أو حرف من عدة حروف عشوائي استخدم 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 السلام عليكم ورحمة الله وبركاته هذا مثال يتضمن ( دالة توليد مصفوفة أرقام عشوائية ضمن مجال بدون تكرار ) السلام عليكم ورحمة الله وبركاته كود اظهار رقم عشوائي بشرط عدم التكرار - mazen - 05-04-13 الاستاذ الفاضل ابو رائد الف شكر علي المجهود بس المشكلة انا عايز المتغيرtextbox تيكست مش list box ثانيا اريد عند انتهاء الحلقة التكرارية للمتغير يكتب رسالة بانتهاء العملية وانتهاء قيم المتغيرات يعني لو المتغير من 5 الي 9 كل ضغطة زر من التيكست تكتب متغير غير متكرر وعندالانتهاء من المتغير 5و6و7و8و9 يخرج من الحلقة التكرارية برسالة توضح انتهاء العملية وانا غيرت list box ب textbox RE: كود اظهار رقم عشوائي بشرط عدم التكرار - احمد ابومن - 30-01-20 اريد كود لمن التكرار العشوائي في الlistbox |