EJERCICIO N° 31

*GENERAR UN PROGRAMA EN GAMBAS MEDIANTE CICLO FOR QUE ME PERMITA VISUALIZAR NUMEROS DEL 1 AL 10.

DIAGRAMA DE FLUJO

PRUEBA DE ESCRITORIO

A A<10 MESSAGE A+1

1 1<10 1TO+10 1

2<10 2TO+10 2

3<10 3TO+10 3

4<10 4TO+10 4

5<10 5TO+10 5

6<10 6TO+10 6

7<10 7TO+10 7

8<10 8TO+10 8

9<10 9TO+10 9

10<10 10TO+10 10

FORMULARIO

INICIO

A

A=1,<10;

A+1

A

FIN

CODIFICACION

Public sub button1_click ( ) DIM A AS integer For A =10 Listbox1.Add (A) Next END Public sub butto2_click ( ) Listbox1.clear End Public sub button3_click ( ) DIM A AS Integer A=message.Question (¿esta seguro que desea borrar los datos?, ’’si’’, ’’no’’, ’’cancelar’’) QUIT ENDIF END

EJERCICIO N° 32

*MEDIANTE UNA INSTRUCCION DO-WHILE GENERAR UN PROGRAMA QUE ME PERMITA VBISUALIZAR NUMEROS DEL

50 AL 80.

FORMULARIO

CODIFICACION

Public sub button1-click ( ) DIM A AS Integer A=50 Do.while <=80 Listbox1.Add (A) A=a+1 Loop END Public sub button2-click ( ) Listbox1.clear END Public sub button3-click ( ) Message.Question(‘’esta seguro que desea salir’’, ‘’si’’, ‘’no’’, ‘’cancelar’’)

END

PRUEBA DE ESCRITORIO

A A<=80 F MESSAGE a+1 73<=80 v 73 73+1

0 50<=80 v 50 50+1 74<=80 v 74 74+1

51<=80 v 51 51+1 75<=80 v 75 75+1

52<=80 v 52 52+1 76<=80 v 76 76+1

53<=80 v 53 53+1 77<=80 v 77 77+1

54<=80 v 54 54+1 78<=80 v 78 78+1

55<=80 v 55 55+1 79<=80 v 79 79+1

56<=80 v 56 56+1 80<=80 v 80 80+1

57<=80 v 57 57+1

58<=80 v 58 58+1

59<=80 v 59 59+1

60<=80 v 60 60+1

61<=80 v 61 61+1

62<=80 v 62 62+1

63<=80 v 63 63+1

64<=80 v 64 64+1

65<=80 v 65 65+1

66<=80 v 66 66+1

67<=80 v 67 67+1

68<=80 v 68 68+1

69<=80 v 69 69+1

70<=80 v 70 70+1

71<=80 v 71 71+1

72<=80 v 72 72+1

73<=80 v 73 73+1

EJERCICIO N° 33

*GENERAR UN PROGRAMA EN GAMBAS QUE MEDIANTE CLAVE Y USUARIO (SI EL USUARIO Y CLAVE POR MAS DE

TRES OCACIONES LO UBICA INCORRECTAMENTE SALGA DE LA APLICACIÓN), EN EL FORMULARIO 1: GENERAR

NUMEROS DEL 1 AL 100 EN EL FORMULARIO 2:GENERAR NUMEROS DEL 100 AL 1.

FORMULARIO

CODIFICACION Public sub button1-click ( ) If textbox.text=”jorge’’ and textbox2.text = ‘’123’’ Message.Question (‘’bienvenidos al sistema’’) Fmain.hide Form1.show Message(‘’ingresar la clave”) Message(‘’intente otra vez’’) Textbox1.text = ‘’ ‘’ Textbox2.text = ‘’ ‘’ Textbox1.setfocus Contador.text= val (contador.text) + 1 ENDIF If val (contador.text) > = 4 THEN Me.close (0) Message (‘’lamentamos que no hallas ingresado’’) ENDIF END Public sub button2-click ( ) DIM A AS Integer A= Message.Question (‘’esta seguro que desea salir de la aplicación’’, ‘’si’’, ‘’no’’, ‘’cancelar’’) If A = 1 THEN Me.Close Public sub button1-click ( ) Form1.hide Form2.show END Public sub button2-click ( ) Forn2.hide Form3.show END Public sub button3-click ( )

