https://foro.gambas-es.org/viewtopic.php?f=5&t=1202
-----------------------------------
kotonfree
Sabado, 11 Diciembre 2010, 20:47

Simple Calculadora
-----------------------------------
Bueno aquí está una simple calculadora que he hecho (haber que os parece). Por algo se empieza.. :)
http://www.megaupload.com/?d=QOD0JCVK


-----------------------------------
ivanovichenco
Sabado, 11 Diciembre 2010, 22:22

Re: Simple Calculadora
-----------------------------------
Primero, un saludo.
Segundo, bien porque estas que te metes en gambas.
Tercero, te faltó el código fuente para poder conocer como matas las pulgas y así te puedan  ayudar con un consejo para mejorar tu código, pues te falta un poco para hacerla bien funcional.
Suerte. :smile:


-----------------------------------
kotonfree
Sabado, 11 Diciembre 2010, 23:41

Re: Simple Calculadora
-----------------------------------
Ok
Lo pongo aquí:

[code linenumbers=false syntax=gambas]
' Gambas class file

PUBLIC SUB _new()
END

PUBLIC SUB Form_Open()
ME.center
END

PUBLIC SUB Button1_Click()
'Esto es la suma
  Label3.Text = TextBox1.Value + TextBox2.Value
  Label1.Text = "+"  
END

PUBLIC SUB Button2_Click()
'ESto es la resta
  Label3.Text = TextBox1.Value - TextBox2.Value
  Label1.Text = "-"  
END

PUBLIC SUB Button3_Click()
 'Esto es la multiplicación
  Label3.Text = TextBox1.Value * TextBox2.Value
  Label1.Text = "x"  
END

PUBLIC SUB Button4_Click()
  'Esto es la división 
  Label3.Text = TextBox1.Value / TextBox2.Value
  Label1.Text = "/"
  IF TextBox2.Value = "0" THEN 
  Message("No se puede dividir entre 0")
  ENDIF   
END

PUBLIC SUB Button5_Click()
  'Botón limpiar
  Label3.Text = ""
  Label1.Text = ""
  TextBox1.Value = ""
  TextBox2.Value = ""
END

PUBLIC SUB Button6_Click()
'Botón "Acerca de...
  Message.Question("Calculadora es, un programa muy simple, para hacer operaciones matemáticas básicas.\n Puede usar las teclas del teclado numèrico +, -, *, /, para calcular.")
END

PUBLIC SUB Button7_Click()
  'Bueno esto lo he puesto para hacer un poco la gracia jeje
  'Botón Info
  Message.Info("KOTON TECHNOLOGIES. CopYleft.")
END

PUBLIC SUB Button8_Click()
  'Botón factorial "!"
    DIM n AS Integer
    Label3.Text = 1
    FOR n = 1 TO TextBox1.Value
    Label3.Text = Label3.Text * n
    NEXT
    Label1.Text = "!"
END

PUBLIC SUB Button9_Click()
'Botón al cuadrado
  Label3.Text = TextBox1.Value * TextBox1.Value
  Label1.Text = "²"
END

PUBLIC SUB TextBox2_KeyRelease()
  IF Key.Code = 65451 THEN 
  Button1_Click()
  ELSE IF Key.Code = 65453 THEN 
  Button2_Click()
  ELSE IF Key.Code = 65450 THEN 
  Button3_Click()
  ELSE IF Key.Code = 65455 THEN 
  Button4_Click()
  ENDIF 
END

PUBLIC SUB TextBox1_KeyRelease()
  IF Key.Code = 65451 THEN 
  Button1_Click()
  ELSE IF Key.Code = 65453 THEN 
  Button2_Click()
  ELSE IF Key.Code = 65450 THEN 
  Button3_Click()
  ELSE IF Key.Code = 65455 THEN 
  Button4_Click()
  ENDIF 
END

PUBLIC SUB Button10_Click()
'Botón Leeme (error: /0)
  Message("No divida un núm. entre 0, ya que\n saldrá error y se cerrará el programa.")
END
[/code]


-----------------------------------
kotonfree
Sabado, 11 Diciembre 2010, 23:43

Re: Simple Calculadora
-----------------------------------
Emm, si uno de mis problemas es que me lio, y no se como hacer la raíz cuadrada, alguien sabe?


-----------------------------------
shordi
Domingo, 12 Diciembre 2010, 19:19

Re: Simple Calculadora
-----------------------------------
Un pequeño apunte: No es recomendable utilizar el valor de las teclas (65453.65450. etc.) porque éste puede variar de una distribución de teclado a otra. Es mejor utilizar las constantes de gambas gb.Enter, gb.Return, etc. etc. que se traducen siempre a la tecla correcta.

Suerte.


-----------------------------------
razaAztk
Domingo, 12 Diciembre 2010, 19:26

Re: Simple Calculadora
-----------------------------------
Para la raíz cuadrada http://gambasdoc.org/help/lang/sqr


-----------------------------------
razaAztk
Domingo, 12 Diciembre 2010, 19:33

Re: Simple Calculadora
-----------------------------------
Para la división, y el error de dividir un numero entre 0, puedes usar algo como:

[code linenumbers=false syntax=gambas]
PUBLIC SUB Button4_Click()
  'Esto es la división
  IF TextBox2.Value = "0" THEN
    Label3.Text = "NaN"
  ELSE
    Label3.Text = TextBox1.Value / TextBox2.Value
  ENDIF  
  Label1.Text = "/"
END
[/code]

Saludos!


-----------------------------------
kotonfree
Domingo, 12 Diciembre 2010, 22:33

Re: Simple Calculadora
-----------------------------------
Ok, vale, muchas gracias.


-----------------------------------
kotonfree
Martes, 14 Diciembre 2010, 17:45

Re: Simple Calculadora
-----------------------------------
Bueno aquí está la 0.03 con alguna mejora, ya no está lo del error de /0, tiene la raíz cuadrada, etc.
http://www.megaupload.com/?d=T6PQ75IL


