EJERCICIO 43

Realizar una aplicacion utilizando el editor de menu 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 IF_Click()
FMain.Hide
Form1.Show
END


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


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


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


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


PUBLIC SUB Label1_MouseDown()
MENU.Popup
END

Segundo Formulario

Realizar una aplicación utilizando la sentencia if then else que me permita ingresar la edad de unja persona y muestre un mensaje si es mayor o menor de edad.

' Gambas class file

PUBLIC SUB Button1_Click()
Form1.Hide
FMain.ShowEND


PUBLIC SUB Button2_Click()
DIM A AS Integer
A = TextBox1.Text
IF (A) >= 18 THEN
Message("MAYOR DE EDAD")
ELSE
Message("MENOR DE EDAD")
END IF
END


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

Tercer Formulario

IMPRIMIR LOS MULTIPLOS DE 5 DEL 1 AL 100

' Gambas class file

PUBLIC SUB Button2_Click()
DIM A AS Integer
FOR A = 0 TO 100 STEP 5
ListBox1.Add(A)
NEXT
END


PUBLIC SUB Button3_Click()
ListBox1.Clear
END


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

CUARTO FORMULARIO

Utilizando SELECT CAse realizar una aplicación que me permita imprimir(N) el nombre,(A)el apellido, (T)el teléfono, y (D) la dirección; en diferentes textbox

' Gambas class file

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

PUBLIC SUB Button2_Click()
SELECT CASE (TextBox1.Text)
CASE "N"
Label6.Caption = ("MI NOMBRE ES GABRIELA")
END SELECT
SELECT CASE (TextBox2.Text)
CASE "A"
Label7.Caption = ("MI APELLIDO ES GALBAN")
END SELECT
SELECT CASE (TextBox3.Text)
CASE "T"
Label8.Caption = ("MI NUMERO DE TELEFONO ES 080132511")
END SELECT
SELECT CASE (TextBox4.Text)
CASE "D"
Label9.Caption = ("YO ESTUDIO Y VIVO EN GALAPAGOS")
END SELECT


END


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

QUINTO FORMULARIO

Mostrar en un listbox los datos de una persona EL NOMBRE Y APELLIDO

' Gambas class file

PUBLIC SUB Button1_Click()
Form4.Hide
FMain.ShowEND


PUBLIC SUB Button2_Click()
DIM JAVIER AS Integer
JAVIER = 1
DO WHILE JAVIER <= 1 ListBox1.Add("JAVIER") JAVIER = JAVIER + 1 LOOP END PUBLIC SUB Button4_Click() DIM RAMIREZ AS Integer RAMIREZ = 1 DO WHILE RAMIREZ <= 1 ListBox2.Add("RAMIREZ") RAMIREZ = RAMIREZ + 1 LOOP END

SEXTO FORMULARIO

IMPRIMIR LOS NUMEROS DEL 1000 al 500

' Gambas class file

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


PUBLIC SUB Button2_Click()
DIM A AS Integer
A = 1000
DO
ListBox1.Add(A)
A = A - 1
LOOP WHILE A >= 500END


PUBLIC SUB Button3_Click()
ListBox1.Clear
END