martes, 8 de febrero de 2011

Bienvenidos a mi blog

HOLA ESPERO  QUE ESTE TRABAJO LES SEA DE MUCHA AYUDA PARA TODOS LOS QUE UTILIZAMOS PROGRAMACIÓN EN SOFTWARE LIBRE 




A CONTINUACION USTEDES VERAN UNOS PEQUEÑAS CODIFICACIONES PARA UTILIZARLAS EN GAMBAS
Publicado por en No hay comentarios:

EJERCICIO 50

CALCULAR EL ÁREA DE UN CIRCULO

PARA DESARROLLAR ESTE EJERCICIO NECESITAS 3 TEXTBOX Y UN BUTTON Y SABER DISEÑAR BIEN




' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB ToggleButton1_Click()


TextBox3.Text = (Val(TextBox1.TEXT) * Val(TextBox2.TEXT)) / 2



END
Publicado por en No hay comentarios:

EJERCICIO 49

POR MEDIO DE LA SENTENCIA DO WHILE ELABORAR UN PROGRAMA QUE ME IMPRIMA EL CICLO DE UN ESTUDIANTE DE 3 CICLO DE INFORMÁTICA



' Gambas class file

PUBLIC SUB Button1_Click()

DIM Z AS Integer
Z = 1
DO WHILE Z <= 7
ListBox1.ADD(" TERCER CICLO INFORMATICA")
Z = Z + 1
LOOP

END
Publicado por en No hay comentarios:

EJERCICIO 48

PROGRAMA UTILIZANDO LA SENTENCIA IF QUE PERMITA SABER SI UN ALUMNO APRUEBA O REPRUEBA



Gambas class file

PUBLIC SUB Button1_Click()

DIM X AS Integer
X = TextBox1.Text
IF X >= 15 THEN
TextBox2.TEXT = "APROBADO"
TEXTBOX3.TEXT = ""

ELSE
TEXTBOX3.TEXT = "REPROBADO"
TextBox2.TEXT = ""

END IF



END
Publicado por en No hay comentarios:

EJERCICIO 47

Programa utilizando la sentencia for mostrar 10 veces la palabra amistad


' Gambas class file
PUBLIC SUB Button2_Click()

DIM W AS Integer
W = 1
FOR W = 1 TO 10
ListBox1.Add("AMISTAD")
NEXT
QUIT
Publicado por en No hay comentarios:

EJERCICIO 46

Realizar una aplicaciòn que imprima los multiplos de 3 con el ciclo.FOR



‘Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
FOR A = 0 TO 99 STEP 3
ListBox1.Add(A)
NEXT

END
Publicado por en No hay comentarios:

EJERCICIO 45

TRABAJO1 EN CLASE
REALIZAR UNA APLICACIÓN UTILIZANDO EL EDITOR DE MENÚ CON EL IF ,FOR, CASE,DO WHILE LOOP, DO LOOP WHILE


PRIMER FORMULARIO

‘Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB OPERACION_IF_Click()
FMain.Hide
Form1.Show
END

PUBLIC SUB OPERACION_FOR_Click()
FMain.Hide
Form2.Show
END

PUBLIC SUB SELECT_CASE_Click()
FMain.Hide
Form3.Show
END


PUBLIC SUB DO_WHILE_LOOP_Click()
FMain.Hide
Form4.Show
END


PUBLIC SUB DO_LOOP_WHILE_Click()
FMain.Hide
Form5.Show
END
PUBLIC SUB SALIR_Click()
QUIT
END


PUBLIC SUB Label1_MouseDown()
MENU.Popup
END





SEGUNDO FORMULARIO

UTILIZANDO LA SENTENCIA IF INGRESE UN NUMERO Y MUESTRE SI ES POSITIVO O NEGATIVOY SI ES PAR O IMPAR

' Gambas class file


PUBLIC SUB Button1_Click()
Form1.Hide
FMain.Show
END


PUBLIC SUB Button2_Click()
DIM A AS Integer
A = TextBox1.Text
IF (A) > 0 THEN
Message("POSITIVO")
IF (A) MOD 2 THEN
Message("EL NUMERO ES IMPAR")
ELSE
Message("EL NUMERO ES PAR")
END IF
ELSE
Message("NEGATIVO")
IF (A) MOD 2 THEN
Message("EL NUMERO ES IMPAR")
ELSE
Message("EL NUMERO ES PAR")
END IF
END IF
END


