Ejercicios de gambas

martes, 8 de febrero de 2011

UN TEST DEPREGUNTAS

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 = "080132511 "
END IF
END

4.- Capturar los datos mas importantes de un estudiante incluyendo tres

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox6.Text
IF A = ("MEDICINA") THEN
FMain.Hide
Form1.Show
ELSE
Message("Se cita a los padres del estudiante a una platica amistosa con los maestros de la escuela.")
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
END

NUMERO PAR POSITIVO

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

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

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

SELECT CASE

PUBLIC SUB Button1_Click()
SELECT CASE TextBox1.Text
CASE 1
TextBox2.Text = "UNO"
CASE 2, 3
TextBox2.Text = "DOS O TRES"
CASE ELSE
TextBox2.Text = "NO SE"
END SELECT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END

NUMEROS ENTRE 50 Y 60 CASO CONTRARIO FUERA DEL RANGO

DIM A AS Integer
A = TextBox1.Text
IF A >= 50 AND A <= 60 THEN
Message("ANDA ENTRE 50 Y 60")
ELSE
Message("FUERA DEL RANGO")
END IF
END

PUBLIC SUB Button3_Click()
QUIT
END

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

SENTENCIA IF

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox1.Text

IF A = ("MEDICINA") THEN
Message("BOLETA DE CALIFICACIONES")
Message("PRIMERA CALIFICACION:20; SEGUNDA CALIFICACION 19; TERCERA CALIFICACION 18")
ELSE
Message(" SE INVITA A LOS PADRES DE FAMILIA A UNA PLATICA AMISTOSA")
END IF
END

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

5.- Capturar los datos mas 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.

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
PARA BORRAR

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
END

3.- Capturar los cinco datos mas importantes de un Empleado, incluyendo el sueldo diario y los días trabajados esto en un panel, desplegarle su cheque semanal en un segundo panel solo si ganó mas de $500.00 en la semana, en caso contrario desplegarle un bono de despensa semanal de $150.00 en un tercer panel.

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox6.Text
IF A > 500 THEN
Message("CHEQUE SEMANAL")
ELSE
Message("BONO DE DESPENSA DE 150")
END IF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
END

SI EL SUELDO ES MAYOR QUE 1000 ES RICO

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

MODULO DEL VECTOR Y PARA BORRAR

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

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

2.- Capturar un numero entero cualesquiera e informar si es o no es múltiplo de 4 ( recordar el operador mod, analizado en el tema de operadores aritméticos).

PUBLIC SUB Button2_Click()
TextBox1.Text = ""

END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A MOD 2 THEN
Message("NO ES MULTIPLO")
ELSE
Message(" ES MULTIPLO")
END IF

END

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

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

EJERCICIOS CON EL FRAME

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

END

PUBLIC SUB Button1_Click()
TextBox3.Text = TextBox1.Text / TextBox2.Text
TextBox6.Text = (TextBox4.Text) ^ 2 * (TextBox5.Text) + (TextBox4.Text) ^ 3 * (TextBox5.Text) ^ 2 - (TextBox4.Text) ^ 4

END