Saiba quanto de energia seu PC gasta aproximadamente por mês
Publicado por Perfil removido (última atualização em 18/12/2013)
[ Hits: 5.675 ]
Consulte os valores da tarifa da sua região e altere no code. :)
#!/usr/bin/perl # O VALOR DA TARIFA DE ENERGIA VARIA DE CIDADE A ESTADOS E REGIÕES... # NORMALMENTE O CONSUMO ACIMA DE 100 kWh custa de 40 a 50 CENTAVOS por kWh # FONTE: ANEEL - Agência Nacional de Energia Elétrica. # http://www.aneel.gov.br/arquivos/PDF/17-05_materia1_3.pdf # Potência do aparelho em Watts/1000 x horas de funcionamento x mês (30 dias) # um computador + monitor gasta cerca de 120 a 150 Watts no caso 120W/1000 = 0,12 kWh # Com monitor desligado, ECONOMIA de 0,08 kWh #Micro (CPU - Unidade Central) - 40 a 60 W #Monitor - 80 a 90 W #Impressora - 70 a 80 W #Scanner - 50 #CPU + vídeo (s/ impressora) - 120 a 150 W #Consumo CPU + Vídeo + Impressora = 0,19 a 0,23 kWh. #Consumo CPU/vídeo (hora) = 0,12 a 0,15 my @tempo=("uptime"); print "Tempo de funcionamento, (hora:minutos):";system("@tempo | cut -f1 -d ',' | cut -f2 -d 'p'"); print "Informe a quantidade de horas: "; my $horas = <STDIN>; print "\n"; $dia = (0.12) *$horas; print "Você consumiu hoje aproximadamente $dia kWh/dia\n"; $mes = ($dia*30); print "Neste ritimo irá consumir aproximadamente $mes kWh/mês\n"; print "\n"; $RSmes = ($mes*0.50); # DEFINIDO 0,50 CENTAVOS POR kWh (consulte sua operadora de energia) print "Previsão em R\$ para o mês: $RSmes R\$ \n"; print "\n";
imprime numeros de forma crescente e decrescente [FOR]
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
O que você está ouvindo agora? [2] (188)
warsaw parou de funcionar após atualização do sistema (solução) (10)