PUBLIC SUB Button3_Click()
TextBox1.Text = ""
END


TERCER FORMULARIO

IMPRIMIR LOS NUMEROS DEL 400 AL -400

' Gambas class file
PUBLIC SUB Button1_Click()
Form2.Hide
FMain.Show
END

PUBLIC SUB Button2_Click()
DIM A AS Integer
FOR A = 400TO -400STEP -1
ListBox1.Add(A)
NEXT
END


PUBLIC SUB Button3_Click()
ListBox1.Clear


END





CUARTO FORMULARIO

Utilizando SELECT CAse realizar una aplicación que me permita ingresar la edad de una persona 1 a 2 mensaje BEBE de 2 a 12 NIÑO de 13 a 19 joven y de 20 en adelante adulto

‘Gambas class file

PUBLIC SUB Button1_Click()
Form3.Hide
FMain.Show
END


PUBLIC SUB Button2_Click()
DIM EDAD AS Integer
EDAD = TextBox1.Text
SELECT CASE EDAD
CASE 0 TO 2
Message("BEBE")
CASE 2 TO 12
Message("NIÑO")
CASE 18
Message("YA ERES CIUDADANO")
CASE 13 TO 17
Message("JOVEN")
CASE ELSE
Message("ADULTO")
END SELECT


END


PUBLIC SUB Button3_Click()
TextBox1.Text = ""
END



QUINTO FORMULARIO

DO WHILE LOOP
IMPRIMIR LOS NUMEROS 250 AL -50 DE 2 EN 2

‘Gambas class file




PUBLIC SUB Button1_Click ()
Form4.Hide
FMain.Show
END

PUBLIC SUB Button2_Click ()
DIM A AS Integer
A = 250
DO WHILE A >= -50
ListBox1.Add(A)
A = A - 2
LOOP
END


PUBLIC SUB Button3_Click()
ListBox1.Clear
END




SEXTO FORMULARIO

DO LOOP WHILE
IMPRIMIR LOS NUMEROS DEL 100 AL 200 DE 10 EN 10

‘Gambas class file


PUBLIC SUB Button1_Click ()
Form5.Hide
FMain.Show
END


PUBLIC SUB Button2_Click()
DIM A AS Integer
A = 100
DO
ListBox1.Add(A)
A = A + 10
LOOP WHILE A <= 200 END PUBLIC SUB Button3_Click() ListBox1.Clear 
END
Publicado por en No hay comentarios:

EJERCICIO 44

MOSTRAR LOS NUMEROS DEL 1 AL 50 DE 4 EN 4



‘Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button1_Click()
DIM X AS Integer
FOR X = 1 TO 50 STEP 4
ListBox1.Add(X)
NEXT
END


PUBLIC SUB Button2_Click()
ListBox1.Clear
END


PUBLIC SUB Button3_Click()
QUIT
END
Publicado por en No hay comentarios:

EJERCICIO 43

Realizar una aplicación con el editor de menú que me permita calcular la raíz cuadrada, potencia y logaritmo.


PRIMER FORMULARIO

‘Gambas class file


PUBLIC SUB _new ()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button1_Click()
FMain.Hide
Form1.SHOW
END


PUBLIC SUB Button2_Click()
QUIT
END



SEGUNDO FORMULARIO

‘Gambas class file


PUBLIC SUB Button2_Click()
TextBox2.Text = (TextBox1.Text) ^ (1 / 2)
TextBox3.Text = (TextBox1.Text) ^ (4)
TextBox4.Text = Log(TextBox1.Text)
END

PUBLIC SUB Button1_Click()
Form1.Hide
FMain.Show
END


Publicado por en No hay comentarios:

EJERCICIO 42

Imprimir los números del del -100 al 50 de 2 en 2 


' Gambas class file


PUBLIC SUB Button1_Click()

DIM X AS Integer
X = -100
DO WHILE X <= 50
ListBox1.Add(X)
X = X + 2
LOOP
END

PUBLIC SUB Button1_Click()
FORM3.HIDE
FMain.Show
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END
Publicado por en No hay comentarios:

