Page 2 of 6
Ley de Ohm versión 2
Posted: Thu 28 Jan 2010, 03:47
by yurfader21
Me parece que la idea de participar en los foros es el obtener información cuando uno la requiere, pero también, si es posible dejar algo por aquí que sea de utilidad a otros, hay que publicarlo.
Así como hemos recibido ayuda, me parece adecuado brindarla.
Siguiendo con el programa, si deseamos que la rutina sea recurrente, podemos utilizar un lazo "while". Enseguida anexo el código.
Code: Select all
#!/bin/bash
#
# Ohm2.sh: Cálculo de Voltaje, Corriente y Resistencia (Ley de Ohm)
# Versión 2, Yurfader21
salir=n
while [ "$salir" != "s" ];
do
echo
echo "Esta es una calculadora para la Ley de Ohm"
echo
echo "Ingrese (a) si quiere calcular el Voltaje"
echo "Ingrese (b) si quiere calcular el Corriente"
echo "Ingrese (c) si quiere calcular la Resistencia"
echo "Ingrese (s) para salir"
echo
printf "Ingrese su elección, a, b, c ó s: "
read Seleccion
case "$Seleccion" in
a)
printf "Ingrese la Corriente (Amperes): "
read Corriente
printf "Ingrese la Resistencia (Ohms): "
read Resistencia
printf "El Voltaje es: "$(echo "scale=3;$Corriente*$Resistencia" | bc)" Voltios\n"
;;
b)
printf "Ingrese el Voltaje (Voltios): "
read Voltaje
printf "Ingrese la Resistencia (Ohms): "
read Resistencia
printf "La corriente es: "$(echo "scale=3;$Voltaje/$Resistencia" | bc)" Amperes\n"
;;
c)
printf "Ingrese el Voltaje (Voltios): "
read Voltaje
printf "Ingrese la Corriente (Amperes): "
read Corriente
printf "La Resistencia es: "$(echo "scale=3;$Voltaje/$Corriente" | bc)" Ohms\n"
;;
s) salir=s;;
*) echo "Por favor seleccione a, b ó c";;
esac
done
exit 0
He tratado de mantener el código lo más limpio posible para claridad aunque no es el código más eficiente ni mucho menos a prueba de fallos, pero tiene la funcionalidad básica requerida.
Saludos
Ley de Ohm versión 3
Posted: Fri 29 Jan 2010, 04:56
by yurfader21
Para robustecer el programa, es necesario identificar si los valores ingresados son numéricos. Una manera de identificar éstos valores y evitar posibles errores. También es conveniente limpiar la terminal para que sean más visibles los mensajes. Ver código enseguida.
Code: Select all
#!/bin/bash
#
# Ohm3.sh: Cálculo de Voltaje, Corriente y Resistencia (Ley de Ohm)
# Versión 3, Yurfader21
clear
salir=n
while [ "$salir" != "s" ];
do
echo
echo "Esta es una calculadora para la Ley de Ohm"
echo
echo "Ingrese (a) si quiere calcular el Voltaje"
echo "Ingrese (b) si quiere calcular el Corriente"
echo "Ingrese (c) si quiere calcular la Resistencia"
echo "Ingrese (s) para salir"
echo
printf "Ingrese su elección: a, b, c ó s: "
read Seleccion
case "$Seleccion" in
a)
clear
printf "Ingrese la Corriente (Amperes): "
read Corriente
printf "Ingrese la Resistencia (Ohms): "
read Resistencia
if [ $Corriente -eq $Corriente 2> /dev/null ] && [ $Resistencia -eq $Resistencia 2> /dev/null ] && [ -n "$Corriente" ] && [ -n "$Resistencia" ]; then
echo
printf "El Voltaje es: "$(echo "scale=3;$Corriente*$Resistencia" | bc)" Voltios\n"
else
echo
printf "Por favor ingrese valores numéricos para Corriente y Resistencia"
echo
fi
;;
b)
clear
printf "Ingrese el Voltaje (Voltios): "
read Voltaje
printf "Ingrese la Resistencia (Ohms): "
read Resistencia
if [ $Voltaje -eq $Voltaje 2> /dev/null ] && [ $Resistencia -eq $Resistencia 2> /dev/null ] && [ -n "$Voltaje" ] && [ -n "$Resistencia" ]; then
echo
printf "La Corriente es: "$(echo "scale=3;$Voltaje/$Resistencia" | bc)" Amperes\n"
else
echo
printf "Por favor ingrese valores numéricos para Voltaje y Resistencia"
echo
fi
;;
c)
clear
printf "Ingrese el Voltaje (Voltios): "
read Voltaje
printf "Ingrese la Corriente (Amperes): "
read Corriente
if [ $Voltaje -eq $Voltaje 2> /dev/null ] && [ $Corriente -eq $Corriente 2> /dev/null ] && [ -n "$Voltaje" ] && [ -n "$Corriente" ]; then
echo
printf "La Resistencia es: "$(echo "scale=3;$Voltaje/$Corriente" | bc)" Ohms\n"
else
echo
printf "Por favor ingrese valores numéricos para Voltaje y Resistencia"
echo
fi
;;
s) salir=s;;
*) clear
echo "Por favor seleccione a, b ó c";;
esac
done
exit 0
Saludos
Re: Ley de Ohm versión 3
Posted: Fri 29 Jan 2010, 19:52
by Proudog
yurfader21 wrote:Para robustecer el programa...
Mi aporte con la versión GNU gettext compatible:
Code: Select all
#!/bin/bash
#
# Ohm5.sh: Cálculo de Voltaje, Corriente y Resistencia (Ley de Ohm)
# Versión gettext, Yurfader21
# Programa totalmente Libre
#
export TEXTDOMAIN="Ohm"
Error_2=$(gettext "Error 02: Por favor ingrese valores numéricos")
It_is1=$(gettext "El Voltaje es:")
It_is2=$(gettext "La Corriente es:")
It_is3=$(gettext "La resistencia es:")
clear
salir=n
while [ "$salir" != "s" ];
do
echo
echo "$(gettext "Esta es una calculadora para la Ley de Ohm")"
echo
echo "$(gettext "1 Para calcular el Voltaje")"
echo "$(gettext "2 Para calcular el Corriente")"
echo "$(gettext "3 Para calcular la Resistencia")"
echo "$(gettext "4 Créditos")"
echo "$(gettext "s Para Salir")"
echo
printf "$(gettext "Ingrese su elección: 1, 2, 3, 4, ó s: ")"
read Seleccion
case "$Seleccion" in
1)
clear
printf "$(gettext "Ingrese la Corriente en amperes: ")"
read Corriente
printf "$(gettext "Ingrese la Resistencia en Ohms: ")"
read Resistencia
if [ $Corriente -eq $Corriente 2> /dev/null ] && [ $Resistencia -eq $Resistencia 2> /dev/null ] && [ -n "$Corriente" ] && [ -n "$Resistencia" ]; then
echo
printf "$It_is1: "$(echo "scale=3;$Corriente*$Resistencia" | bc)" V.\n"
else
echo
printf "$Error_2"
echo
fi
;;
2)
clear
printf "$(gettext "Ingrese el Voltaje en Voltios: ")"
read Voltaje
printf "$(gettext "Ingrese la Resistencia en Ohms: ")"
read Resistencia
if [ $Voltaje -eq $Voltaje 2> /dev/null ] && [ $Resistencia -eq $Resistencia 2> /dev/null ] && [ -n "$Voltaje" ] && [ -n "$Resistencia" ]; then
echo
printf "$It_is2: "$(echo "scale=3;$Voltaje/$Resistencia" | bc)" Amp.\n"
else
echo
printf "$Error_2"
echo
fi
;;
3)
clear
printf "$(gettext "Ingrese el Voltaje en Voltios: ")"
read Voltaje
printf "$(gettext "Ingrese la Corriente en Amperes: ")"
read Corriente
if [ $Voltaje -eq $Voltaje 2> /dev/null ] && [ $Corriente -eq $Corriente 2> /dev/null ] && [ -n "$Voltaje" ] && [ -n "$Corriente" ]; then
echo
printf "$It_is3: "$(echo "scale=3;$Voltaje/$Corriente" | bc)" Ohm\n"
else
echo
printf "$Error_2"
echo
fi
;;
4)
echo "*****************************************************"
echo "Ohm.sh: Calculadora simple de la ley de Ohm"
echo "Versión 4, Yurfader21 copyleft 2010"
echo "Programa totalmente libre"
echo "*****************************************************"
;;
s) salir=s
;;
*) clear
echo "$(gettext "Error 01: Por favor seleccione 1, 2, 3, 4, ó s ")"
;;
esac
done
exit 0
Ley de Ohm versión 4 (Versión gettext excrita por Proudog)
Posted: Fri 29 Jan 2010, 21:23
by yurfader21
Muchas gracias Proudog, me alegro que se generen variantes del programa y que nos sirvan para enriquecernos un poco.
Aunque son programas sencillos, en mi caso por lo menos, sirven para comprender mejor los detalles y sutilezas de los lenguajes. Gracias por la versión gettext y los créditos (A mí me ocurre al contrario de los grandes consorcios, asumo que lo que desarrollas es libre por defecto ).
Anexo el programa de Proudog comprimido como versión 4, con sólo algunos cambios menores.
Saludos.
Que dificil meter ecuaciones en gtkdialog...
Posted: Sat 30 Jan 2010, 14:12
by mister_electronico
Llevo la tarde de haller intentado averiguar como meter ecuaciones en dentro de las ventanas de gtkdialgo y que farragoso que es....
Hay muy extensa documentacion detallada de como hacer distintos widges, ventanas etc... y bien documentadas, pero a la hora de meter ecuaciones, lo unico que encuentro son nomenclaturas escasas y muy farragosas, lo cual me esta desanimando bastante con respecto al lenguaje de Gtkdialog... pongo un ejemplo.
Code: Select all
#! /bin/bash
export MAIN_DIALOG='
<window title="Program Omwatt">
<vbox>
<frame Imputs>
<hbox>
<entry>
<variable>OHMS</variable>
<input>echo '0'</input>
<visible>enabled</visible>
</entry>
<text>
<variable>Ohms</variable>
<label>Input_Ohms</label>
<visible>enable</visible>
</text>
</hbox>
<hbox>
<entry>
<variable>Amper</variable>
<input>echo '0'</input>
<visible>enabled</visible>
</entry>
<text>
<variable>Amper</variable>
<label>Input_Ampers</label>
<visible>enable</visible>
</text>
</hbox>
</frame>
<frame Output>
<hbox>
<entry>
<variable>OUPUTS</variable>
<input>echo '0'</input>
<visible>enabled</visible>
</entry>
<text>
<variable>VOLTS</variable>
<label>VOLTS</label>
<visible>enable</visible>
</text>
</hbox>
<hbox>
<button>
<label>Calculate</label>
</button>
</hbox>
</frame>
</vbox>
</window>
'
gtkdialog3 --program=MAIN_DIALOG
Lo unico que deseo es que en hacer es meter una formula en el
<action> del button Calculate la formula Volts = Ampers x Ohms
y que el valor se visualice en la ventanita de Volts o en el entry volts..
Pero que dificil todavia no he encotrado como.......
Pero continuo...
Un saludo..
Re: Que dificil meter ecuaciones en gtkdialog...
Posted: Sat 30 Jan 2010, 17:20
by Proudog
Patriot wrote:welcome to gtkdialog3 scripting ... gtkdialog3 is not difficult, just need a little bit of time to learn and understand ... Here's something for you to ponder over a cup of coffee ... It's quite easy once you understand the structure ... Have fun ...
Code: Select all
#!/bin/bash
MAIN_DIALOG='
<window title="Voltage Calculator">
<vbox>
<frame Input Parameters >
<hbox>
<text>
<label>Enter Ohms :</label>
</text>
<entry>
<variable>OHMS</variable>
<input>echo 0</input>
</entry>
</hbox>
<hbox>
<text>
<label>Enter Ampere :</label>
</text>
<entry>
<variable>AMPS</variable>
<input>echo 0</input>
</entry>
</hbox>
</frame>
<frame Output>
<hbox>
<text>
<label>Result :</label>
</text>
<entry>
<variable>OUTPUT</variable>
<input>if [ "$OHMS" -a "$AMPS" ]; then dc $OHMS $AMPS mul p; fi</input>
</entry>
<text>
<label>Volts</label>
</text>
</hbox>
<hbox>
<button>
<label>Calculate</label>
<action>refresh:OUTPUT</action>
</button>
</hbox>
</frame>
<hbox>
<button ok>
<action>exit:EXIT</action>
</button>
</hbox>
</vbox>
</window>
' gtkdialog3 --program=MAIN_DIALOG
Estoy yo de acuerdo con Patriot, que es necesaria la práctica para programar, pero eso se lleva un tiempo. Pasando al programa es necesario que se fortalezca con un código de error, puesto que si se escribe una letra en vez de un número éste se cuelga.
Cálculo de Voltaje (gtkdialog)
Posted: Sat 30 Jan 2010, 18:57
by yurfader21
Coincido con Proudog, se requiere de práctica para dominar un lenguaje, y muchas veces es preferible usar rutinas simples para entender los detalles.
Anexo una variante de la versión de Patriot en español y con algunos cambios para hacerlo un poco más fácil de leer. Yo prefiero utilizar bc en lugar de dc, pero es cuestión de preferencias si tienes el mismo resultado final.
Code: Select all
#!/bin/bash
MAIN_DIALOG='
<window title="Cálculo de Voltaje">
<vbox>
<frame Ingrese Resistencia y Corriente >
<hbox>
<text>
<label>Ingrese la Resistencia (Ohms) :</label>
</text>
<entry>
<default>2</default>
<variable>Resistencia</variable>
</entry>
</hbox>
<hbox>
<text>
<label>Ingrese la Corriente (Amperes) :</label>
</text>
<entry>
<default>3</default>
<variable>Corriente</variable>
</entry>
</hbox>
</frame>
<frame Voltaje>
<hbox>
<text>
<label>El voltaje es :</label>
</text>
<entry>
<variable>Voltaje</variable>
<input>echo "scale=3;$Resistencia*$Corriente" | bc</input>
</entry>
<text>
<label>Voltios</label>
</text>
</hbox>
<hbox>
<button>
<label>Calcular</label>
<action>refresh:Voltaje</action>
</button>
</hbox>
</frame>
<hbox>
<button>
<label>Salir</label>
<action>exit:EXIT</action>
</button>
</hbox>
</vbox>
</window>
' gtkdialog3 --program=MAIN_DIALOG
Saludos
Muy.... Muy..... Muy..... bueno....
Posted: Sat 30 Jan 2010, 20:48
by mister_electronico
Muy.... Muy..... Muy..... bueno................. Proudog y yurfader21.
Que farragoso es
if [ "$OHMS" -a "$AMPS" ]; then dc $OHMS $AMPS mul p; fi
pero es efectivo, creo entender que : si $OHMS Y $AMPS ( -a creo que significa and ) varian de valor entonces ( dc no se lo que significa) (mul multiplica) multipica $OHMS por $AMPS y no se lo que significa "p" ni "fi".....
Anda que el que diseño el leguaje se quedo agusto....
Veo mas facil $Resistencia*$Corriente" | bc pero tampoco entiendo lo que significa | bc
Es la primera vez que veo como poner una puñetera formula en gtkdialog...... de forma no tan farragosa.....
Muchas gracias por ello.....
No quiero ni pensar cuando tenga que poner en una formula log(x),
tang(x) o cualquier otra cosa....
Habra por ahi, alguna documentacion de gtkdialog que explique el tema de la formulacion de una forma un poco mas clara...
Muchas Gracias Proudog y yurfader21 ...... la verdad es que sois unos monstruos por que para entender esto hay que serlo...
Un saludo..
Ya empiezo a comprender un poco....
Posted: Sat 30 Jan 2010, 22:37
by mister_electronico
Ya empiezo a comprender bc y dc son los comandos del shell.... ok
creo que cuando ponemos $Tension lo que estamos haciendo es pasarle la direccion donde se encuentra la variable de Tension al programa del shell bc o dc.
Mirando el comando bc en internet el primero que me surgio es
http://itaca.nireblog.com/post/2006/12/ ... -usando-bc
Y bueno explica varias cosas bien...
Ok ahora empiezo a comprender algunas cosas mas.....
Saludos
El programa completo....
Posted: Sun 31 Jan 2010, 00:29
by mister_electronico
Bueno aqui dejo el programa completo, aplicando vuestros sabios conocimientos....
Code: Select all
#!/bin/bash
MAIN_DIALOG='
<window title="Programa Ohmwatt">
<vbox>
<frame Ingrese Resistencia y Corriente >
<hbox>
<text>
<label>Ingrese Resistencia (Ohmios) :</label>
</text>
<entry>
<default>2</default>
<variable>Resistencia</variable>
</entry>
</hbox>
<hbox>
<text>
<label>Ingrese Corriente (Amperios) :</label>
</text>
<entry>
<default>3</default>
<variable>Corriente</variable>
</entry>
</hbox>
<hbox>
<text>
<label>El voltaje es :</label>
</text>
<entry>
<variable>Voltaje</variable>
<input>echo "scale=3;$Resistencia*$Corriente" | bc</input>
</entry>
<text>
<label>Voltios</label>
</text>
</hbox>
<hbox>
<button>
<label>Calcular</label>
<action>refresh:Voltaje</action>
</button>
</hbox>
</frame>
<frame Ingrese Tension y Corriente >
<hbox>
<text>
<label>Ingrese la Tension (Voltios) :</label>
</text>
<entry>
<default>2</default>
<variable>Volts</variable>
</entry>
</hbox>
<hbox>
<text>
<label>Ingrese la Corriente :</label>
</text>
<entry>
<default>3</default>
<variable>Amper</variable>
</entry>
</hbox>
<hbox>
<text>
<label>La resistencia es :</label>
</text>
<entry>
<variable>Resistor</variable>
<input>echo "scale=3;$Volts/$Amper" | bc</input>
</entry>
<text>
<label>Ohmios</label>
</text>
</hbox>
<hbox>
<button>
<label>Calcular</label>
<action>refresh:Resistor</action>
</button>
</hbox>
</frame>
<frame Ingrese Tension y Resistencia >
<hbox>
<text>
<label>Ingrese la Tension (Voltios) :</label>
</text>
<entry>
<default>2</default>
<variable>Tensio</variable>
</entry>
</hbox>
<hbox>
<text>
<label>Ingrese la Resistencia :</label>
</text>
<entry>
<default>3</default>
<variable>Resisten</variable>
</entry>
</hbox>
<hbox>
<text>
<label>La Corriente es :</label>
</text>
<entry>
<variable>Corrient</variable>
<input>echo "scale=3;$Tensio/$Resisten" | bc</input>
</entry>
<text>
<label>Amperios</label>
</text>
</hbox>
<hbox>
<button>
<label>Calcular</label>
<action>refresh:Corrient</action>
</button>
</hbox>
</frame>
<hbox>
<button>
<label>Salir</label>
<action>exit:EXIT</action>
</button>
</hbox>
</vbox>
</window>
' gtkdialog3 --program=MAIN_DIALOG
Bueno un saludo y seguiremos indagando.....
Re: Muy.... Muy..... Muy..... bueno....
Posted: Sun 31 Jan 2010, 01:32
by yurfader21
if [ "$OHMS" -a "$AMPS" ]; then dc $OHMS $AMPS mul p; fi
pero es efectivo, creo entender que : si $OHMS Y $AMPS ( -a creo que significa and ) varian de valor entonces ( dc no se lo que significa) (mul multiplica) multipica $OHMS por $AMPS y no se lo que significa "p" ni "fi".....
Es importante conocer las limitaciones de las herramientas que utilizamos. Ver
bash,
http://en.wikipedia.org/wiki/Dc_(computer_program) y
bc
Es la primera vez que veo como poner una puñetera formula en gtkdialog...... de forma no tan farragosa.....
No quiero ni pensar cuando tenga que poner en una formula log(x),
tang(x) o cualquier otra cosa....
El cálculo se hace en bash a través de la calculadora (dc o bc), con ésta herramienta los cálculos que mencionas son triviales. Ver
gtkdialog
Saludos
Si son evidentes las limitaciones de dc y bc....
Posted: Sun 31 Jan 2010, 10:42
by mister_electronico
Si las limitaciones de bc y dc son importantes, pero aun asi he visto gente ingeniosas que hace calculos complejos.....
Otra cosa interesante para hacer es enlazar los programas de Gtkdialog con rutinas echas por nosotros en C, lo cual amplia bastante el panorama...
O lo que tambien es muy interesante compilar los programas Gtkdialog en C lo cual es interesantisimo.....
En fin que ya tenemos las bases para crear nuestros propios programas en Puppy........ ya no hay quie nos pare ........
Un saludo.
Gracias muchachos
Posted: Fri 05 Feb 2010, 20:15
by walter leonardo
Hola a todos.
Bueno me fui de vacaciones y recien hoy volvi y vi todo este aportazon y no pensaba que el post iva a ser tan interesante. Ya me baje los scrips y empezare a analizarlos y entenderlos un poco mejor gracias a ustedes y tratar de hacer otros programitas para mi.
¿Alguien me puede pasar un manual en bash?
Al rato nos vemos.
Saludos y gracias.
Extencion de calculadora
Posted: Sat 06 Feb 2010, 00:11
by walter leonardo
Hola.
Estube analizando y correji algunas cositas del programa, como el acento que le faltaba a "Tensión" por ejemplo y un espacio de mas que tenia una palabra, y le agregue "scale=6" para todos menos para la resistencia ya que la resistencia minima es la de miliohms, en cambio los otros resultados era conveniente que se muestren asta microamperes, microvoltios y microvatios.
Agregue para calcular "vatios (watts)"
Una consulta: como podria poner una ventana al lado de "ingrese la Resistencia (ohmios)"que diga "o vatios" en la parte de "calcular la corriente" (osea otra ventanita a la derecha) porque ahi dos formas de calcular la corriente una es "tensión/resistencia" y la otra es "vatios/tensión", despues tengo otras forlumas pero sabiendo esto creo que ya sabre poner las otras
.
de seguro el que mas me entiende lo que quiero hacer es mister_electronico jeje.
A ver que tal....
Posted: Mon 08 Feb 2010, 22:14
by mister_electronico
Veo que ya le vas cogiendo el punto ...... walter....
La verdad es que esta un poco mal expresado lo que quieres decir, si no leete a ti mismo ........... jejeje..........
Pero en cualquier cuaquier caso creo adivinar lo que quieres....
Bueno lo que hago si te das cuenta entre los dos hbox introduzco otro entry y asi consigo una ventanita mas en la entrada a la derecha .... y aparte le pongo otro label....
Abre el fichero y lo veras..... Simplemente jugeteando consigues todo lo que quieres...... siempre que respectes la estructura .... del Gtkdialog...
Si te vas al enlace que puse yo al principio en le que viene un tutorial de Gtkdialog en el foro de puppy en Ingles.... veras gente que hace cosas muy interesantes y ademas gente muy agradable, que a mi me a contestado resolviendome dudas.....
Intentare poner en un futuro cosas de ahi aqui........
Lo malo es el tiempo............ Bueno analiza el fichero que pongo que lo unico que hace es guarrear el programa, pero es para que te sirva para ver lo que te digo...
Nos vemos .... un saludo..
No se por que no me adiciono el archivo..,..
Posted: Mon 08 Feb 2010, 22:20
by mister_electronico
No se por que no me adiciono el archivo..
Genial
Posted: Mon 08 Feb 2010, 23:55
by walter leonardo
Lamento decirte que el archivo adjunto que pusiste no se descomprime, le doy yes y no se descomprime, sigue apareciendo el mismo ohmwatt.sh.gz.
solicionado
Posted: Tue 09 Feb 2010, 00:58
by walter leonardo
Ya lo ise con la explicación que me diste ya me di cuenta de como hacerlo asta que me salio bien.
Ahora pongo el archivo y mas adelante lo ire modificando.
Nota: tu archivo sigue sin descomprimirse.
Saludos.
Yo no tengo ningun problema en descomprimirlo..
Posted: Tue 09 Feb 2010, 20:22
by mister_electronico
Pues no se lo que te pasa yo no tengo ningun problema en descomprimirlo, Mira te pongo este archivo ohmwatts.tar.gz pero no lo descomprimas simplemente renombralo quitando la extension tar.gz por
sh..... osea renombralo ohmwatts.sh y ya esta ya que no esta comprimido solo le he dado ese nombre para poder subirlo al servidor...
De todas formar ya he visto en tu programa que lo has comprendido....
Un saludo..
Hola
Posted: Tue 16 Mar 2010, 20:15
by walter leonardo
Nueva actualización del programa de electronica, electricidad.
Consulta:
Quiero poner letras en colores en el programa, como lo haría?
Nota: si pueden mejorarlo seria mucho mejor. Todo sera bienvenido.