Saiba quanto de energia seu PC gasta aproximadamente por mês
Publicado por Perfil removido (última atualização em 18/12/2013)
[ Hits: 5.330 ]
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";
Inserindo o nome de aluno e calculando média de suas notas
Lista de números aleatórios não-repetidos de um intervalo em Perl
Crivo de Eratóstenes Simples em Perl
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (1)
Criar um script para testar pen drive (5)
Problema com alias usando locate (4)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba