CAPTURAR DATA AO DESLIGAR
Ola !
Estou pretendendo montar um sistema para controlar a hora em que o computador é ligado e desligado, para gerenciar o gasto de energia, a idéia e capturara a hora que e ligado e a hora em que é desligado subtrair uma da outra depois multiplicar pela potencia, Alguém sabe algum código assim...
Obrigado
Estou pretendendo montar um sistema para controlar a hora em que o computador é ligado e desligado, para gerenciar o gasto de energia, a idéia e capturara a hora que e ligado e a hora em que é desligado subtrair uma da outra depois multiplicar pela potencia, Alguém sabe algum código assim...
Obrigado
Para fazer isso vc deve colocar o programa residente no Windows, para que ele se inicie jundo com o SO (para saber como colocar o programa residente veja os tópicos aqui no VBMania)
Para quardar a hora inicial vc pode criar uma variavel global e colocar no form principal por exemplo, o seguinte código
Public horaIni as Date
Private Sub Form_Initialize()
'Isso irá setar o inicio da contagem de tempo
horaIni = Time
End sub
Deixe o programa rodar jundo com o SO, como a propertie "Visible" do form em "False"
Quando o SO for desligado o programa vai ser fechado automaticamente, dai ele invocara o procedimento seguinte, que deve estar no memso form.
Private Sub Form_Terminate()
Dim horaFim as date
Dim tempoTotal as long
horaFim = Time
'Isso irá retornar o numero total de segundos passados
tempoTotal = horaFim-horaIni
'Depois você pode guardar esses valores em um .txt ou banco qualquer para poder
'posteriormente usar esses dados para efetuar os cauculos
End Sub
Para quardar a hora inicial vc pode criar uma variavel global e colocar no form principal por exemplo, o seguinte código
Public horaIni as Date
Private Sub Form_Initialize()
'Isso irá setar o inicio da contagem de tempo
horaIni = Time
End sub
Deixe o programa rodar jundo com o SO, como a propertie "Visible" do form em "False"
Quando o SO for desligado o programa vai ser fechado automaticamente, dai ele invocara o procedimento seguinte, que deve estar no memso form.
Private Sub Form_Terminate()
Dim horaFim as date
Dim tempoTotal as long
horaFim = Time
'Isso irá retornar o numero total de segundos passados
tempoTotal = horaFim-horaIni
'Depois você pode guardar esses valores em um .txt ou banco qualquer para poder
'posteriormente usar esses dados para efetuar os cauculos
End Sub
Tópico encerrado , respostas não são mais permitidas