EJERCICIO 41

Imprimir Los Números Del Del 1 Al 200 De 3 En 3 



‘Gambas class file


PUBLIC SUB Button1_Click()

DIM X AS Integer
X = 1
DO WHILE X <= 200
ListBox1.Add(X)
X = X + 3
LOOP
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END
Publicado por en No hay comentarios:

EJERCICIO 40

Imprimir los números del del 5 al 100 de 5 en 5 en un Formulario utilizando el DO WHILE


‘Gambas class file


PUBLIC SUB Button1_Click ()

DIM X AS Integer
X = 5
DO WHILE X <= 100
ListBox1.Add(X)
= X + 5
LOOP
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END
Publicado por en No hay comentarios:

EJERCICIO 39

Usar Gambas para desplegar múltiplos de 9 entre 9 y 99 acompañados de su logaritmo utilizando el ciclo for.


‘Gambas Class File


PUBLIC SUB _New()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button1_Click()
DIM A AS Integer
FOR A = 9 TO 99 STEP 9
Listbox1.Add(A)
NEXT
END


PUBLIC SUB Button2_Click()
DIM B AS Integer
FOR B = 9 TO 99 STEP 9
Listbox2.Add(Log(B))
NEXT
END


PUBLIC SUB Button4_Click()
QUIT
END

Publicado por en No hay comentarios:

EJERCICIO 38

Ejercicio con la sentencia if then
Realizar un ejercicio que imprima la palabra es rico si el numero ingresado es mayor de 1000 caso contrario es pobre.



PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A > 1000 THEN
Message("ES RICO")
ELSE
Message("ES POBRE")
END IF
END

Publicado por en No hay comentarios:

EJERCICIO 37

Utilizando el SENTENCIA FOR imprimir los Multiplos de 3 del 0 al 99



' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
FOR A = -5 TO 18
ListBox1.Add(A)
NEXT

END
Publicado por en No hay comentarios:

EJERCICIO 36

Sentencia if

Mostrar los datos de un empleado si gana mas de 500 mostrar CHEQUE semanal caso contrario un bono del 25%



' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF (A) > 500 THEN
Message("CHEQUE SEMANAL")
ELSE
IF (A) < 500 THEN
Message("BONO DEL 25%")
TextBox2.Text = TextBox1.Text * (0.25)
ENDIF
ENDIF
END
Publicado por en No hay comentarios:

EJERCICIO 35

MULTIPLOS DE 7


‘Gambas class file

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 0
DO
ListBox1.Add(A)
A = A + 7
LOOP WHILE A <= 50
END

PUBLIC SUB Button4_Click()
DIM A AS Integer
A = 0
DO
ListBox2.Add(A ^ (1 / 3))
A = A + 7
LOOP WHILE A <= 50
END
Publicado por en No hay comentarios:

EJERCICIO 34

ELABORAR UN PROGRAMA CON LA SENTENCIA SELECT CASE CON LOS SIGUIENTES VALORES X=5; X=-1; X=2


‘Gambas class file

PUBLIC SUB Button1_Click ()
SELECT CASE ComboBox1.Text
CASE "X=5"
CASE ("X=-1")
CASE "X=2"
END SELECT
END
Publicado por en No hay comentarios:

EJERCICIO 32


APLICACION QUE ME DEMUESTRES LOS MULTIPLOS DE 3

' Gambas class file

PUBLIC SUB Button2_Click()
DIM A AS Integer
A = -48
DO WHILE A <= 51
ListBox1.Add(A)
A = a + 3
LOOP
END
Publicado por en No hay comentarios:

EJERCICIO 31

Usando GAMBAS realice una aplicaciòn para desplegar enteros entre 50 y 80


‘Gambas Class File

Public Sub _New()

End

Public Sub Form_Open()

End

Public Sub Button3_Click()
Quit
End

Public Sub Button2_Click()
Listbox1.Clear
End

Public Sub Button1_Click()
Dim A As Integer
A = 50
Do While A <= 80 
Listbox1.Add(A)
A = A + 1
Loop 
End
Publicado por en No hay comentarios:

EJERCICIO 30


IMPRIMIR LOS NUMEROS DEL 1 AL 20


Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button2_Click()
QUIT
END