DIM A AS Integer A = Message.Question (‘’esta seguro que desea salir de la aplicación’’, ‘’si’’, ‘’no’’, ‘’cancelar’’) If A = 1 THEN QUIT ENDIF END Public sub button1-click ( ) DIM A AS Integer For A =1 TO 100 Listbox.Add (0) Next END Public sub button2-click ( ) DIM A AS Integer A=Message.Question (‘’esta seguro que desea salir de la aplicación’’, ‘’si’’, ‘’no’’, ‘’cancelar’’) If A = 1 THEN Me.Close ENDIF END Public sub toggle button1_click ( ) Form2.hide Form1.show Public sub toggle button2_click ( ) Form2.hide Form3.show Publib sub button1_click ( ) DIM A AS Integer Form A = 100 TO 1 Step -1 Listbox1.Add (A) NEXT END Public sub button2_click ( ) DIM A AS Integer A= Message.Question (‘’esta seguro que desea cerrar esta apliacion’’, ‘’si’’, ‘’no’’, ‘’cancelar’’) If A = 1 THEN Me.Close ENDIF END Public sub button3_click ( ) Form3.hide Form2.show Public sub button4_click ( ) Form3.hide Form1.show END

EJERCICIO N° 34

*REALIZAR UN PROGRAMA QUE ME PERMITA INGRESAR POR TECLADO LOS DATOS GENERALES DE UN CLIENTE

(NOMBRE, APELLIDO, DIRECCION Y TELEFONO) INGRESAR EL VALOR DE TRES ARTICULOS, CALCULAR EL TOTAL DE LOS

TRES ARTICULOS, SI EL TOTAL OBTENIDO ES MENOR QUE 200 OBTENER EL 10% DE DESCUENTO, SI EL TOTAL

OBTENIDO ES MENOR QUE 400 SACAR EL 16% DE DESCUENTO Y SI EL TOTAL OBTENIDO ES MAYOR QUE 400 SACAR EL

25%DE DESCUENTO.

FORMULARIO

CODIFICACION

Public sub button1_click ( ) Textbox8.text = (textbox5.text) + (textbox6.text) + (textbox7.text) If val (textbox8.text) < 200 THEN Message (‘’100% de descuento’’) Textbox8.text = (‘’textbox8.text’’) * 0.1 ELSE If val (textbox8.text) < 400 THEN Message (‘’16% de descuento’’) Textbox8.text = (‘’textbox8.text’’) * 0.16 ELSE If val (textbox8.text) > 400 THEN Message (‘’25% de descuento’’) Textbox8.text = (textbox8.text) * 0.25 ENDIF ENDIF ENDIF END Public sub button2_click ( ) DIM A AS Integer I = Message.Question (‘’seguro que desea salir de la aplicación’’, ‘’si’’, ‘’no’’, ‘’cancelar’’)

If I = 1 THEN Textbox1.clear Textbox2.clear Textbox3.clear Textbox4.clear Textbox5.clear Textbox6.clear Textbox7.clear Textbox8.clear Textbox1.setfocus ENDIF END

Public sub button3_click ( )

Dim a as Integer A= Message.Question(‘’seguro que desea salir de esta aplicación’’, ‘’si’’, ‘’no’’ , ‘’cancelar’’) if A = 1 THEN QUIT ENDIF END

EJERCICIO N° 35

*REALIZAR UNA CALCULADORA EN GAMBAS

FORMULARIO

CODIFICACION Public ban AS Integer Public aux 1 AS float Public aux AS float Public computo AS float Public log AS float Public cadena AS string Public cadena2 AS string Public sub button1_click ( )

