Internet!
Olá!
Estou tentando fazer um programa que funcione como uma espécie de controle de pulso, trocando em miúdos: um programa para eu saber quanto estou gastando com a internet...Tudo bem, bolei o programa, coloquei uma função para detectar se o pc está conectado, e em um Timer coloquei um IF para o programa detectar automaticamente a conexão...beleza até aí...o problema, até meio bestinha mas que não consigo achar uma resposta, é que gostaria de quando o IF ´marcar´ que o computador está conectado, um Edit marcaria a hora atual, porém uma vez só, ou seja se eu colocar uma declaração tipo: Edit1.Text := TimeToStr(Time); pelo fato do IF estar num Timer o Edit vai ficar atualizando a hora a cada intervalo, o que eu não queria que acontecesse...
Obrigado desde já!
T+ :wink:
Estou tentando fazer um programa que funcione como uma espécie de controle de pulso, trocando em miúdos: um programa para eu saber quanto estou gastando com a internet...Tudo bem, bolei o programa, coloquei uma função para detectar se o pc está conectado, e em um Timer coloquei um IF para o programa detectar automaticamente a conexão...beleza até aí...o problema, até meio bestinha mas que não consigo achar uma resposta, é que gostaria de quando o IF ´marcar´ que o computador está conectado, um Edit marcaria a hora atual, porém uma vez só, ou seja se eu colocar uma declaração tipo: Edit1.Text := TimeToStr(Time); pelo fato do IF estar num Timer o Edit vai ficar atualizando a hora a cada intervalo, o que eu não queria que acontecesse...
Obrigado desde já!
T+ :wink:
Celo-faveri
Curtidas 0
Respostas
Pfamaral2
08/08/2003
Nesse caso vc pode usar uma variável global, inicializada no carregamento do programa. Que você faria igual a 1 qdo estivesse conectado e zero qdo não. Então, depois daquele primeiro IF, você colocaria: if con=0 then Edit1.text:=..., e aí faria con:=1. Então qdo o timer entrasse novamente no primeiro IF o Edit não seria mais alterado.
GOSTEI 0
Celo-faveri
08/08/2003
Nesse caso vc pode usar uma variável global, inicializada no carregamento do programa. Que você faria igual a 1 qdo estivesse conectado e zero qdo não. Então, depois daquele primeiro IF, você colocaria: if con=0 then Edit1.text:=..., e aí faria con:=1. Então qdo o timer entrasse novamente no primeiro IF o Edit não seria mais alterado.
Obrigado pela resposta, mas não consegui entender muito bem o que você quis dizer, isto é, pelo que pude + ou - entender, teria uma variável global no início do programa, porém somente no início, ou seja, se eu iniciar o programa conectado à internet o programa ´responde´ de uma maneira, porém se eu iniciá-lo desconectado ele responde de outra maneira!?!?!?!
Ficaria muito grato se pudesse me ajudar novamente!
T+ :wink:
GOSTEI 0