تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار بسيط واتمنى المساعدة
#1
السلام عليكم ورحمة الله وبركاته

اخواني لدي استفسار
عندي هذه البيانات
Afghanistan|Kabul,Herat
Algeria|Algiers,Ouled Djellal,Skikda,Annaba,Mascara,Oran
Andorra|Andorra La Vella,Escaldes
Angola|Sumbe,Luanda,Lubango,Luanda,Benguela
Antarctica|Molodesjnaja,McMurdo Station,Reading
Antigua and Barbuda|Falmouth,Saint Johns

نلاحظ ان اسم الدولة وبعدها "|" ثم اسماء المدن وبين كل اسم مدينة ومدينة يوجد ","

اريد عند الضغط على button يتم وضع اسم الدولة في textbox1.text واسم اي مدينة من المدن ويكون عشوائي الأختيار في textbox2.text

فمثلاً لو اختار دولة Algeria يختار اي مدينة من المدن Algiers,Ouled Djellal,Skikda,Annaba,Mascara,Oran ويضعها لي داخل textbox2.text


هذه محاولتي وصراحة توقفت عند اختيار اسم مدينة من المدن ويكون بشكل عشوائي

كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Country() As String = System.IO.File.ReadLines("cities.txt").ToArray
        Dim Rand As New Random
        Dim CountryIndex As Integer = Rand.Next(0, Country.Count - 1)
        TextBox1.Text = Country(CountryIndex).Split("|")(0)
        TextBox2.Text = Country(CountryIndex).Split(",")(1)
    End Sub
اثنان لا يتعلمان المتكبر والخجول
Heart اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً‏ Heart
الرد }}}}
تم الشكر بواسطة:
#2
يوجد بالمنتدى مشكلة يقوم بحذف الردود بشكل غريب !
عموماً شكرا لك اخي سامي تم حل المشكلة عن طريق كودك

 
كود :
     Dim Country() As String = System.IO.File.ReadLines("cities.txt").ToArray
       Dim lin As String = Country(New Random().Next(Country.Count))
       Dim cntry As String = lin.Split("|")(0)
       Dim ctys() As String = lin.Split("|")(1).Split(",")
       Dim cty As String = ctys(New Random().Next(ctys.Count))
       TextBox1.Text = cntry
       TextBox2.Text = cty
اثنان لا يتعلمان المتكبر والخجول
Heart اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً‏ Heart
الرد }}}}
تم الشكر بواسطة:
#3
(16-05-15, 11:22 AM)silverlord كتب : يوجد بالمنتدى مشكلة يقوم بحذف الردود بشكل غريب !
عموماً شكرا لك اخي سامي تم حل المشكلة عن طريق كودك

       Dim Country() As String = System.IO.File.ReadLines("D:\xrumer12\ProjectFill\ct.txt").ToArray
       Dim lin As String = Country(New Random().Next(Country.Count))
       Dim cntry As String = lin.Split("|")(0)
       Dim ctys() As String = lin.Split("|")(1).Split(",")
       Dim cty As String = ctys(New Random().Next(ctys.Count))
       TextBox1.Text = cntry
       TextBox2.Text = cty

السلام عليكم

اخي الكريم عنوان الموضوع غير واضح ارجو منك الالتزام بقواعد المشاركة
وايضا ارجو منك ذكر المشكلة التي تواجهك في المواضيع والردود بالتفصيل لكي يتم معالجة الامر
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}}
تم الشكر بواسطة: sami2015
#4
اخي abulayth انا وضعت سؤالي وقام الاخ  sami2015 بالإجابة على السؤال مشكوراً ولكن للاسف ان الرد الذي وضعه الأخ سامي تم حذفه لكن الحمدلله انني قرأت رده قبل ان يحذف
وهذا هو رده على مشاركتي
كود :
Dim Country() As String = System.IO.File.ReadLines("cities.txt").ToArray
Dim lin As String = Country(New Random().Next(Country.Count))
Dim cntry As String = lin.Split("|")(0)
Dim ctys() As String = lin.Split("|")(1).Split(",")
Dim cty As String = ctys(New Random().Next(ctys.Count))
TextBox1.Text = cntry
TextBox2.Text = cty
عموما يوجد مشكلة في المنتدى ولا اعلم ماهو سببها بعض الردود تختفي لا اعلم السبب!
اثنان لا يتعلمان المتكبر والخجول
Heart اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً‏ Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يرجى المساعدة طلب كود hikmat 1 50 منذ 9 ساعة مضت
آخر رد: khodor1985
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 125 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 96 19-09-17, 01:49 PM
آخر رد: أبو نوره
  [VB.NET] الرجاء المساعدة cheurfa 1 80 13-09-17, 05:41 PM
آخر رد: Rabeea Qbaha
  [كود] استفسار داخل اليست بوكس عبدالرحمن المكاوي 3 86 11-09-17, 05:29 PM
آخر رد: سعود الشامان
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 1 55 10-09-17, 12:29 PM
آخر رد: سعود الشامان
Information [VB.NET] استفسار عن اسم اداة مفتاح القبائلي 2 53 08-09-17, 04:32 PM
آخر رد: مفتاح القبائلي
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 46 08-09-17, 04:02 PM
آخر رد: Amjad
  [VB.NET] المساعدة في بعض الاشياء البسيط في مشروعي هذا 0theghost0 4 174 06-09-17, 09:34 AM
آخر رد: 0theghost0
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 163 06-09-17, 08:32 AM
آخر رد: gharib

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


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