PUBLIC SUB Button1_Click()
DIM a AS Integer
FOR a = 1 TO 20
ListBox1.Add(A)
NEXT
END

PUBLIC SUB Button3_Click()
ListBox1.Clear
END
Publicado por en No hay comentarios:

EJERCICIO 29

PROGRAMA PARA REALIZAR UNA RESTA

‘Gambas class file

PUBLIC SUB _new()

PUBLIC SUB Form_Open()
END


PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) - (TextBox2.Text)
END
Publicado por en No hay comentarios:

EJERCICIO 28

PROGRAMA PARA REALIZAR UNA SUMA

' Gambas class file

PUBLIC SUB _new()

PUBLIC SUB Form_Open()
END

PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) + (TextBox2.Text)
END
Publicado por en No hay comentarios:

EJERCICIO 27

Evaluar la funciòn Y=3x²-4x+2 para X=2, -5, 8 USAR UN CHECKBOX para cada valor de X y programar cada evento clik de cada checkbox con la operaciòn correspondiente y el despliegue del resultado

PRIMER FORMULARIO

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button2_Click()
QUIT
END

PUBLIC SUB Button1_Click()
IF CheckBox1.Value = TRUE THEN
FMain.Hide
Form1.Show
END IF
IF CheckBox2.Value = TRUE THEN
FMain.Hide
Form2.Show
END IF
IF CheckBox3.Value = TRUE THEN
FMain.Hide
Form3.Show
END IF
END



SEGUNDO FORMULARIO

' Gambas class file


PUBLIC SUB Button1_Click()
Form1.Hide
FMain.Show
END

PUBLIC SUB Button2_Click()
TextBox1.Text = (3) * (2) ^ 2 - (4) * (2) + 2
END








TERCER FORMULARIO


' Gambas class file


PUBLIC SUB Button1_Click()
Form2.Hide
FMain.Show
END

PUBLIC SUB Button2_Click()
TextBox1.Text = (3) * (-5) ^ 2 - (4) * (-5) + 2
END




CUARTO FORMULARIO

' Gambas class file


PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
Form3.Hide
FMain.Show
END

PUBLIC SUB Button2_Click()
TextBox1.Text = (3) * (8) ^ 2 - (4) * (8) + 2
END
Publicado por en No hay comentarios:

EJERCICIO 26

Usar GAMBAS para desplegar múltiplos de 4 entre 60 y 20 acompañados de su
Logaritmos de base 10 y base e respectivos 


' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 60
DO WHILE A >= 20
ListBox1.Add(A)
A = a - 1
LOOP

END

SEGUNDO EJERCICIO

PUBLIC SUB Button4_Click()
DIM B AS Integer
B = 60
DO WHILE B >= 20
ListBox2.Add((Log)(B))
B = B - 1
LOOP

END
Publicado por en No hay comentarios:

EJERCICIO 25

Usar GAMBAS para desplegar múltiplos de 4 entre 60 y 20 acompañados de su
logaritmos de base 10 y base e respectivos (a revisar funciones GAMBAS )


Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 20
DO WHILE A <= 60
ListBox1.Add(A)
A = a - 1
LOOP

END
Publicado por en No hay comentarios:

EJERCICIO 24

Usando GAMBAS para desplegar enteros entre 50 y 80

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 50
DO WHILE A <= 80
ListBox1.Add(A)
A = a + 1
LOOP
END
Publicado por en No hay comentarios:

EJERCICIO 23

Usar GAMBAS para desplegar múltiplos de 4 entre 60 y 20 acompañados de su
logaritmos de base 10 y base e respectivos (a revisar funciones GAMBAS )


' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
ListBox1.Clear
END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 60
DO WHILE A >= 20
ListBox1.Add(A)
A = a - 1
LOOP

END

PUBLIC SUB Button4_Click()
DIM B AS Integer
B = 60
DO WHILE B >= 20
ListBox2.Add((Log)(B))
B = B - 1
LOOP

END
Publicado por en No hay comentarios:

EJERCICIO 22

Capturar los datos más importantes de un producto cualesquiera, incluyendo
cantidad, precio, etc. , desplegar una orden de compra, solo si el producto es de origen
nacional, en caso contrario no hacer nada.


Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
END

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox5.Text
IF A = ("NACIONAL") OR A = ("ECUADOR") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO")
END IF
END
Publicado por en No hay comentarios:

