Usuário com melhor resposta
Laços controlados por tempo

Pergunta
-
Olá, estou tentado fazer um programa semelhante ao teste ping do prompt de comando, porém estou com uma dúvida terrível...
Preciso que o laço seja executado por tempo (exemplo, a cada 15 segundos meu programa faça um teste ping), e que cada linha na minha textbox apareça nesse período de tempo, porém não acho nada...
Eis o código que estou testando...
Dim alinha As String
Dim i As Integer
alinha = Chr(13) & Chr(10)
i = 1
While i < 15
If My.Computer.Network.Ping(TextBox1.Text) Then
TextBox2.Text = TextBox2.Text & "Resposta de " & TextBox1.Text & " com sucesso" & alinha
Else
TextBox2.Text = TextBox2.Text & "Esgotado o tempo limite" & alinha
End If
i += 1
End While
Respostas
-
vc pode usar a thread lembre -se de importar a biblioteca Threading
Imports System.Threading
como o rapaz anterio disse seu codigo ficara assim
Dim alinha As String Dim i As Integer alinha = Chr(13) & Chr(10) i = 1 While i < 15 If My.Computer.Network.Ping(TextBox1.Text) Then TextBox2.Text = TextBox2.Text & "Resposta de " & TextBox1.Text & " com sucesso" & alinha Else TextBox2.Text = TextBox2.Text & "Esgotado o tempo limite" & alinha End If i += 1 Thread.Sleep(15000) End While
- Editado Jonnathanvb segunda-feira, 5 de maio de 2014 19:26
- Marcado como Resposta Giovani Cr quarta-feira, 7 de maio de 2014 19:44
Todas as Respostas
-
-
vc pode usar a thread lembre -se de importar a biblioteca Threading
Imports System.Threading
como o rapaz anterio disse seu codigo ficara assim
Dim alinha As String Dim i As Integer alinha = Chr(13) & Chr(10) i = 1 While i < 15 If My.Computer.Network.Ping(TextBox1.Text) Then TextBox2.Text = TextBox2.Text & "Resposta de " & TextBox1.Text & " com sucesso" & alinha Else TextBox2.Text = TextBox2.Text & "Esgotado o tempo limite" & alinha End If i += 1 Thread.Sleep(15000) End While
- Editado Jonnathanvb segunda-feira, 5 de maio de 2014 19:26
- Marcado como Resposta Giovani Cr quarta-feira, 7 de maio de 2014 19:44