منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود أختيار رقم او جملة بشكل عشوائي

سلام عليكم : محتاج كود يختار قيمة بشكل عشوائي

مثال :
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 "

كل دقيقة يضهر نص منها بشكل عشوائي او عند الضغط على زر يضهر سيريال جديد من القائمة و العدد غير محدود

ومشكورين Heart

وعليكم السلام

أخي aldery

أنت جاوبت على نفسك وأعطيت لنفسك مثال .

إذا كنت تريد شيء آخر وضح أكثر

هل تقصد مثل هذا؟؟

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 

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

aldery

عبدالله الدوسري

سعود