Textbox1.text = textbox1.text & ‘’1’’ END Public sub button2_click ( ) Textbox1.text = textbox1.text & ‘’2’’ END Public sub button3_click ( ) Textbox1.text = textbox1.text & ‘’3’’ END Public sub button4_click ( ) Textbox1.text = textbox1.text & ‘’4’’ END Public sub button5_click ( ) Textbox1.text = textbox1.text & ‘’5’’ END Public sub button6_click ( ) Textbox1.text =textbox1.text & ‘’6’’ END Public sub button7_click ( ) Textbox1.text =textbox1.text & ‘’7’’ END Public sub button8_click ( ) Textbox1.text =textbox1.text & ‘’8’’ END Public sub button9_click ( ) Textbox1.text =textbox1.text & ‘’9’’ END Public sub button10_click ( ) Textbox1.text =textbox1.text & ‘’10’’ END Public sub button11_click ( ) Textbox1.text =textbox.text & ‘’.’’ END Public sub button12_click ( ) IF ban = 1 THEN Textbox1.text =aux1 + (textbox2.text) ENDIF If ban = 2 THEN Textbox1.text = aux 1 - (textbox1.text) ENDIF If ban =3 THEN Textbox1.text = aux 1 * (textbox1.text) ENDIF If ban =4 THEN Textbox1.text = aun 1 / (textbox1.text) ENDIF If ban =5 THEN Textbox1.text = sin (val(textbox1.text) / 180 * 3.1416) ENDIF If ban =6 THEN Textbox1.text = cos (val(textbox1.text) / 180 + 3.1416 ENDIF

If ban =7 THEN Textbox1.text = tan (val(textbox1.text) / 180 * 3.1416 ENDIF If ban =8 THEN Textbox1.text = log 10 (textbox1.text) ENDIF If ban =9 THEN Texbox1.text = aux 1 ^ val (textbox1.text) ENDIF Public sub button13_click ( ) Textbox1.text = textbox1.text & ‘’c’’ END Public sub button 14_click ( ) Textbox1.text = textbox1.text & ‘’j’’ END Public sub button15_click ( ) Ban = 1 If textbox1.text <> o THEN Aux =(textbox1.text) Aux 1 = 0 ENDIF Textbox1.clear END Public sub button16_click ( ) Ban = 2 If textbox1.text <> o THEN Aux1 = (textbox1.text) ELSE Aux 1 = 0 ENDIF Textbox1.clear END Public sub button17_click ( ) Ban= 3 If textbox.text <> o TEHN Aux 1 = 0 ENDIF Tetxbox1.clear END Public sub button18_click ( ) Ban = 4 If textbox1.text <> o THEN Aux 1 = (textbox1.text) ELSE Aux 1 = 0 ENDIF Textbox1.clear END Public sub button19_click ( ) DIM A AS Integer

A =Message.Question (‘’esta seguro que desea cerra la aplicación’’, ‘’si’’, ‘’no’’, ‘’cancelar’’) If A = 1 THEN Message (‘’gracias por usar esta aplicación’’) QUIT Textbox1.clear ENDIF END Public sub button20_click ( ) Textbox1.text = ‘’ ‘’ END Public sub button21_click ( ) Ban =5 If textbox1.text <> o THEN Val (textbox1.text) ENDIF Textbox1.clear END Public sub button22_click ( ) Ban = 6 If textbox1.text <> o THEN Val (textbox1.text) ENDIF Textbox1.clear END Public sub button23_click ( ) Ban = 7 If textbox1.text <> o THEN Val (textbox1.text) ENDIF Textbox1.clear END Public sub button24_click ( ) Ban = 8 If textbox1.text <> o THEN Aux 1 = Val (textbox1.text) ELSE Aux 1 = 0 ENDIF Textbox. Clear END Public sub button25_click ( ) Ban = 9 If textbox1.text <> o THEN Aux 1 = val (textbox1.text) ELSE Aux = 0 ENDIF Textbox1.clear

END

Ejercicio#37 Realiza un programa que me permita por medio de un click en 3 botones ingresados ubicar en cada botón en color amarillo azul y rojo y con el mismo click ubicar el fondo del formulario de color verde.

Formulario

Codificacion Public sub button1_Mouse Down() Fmain.Backcolor= (&H600000)

Button1.Blackcolor= (&H600000) Button2.Backcolor= (&0000FF)

Button3.Backcolor= (&HFF0000) END Ejercicio#38

Realizar un programa que me permita similar por medio de un click .

Codificacion Button3_bankground=(“&HFFFFDFBF”) Button4_bankground=(&HFFFFDFBF”)

Button5_bankground=(“&HFFFFDFBF”) Button6_bankground=(&HFFFFDFBF”) Button9_bankground=(“&HFFFFDFBF”)

Button10_bankground=(&HFFFFDFBF”) Button86_bankground=(“&HFFFFDFBF”)

Button98_bankground=(&HFFFFDFBF”) Button110_bankground=(“&HFFFFDFBF”) Button87_bankground=(&HFFFFDFBF”)

Button122_bankground=(“&HFFFFDFBF”) Button89_bankground=(&HFFFFDFBF”)

Button88_bankground=(“&HFFFFDFBF”) Button133_bankground=(&HFFFFDFBF”) Button106_bankground=(“&HFFFFDFBF”)

Button112_bankground=(&HFFFFDFBF”) Button137 =(“&HFFFFDFBF”)

Button113 =(“&HFFFFDFBF”) Button1114 =(“&HFFFFDFBF”) Button102=(“&HFFFFDFBF”)

Button90=(“&HFFFFDFBF”) Button114=(“&HFFFFDFBF”)

Button138=(“&HFFFFDFBF”) Button139=(“&HFFFFDFBF”) Button126=(“&HFFFFDFBF”)

Fmain Background=(“&HFFFFCFBF”) Button 129=(“&HFFFF9EFE”)

Button 139=(“&HFFFF9EFE”)

Button 140=(“&HFFFF9EFE”) Button 150=(“&HFFFF9EFE”)

Button 154=(“&HFFFF9EFE”) Button 151=(“&HFFFF9EFE”) Button 158=(“&HFFFF9EFE”)

Button 161=(“&HFFFF9EFE”) Button 167=(“&HFFFF9EFE”)

Button 169=(“&HFFFF9EFE”) END Public sub button2_click()

DIM A AS Integer A= message.question(“Seguro que desea salir del programa”,”si”,”no”,”cancelar”)

If A= 1 THEN Me.Close ENDIF

END

Ejercicio#39 Realizar un programa en que me permita mediante clave y usuario crear 3 formularios. #1 generar números del

1 al 100 (del 1 al 50 de 2 en 2) del 51 al 100 de 3 en 3) 2# por medio de 3 asignaturas ingresadas que el usuario le muestre la especialidad a elegir #3 mediante el DO WHILE generar numero del 10000 al 0 de forma descendente.

Formulario

Codificacion Public sub button1_click() If textbox1.text=(“nathy”) AND teextbox2.text=(1,2,3) THEN Message(“Bienvenido a la aplicacion”) FMAIN.Hide Form1.Show Message(“el usuario y contraseña y clave es correcta”) Message(“intente otra vez”) Textbox1.text=”” Textbox1.setfocus ENDIF END

Public sub button2_click() DIM A AS Integer A=Message.Question(“Usted esta seguro que desea cerrar el programa”,”si”,”no”,cancelar”) If A=1 THEN Me.Close ENDIF END Codificacion Public sub button1_click() Form1.Hide Form.Show Publi sub button2_click() Form2.Hide Form.Show END Public sub button3_click() DIM A AS Integer A=Message.Question(“Esta seguro que desea salir de la aplicacion”,”si”,”no”,”cancelar”) If A=1 THEN Me.Close END Codificacion Public sub button1_click() DIM A AS Integer FOR A 1 to 50 step +2 Listbox1. Add (A) Next DIM A AS Integer FORM A = 50 to 100 step +3 List 1 Next Public sub button3_click() DIM A AS Integer C=Message.Question(“Esta seguro que desea salir de la aplicacion”,”si”,no”,cancelar”) If C=1 THEN Me.Close ENDIF END Public sub button1_click() If (textbox1.text)=(“economia”) AND (textbox2.text)=(“contador”) AND (textbox3.text)=(Gastronomia”) Message.info(“economist”) ELSE If (textbox1.text)=(ingles”) AND (textbox2.text)=(“portugues”) Message.info(“idiomatico”) ELSE If textbox1.text)=(“informatica”) AND (textbox2.text)=(“base de datos”) AND (textbox3.text=(“programacion”) Message.info(“ingenieria”) EMDIF ENDIF

ENDIF END Public sub button2_click() DIM A AS Integer Rp=Messsage.Queestion(“Esta seguro que quiere borrar”,”si”,”no”,”cancelar”) If Rp=1 THEN Me.Close ENDIF END Public sub button3_click() DIM A AS Integer Rp=Message.Question(“Esta seguro que desea salir de la aplicación”,”si”,”no”,”cancelar”) If Rp= 1 THEN Me.Close ENDIF END Public sub button1_click(9 A=1000 DO WHILE A>=1 Listbox1. Add (A) A= A – 1 Loop AND Public sub button2_click() DIM A AS Integer S=Message.Question(“Esta seguro que quiere salir de la aplicacion”,”si”,”no”,”cancelar”) If S= 1 THEN Listbox1.clear ENDIF END Public sub button3_click() DIM A AS Integer B=Message.Question(“Esta seguro que desea salir de la aplicacion”,”si”,”no”,”cancelar”) If B= 1 THEN Me.Close ENDIF END Ejercicio #40 Mediante Combobox y radio button realizar un programa que me permita elaborar las operaciones basicas. Formulario

Codificacion Public sub button1_click() If combobox1.text=”suma” THEN Textbox3.text= val(textbox1.text) + val (textbox2.text) ELSE If combobox1.text=”resta” THEN Texbox3.text= val(textbox1.text)-(textbox2.text) ELSE If combobox1.text=”multiplicacion” THEN Texbox3.text= val(textbox1.text)*(textbox2.text) ELSE If combobox1.text=”division” THEN Texbox3.text= val(textbox1.text)/(textbox2.text) ENDIF ENDIF ENDIF ENDIF END Public sub radio button1_click() Teextbox3.text=val(textbox1.text)+val(textbox2.text) END Public sub radio button2_click() Teextbox3.text=val(textbox1.text)-val(textbox2.text) END Public sub radio button3_click() Teextbox3.text=val(textbox1.text)*val(textbox2.text) END Public sub radio button4_click() Teextbox3.text=val(textbox1.text)/val(textbox2.text) END Ejercicio#41 Realizar un semaforo en Gambas.

Codificacion PUBLIC SUB Timer1_Timer() C.TEXT = C.TEXT + 1 IF C.TEXT = 1 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = FALSE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 20 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = TRUE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 21 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = FALSE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 22 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = TRUE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 23 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = FALSE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 24 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = TRUE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 25 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = FALSE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 26 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = TRUE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 27 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = FALSE DrawingArea3.Visible = TRUE

ELSE IF C.TEXT = 28 THEN DrawingArea1.Visible = FALSE DrawingArea2.Visible = TRUE DrawingArea3.Visible = TRUE ELSE IF C.TEXT = 29 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = FALSE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 50 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = TRUE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 51 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = FALSE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 52 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = TRUE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 53 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = FALSE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 54 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = TRUE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 55 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = FALSE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 56 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = TRUE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 57 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = FALSE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 58 THEN DrawingArea1.Visible = TRUE DrawingArea2.Visible = TRUE DrawingArea3.Visible = FALSE ELSE IF C.TEXT = 59 THEN C.TEXT = 0 ENDIF END Ejercicio#42 Realizar un programa en gambas que mediante una table en View genere 3 campos y las vallas agregando mediante

opción en menú ejecutables botón salir. Formulario

Codificacion Public sub button form_open() Tableview1;columns=.count=3 Tableview1.columns=text=”nombre” Tableviex1.columns[0].width=150 Tableview1.clomuns[1].text=”direccion” Tableview1.columns[1].width.150 Tableview1.columns[2].text=”ocupacion” Tableview1.columns[2].width.150 Public sub button1_click() Dim a as integer A=message.question(“desea salir de esta aplicacion”,”si”,”no”,”no”) If A = 1 then Me.Close ENDIF END Public sub button1_click() Dim row as integer=Tableview1.raws.count If text_nombre.text<>””AND txt_direccion.text<>””AND txt_ocupacion.text<>=”” THEN Tableview1.rows.count=1 Tableview1.[row,0].text=txt_nombre.text Tableview1.[row,1].text=txt_nombre.text Tableview1.[row,2].text=txt_nombre.text Public sub button2_click() Dim a as integer A= message.question(“desea salir de esta aplicacion”,”si”,no”,”cancelar”) If A = 1 THEN Txt_nombre.text.clear Txt_ocupacion.text.clear Txt_direccion.text.clear ENDIF END Ejercicio#43 Generar un programa en gambas que me permita mediante una tabla view ingresar 6 columnas con los s iguientes datos. Cn_dematricula, nombres, apellido,f_nacimiento,edad,dirección) ubicar botones como guardar,agregar,limpiar,abrir e

imprimir.

Formulario Codificacion Public sub form_open() Tableview.column[0]text=”numero de matricula” Tableview.column[0]text=150 Tableview.column[0]text=”nombre” Tableview.column[0]text=150 Tableview.column[0]text=”apellido” Tableview.column[0]text=”150 Tableview.column[0]text=”fecha de nacimiento” Tableview.column[0]text=150 Tableview.column[0]text=”edad” Tableview.column[0]text=150 Tableview.column[0]text=”direccion” Tableview.column[0]text=150 END Public sub menu2_click() DIM A AS INTEGER A=message.question(“desea salir de la aplicacion”,”si”,”no”,”cancelar”) Me.close Endif END Public sub button1_click() DIM A AS INTEGER Table view.rows.cont If text_numero de matricula.text<>#and txt_nombre.text<>”” If text_apellido.text<>#and txt_fecha de nacimiento.text<>”” If text_edad.text<>#and txt_direccion.text<>”” Table vie.rows_count+=1 Table view [row,0].tet= txt_numero de matricula.text Table view [row,1].tet= txt_nombre.text Table view [row,2].tet= txt_apellido.text Table view [row,3].tet= txt_fecha de nacimiento.text Table view [row,4].tet= txt_edad.text Table view [row,5].tet= txt_direccion.text ELSE

Message.info(“debe llenar los datos”) END Public sub button2_click() DIM A AS INTEGER A= message.question(“¿ esta seguro que desea borrar los datos”,”si”,”no”,”cancelar”) If a = 1 then Txt_nombre.text=”” Txt_apellido. text=”” Txt_fecha.text=”” Txt_edad.text=”” Txt_direccion.text=”” Txt_nuevo.text=”” Txt_nombre.text=”” END Public sub abrir_click() Dialog.tide=”seleccione archive para abrir” Dialog.tiller)(“*text)(“datos de text”) If not dialog.openfile() THEN Table view1.text= file.load(dialog.path) Fmain title=”archivo”= &dialog.path ENDIF END Public sub imprimir_click() DIM cadena AS string Cadena= “html><bdy” Cadena2=”<body><html>”” File= save caser.home$”/texto.html”,cadena) Exec I “wkhtml topaf”,user,home&”/texto.html”,user,home&”/texto. Pdf”) wait Exel(“evince”)/user.home&”/text.pdf”) END Public sub guardar_click() DIM destire AS string Dialog.tittle=”archivo de registro” Dialog.tittle=<”*text”,”table view 1.text”) If not dialog.save file () THEN If right $ (dialog.path,s)<>”.text” THEN Destino=dialog.path2”.text” ELSE Destino=dialog.path ENDIF Fmain.tittle=”archive”,&dialog.path File.save[destino,table view1.text) ENDIF END Ejercicio#44 Generar un programa en gambas que me permita por medio de fecha de nacimiento determinar el signo zodiacal. Formulario

