EJERCICIO 56

REALIZAR LOS SIGUIENTES OPERACIONES CON EL EDITOR DE MENU,SUMA,RESTA, MULTIPLICACION,DIVISION.

FMAIN 

' Gambas class file

PUBLIC SUB _new()

Form1.Hide

FMain.Show

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Label1_MouseDown()

MENU.Popup

END

PUBLIC SUB SUMA_Click()

FMain.Hide

Form1.Show

END

PUBLIC SUB RESTA_Click()

FMain.Hide

Form2.Show

END

PUBLIC SUB MULTIPLICACION_Click()

FMain.Hide

Form3.Show

END

PUBLIC SUB DIVISION_Click()

FMain.Hide

Form4.Show

END

PUBLIC SUB SALIR_Click()

QUIT

END

FORMULARIO1

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text + TextBox2.Text

END

PUBLIC SUB Button2_Click()

Form1.Hide

FMain.Show

END

PUBLIC SUB Button3_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

PUBLIC SUB Label1_MouseDown()

END

FORMULARIO2

Gambas class file

PUBLIC SUB Button3_Click()

Form2.Hide

FMain.Show

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text - TextBox2.Text

END

PUBLIC SUB Button2_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

FORMULARIO3

' Gambas class file

PUBLIC SUB Button3_Click()

Form3.Hide

FMain.Show

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text * TextBox2.Text

END

PUBLIC SUB Button2_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

FORMULARIO4

' Gambas class file

PUBLIC SUB Button2_Click()

TextBox3.Text = ""

TextBox2.Text = ""

TextBox1.Text = ""

END

PUBLIC SUB Button3_Click()

Form4.Hide

FMain.Show

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text / TextBox2.Text

END

EJERCICIO 55

RAELIZAR LAS SIGUIENTES CALCULOS:

POTENCIA, AREA DEL CIRCULO Y LAS SIGUIENTES CONVERSIONES DE AÑOS A MESES Y DE AÑOS A DIAS.

 

' 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 = ""

TextBox8.Text = ""

TextBox9.Text = ""

END

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text ^ TextBox2.Text

TextBox5.Text = 3.14 * (TextBox4.Text) ^ 2

TextBox7.Text = TextBox6.Text * (12)

TextBox9.Text = TextBox8.Text * (365)

END

PUBLIC SUB TextBox5_KeyPress()

END

EJERCICIO 54

La distancia Tijuana - Ensenada es de 110 Kms, si un automóvil la

recorre a una velocidad constante de 30 millas por hora, cuanto tiempo tarda enllegar. ( 1 milla =1.609 Km.) (Dos maneras correctas de resolverlo)

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

TextBox1.Text = (30) * (1.609) / 3600

TextBox2.Text = (0.013) / (110)

END

PUBLIC SUB Button2_Click()

QUIT

END

EJERCICIO 53

Utilizando 4 frame realizar un programa que contenga el calculo de la potencia de un numero area del circulo transformación de años a meses  transformacion de edad a dias .

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

TextBox3.text = Val(TextBox1.text) ^ Val(TextBox2.text)
TextBox5.text = 3.14 * Val(TextBox4.text) ^ 2
TextBox7.text = Val(TextBox6.text) * 12
TextBox9.text = Val(TextBox8.text) * 365
END

PUBLIC SUB Button2_Click()

  TextBox1.text = ""
  TextBox2.text = ""
  TextBox3.text = ""
  TextBox4.text = ""
  TextBox5.text = ""
  TextBox6.text = ""
  TextBox7.text = ""
  TextBox8.text = ""
 TextBox9.text = ""  

END

PUBLIC SUB Button3_Click()

  QUIT

END

EJERCICIO 52

OPERACIONES UTILIZANDO 4 FRAME : SUMA ,RESTA,MULTIPLICACIÓN Y DIVISIÓN.

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

 

PUBLIC SUB Button1_Click()

  TextBox3.TEXT = Val(TextBox1.TEXT) + Val(TextBox2.TEXT)
  TextBox6.TEXT = Val(TextBox4.TEXT) - Val(TextBox5.TEXT)
  TextBox9.TEXT = Val(TextBox7.TEXT) * Val(TextBox8.TEXT)
  TextBox12.TEXT = Val(TextBox10.TEXT) / Val(TextBox11.TEXT)
END

BORRAR

PUBLIC SUB Button2_Click()

TextBox1.TEXT = " "
TextBox2.TEXT = " "
TextBox3.TEXT = " "
TextBox4.TEXT = " "
TextBox5.TEXT = " "
TextBox6.TEXT = " "
TextBox7.TEXT = " "
TextBox8.TEXT = " "
TextBox9.TEXT = " "
TextBox10.TEXT = " "
TextBox11.TEXT = " "
TextBox12.TEXT = " "
END

SALIR

PUBLIC SUB Button3_Click()

  QUIT

END

EJERCICIO 51

CUESTIONARIO DE PREGUNTAS UTILIZANDO RADIOBUTTON

 Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button2_Click()
QUIT
END

PUBLIC SUB Button1_Click()
IF RadioButton1.Value = TRUE THEN
TextBox1.Text = ("SI ")
END IF

IF RadioButton2.Value = TRUE THEN
TextBox2.Text = ("ESCUCHAR MUSICA ")
END IF

IF RadioButton3.Value = TRUE THEN
TextBox3.Text = "BAILAR "

END IF
IF RadioButton4.Value = TRUE THEN
TextBox4.Text = "ESTUDIAR"
END IF

IF RadioButton5.Value = TRUE THEN
TextBox5.Text = "SAN MIGUEL"
END IF

IF RadioButton6.Value = TRUE THEN
TextBox6.Text = "082314217"
END IF
END

EJERCICIO 50

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

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

EJERCICIO 49

Capturar un número cualesquiera e informar si es o no es mayor de 100

' 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()

DIM A AS Integer

A = TextBox1.Text

IF A > 100 THEN

Message("EL NUMERO ES MAYOR")

ELSE

Message(" EL NUMERO ES MENOR")

END IF

END

EJERCICIO 48

Utilizando los frame reailzar los siguientes calculos:

Area del circulo,triangulo,rectangulo y cuadrado.

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

TextBox2.Text = 3.14 * (TextBox1.Text) ^ 2

TextBox5.Text = (TextBox3.Text * TextBox4.Text) / 2

TextBox8.Text = (TextBox6.Text) ^ 2 + (TextBox7.Text) ^ 2

TextBox10.Text = (TextBox9.Text) ^ 2

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

TextBox10.Text = ""

END

PUBLIC SUB Button3_Click()

QUIT

END

EJERCICIO 47

 Dado un numero por teclado del 50 al 60 y me despliegue un mensaje que diga dentro del rango caso contrario fuera de rango.

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

  DIM A AS Integer
  A = TextBox1.Text
  IF A > 50 AND A < 60 THEN
  Message("DENTRO RANGO ")
ELSE
Message("FUERA RANGO ")
ENDIF

ENDPUBLIC SUB Button2_Click()
QUIT

END

PUBLIC SUB Button3_Click()
TextBox1.TEXT = ""

END

EJERCICIO 46

Introduzca los datos de un producto cualesquiera si el producto es ecuatoriano que me despliegue un mensaje que diga realizar orden de compra caso contrario percha llena.

' 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 Integer
DIM B AS String
A = TextBox4.Text
B = TextBox5.Text
IF TextBox4.Text < TextBox3.Text THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PERCHA LLENA")
ENDIF
IF TextBox5.Text = ("NACIONAL") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO

end

EJERCICIO 45

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

' 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 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