[فارس محمد]

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

اخواني الكرام يجزيكم الخير محتاج مساعدتكم

عندي TextBox1 فيه نص كبير مثال قصير عن النص

PHP كود :

احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم......الخ 


وعندي TextBox2 + Button1 + Timer1

المطلوب انو بدي كود للButton1 بس اضغط عليه يعرضلي اسم واحد عشوائي في TextBox2 من هذا النص الموجود في TextBox1

وهذا كل 60 ثانية 

يعني كل 60 ثانية يعرضلي اسم من هذه الاسماء

مع مراعة حذف الرمز الفاصل (#)

ولو كان العرض في TextBox2 بالتسلسل مافي مشكلة 

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

ملاحظة

النص كبير يعني فيه اكثر من 2000 اسم يفصل بين كل اسم والثاني رمز #

واعذروني لو طولت بالشرح بس عشان توصل الفكرة من طلبي

شكرا

[فارس محمد]

شكلو طلبي صعب كتير

[Abu Ehab]

السلام عليكم

لا مش صعب ولا  شيئ
وانا لا اتعامل مع البيسك من 5 سنوات   تركتها 
لكن لأنك قلت   صعب    دخلت اساعدك 

PHP كود :

Public Class Form1
    Dim i As Integer = 60
    Dim p As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If i = 0 Then
            i = 60
            Dim str As String = TextBox1.Text
            Dim splitStr As String() = str.Split("#"c)
            TextBox2.Text = splitStr(p).ToString()
            p = p + 1
        Else
            i = i - 1
            Me.Text = i
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Interval = 100
        Timer1.Enabled = True
        Timer1.Start()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = "احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم"
    End Sub
End Class 


نصيحة لوجه الله تعالى 
أترك  البيسك خالص  أنساها   ... تعامل مع السي شارب 
يعطيكم العافية

[فارس محمد]

(08-09-17, 01:56 AM)Abu Ehab كتب : السلام عليكم

لا مش صعب ولا  شيئ
وانا لا اتعامل مع البيسك من 5 سنوات   تركتها 
لكن لأنك قلت   صعب    دخلت اساعدك 

PHP كود :

Public Class Form1
    Dim i As Integer = 60
    Dim p As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If i = 0 Then
            i = 60
            Dim str As String = TextBox1.Text
            Dim splitStr As String() = str.Split("#"c)
            TextBox2.Text = splitStr(p).ToString()
            p = p + 1
        Else
            i = i - 1
            Me.Text = i
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Interval = 100
        Timer1.Enabled = True
        Timer1.Start()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = "احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم"
    End Sub
End Class 


نصيحة لوجه الله تعالى 
أترك  البيسك خالص  أنساها   ... تعامل مع السي شارب 
يعطيكم العافية

شكرا على الرد الجميل منك اخي

وجزاك الله عني كل الخير

لكن في مشكلة بالكود لما يخلص النص ماعم يرجع يعيدو من الاول

عم ينطفي البرنامج

ارفقت النموذج للمشاهدة

وشكرا مرة اخرا

[سعود]

حبيت اشارك بالموضوع
وضعت الاسماء بملف نصي باسم t.txt
وعرفت متغير lst من نوع قائمة نصية
انظر للفورم الثاني

[ola]

كود :

Public Class Form1
    Dim splitStr As String()
    Dim p As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        TextBox2.Text = splitStr(p).ToString()
        p = p + 1
        If p = splitStr.Length Then p = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim str As String = TextBox1.Text
        splitStr = str.Split("#"c)
        p = 0
        Timer1.Start()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 60000
        TextBox1.Text = "احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم"
    End Sub
End Class

[فارس محمد]

(08-09-17, 03:46 AM)سعود كتب : حبيت اشارك بالموضوع
وضعت الاسماء بملف نصي باسم t.txt
وعرفت متغير lst من نوع قائمة نصية
انظر للفورم الثاني

مشكؤؤؤؤؤؤر اخي سعود بارك الله فيك

عدلت شوي على الكود تبعك ومشي الحال

بدل ملف الtext خليت الكود نفسو للTextBox1

وهيك صار الكود 

الف شكر الك

كود :

Public Class saudform
   Dim lst As New List(Of String)
   Private Sub saudform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       My.Settings.text = TextBox1.Text
       For Each h As String In TextBox1.Text.Split("#")
           lst.Add(h.Trim)
       Next
   End Sub
   Private Sub tmr_CheckedChanged(sender As Object, e As EventArgs) Handles tmr.CheckedChanged
       Select Case tmr.Checked
           Case True
               Timer1.Start()
           Case False
               Timer1.Stop()
       End Select
   End Sub
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Text = lst(Int(Rnd() * lst.Count))
   End Sub

End Class

---

(08-09-17, 05:39 AM)ola كتب :

كود :

Public Class Form1
   Dim splitStr As String()
   Dim p As Integer = 0
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       TextBox2.Text = splitStr(p).ToString()
       p = p + 1
       If p = splitStr.Length Then p = 0
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim str As String = TextBox1.Text
       splitStr = str.Split("#"c)
       p = 0
       Timer1.Start()

   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Interval = 60000
       TextBox1.Text = "احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم"
   End Sub
End Class

الله يسعدك هلاء شفت الكود تبعك

وناجح مليون بالمية 

الله يجزيك عني الخير

[Amjad]

مساااااااااااعدة ??
صمم مشروعا واحفظهً باسم "سلسلة"
احفظ النموذج باسم "سلسلة"
اعط النموذج عنوان "برنامج سلسلة "
اضف زر اوامر بعنوان خروج وبالنقر عليه يتم الخروج من السلسلة.
اضف زر اوامر بعنوان سلسلة وبالنقر عليه يتم حساب مجموع عدد حدود من السلسلة يتم ادخالها عن طريق لوحة المفاتيح .
(!7/S=x+(x³/3!)+(x^5/5!)+(x^7
ضروري ولك الشكر