السلام عليكم ورحمة الله وبركاته
اخواني الكرام يجزيكم الخير محتاج مساعدتكم
عندي TextBox1 فيه نص كبير مثال قصير عن النص
PHP كود :
احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم......الخ
وعندي TextBox2 + Button1 + Timer1
المطلوب انو بدي كود للButton1 بس اضغط عليه يعرضلي اسم واحد عشوائي في TextBox2 من هذا النص الموجود في TextBox1
وهذا كل 60 ثانية
يعني كل 60 ثانية يعرضلي اسم من هذه الاسماء
مع مراعة حذف الرمز الفاصل (#)
ولو كان العرض في TextBox2 بالتسلسل مافي مشكلة
لكن المهم مايتوقف العرض بس يخلص النص يرجع يعيدو من الاول
ملاحظة
النص كبير يعني فيه اكثر من 2000 اسم يفصل بين كل اسم والثاني رمز #
واعذروني لو طولت بالشرح بس عشان توصل الفكرة من طلبي
شكرا
السلام عليكم
لا مش صعب ولا شيئ
وانا لا اتعامل مع البيسك من 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 من نوع قائمة نصية
انظر للفورم الثاني
(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
الله يسعدك هلاء شفت الكود تبعك
وناجح مليون بالمية
الله يجزيك عني الخير
مساااااااااااعدة ??
صمم مشروعا واحفظهً باسم "سلسلة"
احفظ النموذج باسم "سلسلة"
اعط النموذج عنوان "برنامج سلسلة "
اضف زر اوامر بعنوان خروج وبالنقر عليه يتم الخروج من السلسلة.
اضف زر اوامر بعنوان سلسلة وبالنقر عليه يتم حساب مجموع عدد حدود من السلسلة يتم ادخالها عن طريق لوحة المفاتيح .
(!7/S=x+(x³/3!)+(x^5/5!)+(x^7
ضروري ولك الشكر