(26-01-18, 07:41 PM)خالد كتب : السلام عليكم ورحمة الله وبركاته


في كل الحالات لابد من وضع الاسماء في مصفوفة
لاختيار رقم عشوائي ستستخدم الدالة المكتبة Random ثم تستخدم الدالة Next التي في داخلها لتحصل على رقم ضمن مجال بين رقمين والتي تحددها بين 0 وعدد الأسماء
الخطوة الأخيرة تأخذ الاسم من المصوفوفة بناء على الرقم العشوائي
هذا مثال

كود :

Dim arrNames As Array = {"عبدالله", "محمد", "خالد"}

Dim rand As New Random
Dim rndIndex As Integer = rand.Next(0, arrNames.Length)
Dim rndName As String = arrNames(rndIndex)

MsgBox(rndName)

إذا كانت الأسماء في ملف نصي txt وكل اسم بسطر فتستطيع قراءتها بالكود ووصعها في المصفوفة بالطريقة التالية

كود :

Dim arrNames As Array = IO.File.ReadAllLines("اسم الملف.txt")

السلام عليكم ورحمة الله وبركاته

(26-01-18, 08:00 PM)Basil Abdallah كتب :

كود :

Public Class Form1
   Dim WithEvents NameList As New ListBox

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim lines() As String = IO.File.ReadAllLines("Names Path")
       NameList.Items.AddRange(lines)
       Dim CHName As New Random
       NameList.SelectedIndex = CHName.Next(NameList.Items.Count)
   End Sub
   Private Sub NameL_SelectName() Handles NameList.SelectedIndexChanged
       MsgBox(NameList.Text)
   End Sub
End Class

(26-01-18, 09:41 PM)Basil Abdallah كتب :

كود :

Textbox1.text = NameList.Text

(26-01-18, 09:41 PM)Basil Abdallah كتب :

كود :

Textbox1.text = NameList.Text