[فارس محمد]

(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 


نصيحة لوجه الله تعالى 
أترك  البيسك خالص  أنساها   ... تعامل مع السي شارب 
يعطيكم العافية

شكرا على الرد الجميل منك اخي

وجزاك الله عني كل الخير

لكن في مشكلة بالكود لما يخلص النص ماعم يرجع يعيدو من الاول

عم ينطفي البرنامج

ارفقت النموذج للمشاهدة

وشكرا مرة اخرا