Aplicação Rodando Em Segundo Plano

[ppgsalomao]

Olá galera,

A algum tempo já que eu não posto por aqui ...

Minha dúvida é simples ... como faço para que a minha aplicação rode em segundo plano ? Por exemplo ... eu podeer executar um loop ... teoricamente infinito ... só que em segundo plano ... podendo ter um CommandButton que parasse ele ... um "cancelar" !

Eu tenho quase certeza que dá pra fazer ... só não sei como ! Alguém pode me ajudar ?

[Graymalkin]

Um Timer? Um Do While... Loop com um DoEvents? Acho que qualquer um dos dois serve. Mas, você se importaria de dizer o que você quer fazer exatamente? Talvez fique melhor para ajudar.

Abraços,

Graymalkin

[ppgsalomao]

Não tenho uma aplicação em especial para isso ... é uma curiosidade que eu tenho ... as vezes eu perdia algumas aplicações por que um loop ou outro dentro dela entravam em Loop Infinito e com isso eu perdia o código se não tivesse salvado ...

Outra apilcação é colocar isso num programa de gráficos, que assim enquanto o Programa gera o gráfico, o usuário não fica com o PC indisponível ...

Ou seja, não tem uma aplicação fixa !

Como funciona essas duas coisas ?

[Graymalkin]

Não tenho uma aplicação em especial para isso ... é uma curiosidade que eu tenho ... as vezes eu perdia algumas aplicações por que um loop ou outro dentro dela entravam em Loop Infinito e com isso eu perdia o código se não tivesse salvado ...

Para isso é só apertar CTRL+PAUSE que o VB pára o código.

Outra apilcação é colocar isso num programa de gráficos, que assim enquanto o Programa gera o gráfico, o usuário não fica com o PC indisponível ...

Ou seja,  não tem uma aplicação fixa !

Como funciona essas duas coisas ?

Bom, se você colocar um Timer, uma label e um botão no seu form você pode verá o timer em ação. No evento (único) Timer do Timer, coloque:

    Static i As Integer
    Label1.Caption = i
    i = i + 1

E, no evento Click do botão coloque:

    Label1.Caption = "um teste"

Defina a propriedade Interval do Timer para 1000 (1 segundo). Depois, execute o projeto. Você verá que na Label irá aparecer o valor 0, 1, 2, 3, 4, e irá continuar crescendo. Porém, apesar disso, você ainda conseguirá mexer totalmente no restante do programa. Portanto, clique no botão e você verá que momentâneamente o caption da label irá mudar para "um teste" e depois continuará a seguir a numeração. Aquela numeração é um "loop infinito" que só vai parar quando o valor chegar ao valor máximo de um inteiro (é claro que pode-se criar condições na qual esse "loop" nunca termine mesmo). E vamos incrementar um pouco mais? Agora vamos utilizar um Do While... Loop verdadeiramente infinito. Coloque mais um botão nesse mesmo projeto e o seguinte código nele:

    Label1.ForeColor = vbWhite
    Do While True
        i = CLng(Rnd(1) * 65535)
        Label1.BackColor = i
        DoEvents
    Loop

Esse código simplesmente gera um número randômico e utiliza ele como cor para o fundo da label. Agora, execute o projeto. Você verá os números passando na label. Clique no segundo botão (esse que acabamos de criar). Agora, os números continuarão passando na label, porém, ao mesmo tempo, ela ficará mudando de cor. E, agora aperte no primeiro botão. Você verá o texto aparecer na label (e ela continuará mudando de cor) e momentos depois a contagem continuará (e a mudança de cor também). Ou seja, duas coisas estão acontecendo ao mesmo tempo e mais uma terceira pode ser executada. Sacou?

É provável que ao fechar a janela do projeto, depois de ativar o segundo botão, o programa não feche completamente (a janela vai desaparecer mas o VB vai continuar executando o programa). Basta apertar Stop na tela do VB para realmente parar. Uma possível solução para isso seria colocar uma condição no Do While para quando a janela for fechada ele quebrar o loop.

Bom, espero ter ajudado

Abraços,

Graymalkin