[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