Codificacion PUBLIC SUB _new() END PUBLIC SUB Form_Open() END PUBLIC SUB Button1_Click() IF Val(TextBox1.Text) >= 22 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("DICIEMBRE") THEN PictureBox1.Picture = Picture["capricornio-icono.jpg"] Message("CAPRICORNIO") ENDIF IF Val(TextBox1.Text) <= 19 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("ENERO") THEN PictureBox1.Picture = Picture["capricornio-icono.jpg"] Message("CAPRICORNIO") ENDIF IF Val(TextBox1.Text) > 31 AND TextBox2.Text = ("DICIEMBRE") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) > 31 AND TextBox2.Text = ("ENERO") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 20 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("ENERO") THEN PictureBox1.Picture = Picture["acuario-icono.jpg"] Message("ACUARIO") ENDIF IF Val(TextBox1.Text) <= 17 AND Val(TextBox1.Text) <= 28 AND TextBox2.Text = ("FEBRERO") THEN PictureBox1.Picture = Picture["acuario-icono.jpg"] Message("ACUARIO") ENDIF IF Val(TextBox1.Text) > 28 AND TextBox2.Text = ("FEBRERO") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 18 AND Val(TextBox1.Text) <= 28 AND TextBox2.Text = ("FEBRERO") THEN PictureBox1.Picture = Picture["piscis-icono.jpg"] Message("PISCIS") ENDIF