EJERCICIO 21

PUEDE ESCRIBIR LA LETRA "A" "B" Y SE MOSTRARA UN MENSAJE

PARA REALIZAR ESTE EJERCICIO NECESITAS TENER IMAGINACION PARA PODER HACERLO BIEN BONITO

' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button3_Click()
QUIT
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END


PUBLIC SUB Button1_Click()
SELECT CASE TextBox1.Text
CASE "a", "A"
Message("AGUILA")
CASE "b", "B"
Message("TIGRES")
CASE ELSE
Message("NO HAY")
END SELECT
END
Publicado por en No hay comentarios:

EJERCICIO 20

 Evaluar la funciòn Y=3x²-4x+2 para X=2, -5, 8 USAR UN CHECKBOX para cada valor de X y programar cada evento clik de cada checkbox con la operaciòn correspondiente y el despliegue del resultado

PRIMER FORMULARIO
' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button2_Click()
QUIT
END

PUBLIC SUB Button1_Click()
IF CheckBox1.Value = TRUE THEN
FMain.Hide
Form1.Show
END IF
IF CheckBox2.Value = TRUE THEN
FMain.Hide
Form2.Show
END IF
IF CheckBox3.Value = TRUE THEN
FMain.Hide
Form3.Show
END IF
END




SEGUNDO FORMULARIO

' Gambas class file


PUBLIC SUB Button1_Click()
Form1.Hide
FMain.Show
END

PUBLIC SUB Button2_Click()
TextBox1.Text = (3) * (2) ^ 2 - (4) * (2) + 2
END




TERCER FORMULARIO

' Gambas class file


PUBLIC SUB Button1_Click()
Form2.Hide
FMain.Show
END

PUBLIC SUB Button2_Click()
TextBox1.Text = (3) * (-5) ^ 2 - (4) * (-5) + 2
END






















CUARTO FORMULARIO

' Gambas class file


PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
Form3.Hide
FMain.Show
END

PUBLIC SUB Button2_Click()
TextBox1.Text = (3) * (8) ^ 2 - (4) * (8) + 2
END

Publicado por en No hay comentarios:

EJERCICIO 19



Editor de menú realizar las siguientes operaciones

Conversiones:
Edad a Dias
Kilometros a Metros

PRIMER FORMULARIO

' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()
END


PUBLIC SUB SALIR_Click()
QUIT
END


PUBLIC SUB EDAD_Click()
FMain.Hide
Form1.Show
END


PUBLIC SUB KILOMETROSAMETROS_Click()
FMain.Hide
Form2.Show
END




PUBLIC SUB Label11_MouseDown()
MENU.Popup
END






SEGUNDO FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form1.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
TextBOX2.Text = (TextBOX1.Text) * 365
END


PUBLIC SUB Button2_Click()
TextBOX1.Text = ""
TextBOX2.Text = ""
END


TERCER FORMULARIO


' Gambas class file




PUBLIC SUB Button3_Click()
Form2.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) * 1000
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
Publicado por en No hay comentarios:

EJERCICIO 18

CALCULAR EL AREA DEL TRIANGULO EN GAMBAS

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox3.Text =””
TextBox3.Text =””
TextBox3.Text =””
END

PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) * (TextBox2.Text)/2
END
Publicado por en No hay comentarios:

EJERCICIO 17

1.- CALCULAR EL AREA DEL CIRCULO EN GAMBAS

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox1.Text =””
TextBox2.Text =””

END

PUBLIC SUB Button1_Click()
TextBox2.Text = 3.14*(TextBox1.Text)^2
END
Publicado por en No hay comentarios:

EJERCICIO 16

CALCULAR EL AREA DEL CUADRADO EN GAMBAS

END
Publicado por en No hay comentarios:

EJERCICIO 15

CALCULAR EL AREA DEL RECTANGULO EN GAMBAS

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
TextBox1.Text =””
TextBox2.Text =””
TextBox3.Text =””

END

PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text)*(TextBox2.Text)
END
Publicado por en No hay comentarios:

EJERCICIO 14

