Hola amigos soy nuevo en esto de gambas, ya llevo 3 dias con esto de Visual Studio el cual me parecio bueno, pero como soy amante de Ubuntu en su totalidad me pregunte habra una aplicacion similar para Linux, hasta que di con gambas el cual es muy similar a Visual Studio que he ocupado para hacer una simple calculadora, en donde ocupe el mismo codigo en gambas con algunos cambios, bueno hice una calculadora simple, aqui les dejo el codigo muy simple.
bueno tambien me surgio una pregunta muy grande, hice un ejecutable el cual es con extencion .gambas , ahora, es necesario tener instalado gambas en otra makina en donde tengo ubuntu, o solo es nesecario instalar el runtime de gambas, hay alguna forma de poner el runtime dentro del ejecutable sin nesecidad de coneccion a internet para su descarga, bueno espero que entiendan mi pregunta, muchas gracias, saludos amigos...
link del ejecutable .gambas (megaupload) = primer_proyecto_gambas
NOTA: no encontre el GeShi, sorry...
' gambas class file
PRIVATE Valor1 AS Single
PRIVATE Valor2 AS Single
PRIVATE Result AS Single
PRIVATE Marca_Suma AS Boolean
PRIVATE Marca_Resta AS Boolean
PRIVATE Marca_Multiplicacion AS Boolean
PRIVATE Marca_Division AS Boolean
PUBLIC SUB Uno_Click()
Valor1 = Valor1 * 10 + 1
Pantalla.Text = Valor1
END
PUBLIC SUB Dos_Click()
Valor1 = Valor1 * 10 + 2
Pantalla.Text = Valor1
END
PUBLIC SUB Tres_Click()
Valor1 = Valor1 * 10 + 3
Pantalla.Text = Valor1
END
PUBLIC SUB Cuatro_Click()
Valor1 = Valor1 * 10 + 4
Pantalla.Text = Valor1
END
PUBLIC SUB Cinco_Click()
Valor1 = Valor1 * 10 + 5
Pantalla.Text = Valor1
END
PUBLIC SUB Seis_Click()
Valor1 = Valor1 * 10 + 6
Pantalla.Text = Valor1
END
PUBLIC SUB Siete_Click()
Valor1 = Valor1 * 10 + 7
Pantalla.Text = Valor1
END
PUBLIC SUB Ocho_Click()
Valor1 = Valor1 * 10 + 8
Pantalla.Text = Valor1
END
PUBLIC SUB Nueve_Click()
Valor1 = Valor1 * 10 + 9
Pantalla.Text = Valor1
END
PUBLIC SUB Cero_Click()
Valor1 = Valor1 * 10
Pantalla.Text = Valor1
END
PUBLIC SUB Mas_Click()
Pantalla.Text = "+"
Valor2 = Valor1
Valor1 = 0
Marca_Suma = TRUE
END
PUBLIC SUB Resta_Click()
Pantalla.Text = "-"
Valor2 = Valor1
Valor1 = 0
Marca_Resta = TRUE
END
PUBLIC SUB Multiplicacion_Click()
Pantalla.Text = "x"
Valor2 = Valor1
Valor1 = 0
Marca_Multiplicacion = TRUE
END
PUBLIC SUB Division_Click()
Pantalla.Text = "/"
Valor2 = Valor1
Valor1 = 0
Marca_Division = TRUE
END
PUBLIC SUB Resultado_Click()
IF Marca_Suma = TRUE THEN
Result = Valor2 + Valor1
ELSE IF Marca_Resta = TRUE THEN
Result = Valor2 - Valor1
ELSE IF Marca_Multiplicacion = TRUE THEN
Result = Valor2 * Valor1
ELSE IF Marca_Division = TRUE THEN
Result = Valor2 / Valor1
END IF
Pantalla.Text = Result
END
PUBLIC SUB Limpiar_Click()
Pantalla.Text = ""
Valor1 = 0
Valor2 = 0
Marca_Division = FALSE
Marca_Multiplicacion = FALSE
Marca_Resta = FALSE
Marca_Suma = FALSE
END