Consulte os valores da tarifa da sua região e altere no code. :)

• Download conta.pl
• Enviar nova versão

Esconder código-fonte

#!/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

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Cadastro usando arquivos .txt para guardar dados

Cálculo de área de uma figura geométrica

Programa que separa os dígitos de um inteiro

Nenhum coment�rio foi encontrado.