منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عرض إسم عشوائي من TextBox1 و وضعه في TextBox2 كل 60 ثانية - نسخة قابلة للطباعة

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

عرض إسم عشوائي من TextBox1 و وضعه في TextBox2 كل 60 ثانية - فارس محمد - 07-09-17

السلام عليكم ورحمة الله وبركاته
اخواني الكرام يجزيكم الخير محتاج مساعدتكم
عندي TextBox1 فيه نص كبير مثال قصير عن النص
PHP كود :
احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم......الخ 
وعندي TextBox2 + Button1 + Timer1
المطلوب انو بدي كود للButton1 بس اضغط عليه يعرضلي اسم واحد عشوائي في TextBox2 من هذا النص الموجود في TextBox1
وهذا كل 60 ثانية 
يعني كل 60 ثانية يعرضلي اسم من هذه الاسماء
مع مراعة حذف الرمز الفاصل (#)
ولو كان العرض في TextBox2 بالتسلسل مافي مشكلة 
لكن المهم مايتوقف العرض بس يخلص النص يرجع يعيدو من الاول
ملاحظة
النص كبير يعني فيه اكثر من 2000 اسم يفصل بين كل اسم والثاني رمز #
واعذروني لو طولت بالشرح بس عشان توصل الفكرة من طلبي
شكرا


RE: ساعدوني ياخوان بالكود يجزيكم الخير - فارس محمد - 08-09-17

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

RE: ساعدوني ياخوان بالكود يجزيكم الخير - Abu Ehab - 08-09-17

السلام عليكم

لا مش صعب ولا  شيئ
وانا لا اتعامل مع البيسك من 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 
نصيحة لوجه الله تعالى 
أترك  البيسك خالص  أنساها   ... تعامل مع السي شارب 
يعطيكم العافية

RE: ساعدوني ياخوان بالكود يجزيكم الخير - فارس محمد - 08-09-17

(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 
نصيحة لوجه الله تعالى 
أترك  البيسك خالص  أنساها   ... تعامل مع السي شارب 
يعطيكم العافية

شكرا على الرد الجميل منك اخي
وجزاك الله عني كل الخير
لكن في مشكلة بالكود لما يخلص النص ماعم يرجع يعيدو من الاول
عم ينطفي البرنامج
ارفقت النموذج للمشاهدة
وشكرا مرة اخرا


RE: ساعدوني ياخوان بالكود يجزيكم الخير - سعود - 08-09-17

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

RE: ساعدوني ياخوان بالكود يجزيكم الخير - ola - 08-09-17

كود :
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


RE: ساعدوني ياخوان بالكود يجزيكم الخير - فارس محمد - 08-09-17

(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
الله يسعدك هلاء شفت الكود تبعك
وناجح مليون بالمية 
الله يجزيك عني الخير


RE: ساعدوني ياخوان بالكود يجزيكم الخير - Amjad - 08-09-17

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