سؤال اخر . كيف اغيرها تلقئيا بالتايمر
يعنى يأتى بالرسالة التى تليها حسب وقت معين . بوركتم
بالنسبة للسؤال الأول صراحة لم أفهمه جيدا
بالنسبة للطلب الثاني وهو عرض الرسائل في أوفات معينة يتم تحديدها بالتيمر
أولا أحب أن أشرح لك عمل البرنامج طبعا قمنا بتقسيم النص الموجود في التكست بنائ على النقطة وتخزين جميع النصوص في مصفوفة نصية وهي s
بمعنا s(0) تعطينا أول جملة موجودة بداية من أول النص إلى النقطة الأولى و s(2) تعطينا الجملة الثانية من النقطة الأولى الي النقطة الثانية وهكذا فقمنا بعمل حلقة تكرارية وهي i تبدأ من الصفر وتنتهي بنهاية المصفوفة
أما إذا أردنا أن نعرض الرسائل في تيمر
أولا حدد الوقت interval إلى 1000 لكي يعرض الرسائل كل ثانية أما إذا تم تحديد 5000 فسيعرض الرسائل كل 5 ثوان الخ
واكتب الكود الجديد
كود :
Public Class Form1
Dim s() As String
Dim Counter As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s = TextBox1.Text.Split(".")
Timer1.Enabled = True
Counter = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox(s(Counter))
If Counter >= s.Length - 1 Then Timer1.Enabled = False
Counter += 1
End Sub
End Class
جزيت خيرا لا اريدها فى مسج بوكس .
طيب اريدها تظهر فى تكست بوكس آخر ؟
وكل 5 ثوانى يغير ما فى التكست الاخر الى النقطة التى تليها وهكذا
يعنى لا اريد مسج بوكس هذه .وبوركت
الأمر بسيط إن شاء الله
اضيفي تكست بوكس جديد وغير msgbox الى TextBox2.Text ليصبح الكود الجديد كالتالي
كود :
Public Class Form1
Dim s() As String
Dim Counter As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 5000
s = TextBox1.Text.Split(".")
Timer1.Enabled = True
Counter = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox2.Text = (s(Counter))
If Counter >= s.Length - 1 Then Timer1.Enabled = False
Counter += 1
End Sub
End Class
وأي أستفسار آخر لا تترددي
ممتاز جدا وبارك الله فيك وجزاك خير.
جربته واشتغل تمام . باقى اضع فيه الفكرة التى اريده وسأرد عليك
سلام عليكم .
س 1 : كيفية زيادة النقطة وجعلها اكثر من خيار ، يعنى نقصطة وفاصلة وفاصلة منقوطة هكذا .
س 2 - اعادة التشغيل مرة اخرى عند الانتهاء .
س 3 : جعل القيمة 5000 فى جملة شرطية ، لو أن الخيار كذا مفعل تكون على حسبه . يعنى اذا كان النص يساوى 5 اذا اضف 5000 أو شيك بوكس .
وبوركتم
السلام عليكم
كيف حالك ام لارا
أأسف على الـتأخيير في الرد
هذا الكود الجديد مع طلباتك الجديدة
ماعدا الطلب الأخير لأني لم أفهمة جيدا أرجوا توضيحة
الكود
كود :
Public Class Form1
Dim s() As String
Dim Counter As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 2000
s = TextBox1.Text.Split(New Char() {"."c, ","c, ";"c})
Timer1.Enabled = True
Counter = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox2.Text = (s(Counter))
Counter += 1
If Counter >= s.Length Then Counter = 0
End Sub
End Class
وعليكم السلام الحمد لله بارك الله فيك
اقصد اذا كانت قيمة الشيك بوكس تساوى 5 ، إذا التايمر تكون قيمته 5000 واذا كانت 6 تكون 6000 وهكذا .
سؤال : كيفية عمل زر ايقاف مؤقت وايقاف نهائى
س 2 : كيفية تشغيل تكست بوكس اخر بعد انتهاء التكست بوكس الحالى
السلام عليكم
تم عمل تطبيق به الطلبات الجديدة يا أخت أم لارا
عدا قولك
إقتباس :اقصد اذا كانت قيمة الشيك بوكس تساوى 5 ، إذا التايمر تكون قيمته 5000 واذا كانت 6 تكون 6000 وهكذا
التشك بوكس يحمل قيمة منطقية صواب أو خطا ولا يحمد قيمة عددية أو نصية
شكرا
جزاك الله خيرا شكرا لك مثال واضح