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

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

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

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

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

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

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