+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25207)
كود أختيار رقم او جملة بشكل عشوائي - aldery - 02-06-18
سلام عليكم : محتاج كود يختار قيمة بشكل عشوائي
مثال :
Label1.Text = Int(Rnd() * 3)
Select Case Label1.Text
Case 0
Label1.Text = " C2CCW-AMCC2-C7CCC-4KFNG-4R4D5 "
Case 1
Label1.Text = " C2CCW-AMCC2-C7CCC- "
Case 2
Label1.Text = " C2CCW-6R4D5 "
كل دقيقة يضهر نص منها بشكل عشوائي او عند الضغط على زر يضهر سيريال جديد من القائمة و العدد غير محدود
ومشكورين
RE: كود أختيار رقم او جملة بشكل عشوائي - عبدالله الدوسري - 03-06-18
وعليكم السلام
أخي aldery
أنت جاوبت على نفسك وأعطيت لنفسك مثال .
إذا كنت تريد شيء آخر وضح أكثر
RE: كود أختيار رقم او جملة بشكل عشوائي - سعود - 03-06-18
هل تقصد مثل هذا؟؟
PHP كود :
Public Class Form1
Dim lst As New List(Of String)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each h As String In My.Computer.FileSystem.ReadAllText("list.txt").Split(vbNewLine)
lst.Add(h.Trim)
Next
Label2.Text = lst.Count
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = CInt(Rnd() * lst.Count)
Label1.Text = lst(i)
lst.RemoveAt(i)
Label2.Text = lst.Count
End Sub
End Class