Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Viernes, 19 Abril 2024, 10:51 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Simple Calculadora En Una Aplicación De Línea De Comandos


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Simple Calculadora En Una Aplicación De Línea De Comandos
Autor Mensaje
Desconectado vuott Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60
Ubicación: italia.png
 
 
Responder citando   Descargar mensaje  
Mensaje Simple Calculadora En Una Aplicación De Línea De Comandos 
 
El código siguiente es una aplicación de línea de comandos para hacer sencillos cálculos de dos enteros.
La expresión del cálculo (por ejemplo: 10+15) debe ser escrita sin espacios en el área debajo de la console, o en el Terminal. Luego pulsar la tecla [Enter].

Public Sub Main()

  Print "\n'i' y [Enter] para obtener informaciones\n"

End


Public Sub Application_Read()
    
  Dim s As String
  Dim ss As String[]

    Input s

  If s = "i" Then
      Print "Cómo se usa:\n- 'i' y [Enter] para obtener estas informaciones;"
      Print "- entero*entero  y [Enter] para multiplicar los dos enteros (ejemplo: 4*2 );"
      Print "- entero+entero  y [Enter] para la adición (ejemplo: 4+2 );"
      Print "- entero/entero  y [Enter] para la división (ejemplo: 4/2 );"
      Print "- entero-entero  y [Enter] para la sustracción (ejemplo: 4-2 );"
      Print "- 'quit' y [Enter] para cerrar el programa."
    Else

    If InStr(s, "*") Then
      ss = Split(s, "*")
      Print CLong(Val(ss[0]) * Val(ss[1]))
    Endif
    If InStr(s, "+") Then
      ss = Split(s, "+")
      Print CLong(Val(ss[0]) + Val(ss[1]))
    Endif
    If InStr(s, "/") Then
      ss = Split(s, "/")
      Print CLong(Val(ss[0]) \ Val(ss[1]))
    Endif
    If InStr(s, "-") Then
      ss = Split(s, "-")
      Print CLong(Val(ss[0]) - Val(ss[1]))
    Endif
    
    If s = "quit" Then
      Print "\e[1;31mCierre en \e[1;33m2\e[1;31m segundos !"
      Sleep 2
      Quit
    Endif
    
  Endif

End

 



 
última edición por vuott el Jueves, 28 Abril 2016, 13:36; editado 1 vez 
#1  Jueves, 28 Abril 2016, 01:54
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado shordi Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64
Ubicación: spain.png Albacete
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
Muy graciosa, sí señor.
 
 




===================
No podemos regresar
 
#2  Jueves, 28 Abril 2016, 08:37
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado vuott Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60
Ubicación: italia.png
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
...es posible abreviar el código. Pero en este caso es necesario poner dos espacios en la expresión (por ejemplo: 5 + 4):

Public Sub Main()

  Print "\n'i' y [Enter] para obtener informaciones\n"

End


Public Sub Application_Read()
    
  Dim s As String
  Dim ss As String[]
  Dim cont As New Collection

    Line Input s

  Select Case s
    Case "i"
      Print "Cómo se usa:\n- 'i' y [Enter] para obtener estas informaciones;"
      Print "- entero * entero  y [Enter] para multiplicar los dos enteros (ejemplo: 4 * 2);"
      Print "- entero + entero  y [Enter] para la adición (ejemplo: 4 + 2);"
      Print "- entero / entero  y [Enter] para la división (ejemplo: 4 / 2);"
      Print "- entero - entero  y [Enter] para la sustracción (ejemplo: 4 - 2);"
      Print "- 'q' y [Enter] para cerrar el programa."
    Case "q"
      Quit
    Case Else
      ss = Scan(s, "* * *")
      If ss.Count <> 3 Then
        Print ("Error al escribir la expresión de calculo !")
        Return
      Endif
      cont["A"] = ss[0]
      cont["B"] = ss[2]
      Print ss[0], ss[1], ss[2], "=", Eval("A" & ss[1] & "B", cont)
  End Select
