×
Linguagem de Programação ADVPL
Perguntas Cronometro com FOR
- LucasdeLucca
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 5
- Obrigados Recebidos: 0
10 anos 10 meses atrás #19754
por LucasdeLucca
Cronometro com FOR foi criado por LucasdeLucca
Pessoal o código abaixo compila e esta rodando blz... Mas existe alguma forma pra exibir a variável segundos com duas casas decimais?
#include "Protheus.ch"
/*TOTVS NF
Lucas de Lucca
CSA
27/12/2013
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
*/
user Function cronometro()
Local i:=0, segundos:=0, minutos:=0, hora:=0 // Zera os contadores
for i:=0 to 62 Step 1 // Define quanto tempo irá marcar em minutos. "Contar 1h 2min"
for segundos:=0 to 60 Step 1/7500 // Repetição dos segundos
if segundos = 60 // quando somar 60 segundos..
minutos += 1 // .. adicionar 1 minuto
endif
if minutos = 60 // quando somar 60 minutos..
hora += 1 // ..adicionar 1 hora
endif
Conout(cValToChar(hora) +":" +cValToChar(minutos) +":" +cValToChar(segundos)) //Display
next
next
return
#include "Protheus.ch"
/*TOTVS NF
Lucas de Lucca
CSA
27/12/2013
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
*/
user Function cronometro()
Local i:=0, segundos:=0, minutos:=0, hora:=0 // Zera os contadores
for i:=0 to 62 Step 1 // Define quanto tempo irá marcar em minutos. "Contar 1h 2min"
for segundos:=0 to 60 Step 1/7500 // Repetição dos segundos
if segundos = 60 // quando somar 60 segundos..
minutos += 1 // .. adicionar 1 minuto
endif
if minutos = 60 // quando somar 60 minutos..
hora += 1 // ..adicionar 1 hora
endif
Conout(cValToChar(hora) +":" +cValToChar(minutos) +":" +cValToChar(segundos)) //Display
next
next
return
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 10 meses atrás #19769
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Cronometro com FOR
Conout(cValToChar(hora) +":" +cValToChar(minutos) +":" +Str(segundos,6,2)) //Display
Veja se funfa.
Veja se funfa.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- LucasdeLucca
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 5
- Obrigados Recebidos: 0
10 anos 10 meses atrás #19770
por LucasdeLucca
Respondido por LucasdeLucca no tópico Cronometro com FOR
Luiz, vc é o cara! ficou bunitinho assim:
Conout(cValToChar(hora) +":" +cValToChar(minutos) +":" +Str(segundos,5,2)) //Display
Valeu
Conout(cValToChar(hora) +":" +cValToChar(minutos) +":" +Str(segundos,5,2)) //Display
Valeu
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 10 meses atrás #19771
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Cronometro com FOR
Blz Brother, precisando procura a gente. Abraços.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.138 segundos