IF Val(TextBox1.Text) <= 19 AND Val(TextBox1.Text) <= 29 AND TextBox2.Text = ("MARZO") THEN PictureBox1.Picture = Picture["piscis-icono.jpg"] Message("PISCIS") ENDIF IF Val(TextBox1.Text) > 29 AND TextBox2.Text = ("MARZO") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 20 AND Val(TextBox1.Text) <= 29 AND TextBox2.Text = ("MARZO") THEN PictureBox1.Picture = Picture["aries-icono.jpg"] Message("ARIES") ENDIF IF Val(TextBox1.Text) <= 19 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("ABRIL") THEN PictureBox1.Picture = Picture["aries-icono.jpg"] Message("ARIES") ENDIF IF Val(TextBox1.Text) > 30 AND TextBox2.Text = ("ABRIL") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 20 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("ABRIL") THEN PictureBox1.Picture = Picture["tauro-icono.jpg"] Message("TAURO") ENDIF IF Val(TextBox1.Text) <= 20 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("MAYO") THEN PictureBox1.Picture = Picture["tauro-icono.jpg"] Message("TAURO") ENDIF IF Val(TextBox1.Text) > 31 AND TextBox2.Text = ("MAYO") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 21 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("MAYO") THEN PictureBox1.Picture = Picture["geminis-icono.jpg"] Message("GEMINIS") ENDIF IF Val(TextBox1.Text) <= 20 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("JUNIO") THEN PictureBox1.Picture = Picture["geminis-icono.jpg"] Message("GEMINIS") ENDIF IF Val(TextBox1.Text) > 30 AND TextBox2.Text = ("JUNIO") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 21 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("JUNIO") THEN PictureBox1.Picture = Picture["cancer-icono.jpg"] Message("CANCER") ENDIF IF Val(TextBox1.Text) <= 22 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("JULIO") THEN PictureBox1.Picture = Picture["cancer-icono.jpg"] Message("CANCER") ENDIF IF Val(TextBox1.Text) > 31 AND TextBox2.Text = ("JULIO") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF

IF Val(TextBox1.Text) >= 23 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("JULIO") THEN PictureBox1.Picture = Picture["leo-icono.jpg"] Message("LEO") ENDIF IF Val(TextBox1.Text) <= 22 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("AGOSTO") THEN PictureBox1.Picture = Picture["leo-icono.jpg"] Message("LEO") ENDIF IF Val(TextBox1.Text) > 30 AND TextBox2.Text = ("AGOSTO") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 23 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("AGOSTO") THEN PictureBox1.Picture = Picture["virgo-icono.jpg"] Message("VIRGO") ENDIF IF Val(TextBox1.Text) <= 22 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("SEPTIEMBRE") THEN PictureBox1.Picture = Picture["virgo-icono.jpg"] Message("VIRGO") ENDIF IF Val(TextBox1.Text) > 30 AND TextBox2.Text = ("SEPTIEMBRE") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 23 AND Val(TextBox1.Text) <= 30 AND TextBox2.Text = ("SEPTIEMBRE") THEN PictureBox1.Picture = Picture["libra-icono.jpg"] Message("LIBRA") ENDIF IF Val(TextBox1.Text) <= 22 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("OCTUBRE") THEN PictureBox1.Picture = Picture["libra-icono.jpg"] Message("LIBRA") ENDIF IF Val(TextBox1.Text) > 31 AND TextBox2.Text = ("OCTUBRE") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 23 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("OCTUBRE") THEN PictureBox1.Picture = Picture["escorpio-icono.jpg"] Message.Info("ESCORPIO") ENDIF IF Val(TextBox1.Text) <= 21 AND Val(TextBox1.Text) <= 29 AND TextBox2.Text = ("NOVIEMBRE") THEN PictureBox1.Picture = Picture["escorpio-icono.jpg"] Message.Info("ESCORPIO") ENDIF IF Val(TextBox1.Text) > 29 AND TextBox2.Text = ("NOVIEMBRE") THEN Message.Info("NO HAY MAS DIAS EN ESTE MES", "ACEPTAR") ENDIF IF Val(TextBox1.Text) >= 22 AND Val(TextBox1.Text) <= 29 AND TextBox2.Text = ("NOVIEMBRE") THEN PictureBox1.Picture = Picture["11-signo-acuario.jpg"] Message.Info("SAGITARIO") ENDIF IF Val(TextBox1.Text) <= 21 AND Val(TextBox1.Text) <= 31 AND TextBox2.Text = ("DICIEMBRE") THEN

PictureBox1.Picture = Picture["sagitario-icono.jpg"] Message.Info("SAGITARIO") ENDIF END PUBLIC SUB PictureBox1_MouseDown() END