none
Laços controlados por tempo RRS feed

  • 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


    segunda-feira, 5 de maio de 2014 18:37

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
    segunda-feira, 5 de maio de 2014 19:25

Todas as Respostas

  • Você pode usar Thread.Sleep(15000) isso vai fazer seu codigo parar durante 15 segundos.
    segunda-feira, 5 de maio de 2014 18:53
  • 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
    segunda-feira, 5 de maio de 2014 19:25