تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود أختيار رقم او جملة بشكل عشوائي
#1
Sad 
سلام عليكم : محتاج كود يختار قيمة بشكل عشوائي 

مثال : 
       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
الرد }}
تم الشكر بواسطة: سعود
#2
وعليكم السلام 

أخي aldery

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

إذا كنت تريد شيء آخر وضح أكثر
الرد }}
تم الشكر بواسطة: سعود , سعود , sendbad100
#3

هل تقصد مثل هذا؟؟
PHP كود :
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 


الملفات المرفقة
.zip   For_aldery.zip (الحجم : 179.38 ك ب / التحميلات : 19)
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لخبراء التشفير (ابحث عن دالة تشفر نص بشكل مختصر وأنيق) silverlord 3 163 22-06-22, 03:38 AM
آخر رد: سعود
  [SQL] مساعدة في جملة الاتصال safralfahd 6 290 13-06-22, 09:43 AM
آخر رد: safralfahd
  المساعدة في بناء جملة استعلام لمعرفة رصيد الموظف في تاريخ معين strongriseman 7 498 09-05-22, 02:00 AM
آخر رد: ابو انس
  خطا غير معروف في جملة استعلام strongriseman 1 238 07-05-22, 10:25 PM
آخر رد: strongriseman
  جملة الاتصال من خلال ملف txt atefkhalf2004 7 834 22-02-22, 09:26 PM
آخر رد: atefkhalf2004
  مشكلة في جملة insert mounir3403 5 730 18-02-22, 08:57 PM
آخر رد: ابراهيم ايبو
Rainbow [VB.NET] عرض حقل يحتوي على قيم مختلفة بشكل أفقي في تقرير الكرستال ريبورت معتز حسن 0 481 09-02-22, 12:32 AM
آخر رد: معتز حسن
  [سؤال] مشكلة حلقة التكرار جملة select alims 5 563 07-11-21, 02:29 PM
آخر رد: alims
  ادخال ارقام بشكل منتظم في الدليل المحاسبي بسام محمدغانم 3 813 29-10-21, 03:16 PM
آخر رد: بسام محمدغانم
  سؤال عن جملة for خالد20 4 1,264 18-09-21, 10:43 PM
آخر رد: خالد20

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم