domingo, 27 de enero de 2013

EJERCICIOS GAMBAS

-->
EJERCICIO 1
“CALCULAR EL ÁREA DEL CUADRADO”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = CInt(TextBox1.Text) * (TextBox1.Text)
Label3.Text = "EL AREA ES:"
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
Label3.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form1.Hide
END

EJERCICIO 2
“CALCULAR EL ÁREA DE UN CÍRCULO”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox3.text = (TextBox1.Text) * (TextBox2.Text) * 3.14
Label4.Text = "EL ÁREA DEL CÍRCULO ES:"
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label4.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form2.Hide
END

EJERCICIO 3
“CALCULAR EL ÁREA DE UN TRIÁNGULO”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox3.Text = CInt(TextBox1.text * TextBox2.Text / 2)
Label4.Text = "EL ÁREA DEL TRIÁNGULO ES:"
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label4.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form3.Hide
END

EJERCICIO 4
“CALCULAR LA SIGUIENTE ECUACIÓN Y=X²-2X+5”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = CInt(TextBox1.Text * TextBox1.Text) - CInt(TextBox1.Text * (2)) + CInt(5)
Label3.Text = "EL RESULTADO DE Y ES:"
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
Label3.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form4.Hide
END

EJERCICIO 5
“CALCULAR LA SIGUIENTE ECUACIÓN Y= X³ + 3X²-5X+3”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = CInt(TextBox1.Text) * (TextBox1.Text) * (TextBox1.Text) + CInt(TextBox1.Text) * (TextBox1.Text) * (3) - CInt(TextBox1.Text) * (5) + CInt(3)
Label2.Text = "EL VALOR DE Y ES:"
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
Label2.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form5.Hide
END

EJERCICIO 6
“CONVERTIR 125 METROS A CENTÍMETROS”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = 125 * 100
END
PUBLIC SUB Button2_Click()
FMain.Show
Form1.Hide
END

EJERCICIO 7
“HOLA MUNDO”
' Gambas class file
PUBLIC SUB Button1_Click()
label1.Text = "HOLA MUNDO"
END
PUBLIC SUB Button2_Click()
Label1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form2.Hide
END

EJERCICIO 8
“CONVERTIR LA EDAD DE UNA PERSONA DE AÑOS A MESES”
' Gambas class file
PUBLIC SUB Button1_Click()
Label4.Text = "SU EDAD ES "
TextBox2.Text = CInt(TextBox1.Text) * 12
Label5.Text = "MESES"
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
Label4.Text = ""
Label5.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form3.Hide
END

EJERCICIO 9
“SUMA DE 2 NÚMEROS”
' Gambas class file
PUBLIC SUB Button1_Click()
END
PUBLIC SUB Button2_Click()
Textbox3.Text = TextBox1.Text + textbox2.Text
Message("LA SUMA ES CORRECTA")
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
Textbox2.Text = ""
TextBox3.Text = ""
END
PUBLIC SUB Button4_Click()
FMain.Show
Form4.Hide
END

EJERCICIO 10
“CALCULADORA BÁSICA”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
Label1.Text = "+"
END
PUBLIC SUB Button2_Click()
TextBox3.Text = TextBox1.Text - TextBox2.Text
Label1.Text = "-"
END
PUBLIC SUB Button3_Click()
TextBox3.Text = TextBox1.Text * TextBox2.Text
Label1.Text = "*"
END
PUBLIC SUB Button4_Click()
TextBox3.Text = TextBox1.Text / TextBox2.Text
Label1.Text = "/"
END
PUBLIC SUB Button5_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label1.Text = ""
END
PUBLIC SUB Button6_Click()
FMain.Show
Form5.Hide
END
PUBLIC SUB Button7_Click()
END

EJERCICIO 11
“A=2B+3-4”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) + (2) + (TextBox1.Text) + (3) - (4)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form1.Hide
END

EJERCICIO 12
“Y=X+8X+4X-2”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) + (8) + (TextBox1.Text) + (4) + (TextBox1.Text) - (2)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form2.Hide
END

EJERCICIO 13
“X=2Y+4X+8-7Y”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = (2) + (TextBox1.Text) + (4) + (TextBox1.Text) + (8) - (7) - (TextBox1.Text)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form3.Hide
END

EJERCICIO 14
“Z=4Y+2X-2+1”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) + (4) + (TextBox1.Text) + (2) - (2) + (1)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form4.Hide
END

EJERCICIO 15
“A=2B+5C-4”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox2.Text = (TextBox1.Text) + (2) + (TextBox1.Text) + (5) - (4)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form5.Hide
END

EJERCICIO 16
“ÁREA DE UN CÍRCULO”
' Gambas class file
PUBLIC SUB Button1_Click()
DIM PII AS Float
PII = 3.14
TextBox2.Text = (PII) * (TextBox1.Text) * (TextBox1.Text)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form1.Hide
END

EJERCICIO 17
“ÁREA DE UN RECTÁNGULO”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text) * (TextBox2.Text) * (TextBox2.Text)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Form2.Hide
END

EJERCICIO 18
“CALCULADORA 2”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
END
PUBLIC SUB Button2_Click()
TextBox6.Text = TextBox4.Text - TextBox5.Text
END
PUBLIC SUB Button3_Click()
TextBox9.Text = TextBox7.Text * TextBox8.Text
END
PUBLIC SUB Button4_Click()
TextBox12.Text = TextBox10.Text / TextBox11.Text
END
PUBLIC SUB Button5_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
TextBox6.Text = TextBox4.Text - TextBox5.Text
TextBox9.Text = TextBox7.Text * TextBox8.Text
TextBox12.Text = TextBox10.Text / TextBox11.Text
END
PUBLIC SUB Button6_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
PUBLIC SUB Button7_Click()
FMain.Show
Form3.Hide
END

EJERCICIO 19
“RELATOS”
' Gambas class file
PUBLIC SUB TextLabel1_MouseDown()
END
PUBLIC SUB TextLabel1_DblClick()
TextLabel1.Text = InputBox("¿ESCRIBE LO QUE SEA?", "TEXTO", "RELATOS")
END
PUBLIC SUB Form_Open()
ME.Center
ME.Caption = "RELATOS"
END
PUBLIC SUB Button1_Click()
TextLabel1.Text = ""
END
PUBLIC SUB Button2_Click()
FMain.Show
Form4.Hide
END

EJERCICIO 20
“PIENSA”
' Gambas class file
PUBLIC SUB Form_Open()
ME.Center
ME.Caption = "PIENSA"
END
PUBLIC SUB TextLabel1_MouseDown()
END
PUBLIC SUB TextLabel1_DblClick()
TextLabel1.Text = InputBox("¿ESCRIBE TUS IDEAS", "TEXTO O NÚMEROS", "PIENSA")
END
PUBLIC SUB Button1_Click()
TextLabel1.Text = ""
END
PUBLIC SUB Button2_Click()
FMain.Show
Form5.Hide
END

EJERCICIO 21
“Y=X³-X²+2-3”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = InputBox("INGRESE UN DATO", "INGRESO DE VALORES", "")
END
PUBLIC SUB Button2_Click()
TextBox2.Text = ((TextBox1.Text) ^ (3)) - ((TextBox1.Text) ^ (2)) + (2) - (3)
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button4_Click()
FMain.Show
Ecuacion1.Hide
END

EJERCICIO 22
“Y=X^(3/2) -7X²+2”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = (ComboBox1.Text) ^ 3 - 7 * (ComboBox1.Text * ComboBox1.Text) + 2
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Ecuacion2.Hide
END
PUBLIC SUB ComboBox1_Click()
END

EJERCICIO 23
“Y=X^(5/2) -7X⁴+4X³-X²+X-10”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = InputBox("INGRESE UN DATO", "INGRESO DE VALORES", "")
END
PUBLIC SUB Button2_Click()
TextBox2.Text = (TextBox1.Text ^ (5 / 2)) - (7 * (TextBox1.Text) ^ (4)) + (4 * (TextBox1.Text) ^ (3)) - (TextBox1.Text ^ 2) + (TextBox1.Text) - 10
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button4_Click()
FMain.Show
Ecuacion3.Hide
END

EJERCICIO 24
“Y=(X²-3X-5)^(1/3)”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = (ComboBox1.Text) ^ ((2)) - (3) * (ComboBox1.Text) - (5) ^ (1 / 2)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Ecuacion4.Hide
END

EJERCICIO 25
“PASTELERÍA”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = ComboBox1.Text
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Pasteleria1.Hide
END

EJERCICIO 26
“NÚMEROS DEL 1 AL 5”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = ComboBox1.Text
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Numerosdel1al5.Hide
END

EJERCICIO 27
“LOS MESES DEL AÑO”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = ComboBox1.Text
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Meses3.Hide
END

EJERCICIO 28
“ALIMENTOS QUE CONSUMEN LOS ESTUDIANTES”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = ComboBox1.Text
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Alimentos4.Hide
END

EJERCICIO 29
“ECUACIÓN COMBOBOX 5”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = (7) * (ComboBox1.Text) * (ComboBox1.Text) - (ComboBox1.Text) - (4) / (2)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Ecuacioncombo5.Hide
END

EJERCICIO 30
“ECUACIÓN COMBOBOX 6”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = (5) * ComboBox1.Text * ComboBox1.Text - (3) * ComboBox1.Text + (5)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Ecuacioncombo6.Hide
END

EJERCICIO 31
“ECUACIÓN COMBOBOX7”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = InputBox("VALORES NECESARIOS", "NECESIDADES ", "")
END
PUBLIC SUB Button2_Click()
TextBox2.Text = (7 * (TextBox1.Text) ^ 2 - 4 * (TextBox1.Text) / 2) ^ (1 / 2)
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button4_Click()
FMain.Show
Ecuaciciocombo7.Hide
END

EJERCICIO 32
“MAYOR O MENOR”
' Gambas class file
PUBLIC SUB Button1_Click()
IF CInt(TextBox1.Text) > 100 THEN
Message.Info("ES MAYOR QUE 100")
ELSE
Message.Info("NO ES MAYOR QUE 100")
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
MayorYmenor.Hide
END

EJERCICIO 33
“MÚLTIPLO DE 4”
' Gambas class file
PUBLIC SUB Button1_Click()
IF CInt(TextBox1.Text) MOD 4 = 0 THEN
Message.Info("ES MÚLTIPLO DE 4")
ELSE
Message.Info("NO ES MÚLTIPLO DE 4")
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Multiplode4.Hide
END

EJERCICIO 34 TIENE RELACIÓN CON LOS EJERCIO 35 Y 36
“SALARIO”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox6.Text = (TextBox1.Text * TextBox2.Text) + (TextBox3.Text * TextBox4.Text) - TextBox5.Text
END
PUBLIC SUB Button2_Click()
IF CInt(TextBox6.Text) > 500 THEN
Message("TIENE UNOS CHEQUES")
ELSE
Message("USTED TIENE UN BONO DE DESPENSA")
ENDIF
END
PUBLIC SUB Button3_Click()
IF CInt(TextBox6.Text) > 500 THEN
Cheques.Show
Cheques.Text = TextBox6.Text
Salario.Hide
ELSE
Despensa.Show
Salario.Hide
ENDIF
END
PUBLIC SUB Button4_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
END
PUBLIC SUB Button5_Click()
FMain.Show
SALARIO. Hide
END

EJERCICIO 35 TIENE RELACIÓN CON LOS EJERCICIOS 36 Y 34
“DESPENSA”
' Gambas class file
PUBLIC SUB Button1_Click()
Salario. Show
Despensa. Hide
END

EJERCICIO 36 TIENE RELACIÓN CON LOS EJERCICIO 35 Y 34
“CHEQUES”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = Cheques.Text
END
PUBLIC SUB Button2_Click()
Salario. Show
Cheques. Hide
END

EJERCICIO 37 TIENE RELACIÓN CON LOS EJERCICIO 38 Y 39
“CLASES”
' Gambas class file
PUBLIC SUB Button1_Click()
DIM X AS Integer
X = ((TextBox3.Text + TextBox4.Text + TextBox5.Text) / 3)
IF CString(ComboBox1.Text) = "MEDICINA" THEN
Boleta. Show
Clases. Hide
Boleta. Text = X
ELSE
Message("OFICIO DE CITACION A LOS PADRES INVITANDO A UNA PLATICA AMISTOSA")
Oficio. Show
Clases. Hide
ENDIF
END
PUBLIC SUB Button2_Click()
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Clases. Hide
END

EJERCICIO 38 TIENE RELACIÓN CON LOS EJERCICIO 37 Y 39
“BOLETA”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = Boleta.Text
TextBox2.Text = Boleta.Text
TextBox3.Text = Boleta.Text
Label6.Text = Boleta.Text
END
PUBLIC SUB Button2_Click()
Clases.Show
Boleta.Hide
END

EJERCICIO 39 TIENE RELACIÓN CON LOS EJERCICIO 38 Y 37
“OFICIO”
' Gambas class file
PUBLIC SUB Button1_Click()
Clases. Show
Oficio. Hide
END

EJERCICIO 40 TIENE RELACIÓN CON EL EJERCICIO 41
“PRODUCTOS”
' Gambas class file
PUBLIC SUB Button1_Click()
DIM X AS Integer
X = TextBox2.Text * TextBox3.Text
IF ComboBox1.Text = "NACIONAL" THEN
OrdenDecompras.Show
Productos. Hide
Productos. Text = X
ELSE
Message("NO ES NACIONAL")
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
FMain.Show
Productos. Hide
END

EJERCICIO 41 TIENE RELACICIÓN CON EL EJERCICIO 40
“ORDEN DE COMPRAS”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = Productos. Text
END
PUBLIC SUB Button2_Click()
Productos. Show
OrdenDecompras. Hide
END
PUBLIC SUB Button3_Click()
END
..........................................................................................................................
MENÚ DE OPCIONES

EJERCICIO 42
“ÁREAS”
Realizar en un formulario FRAME cada una de las siguientes Áreas; Triángulo,Cuadrado,Círculo y Rectángulo
PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text * TextBox2.Text) / 2
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END
PUBLIC SUB Button3_Click()
TextBox5.Text = (TextBox4.Text) ^ 4
END
PUBLIC SUB Button4_Click()
TextBox4.Text = ""
TextBox5.Text = ""
END
PUBLIC SUB Button5_Click()
TextBox8.Text = (TextBox7.Text) * (TextBox6.Text) * 3.14
END
PUBLIC SUB Button6_Click()
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
END
PUBLIC SUB Button7_Click()
TextBox11.Text = (TextBox10.Text) + 2 + (TextBox9.Text) + 2
END
PUBLIC SUB Button8_Click()
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
END
PUBLIC SUB Button9_Click()
TextBox3.Text = (TextBox1.Text * TextBox2.Text) / 2
TextBox5.Text = (TextBox4.Text) ^ 4
TextBox7.Text = (3.14) * (TextBox6.Text) ^ 2
TextBox10.Text = (TextBox8.Text) ^ 2 * (TextBox9.Text) ^ 2
END
PUBLIC SUB Button10_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
END
PUBLIC SUB Button11_Click()
Form1.Show
Form2.Hide
END

EJERCICIO 43
“ECUACIONES”
Realizar en un formulario FRAME cada una de las siguientes Ecuaciones; Y=X³-X²+2-3, Y=X^(3/2)-7X²+2, Y=X^(5/2)-7X⁴+4X³-X²+X-10, Y=(X²-3X-5)^(1/3)
PUBLIC SUB Button1_Click()
TextBox1.Text = InputBox("INGRESE UN DATO", "INGRESO DE VALORES", "")
END
PUBLIC SUB Button2_Click()
TextBox2.Text = ((TextBox1.Text) ^ (3)) - ((TextBox1.Text) ^ (2)) + (2) - (3)
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button4_Click()
TextBox3.Text = (ComboBox1.Text) ^ 3 - 7 * (ComboBox1.Text * ComboBox1.Text) + 2
END
PUBLIC SUB Button5_Click()
TextBox3.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button6_Click()
TextBox4.Text = InputBox("INGRESE UN DATO", "INGRESO DE VALORES", "")
END
PUBLIC SUB Button7_Click()
TextBox5.Text = (TextBox4.Text ^ (5 / 2)) - (7 * (TextBox4.Text) ^ (4)) + (4 * (TextBox4.Text) ^ (3)) - (TextBox4.Text ^ 2) + (TextBox4.Text) - 10
END
PUBLIC SUB Button8_Click()
TextBox4.Text = ""
TextBox5.Text = ""
END
PUBLIC SUB Button9_Click()
TextBox6.Text = (ComboBox2.Text) ^ ((2)) - (3) * (ComboBox2.Text) - (5) ^ (1 / 2)
END
PUBLIC SUB Button10_Click()
TextBox6.Text = ""
ComboBox2.Text = ""
END
PUBLIC SUB Button11_Click()
TextBox2.Text = ((TextBox1.Text) ^ (3)) - ((TextBox1.Text) ^ (2)) + (2) - (3)
TextBox3.Text = (ComboBox1.Text) ^ 3 - 7 * (ComboBox1.Text * ComboBox1.Text) + 2
TextBox5.Text = (TextBox4.Text ^ (5 / 2)) - (7 * (TextBox4.Text) ^ (4)) + (4 * (TextBox4.Text) ^ (3)) - (TextBox4.Text ^ 2) + (TextBox4.Text) - 10
TextBox6.Text = (ComboBox2.Text) ^ ((2)) - (3) * (ComboBox2.Text) - (5) ^ (1 / 2)
END
PUBLIC SUB Button12_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
END
PUBLIC SUB Button13_Click()
Form1.Show
Form3.Hide
END

EJERCICIO 44 TIENE RELACIÓN CON LOS EJERCICIO 45 Y 46
“CALIFICACIONES”
“CLASES”

' Gambas class file
PUBLIC SUB Button1_Click()
DIM D, Y, Z, C AS Integer
DIM A, B AS String
Y = TextBox3.Text
Z = TextBox4.Text
C = TextBox5.Text
A = TextBox1.Text
IF CStr(ComboBox1.Text) = "MEDICINA" THEN
D = ((Y + Z + C) / 3)
Boleta.Label6.Text = Y
Boleta.TextBox1.Text = Z
Boleta.TextBox2.Text = C
Boleta.Show
Clases.Hide
ELSE
Message("CITACION A LOS PADRES A UNA PLATICA")
Oficio.Show
Clases.Hide
ENDIF
END
PUBLIC SUB Button2_Click()
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
END
PUBLIC SUB Button3_Click()
Form1.Hide
Clases.Show
END
EJERCICIO 45 TIENE RELACIÓN CON LOS EJERCICIO 44 Y 46
“BOLETA”
' Gambas class file
PUBLIC SUB Button1_Click()
TextBox1.Text = Boleta.Text
TextBox2.Text = Boleta.Text
TextBox3.Text = Boleta.Text
Label6.Text = Boleta.Text
END
PUBLIC SUB Button2_Click()
Clases.Show
Boleta.Hide
END

EJERCICIO 46 TIENE RELACIÓN CON LOS EJERCICIO 44 Y 45
“OFICIO”
' Gambas class file
PUBLIC SUB Button1_Click()
Clases.Show
Oficio.Hide
END

MENÚ DE OPCIONES

EJERCICIO 47
“Capture un numero cualesquiera e informe si es o no es mayor de 50 y múltiplo de tres. Escribir un mensaje de respuesta de manera muy clara y esto resuelve el problema”
' Gambas class file
PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A > 50 THEN
Message("ES MAYOR QUE 50")
IF A MOD 3 = 0 THEN
Message("ES MÚLTIPLO DE 3")
ELSE
Message("NO ES MÚLTIPLO DE 3")
ENDIF
ELSE
IF A MOD 3 = 0 THEN
Message("ES MÚLTIPLO DE 3")
ELSE
Message("NO ES MAYOR DE 50 Y NO ES MÚLTIPLO DE 3")
ENDIF
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END
PUBLIC SUB Button3_Click()
MenuS.Show
Numero.Hide
END

EJERCICIO 48
“Construir un programa que indique si un numero es un par positivo ”
' Gambas class file
PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A > 0 THEN
IF A MOD 2 = 0 THEN
Message("ES MÚLTIPLO DE 2 POSITIVO")
ELSE
Message("NO ES MÚLTIPLO DE 2 POSTIVO")
ENDIF
ELSE
Message("INGRESE UN NÚMERO POSITIVO")
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END
PUBLIC SUB Button3_Click()
MenuS.Show
ParPositivo.Hide
END

EJERCICIO 49 TIENE RELACIÓN CON EL EJERCICIO 50
“Capturar datos de un producto incluyendo su cantidad en existencia, un panel que despliegue una orden de compra si la cantidad en existencia del producto es menor que el punto de reorden, o si el origen del producto es nacional. ”
' Gambas class file
PUBLIC SUB Button1_Click()
DIM A, B, C, F, G, X, Y, Z AS Integer
DIM D, E AS String
A = TextBox1.Text
B = TextBox5.Text
Z = TextBox4.Text
X = TextBox3.Text
Y = X * Z
C = TextBox1.Text
D = TextBox2.Text
E = ComboBox1.Text
F = TextBox4.Text
G = TextBox5.Text
IF A < B THEN
Orden.TextLabel1.Text = C
Orden.TextLabel2.Text = D
Orden.TextLabel3.Text = E
Orden.TextLabel4.Text = F
Orden.TextLabel5.Text = G
Orden.TextLabel6.Text = Y
Producto. Hide
Orden. Show
ELSE
IF ComboBox1.Text = "NACIONAL" THEN
Orden.TextLabel1.Text = C
Orden.TextLabel2.Text = D
Orden.TextLabel3.Text = E
Orden.TextLabel4.Text = F
Orden.TextLabel5.Text = G
Orden.TextLabel6.Text = Y
Orden.TextLabel6.Text = Y
Producto. Hide
Orden. Show
ELSE
IF A < B THEN
Orden.TextLabel1.Text = C
Orden.TextLabel2.Text = D
Orden.TextLabel3.Text = E
Orden.TextLabel4.Text = F
Orden.TextLabel5.Text = G
Orden.TextLabel6.Text = Y
Orden.TextLabel6.Text = Y
Producto. Hide
Orden. Show
ELSE
IF A < B THEN
Orden.TextLabel1.Text = C
Orden.TextLabel2.Text = D
Orden.TextLabel3.Text = E
Orden.TextLabel4.Text = F
Orden.TextLabel5.Text = G
Orden.TextLabel6.Text = Y
orden.TextLabel6.Text = Y
Producto. Hide
Orden. Show
ELSE
Message("NO ES NACIONAL Y NO HAY MAS EN REORDEN")
ENDIF
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
MenuS.Show
Producto. Hide
END

EJERCICIO 50 TIENE RELACIÓN CON EL EJERCICIO 49
“DATOS DEL PRODUCTO”
' Gambas class file
PUBLIC SUB Button1_Click()
Producto. Show
Orden. Hide
END
PUBLIC SUB Label1_MouseDown()
END

EJERCICIO 51 TIENE RELACIÓN CON LOS EJERCICIO 52 Y 53
“Capture los datos de un empleado, desplegar en una ventana su cheque semanal si gana mas de $500.00 si esta en el departamento de producción, caso contrario desplegarle en otra ventana un bono de despensa del 25% de su sueldo semanal ”
' Gambas class file
PUBLIC SUB Button1_Click()
DIM X, Y AS Integer
DIM Z, A AS String
Z = TextBox1.Text
Y = TextBox2.Text
A = ComboBox1.Text
X = Y * 1 / 4
IF Y > 500 THEN
IF A = "PRODUCCION" THEN
Cheque. Show
Sueldo. Hide
Cheque.TextLabel1.Text = Z
Cheque.TextLabel2.Text = Y
ELSE
Message("USTED TIENE UN BONO DE DESPENSA DE")
Bono. Show
Sueldo. Hide
Bono.Label2.Text = X
ENDIF
ELSE
Message("USTED TIENE UN BONO DE DESPENSA DE")
Bono. Show
Sueldo. Hide
Bono.Label2.Text = X
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button3_Click()
MenuS.Show
Sueldo. Hide
END

EJERCICIO 51 TIENE RELACIÓN CON LOS EJERCICIO 52 Y 53
“ CHEQUE”
' Gambas class file
PUBLIC SUB Button1_Click()
Sueldo. Show
Cheque. Hide
END

EJERCICIO 52 TIENE RELACIÓN CON LOS EJERCICIO 51 Y 52
“ BONO DE DESPENSA”
' Gambas class file
PUBLIC SUB Button1_Click()
Sueldo. Show
Bono. Hide
END

EJERCICIO 53
“ CHECKBOX”
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
IF CheckBox1.Value <> 0 THEN
Message("ES HOMBRE")
ENDIF
IF CheckBox2.Value <> 0 THEN
Message("ES MUJER")
ENDIF
IF CheckBox3.Value <> 0 THEN
Message("ES ALTERNATIVO")
ENDIF
IF CheckBox1.Value = 0
IF CheckBox2.Value = 0
IF CheckBox3.Value = 0
IF CheckBox1.Value = 0 THEN
Message("NO INGRESADO")
ENDIF
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB Button2_Click()
CheckBox1.Value = 0
CheckBox2.Value = 0
CheckBox3.Value = 0
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB MenuCirculo_Click()
FMain.Hide
Form1.Show
END
PUBLIC SUB Button4_Click()
IF CheckBox4.Value <> 0 THEN
Message("EL SUELDO DEL HOMBRE ES DE $1500")
ENDIF
IF CheckBox5.Value <> 0 THEN
Message("EL SUELDO DE LA MUJER ES DE $1000")
ENDIF
IF CheckBox6.Value <> 0 THEN
Message("TIENEN BONO ADICIONAL DE $300 CADA UNO")
ENDIF
IF CheckBox4.Value = 0 THEN
IF CheckBox5.Value = 0 THEN
IF CheckBox6.Value = 0 THEN
Message("NO TRABAJARON VAGOS Y NO RECIBIRÁN SUELDO NO BONO EXTRA?")
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB Button5_Click()
CheckBox4.Value = 0
CheckBox5.Value = 0
CheckBox6.Value = 0
END
PUBLIC SUB Button6_Click()
QUIT
END
PUBLIC SUB MenuSalir_Click()
FMain.Close
END
Publicado por en

1 comentario:

Suscribirse a: Enviar comentarios (Atom)