منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف اعمل سحب عشوائي مابين عدة اسماء - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف اعمل سحب عشوائي مابين عدة اسماء (/showthread.php?tid=23538)

الصفحات: 1 2

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - Basil Abdallah - 27-01-18

كود :
:NameList.Items.add(inputbox("Name")
او 
كود :
NameList.items.add(textbox1.text)


RE: كيف اعمل سحب عشوائي مابين عدة اسماء - Nete0 - 27-01-18

هو مش اسماء بالظبط هي اميلات ومكتوبه عندي في مستند نصي وعاوز اعمل برنامج يطلع اميلات عشوائي منهم لكن بشرط ان الملف النصي مش يكون مع البرنامج يعني البرنامج يكون لوحده بس

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - Basil Abdallah - 27-01-18

والله مش فاهم صديقي انا الي فهمتو من كلامك انك ترغب بمستند نصي ولا ترغب يعني هل ترغب بان يكون المستند بالبرنامج

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - خالد - 28-01-18

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


قد يكون المقصود هو أن تختار الملف بنفسك من الجهاز عن طريق مستكشف الويندوز
هذا الكود يفتح لك مستكشف الويندوز لتختار الملف النصي ثم يستخرج منه اسم عشوائي ويضعه في مربع نص
كود :
Dim arrNames As Array = Nothing

Using open As New OpenFileDialog With {.Filter = "Text files|*.txt"}
   If open.ShowDialog = vbOK Then

       arrNames = IO.File.ReadAllLines(open.FileName)

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

       TextBox1.Text = rndName

   End If
End Using




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

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - Nete0 - 28-01-18

معليش والله ازعجتكم انا , الله يجعله في ميزان حسناتكم ان شاء الله 
المقصود بالظبط هو ان انا عندي الاميلات كلها في مستند نصي مرتبه كل اميل في سطر تمام ؟ 
وعاوز اعمل البرنامج مربوط بالملف ده ويطلع منه عشوائي في Textbox لما اضغط على button تمام ؟
لحد هنا انا عملت كذا وظبط معايا لكن المشكله ان البرنامج علشان يشتغل ويطلع من المستند النصي لازم يكون المستند في نفس مسار البرنامج لو ماكان معاه بيطلع رساله الخطا انه ما لقى الملف كذا كذا
فانا بقى عاوز ان الملف يقدر يعمل عشوائي من المستند النصي لكن بدون ما يكون معاه في نفس المستند, يعني مثلا بدل ما اربطه بالمستند انسخ الكلام واحطه في موقع مثل Pastebin واربط الموقع بالبرنامج هذا مثال بس يعني لو في طريقه ثانيه عادي
اسف على الازعاج والتطويل جزاكم الله خير

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - sendbad100 - 28-01-18

السلام عليكم
اذا البرنامج يستخدم قاعدة بيانات  ضع البينات في جدول

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - Basil Abdallah - 28-01-18

فهمت قصدك ارفع الاسماء ع موقع ويب و اعطيني الرابط عشان اكتبلك الكود

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - Nete0 - 28-01-18

(28-01-18, 02:51 PM)sendbad100 كتب : السلام عليكم
اذا البرنامج يستخدم قاعدة بيانات  ضع البينات في جدول

لا اخي مافي قاعده بيانات والكلام كثير مثل ما وضحت مقدرش اكتبه كله مستحيل اخلص 
(28-01-18, 07:06 PM)Basil Abdallah كتب : فهمت قصدك ارفع الاسماء ع موقع ويب و اعطيني الرابط عشان اكتبلك الكود

ما اعرف هل قصدك الاسماء على موقع ولا المستند كامل فعملت الطريقتين وشوف انت Tongue

الاسماء على موقع Pastebin 
https://pastebin.com/HznVgTPt

المستند النصي 
https://up.top4top.net/downloadf-7583ax341-rar.html

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - خالد - 28-01-18

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


إذا كانت الأسماء ثابته بامكانك وضع الملف النصي في الResource فتدخل ضمن ملف التشغيل للبرنامج ولن تحتاج لملف خارجي


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

RE: كيف اعمل سحب عشوائي مابين عدة اسماء - Basil Abdallah - 31-01-18

إقتباس :الاسماء على موقع Pastebin 

https://pastebin.com/HznVgTPt

This page has been removed!