تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اعمل سحب عشوائي مابين عدة اسماء
#1
السلام عليكم ورحمة الله وبركاته
انا لسه بتعلم في الفيجوال بيسك وكنت عاوز اعمل برنامج سحب عشوائي بين اسماء مش ارقام ودورت كثير ملقتش اللي انا عاوزه
فانا عندي اسماء كثيره جدا يمكن 1000 اسم وعاوز اعمل برنامج لسحب اسم عشوائي منهم باستخدام زر بس بدون ما تبان الاسماء كلها في واجهه البرنامج
ممكن الكود او الطريقه اللي اقدر اوصل بيها لكده ؟ وهل لازم اقعد اكتب الاسماء ولا في مثلا ربطها بمستند نصي وهو ياخذ منها ؟
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته


في كل الحالات لابد من وضع الاسماء في مصفوفة
لاختيار رقم عشوائي ستستخدم الدالة المكتبة 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")



السلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة: vbadmin , vbadmin , Nete0
#3
كود :
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
Basil Abdallah 

الرد
تم الشكر بواسطة: vbadmin , vbadmin , Nete0 , Nete0 , خالد , خالد
#4
(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
تمام جزاكم الله خير بس ناقص شي واحد وهو اني مش عاوز النتيجه تظهر على شكل msgbox عاوزها تظهر في textbox اكتب في الكود ايه بدل msgbox ?
الرد
تم الشكر بواسطة:
#5
كود :
Textbox1.text = NameList.Text
Basil Abdallah 

الرد
تم الشكر بواسطة: خالد , Nete0 , Nete0
#6
(26-01-18, 09:41 PM)Basil Abdallah كتب :
كود :
Textbox1.text = NameList.Text

جزاك الله الف خير
الرد
تم الشكر بواسطة:
#7
(26-01-18, 09:41 PM)Basil Abdallah كتب :
كود :
Textbox1.text = NameList.Text

اووه ظهرت مشكله جديده للاسف Sad
الملف النصي لازم يكون مع البرنامج علشان يقدر يطلع الاسماء لكن انا عاوزه لوحده عادي ومستحيل اقعد اكتب الاسماء كلها في الكود لانها كثير جدا 
في طريقه ثانيه ؟ مثلا ياخذها من موقع زي Pastepin ?
الرد
تم الشكر بواسطة:
#8
حسب ما فهمت منك انك ترغب بان تقوم باستخراج الاسماء من ملف نصي يكون بنفس مسار البرنامج
استبدل
كود :
  Dim lines() As String = IO.File.ReadAllLines("Names Path")

بـ
كود :
       Dim lines() As String = IO.File.ReadAllLines(My.Application.Info.DirectoryPath & "\Names.TXT")
مع مراعات استبدال Names.txt باسم الملف النصي و وضع هذا الملف النصي بنفس مسار البرنامج
Basil Abdallah 

الرد
تم الشكر بواسطة: Nete0 , Nete0
#9
لا انا كان قصدي انه العكس يعني يستخرج الاسماء بدون الملف النصي يكون مدرج معه يعني يكون البرنامج لوحده بس ويطلع الاسماء عادي
بس انا اتعبتك معي اسف والله
الرد
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله وبركاته


أين توجد هذه الأسماء؟


السلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة: Nete0 , Nete0


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  رقم عشوائي في الداتا قريد محمد بن عطية 2 153 29-09-20, 07:29 PM
آخر رد: محمد بن عطية
  [سؤال] التحديد عشوائي دخل اليسة بوكس Ali 2020 0 213 12-08-20, 07:26 PM
آخر رد: Ali 2020
  عاوز اعمل Timer يشوف اللي معمول عليه صح ويعملو enable تلقائي Hosam Ashraf Elwakel 0 177 09-08-20, 07:41 PM
آخر رد: Hosam Ashraf Elwakel
  عاوز اعمل سريل نمبر للبرنامج برقم mother bord بتاع الجهاز Hosam Ashraf Elwakel 1 254 01-08-20, 04:13 PM
آخر رد: essawq
  عاوز اعمل رساله لمستخدمي البرنامج بتاعي عبر الانترنت كيف اضيف حاجه شكل دي ف البرنامج Hosam Ashraf Elwakel 0 254 02-06-20, 11:41 PM
آخر رد: Hosam Ashraf Elwakel
  [سؤال] عايز اعمل مرفق وعرضه في داتا جريد فيو عاصم النجار 0 186 02-05-20, 10:58 AM
آخر رد: عاصم النجار
  [سؤال] عايز اعمل LOop على ListBox عاصم النجار 9 598 05-04-20, 08:36 PM
آخر رد: aljzazy
  شباب محتاج اعمل الفورم ده حد يساعدني ؟ medowassem50 1 495 17-03-20, 02:25 PM
آخر رد: أمجد وضاح
  انشاء عدد اسماء من عدد رقمي bidaya 2 371 15-03-20, 05:40 PM
آخر رد: bidaya
  ينفع اعمل الحركه دي في البرنامج ؟ modywassemmody 0 358 10-03-20, 03:21 PM
آخر رد: modywassemmody

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


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