IMPRIMIR LA PALABRA PATO 10 VECES EN UN LISTBOX1 Y EN UN LABEL1

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()
QUIT
END

PUBLIC SUB Button2_Click()
Label2.Caption = ""
END

PUBLIC SUB Button1_Click()
DIM x AS Integer
FOR x = 1 TO 5
Label2.Caption = ("pato")
NEXT
END

PUBLIC SUB Button5_Click()
ListBox1.Clear
END

PUBLIC SUB Button4_Click()
DIM A AS Integer
FOR A = 1 TO 10
ListBox1.Add("pato")
NEXT
END







Publicado por en No hay comentarios:

EJERCICIO 13

Realizar un ejercicio para convertir la edad a meses.

Gambas class file
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click ()
textbox2.text=(textbox1.text)*(12)
END

PUBLIC SUB Button2_Click()
textbox1.text=””
textbox2.text=””
END
PUBLIC SUB Button3_Click ()
QUIT
END
Publicado por en No hay comentarios:

EJERCICIO 12

Evaluar la función Y=5X^1/3+4X^2+6 cuando el valor de x es ingresado por teclado.
Para este ejercicio necesitas tu imaginacion

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
textbox2.text=(5)*(textbox1.text)^(1/3)+(4)*(textbox1.text)^2+(6)
END

PUBLIC SUB Button2_Click()
textbox1.text=””
textbox2.text=””
END

PUBLIC SUB Button3_Click ()
QUIT
END
Publicado por en No hay comentarios:

EJERCICIO 11

Realizar un ejercicio para cambiar el color del formulario (azul, rojo).
Para desarrollar este programa necesitas tu imaginación para hacerlo puedes utilizar: 3 Button

‘Gambas class file
PUBLIC SUB _new ()
END
PUBLIC SUB Form_Open()
END


PUBLIC SUB Button1_Click()
FMain.BackColor = (&HFF)
END


PUBLIC SUB Button2_Click()
FMain.BackColor = (&HFF0000)
END

PUBLIC SUB Button3_Click ()
QUIT
END
Publicado por en No hay comentarios:

EJERCICIO 10

Evaluar la función Y=5X^2-3X+2 cuando el valor de x es ingresado por teclado.
Para desarrollar este programa necesitas tu imaginación para hacerlo puedes utilizar : 3 Button y 1 Textbox

‘Gambas class file
PUBLIC SUB _new ()
END
PUBLIC SUB Form_Open()
END

PUBLIC SUB Button1_Click()
Textbox2.text=(5)*(Textbox1.text)^(2)-(3)*(Textbox1.text)+(2)
END

PUBLIC SUB Button2_Click ()
Textbox1.text=””
Textbox2.text=””
END

PUBLIC SUB Button3_Click()
QUIT
END
Publicado por en No hay comentarios:

EJERCICIO 9

Evaluar la función Y=8X^(3/5)-3X^3+6X^2-7 cuando el valor de x es ingresado por teclado.
Para desarrollar este programa necesitas tu imaginación para hacerlo puedes utilizar: 3 Button y 1 Textbox

‘Gambas class file

PUBLIC SUB _new ()


END

PUBLIC SUB Form_Open ()


END


PUBLIC SUB Button1_Click()
Textbox2.text=(-8)*(Textbox1.text)^(3/5)-(3)*(Textbox1.text)^(3)+(6)*(Textbox1.text)^2-(7)
END


PUBLIC SUB Button2_Click()
Textbox1.text = ""
Textbox2.text = ""
END


PUBLIC SUB Button3_Click()
QUIT
END
Publicado por en No hay comentarios:

EJERCICIO 8

EVALUAR LA FUNCIÓN Y=-5X^3-3X^2+8 cuando X = 4

Para desarrollar este programa necesitas tu imaginación para hacerlo puedes utilizar: 3 Button y 1 Textbox

Gambas class file

PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
Textbox1.Text = ((-5) * (4) ^ 3) - ((3) * (4) ^ 2) + (8)
END


PUBLIC SUB Button2_Click()
textbox1.text=””
textbox2.text=””
END

PUBLIC SUB Button3_Click()
QUIT
END
Publicado por en No hay comentarios:
Suscribirse a: Comentarios (Atom)