تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جملة اتصال بملف اكسيل ٢٠٠٣ بكلمة مرور Mr.H 3 69 منذ 9 ساعة مضت
آخر رد: Amir_Alzubidy
Heart اقدم لكم هدية تصفح منتدى vb4arb.com بشكل أفضل من قبل مع ( vb4arb Code Highlighter ) عبدالله الدوسري 5 1,717 24-01-24, 10:31 PM
آخر رد: annagui
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 364 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
  مشكلة في جملة الاتصال مع sqlserver strongriseman 0 216 21-11-23, 01:32 PM
آخر رد: strongriseman
  [VB.NET] مطلوب دمج جملتين لتحديث قاعدة بيانات فى جملة واحدة AmeenRashed 1 335 18-11-23, 01:32 AM
آخر رد: sniper2030
  خطا لغوى فى جملة update نبيل فتحى 2 350 10-10-23, 09:51 PM
آخر رد: Ahmed5
Rainbow [كود] معرفه حجم كل المجلدات في القرص C بشكل واضح محمد مسافر 7 409 10-09-23, 01:56 AM
آخر رد: أبو خالد الشكري
  جملة استعلام NasserNasser 2 228 21-08-23, 05:25 PM
آخر رد: NasserNasser
  التوجه الى جملة معينة اسلام الكبابى 2 298 10-08-23, 06:49 PM
آخر رد: اسلام الكبابى

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


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