Script para calcular o consumo médio de energia elétrica gasta por mês. Para usar basta saber o preço do quilowatt-hora (Kwh) da companhia elétrica e a potência de consumo do eletrodoméstico.

• Download energia-consumida.sh
• Enviar nova versão

Esconder código-fonte

#!/bin/bash
#+----------------------------------+
#|Programa: Energia consumida       |
#|Autor: Francisco Iago Lira Passos |
#|Data: 11-07-2018                  |
#+----------------------------------+


function calculo() {
echo "
======================================
`for (( j=0; j<=fimloop; j++ ))
do
 echo "Dispositivo $(($j+1)):       ${vndisp[$j]}"
 echo "consumo mensal (R$): ${vconsumo[$j]}"
done`
======================================"
echo "Consumo total: R$ $soma"
}

function pergunta() {
clear
echo "O script calcula, em média, o valor de energia gasto em reais por mês"
echo "====================================================================="
echo
echo -ne "Digite a quantidade de dispositivos elétricos que você usa: "
read ndisp
echo
read -p "Quando custa o quilowatt-hora (Kwh): " kwh
echo

fimloop=$(($ndisp-1))

if [ $ndisp > 0 ]; then
   for (( i=0; i<=$fimloop; i++ ))
   do
     #Entrada do usuário
     echo
     read -p "Digite o nome do dispositivo $((i+1)): " ndisp
     echo
     read -n 1 -p "Você tem a potencia mensal em Kwh (s/n)? " sn1
     echo
     if [ "$sn1" = "s" ] || [ "$sn1" = "S" ]; then
       read -p "Digite a potência em Watts: " pot
       #Gravar dados nos vetores
       vndisp[$i]="$ndisp";
       vconsumo[$i]=`echo "scale=1; $kwh*$pot" | bc -l`
     else
       read -p "Digite a potência em Watts: " pot
       read -p "Digite a quantidade de horas que fica ligado por dia: " horas
       echo
       #Gravar dados nos vetores
       vndisp[$i]="$ndisp";
       vconsumo[$i]=`echo "scale=1; $pot*$horas*30*$kwh/1000" | bc -l`
     fi
   done
   soma=$(echo ${vconsumo[@]} | sed 's/ /+/g' | bc -l)
   calculo
else
   echo "Digite um número maior que zero!"
   pergunta
fi

}

pergunta

Localizador não interativo do Mozilla Thunderbird para Slackware

Link direto de arquivos no Sharex

Script que converte maiúsculas em minúsculas e retira branco do nome.

Menu para liberar / bloquear laboratórios no Squid

CGI + Shell

Nenhum comentário foi encontrado.