[ام لارا]

سؤال اخر . كيف اغيرها تلقئيا بالتايمر

يعنى يأتى بالرسالة التى تليها حسب وقت معين . بوركتم

[ismail2012]

بالنسبة للسؤال الأول صراحة لم أفهمه جيدا
بالنسبة للطلب الثاني وهو عرض الرسائل في أوفات معينة يتم تحديدها بالتيمر
أولا أحب أن أشرح لك عمل البرنامج طبعا قمنا بتقسيم النص الموجود في التكست بنائ على النقطة وتخزين جميع النصوص في مصفوفة نصية وهي 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 ثوانى يغير ما فى التكست الاخر الى النقطة التى تليها وهكذا

يعنى لا اريد مسج بوكس هذه .وبوركت

[ismail2012]

الأمر بسيط إن شاء الله
اضيفي تكست بوكس جديد وغير 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 أو شيك بوكس .

وبوركتم

[ismail2012]

السلام عليكم
كيف حالك ام لارا
أأسف على الـتأخيير في الرد
هذا الكود الجديد مع طلباتك الجديدة
ماعدا الطلب الأخير لأني لم أفهمة جيدا أرجوا توضيحة
الكود

كود :

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 : كيفية تشغيل تكست بوكس اخر بعد انتهاء التكست بوكس الحالى

[ismail2012]

السلام عليكم
تم عمل تطبيق به الطلبات الجديدة يا أخت أم لارا
عدا قولك

إقتباس :اقصد اذا كانت قيمة الشيك بوكس تساوى 5 ، إذا التايمر تكون قيمته 5000 واذا كانت 6 تكون 6000 وهكذا

التشك بوكس يحمل قيمة منطقية صواب أو خطا ولا يحمد قيمة عددية أو نصية
شكرا

[ام لارا]

جزاك الله خيرا شكرا لك مثال واضح