Autor |
Mensaje |
kotonfree
Aprendiz
Registrado: Diciembre 2010
Mensajes: 94
Edad: 28 Ubicación:
|
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
|
#1 Sabado, 11 Diciembre 2010, 20:47 |
|
|
ivanovichenco
Ingeniero Programador
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66 Ubicación: Neiva, Huila, Rep. de Colombia
|
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.
|
#2 Sabado, 11 Diciembre 2010, 22:22 |
|
|
kotonfree
Aprendiz
Registrado: Diciembre 2010
Mensajes: 94
Edad: 28 Ubicación:
|
Re: Simple Calculadora
Ok
Lo pongo aquí:
' 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
|
#3 Sabado, 11 Diciembre 2010, 23:41 |
|
|
kotonfree
Aprendiz
Registrado: Diciembre 2010
Mensajes: 94
Edad: 28 Ubicación:
|
Re: Simple Calculadora
Emm, si uno de mis problemas es que me lio, y no se como hacer la raíz cuadrada, alguien sabe?
|
#4 Sabado, 11 Diciembre 2010, 23:43 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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.
=================== No podemos regresar
|
#5 Domingo, 12 Diciembre 2010, 19:19 |
|
|
razaAztk
aztk crux
Analista Programador
Registrado: Enero 2010
Mensajes: 340
Edad: 35 Ubicación: Tenochtitlan
|
Re: Simple Calculadora
|
#6 Domingo, 12 Diciembre 2010, 19:26 |
|
|
razaAztk
aztk crux
Analista Programador
Registrado: Enero 2010
Mensajes: 340
Edad: 35 Ubicación: Tenochtitlan
|
Re: Simple Calculadora
Para la división, y el error de dividir un numero entre 0, puedes usar algo como:
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
Saludos!
|
#7 Domingo, 12 Diciembre 2010, 19:33 |
|
|
kotonfree
Aprendiz
Registrado: Diciembre 2010
Mensajes: 94
Edad: 28 Ubicación:
|
Re: Simple Calculadora
Ok, vale, muchas gracias.
|
#8 Domingo, 12 Diciembre 2010, 22:33 |
|
|
kotonfree
Aprendiz
Registrado: Diciembre 2010
Mensajes: 94
Edad: 28 Ubicación:
|
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
última edición por kotonfree el Martes, 14 Diciembre 2010, 17:46; editado 1 vez
|
#9 Martes, 14 Diciembre 2010, 17:45 |
|
|
|