End

 



 
última edición por vuott el Viernes, 29 Abril 2016, 01:56; editado 3 veces 
#3  Jueves, 28 Abril 2016, 15:11
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado Shell Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación: spain.png Al otro lado de la pantalla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
Vuott:

No sé, no sé..
Y si alguien intenta producir un error intencionadamente. ¿ Cómo responderá la aplicación ?.  

Hemos de suponer que el usuario hace todo lo que le decimos para que se comporte correctamente
con la aplicación o debemos controlar que hace el usuario, para que no se sobrepase con ella
y devolverlo al buen camino y que la aplicación no se vaya al traste.

Creo que debemos añadir lo de.."te estoy vigilando!".

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
#4  Jueves, 28 Abril 2016, 18:27
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado vuott Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60
Ubicación: italia.png
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
Consul Shell,

el mi código es solo y simplemente una curiosidad.    
 



 
#5  Viernes, 29 Abril 2016, 01:55
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado Shell Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación: spain.png Al otro lado de la pantalla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
Tengo curiosidad porque usaste Read. Lo tengo que probar a la vuelta del paseo.

Supongo que una aplicación que hace algo tan habitual como ejercicio de programación se te ocurrió por algún motivo,
para hacerla de alguna manera distinta a la habitual.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
#6  Viernes, 29 Abril 2016, 18:24
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado vuott Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60
Ubicación: italia.png
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
Shell escribió: [Ver mensaje]
Tengo curiosidad porque usaste Read.


El evento Application_Read() te permite interaccionar con un programa de línea de comandos.


Codex ad explicandum:

Private bo As Boolean


Public Sub Main()

  Dim i As Integer

  While bo = False
    Inc i
    Print i
' Es necesario poner un 'Wait':
    Wait 0.3
  Wend

End


Public Sub Application_Read()
  
  Dim s As String

' Intercepta lo que fue enviado por el espacio debajo de la console:
    Input s
    If s = "verum" Then bo = True
  
End

 



 
última edición por vuott el Sabado, 30 Abril 2016, 14:37; editado 3 veces 
#7  Viernes, 29 Abril 2016, 21:34
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado Shell Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación: spain.png Al otro lado de la pantalla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
Podías haber usado el componente gb.args y para las expresiones gb.eval

Claro que hay momentos que el programador prefiere crearse su función o procedimiento y no cargar todo un componente ni importar una librería.
Por el espacio que puede ocupar o por que quizás no merezca la pena para una "única" función.

Read, yo lo había "encasillado" más en el uso con procesos. Cosa que no solemos ver mucho.  

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
#8  Sabado, 30 Abril 2016, 09:15
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado vuott Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60
Ubicación: italia.png
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Simple Calculadora En Una Aplicación De Línea De Comandos 
 
Con el evento Application_Read() puedes comunicar con el tu programa siempre y en runtime.
 



 
#9  Sabado, 30 Abril 2016, 14:35
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Calculadora Simple V1.1.0, Ademas Una Preg... glas Aplicaciones/Fragmentos de Código 2 Sabado, 16 Octobre 2010, 22:17 Ver último mensaje
razaAztk
No hay nuevos mensajes Simple Calculadora kotonfree Aplicaciones/Fragmentos de Código 8 Martes, 14 Diciembre 2010, 17:45 Ver último mensaje
kotonfree
No hay nuevos mensajes Ejecutar Un File Audio O Midi Con Gb.sdl.s... vuott Aplicaciones/Fragmentos de Código 0 Domingo, 19 Octobre 2014, 01:13 Ver último mensaje
vuott
No hay nuevos mensajes Convertir Archivos Xls A Csv Desde Línea ... Shell Mundo Linux 1 Jueves, 24 Agosto 2017, 22:05 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Viernes, 19 Abril 2024, 10:51 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario


  

 
cron