EJERCICIO 44

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

IUTILIZANDO 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 500 AL -500

' Gambas class file

PUBLIC SUB Button1_Click()
Form2.Hide
FMain.ShowEND

PUBLIC SUB Button2_Click()
DIM A AS Integer
FOR A = 500 TO -500 STEP -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.ShowEND


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