EJERCICIO#1

REALIZAR UN PROGRAMA QUE PERMITA SUMAR, DOS NMEROS, MOSTRAR LOS

BOTONES ENTRE () RESULTADOS, BORRAR Y SALIR.
DIAGRAMA DE FLUJO













PRUEBA DE ESCRITORIO

N1 N2 S
7 8 15
8 10 18







INICIO

N1, N2

S=N1+N2
S
FIN
CODIFICACION
Public sub button1_click ()
[Link]= Val ([Link]) + Val ([Link])
END
Public sub button2_click ()
[Link] =
[Link] =
[Link] =
[Link] focus
Public sub button3_click ()
Quit
END











EJERCICIO#2
REALIZAR UN PROGRAMA QUE PERMITA SUMAR, DOS NMEROS, MOSTRAR LOS
BOTONES ENTRE () RESULTADOS, BORRAR Y SALIR
DIAGRAMA DE FLUJO













PRUEBA DE ESCRITORIO

N1 N2 S
7 8 15
8 10 18







INICIO

N1, N2

R=N1-N2
R
FIN
CODIFICACION
Public sub button1_click ()
[Link]= Val ([Link]) - Val ([Link])
END
Public sub button2_click ()
[Link] =
[Link] =
[Link] =
[Link] focus
Public sub button3_click ()
Quit
END








EJERCICIO#3
REALIZAR UN PROGRAMA EN GAMBAS QUE PERMITA MULTIPLICAR, DOS NMEROS
DIAGRAMA DE FLUJO













PRUEBA DE ESCRITORIO
V1 V2 M
9 5 45
7 4 28
FORMULARIO


INICIO

V1, V2

M=V1*V2
M
FIN
CODIFICACION
Public sub button1_click ()
[Link]= Val ([Link]) * Val ([Link])
END
Public sub button2_click ()
[Link] =
[Link] =
[Link] =
[Link] focus
Public sub button3_click ()
Quit
END

















Ejercicio#4
REALIZAR UN PROGRAMA EN GAMBAS QUE PERMITA DIVIDIR, DOS NMEROS

DIAGRAMA DE FLUJO
















PRUEBA DE ESCRITORIO

V1 V2 D
7 2 3.5
3 1 3


INICIO

V1, V2

D=V1/V2
D
FIN


Public sub button1_click ()
[Link]= Val ([Link]) / Val ([Link])
END
Public sub button2_click ()
[Link] =
[Link] =
[Link] =
[Link] focus
Public sub button3_click ()
Quit
END











Ejercicio#5
REALIZAR UN PROGRAMA EN GAMBAS QUE PERMITA INGRESAR POR TECLADO EL
VALOR DE DOS PRODUCTOS, SACAR EL SUBTOTAL, EL VALOR DEL IVA , Y EL TOTAL A
PAGAR
DIAGRAMA DE FLUJO












PRUEBA DE ESCRITORIO
P1 P2 ST=P1+P2 ST I=ST*O,12 I T=ST+I T
1,30 1,5O 1,30+1,50 2,82, 8*0,12 0,34 2,8+0,34 3,14
3,50 2,20 3,50+2,2O5,75,7*0,120,69 5,7+O,69 6,39

FORMULARIO
INICIO

P1, P2

ST=P1+P2
I=ST*0, 12
TP=ST+I



ST, I, T
FIN
CODIGO
Public sub button1_click ()
[Link]= Val ([Link]) + Val ([Link])
[Link]= Val ([Link]) * 0,12
[Link]= Val ([Link]) + Val ([Link])
END
Public sub button2_click ()
[Link] =
[Link] =
[Link] =
[Link] =
[Link] =
[Link] focus
Public sub button3_click ()
QUIT
END












EJERCICIO#6
GENERAR UN PROGRAMA EN GAMBAS QUE PERMITA INGRESAR UN NUMERO
DETERMINADO DE METROS, CONVERTIR A KILOMETROS A MILIMETRO Y
CENTIMETROS.
DIAGRAMA DE FLUJO













PRUEBA DE ESCRITORIO

M1 K=M/1000 KM MM=M*1000 MM CM=M*100 CM
3 3/1000 0,003 3*1000 3000 3*100 300
5 5/1000 0,005 5*1000 5000 5*100 500

FORMULARIO
INICIO

M

K=M/1000
MM=M*1000
CM=M*100



K,MM,CM
FIN

CODIGO
PUBLIC SUB FORM_CLOSE ()
Message (BIENVENIDOS A ESTA APLICACIN)
END
PUBLIC SUB BUTTN 1_CLICK ()
[Link] = Val ([Link]) /100
[Link] = Val ([Link])*1000
[Link] = Val ([Link]) *100
END
PUBLIC SUB BUTTN 2_CLICK ()
DIM F As Integer
F= [Link] (ESTA SEGURO DE BORRAR ESTOS DATOS ?,SI,NO,CANCELAR)
IF= F=1 THEN
[Link] =
[Link] =
[Link] =
[Link] =
[Link]
ENDIF
END
PUBLIC SUB BUTTN 2_CLICK ()
DIM F As INTEGER
F=[Link] (ESTA SEGURO DE SALIR DE ESTA APLICACIN?,SI,NO,CANCELAR)
IF F = 1 THEN
QUIT
ENDIF
END


EJERCICIO#7
GENERAR UN PROGRAMA EN GAMBAS QUE PERMITA INGRESAR POR TECLADO DOS
VALORES CALCULAR LA SUMA, RESTA, MULTIPLICACION, Y DIVICION Y FINALMENTE
MOSTRAR LOS RESULTADOS POR PANTALLA, PRUEBA, DIAGRAMA, Y FORMULARIO Y
CODIFICACION.
DIAGRAMA DE FLUJO













PRUEBA DE ESCRITORIO

V1 V2 S=V1+V2 S R=V1-V2 R M=V1*V2 M D=V1/V2 D
12 4 12+ 4 16 12- 4 8 12* 4 48 12/ 4 3
10 2 10+ 2 12 10- 2 8 10* 2 20 10/ 2 5
FORMULARIO
V1, V2

S=V1+V2
R=V1-V2
M=V1*V2
D=V1/V2



S,R,M,D
FIN
INICIO


CODIGO
PUBLIC SUB FORM_CLOSE ()
Message (BIENVENIDOS A ESTA APLICACIN)
END
PUBLIC SUB BUTTN 1_CLICK ()
[Link] = Val ([Link]) + Val ([Link])
[Link] = Val ([Link]) - Val ([Link])
[Link] = Val ([Link]) * Val ([Link])
[Link] = Val ([Link]) / Val ([Link])
END
PUBLIC SUB BUTTN 2_CLICK ()
DIM F As Integer
F= [Link] (ESTA SEGURO DE BORRAR ESTOS DATOS ?,SI,NO,CANCELAR)
IF= F=1 THEN
[Link] =
[Link] =
[Link] =
[Link] =
[Link] =
[Link]
[Link]
ENDIF
END
PUBLIC SUB BUTTN 2_CLICK ()
DIM F As INTEGER
F=[Link] (ESTA SEGURO DE SALIR DE ESTA APLICACIN?,SI,NO,CANCELAR)
IF F = 1 THEN
QUIT
ENDIF
END
EJERCICIO#8
GENERAR UN PROGRAMA EN GANBAS QUE PERMITA REALIZAR UNA MINICALCULADORA
QUE SUME, RESTE, MULTIPLIQUE, DIVIDA, POTENCIACION, Y RADICACION.




















PRUEBA DE ESCRITORIO

1V 2V S=1V+ 2V R=1V-2V M=1V*2V D=1V/2V P1V=1V^2 P2V=2V^2 RC1V=1V
9 4 9+4=13 9-4=59*4=36 9/4=2,2581 16 3 2

INICIO

V1,V2

S=V1+V2
R=1V-2V
M=1V*2V
D=1V/2V
P1V=1V
P2V=2V
RC1V=1V
RC2V=2V






S,R,M,D,P1V,P2V
,RC1V,RC2V
FIN


Public Sub Button1_Click ()

[Link] = Val ([Link]) * Val ([Link])
[Link] = Val ([Link]) + Val ([Link]) * 2

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Quit

End








EJERCICIO#9
GENERAR UN PROGRAMA QUE CALCULE LA RAIZ DE UN VALOR Y SU POTENCIA.
Diagrama
















PRUEBA DE ESCRITORIO
NUM VP RC=NUM RC P=NUMVP P
8 2 8 2 8^2 64
125 3 125 5 125^3 9





INICIO

NUM,VP

RC=num
P=NUM^PV
RC, P
FIN


Public Sub Button1_Click ()

[Link] = Val ([Link]) + Val ([Link])
[Link] = Val ([Link]) - Val ([Link])
[Link] = Val ([Link]) * Val ([Link])
[Link] = Val ([Link]) / Val ([Link])
[Link] = Val ([Link]) ^ 2
[Link] = Val ([Link]) ^ 2
[Link] = Sqr ([Link])
[Link] = Sqr ([Link])

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""


End

Public Sub Button3_Click ()

Quit

End
FORMULARIO
EJERCICIO # 10
GENERAR UN PROGRAMA EN GAMBAS QUE CALCULE LA RAZ CUBICA DE UN VALOR
Y SUS POTENCIAS.
DIAGRAMA DE FLUJO














PRUEBA DE ESCRITOTIO

NUM VP RCB= NUM RCB P=NUM^ VP P
5 2 5 1.7099 5^2 25
27 3 27 3 27^3 19683







NUM, VP

RCB= NUM
P= NUM^ VP

RCB, P

INICIO
FIN
Public Sub Button1_Click()

[Link] = Cbr([Link])


End

Public Sub Button2_Click()

[Link] = Val([Link]) ^ 2

End

Public Sub Button3_Click()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button4_Click ()

Quit

End
FORMULARIO



EJERCICIO 11
CALCULAR LA SUPERFICIE DE UN CUADRADO Y UN CRCULO
DIAGRAMA DE FLUJO











PRUEBA DE ESCRITORIO
SC CI SC= CU*CU SC SCI= (CI*CI) * 3,1416 SCI
4 5 4*4 16 5*5*3, 1426 78, 54
8 3 8*8 64 3*3*3, 1416 28, 27

FORMULARIO
INICIO
OPO INICIO
CU, CI
SC= CU+CU
SCI= (CI*CI) * 3,1416
SCI=(CI*CI)*3,1416

SC,SCI

FIN
CODIGO
Public Sub Button1_Click ()
[Link] = Val ([Link]) * Val([Link])
[Link] = Val([Link]) * Val([Link]) * 3.1416
End
Public Sub Button2_Click ()
[Link] = ""
[Link] = ""
[Link] = " "
[Link] = ""
[Link]
End
Public Sub Button3_Click ()
Quit
End














EJERCICIO 12
REALIZAR UN PROGRAMA EN GAMBAS QUE CALCULE EL REA Y PERMETRO DE UN
TRIANGULO.
DIAGRAMA DE FLUJO












PRUEBA DE ESCRITORIO
A B C H P= A+B+C P A= B*H/2 A
11 11 2 3 11+11+2 24 11*3/2 16,5
8 8 4 5 8+8+4 20 8*4/2 16



INICIO
OPO INICIO
A, B, C, H
P= A+B+C
A= B*H/2

P,A
FIN

Public Sub Button1_Click ()
[Link] = Val ([Link]) + Val ([Link]) + Val ([Link])
[Link] = Val ([Link]) * Val ([Link]) / 2

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Quit

End






PROGRAMAS DEL SEGUNDO PARCIAL
EJERCICIO # 13
REALIZAR UNA MINI FACTURA QUE PERMITA CALCULAR SUBTOTAL, IVA, TOTAL,
VALOR EN EFECTIVO, CAMBIO A RECIBIR
DIAGRAMA DE FLUJO



















PRUEBA DE ESCRITORIO
P1 P2 ST= P1 + P2 I= ST * 0.12 T= ST + I VE C= VE -T
3 2 3+2=5 5 * 0.12= 0.755 + 0.75= 5.75 20 20 5.75= 14.25
INICIO
OPO INICIO
P1, P2

ST= P1 + P2

ST, T, I, C
FIN

I= ST * 0.12

T= ST + I

C= I - V

5 1 5 + 1= 6 6 * 0.12= 0.72 6 + 0.72= 6.72 10 10 6.72= 3.28
FORMULARIO

Codificacin
Public sub button1_click ()
[Link]= Val ([Link]) + Val ([Link])
[Link]= Val ([Link]) * 0,12
[Link]= Val ([Link]) + Val ([Link])
END
Public sub button2_click ()
[Link] =
[Link] =
[Link] =
[Link] =
[Link] =
[Link] focus
Public sub button3_click ()
QUIT
END




EJERCICIO 14
REALIZAR UN PROGRAMA QUE INGRESA LOS VALORES DE ACTIVOS Y PASIVOS Y CALCULE EL
CAPITAL DE LA EMPRESA.
DIAGRAMA DE FLUJO















PRUEBA DE ESCRITORIO

1A 2A 1P 2P TP= 1A+2A TP= 1P+2P C= TA-TP
8000 7000 450 4000 1500 4450 10550
9000 1600 1000 4000 10600 5000 5600



1A, 2A, 1P, 2P
TA= 1A+2A
TP= 1P+2P
C= TA-TP


TP, TA, C
FIN
NICIO

FORMULARIO



CODIFICACION
Public Sub Button1_Click ()
[Link] = Val ([Link]) + Val([Link])
[Link] = Val ([Link]) + Val([Link])
[Link] = Val ([Link]) - Val([Link])

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""

End

Public Sub Button3_Click ()

Quit

End



EJERCICIO # 15

REALIZAR UN EJERCICIO EN GAMBAS QUE PERMITA CALCULAR 1 SUMA, 2 DIVISION,
3 RAIZ CUBICA, 4 RAIZ CUADRADA, 5 POTENCIA, 6 SALIR.

DIAGRAMA DE FLUJO


















PRUEBA DE ESCRITORIO
1V 2V S=1V+ 2V D=1V/2V RCB= (1V) RC== (1V) P= 1V^2V
9 4 9 + 4= 13 9 / 4= 2.25 3 6561




V1, V2

S= V1 + V2
D= 1V / 2V
RCB= (1V)
RC= (2V)
P= 1V^2V

S, D, RCB, RC,
P

FIN
INICIO


CODIFICACION

Public Sub Button1_Click ()

[Link] = Val ([Link]) + Val([Link])
[Link] = Val ([Link]) / Val([Link])
[Link] = Cbr ([Link])
[Link] = Sqr ([Link])
[Link] = Val ([Link]) ^ Val([Link])


End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End

Public Sub Button3_Click ()

Quit

End






EJERCICO 16
REALIZAR UN PROGRAMA QUE ME PERMITA INGRESAR POR TECLADO DOS NUMEROS
DETERMINAR CUAL DE LOS NUMEROS INGRESADOS ES EL MAYOR.
DIAGRAMA

















PRUEBA DE ESCRITORIO

PV SV PV > SV SV > PV
20 10 20 > 10 V PV MAYOR
15 40 15 > 40 F 40 > 15 V SV MAYOR
3 3 3 > 3 F 3 > 3 F LOS NUMEROS SON IGUALES
INICIO
PV, SV
PV>SV
SV>PV
LOS NUMEROS
SON IGUALES
SV MAYOR
PV MAYOR
FIN

FORMULARIO



Public Sub Button1_Click ()
If Val ([Link]) > Val([Link]) Then
Message (" EL PRIMER VALOR ES MAYOR")
Else
If Val ([Link]) > Val([Link]) Then
Message ("EL SEGUNDO VALOR ES MAYOR")
Else
Message ("LOS NUMEROS SON IGUALES")
Endif
Endif

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click()

Message. Info ("GRACIAS Y HASTA PRONTO")

Quit

End




EJERCICIO 17
REALIZAR UN PROGRAMA EN GAMBAS QUE ME PERMITA DETERMINAR LA EDAD EN AOS
DE UNA PERSONA, AL MISMO TIEMPO DETYERMINAR SI EL RESULTADO D LA EDAD ES
MAYOR O MENOR DE EDAD.
DIAGRAMA DE FLUJO


















PRUEBA DE ESCRITORIO
AA AN EA= AA- AN EA EA > 17
2014 1998 2014 1998 16 16 > 17 USTED ES MENOR DE EDAD
2014 1996 2014 1996 18 18 > 17 USTED ES MAYOR DE EDAD
AA, AN

EA= AA - AN


EA
INICIO
EA > 17
EA
EA
FIN

FORMULARIO

CODIGO
Public Sub Button1_Click ()

[Link] = Val ([Link]) - ([Link])

If Val ([Link]) > 17
Message ("USTED ES MAYOR DE EDAD")
Else
Message ("USTED ES MENOR DE EDAD")
Endif


End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

[Link] ("GRACIAS Y HASTA PRONTO")
Quit

End



Ejercicio # 19
Realizar un programa en gambas que permita ingresar un nmero determinado en
toneladas, transformarlo a quintales, arrobas, kilos, libras y onzas
Diagrama de flujo













PRUEBA DE ESCRITORIO
NT QQ=NT*10 QQ @=NT*80 @ K=NT*909 K L=NT*200 L OZ=NT*35274 OZ
2 2*10 20 2*80 160 2*909 1818 2*2000 9000 2*35274 70,54


Public Sub Button1_Click ()

[Link] = Val ([Link]) * 10
[Link] = Val ([Link]) * 40
[Link] = Val ([Link]) * 1000
[Link] = Val ([Link]) * 2204.6
[Link] = Val ([Link]) * 35274

INICIO
NT
QQ=NT*10
@=NT*80
K=NT*909
L=NT*2000
OZ=NT*35274

QQ,@,K,L,OZ
FIN
End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

[Link] ("GRACIAS Y HASTA PRONTO")

Quit

End



FORMULARIO


EJERCICIO#20
RELIZAR UN PROGRAMA EN GAMBAS QUE PERMITA INGRESAR UN NUMERO DETERMINADO
EN MILENIOS TRANSFORMARLO A SIGLAS, DECADAS, LUSTROS Y AOS.
Diagrama de flujo















PRUEBA DE ESCRITORIO
NUM S=NUM*10 S D=NUM*100 D L=NUM*100 L A=NUM*100 A
4 4*10 40 4*100 400 4*200 800 4*1000 4000





INICIO
MIL
S=NUM*10
D=NUM*100
L=NUM*200
A=NUM*1000


S,D,L,A
FIN

FORMULARIO

Public Sub Button1_Click ()

[Link] = Val ([Link]) * 10
[Link] = Val ([Link]) * 100
[Link] = Val ([Link]) * 200
[Link] = Val ([Link]) * 1000

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Message. Info ("GRACIAS Y HASTA PRONTO")

Quit

End






EJERCICIO#21
REALIZAR UN PROGRAMA QUE ME PERMITA CALCULAR EL AREA DEL CUADRADO,
RECTANGULO, TRIANGULO.
Diagrama de flujo















PRUEBA DE ESCRITORIO
B H L AC=L AC AR=B*H AR ATR=B*H/2 ATR
2 4 7 2*2 4 4*4 16 7*7 24,5





INICIO
B, H, L
AC=L
AR=B*H
ATR=B*H/2



S, D, L, A
FIN

FORMULARIO

CODIGO

Public Sub Button1_Click()

[Link] = Val([Link]) * Val([Link])
[Link] = Val([Link]) * Val([Link])
[Link] = Val([Link]) * Val([Link]) / 2

End

Public Sub Button2_Click()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click()

Quit

End






EJERCICIO#22
REALIZAR UN PROGRAMA QUE PERMITA INGRESAR POR TECLADO EL NOMBRE Y APELLIDO E
3 EMPLEADOS, INGRESAR EL SUELDO BASICO, NU8MERO DE HORAS EXTRAS TRABAJADAS
POR LOS EMPLEADOS (5,70 VALOR EXTRA), EL APORTE AL IEES SERA DEL 98% DEL SUELDO
BASICO, FINALMENTE MOSTAR, EL TOTAL A RECIBIR POR CADA EMPLEADO
Diagrama de flujo






















INICIO
1E,2E,3E,SB,HB
1,HE2,HE3,AI
HE=HE1*5, 70
HE=HE2*5, 70
HE=HE3*5, 70
A1E=AI/SB
A2E=AI/SB
A3E=AI/SB
T1E= (SB+HE1)-A1E
T2E= (SB+HE2)-A2E
T3E= (SB+HE3)-A3E
HE1,HE2,HE3,A1E,A
2E,A3E,T2E,T2E,T3E
FIN

PRUEBA DE ESCRITORIO
1E 2E 3E SB HE1 HE2 HE3
Juan palacios Pedro Alvarado Carlos Figueroa 360 4*5,70=22,8 3*5,70=22,5 1*5,70=5,7


FORMULARIO

CODIGO
Public Sub Button1_Click ()

[Link] = Val ([Link]) * 5.70
[Link] = Val ([Link]) * 5.70
[Link] = Val ([Link]) * 5.70
[Link] = Val ([Link]) / Val ([Link])
[Link] = Val ([Link]) / Val ([Link])
[Link] = Val ([Link]) / Val ([Link])
[Link] = Val ([Link]) + Val ([Link])
Val ([Link])
[Link] = Val ([Link]) + Val ([Link]) -
Val([Link])
[Link] = Val ([Link]) + Val([Link]) -
Val([Link])

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Message. Info ("GRACIAS Y HASTA PRONTO")

Quit

End















EJERCICIO#23
REALIZAR UN PROGRAMA QUE ME PERMITA INGRESAR POR TECLADO UN NUMERO
DETERMINAR SI ESTE NUMERO ES POSITIVO, NEGATIVO O NEUTRO
























INICIO
N1
IF
N1>0
IF
N1<0
INGRESE UN
NMERO
NEGATIVO
POSITIVO
FIN
NEUTRO

PRUEBA DE ESCRITORIO

N1 IF N1>0 IF N1<0 IF N1=0
7 IF 7>0 positivo IF 0=0
-1 IF-1>0 IF-1<0 negativo neutro
0 IF0>0 IF0<0 ingrese un numero
FORMULARIO

Public Sub Button1_Click()

If Val([Link]) > 0
[Link] = ("EL NUMERO ES POSITIVO")
Else
If Val([Link]) < 0
[Link] = ("EL NUMERO ES NEGATIVO")
Else
If Val([Link]) = 0
[Link] = ("EL NUMERO ES NEUTRO")
Else
[Link] = ("INGRESE UN NUMERO")
Endif
Endif
Endif

End

Public Sub Button2_Click()

[Link] = ""
[Link]

End

Public Sub Button3_Click()

Quit

End

EJERCICIO#24
REALIZAR UN PROGRAMA EN GAMBAS QUE PERMITA INGRESAR POR TECLADO UN NUMERO
DETERMINADO DE MESES TRANSFORMARLOS A DECADAS, LUSTROS, SIGLOS,Y MILENIOS.
Diagrama de flujo














PRUEBA DE ESCRITORIO
M D=M/120 D L=M/60 L S=M/1.200 S M=M/12.000 M
3 3/120 0.025 3/60 0.05 3/1,200 2,5 3/12.000 0.25





INICIO
M
D=M/120
L=M/60
S=M/1.200
M=M/12.000


D, L, S, M
FIN


FORMULARIO

CODIGO
Public Sub Button1_Click ()

[Link] = Val ([Link]) / 120
[Link] = Val ([Link]) / 60
[Link] = Val ([Link]) / 1200
[Link] = Val ([Link]) / 12000

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Quit

END







EJERCICIO#25
REALIZAR UN PROGRAMA EN GAMBAS QUE PERMITA INGRESAR POR TECLADO UN NUMERO
DETERMINAR SI ES IMPAR O PAR



















PRUEBA DE ESCRITORIO
V1 IF V1 MOD
3 5 EL NUMERO ES IMPAR
P, IP
IF V1
MOD 2
EL NUMERO ES
PAR
INICIO
EL NUMERO ES
IMPAR
FIN
2 2 EL NUMERO ES PAR


Public Sub Button1_Click ()

Dim v1 As Integer
v1 = [Link]
If v1 Mod 2 Then
Message ("EL NUMERO ES IMPAR")
Else
Message ("EL NUMERO ES PAR")

Endif


End

Public Sub Button2_Click ()

Message ("ESTA SEGURO QUE DESEA BORRAR ESTOS DATOS", "YES",
"NO")
[Link] = ""
[Link]


End

Public Sub Button3_Click ()

Message ("ESTA SEGURO QUE DESEA SALIR DE ESTA APLICACION",
"YES", "NO")
Quit

End



EJERCICIO#26
REALIZAR UN PROGRAMA EN GAMBAS QUE PERMITA INGRESAR POR TECLADO UN
NUMERO, DETERMINAR AL MISMO TIEMPO SI ESTE NUMERO INGRESADO ES PAR O IMPAR Y
POSITIVO, NEGATIVO.

























N1
IFN1
MOD2=0

IFN1
MOD2=0
N1<0
USTED NO
A ESCRITO
NINGUN UN
NMERO
IMPAR
PAR
FIN
EL NUMERO ES
NEGATIVO
E
INICIO
IFN1
<=0
IFN1
>=0
EL NUMERO ES
POSITIVO
E
PRUEBA DE ESCRITORIO
N1 IFN1 MOD2=0 MESSAGE IFN1 MOD2=0 MESSAGE IFN1<=0 MESSAGE IFN1>0
-7 IF- 7 MOD2=0 IF- 7MOD2=0 IF 7<=0 positivo IF -7>0
Es impar IF 8<=0

FORMULARIO
CODIGO

Public Sub Button1_Click ()

If Val ([Link]) > 0 Then
Endif
Message ("EL NUMERO ES POSITIVO")
If Val ([Link]) < 0 Then
Endif
Message ("EL NUMERO ES NEGATIVO")
If Val ([Link]) = 0 Then
Endif
Message ("EL NUMERO ES NEUTRO")
Message ("EL NUMERO ES IMPAR")
Message ("EL NUMERO ES PAR")
End

Public Sub Button2_Click ()
Message ("ESTA SEGURO QUE QUIERE BORRAR ESTE NUMERO")
[Link] = ""
[Link]

End

Public Sub Button3_Click ()
Message ("ESTA SEGURO QUE QUIERE SALIR DE ESTA APLICACIN?")
Quit

End

EJERCICIO#27
REALIZAR UN PROGRAMA QUE ME PERMITA DETERMINAR LOS RANGOS DE NUMEROS
INGRESADOD, SI EL NUMERO INGRESADO ESTA ENTRE 1 Y 30 UN MENSAJE QUE ME DIGA
DENTRO DEL RANGO SI EL NUMERO PASA DE 30 FUERA DE RANGO
DIAGRAMA DE FLUJO













PRUEBA DE ESCRITORIO
N1 FN1 >=0 AND N1 < = 30 MESSAGE
35 IF 35 >=0 AND 35 < =30 FUERA DEL RANGO
20 IF 20 >=0 AND 20 < =20 DENTRO DEL RANGO







N1
IF N1>
=30
FUERA DEL
RANGO"
DENTRO DEL
RANGO
FIN
EJERCICIO#27
REALIZAR UN
PROGRAMA
QUE ME
PERMITA
DETERMINAR
LOS RANGOS
DE NUMEROS
INGRESADOD,
SI EL NUMERO
INGRESADO
ESTA ENTRE 1
Y 30 UN
MENSAJE QUE
ME DIGA
DENTRO DEL
RANGO SI EL
NUMERO
PASA DE 30
FUERA DE
RANGO

INICIO
CODIGO

Public Sub Button1_Click ()

Dim A As Integer
A = ([Link])
If A = 1 And A = 30 Then
[Link] ("est dentro del rango")
Else
[Link] ("est fuera de rango")

Endif
End

Public Sub Button2_Click ()

[Link] ("est seguro que desea borrar")
[Link] = ""
[Link]
End

Public Sub Button3_Click ()

[Link] ("seguro que desea salir de esta aplicacin")
Quit

End






EJERCICIO # 28
REALIZAR UN PROGRAMA QUE ME PERMITA POR MEDIO DE LAS INICIALES DE SU PRIMER
NOMBRE Y APELLIDO QUE VISUALICE EL NOMBRE Y APELLIDO COMPLETO SI INGRESA OTRA
LETRA DIFERENTE UN MENSAJE QUE DIGA NO HAY TEXTO CON ESA LETRA



NO SI















PRUEBA DE ESCRITORIO
1 INCIAL 2 INICIAL CASE J,j MESSAGE CASE M,m MESSAJE MESSAJE ELSE
J M CASE J JOSELYN CASE M MORAN
S P CASE S CASE P
INICIO
CASE TEXTBOX 1
CASE ELSE
CASE
J,j

CASE
M P
NO HAY CON ESTA
LETRA
JOSELYN MORAN
FIN


Public Sub Button1_Click()

Select [Link]
Case "j", "J"
Message ("ALFONSO")
Case "a", "A"
Message ("DIAZ")
Case Else
Message ("NO HAY TEXTO CON ESA LETRA")

End Select

End

Public Sub Button2_Click ()

Message ("SEGURO QUE DESEA BORRAR TODOS LOS DATOS")
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Message ("seguro que desea salir de esta aplicacin")
Quit

End




EJERCICIO # 29
REALIZAR UN PROGRAMA EN GAMBAS QUE ME PERMITE POR UNA CLAVE DE ACCESO
INGRESAR A UN SEGUNDO FORMULARIO SIEMPRE Y CUANDO LA CLAVE ESTE CORRECTA



SI NO











PRUEBA DE ESCRITORIO
CLAVE IF JOSELYN = Alfonzo MESSAJE MESSAJE ELSE
JOSELYN IF ALFONSO =Alfonso BIENVENIDO AL SIST
Joselyn IF ALFONSO =Alfonso ERROR DE CLAVE






IF ALFONSO= Alfonso
BIENVENIDO AL
SISTEMA
CONTRACEA
INTENTE OTRA VEZ
FIN
INICIO
FORMULARIO

CODIGO
Public Sub Button1_Click ()

If [Link] = "Alfonso" And [Link] = 123" Then
Message ("bienvenidos al sistema")
[Link]


Else
Message ("el usuario y clave es incorrecto")
Message ("intente otra vez")
[Link] = ""
[Link]

Endif

End

Public Sub Button2_Click ()

Dim A As Integer
A = Message ("usted est seguro que desea cerrar el programa", "si", "no",
"cancelar")
If a = 1 Then
Quit
Endif

End




EJERCICIO # 30
REALIZAR UN PROGRAMA QUE ME PERMITA, POR MEDIO DE LA CLAVE Y USUARIO
INGRESAR A UN MEN DE OPERACIONES BASICAS, EN CADA UNO DE LOS FORMULARIOS
DEBERAN HABER BOTONES PREDISEADOS CON LAS CODIFICACIONES YA DISPUESTAS.



SI NO










PRUEBA DE ESCRITORIO
CLAVE IF ALFONSO = ALFONSO AND IF 120=120 MESSAJE
ALFONSO IF ALFONSO = ALFONSO AND IF 120 = 120 BIENVENIDO AL SISTEMA
ALFONSO IF ALFONSO = ALFONSO AND IF 120 = 120 ERROR DE CLAVE






IF JOSELYN = Alfonso
AND IF 120 = 120
BIENVENIDO AL
SISTEMA
CONTRACEA
INTENTE OTRA VEZ
FIN
INICIO
FORMULARIOS


CODIGO
Public Sub Button1_Click ()

[Link]
[Link]

End

Public Sub Button2_Click ()

[Link]
[Link]

End

Public Sub ToggleButton1_Click ()

[Link]
[Link]

End

Public Sub Button3_Click ()

[Link]
Form. Hide
End
Public Sub Button4_Click ()

[Link]
[Link]

End
Diagrama de flujo







PRUEBA DE ESCRITORIO
N1 N2 S
7 8 15
8 10 18


Public Sub ToggleButton2_Click ()
[Link]
[Link]
End

Public Sub Button1_Click ()

[Link] = Val ([Link]) + Val([Link])

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Message ("GRACIAS POR USAR ESTA APLICACION")
Quit

End

INICIO
N1, N2
S= N1+N2


S
FIN
Public Sub Form _Open ()
End
Public Sub ToggleButton3_Click ()
[Link]
[Link]

End

Diagrama











PRUEBA DE ESCRITORIO
N1 N2 R= N1-N2
9 5 4
7 4 3

INICIO

N1, N2

R=V1-V2
R
FIN
Public Sub ToggleButton2_Click()


[Link]
[Link]
End

Public Sub Button1_Click ()

[Link] = Val ([Link]) + Val([Link])

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Message ("GRACIAS POR USAR ESTA APLICACION")
Quit

End

Public Sub Form _Open()



End

Public Sub ToggleButton3_Click ()

[Link]
[Link]
FORMULARIO

DIAGRMA DE FLUJO














PRUEBA DE ESCRITORIO
N1 N2 M= N1*N2
7 2 14
3 1 3

















INICIO

N1, N2

M=N1*N2
M
FIN
CODIGO
Public Sub Button1_Click ()

[Link] = Val ([Link]) - Val ([Link])

End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link]


End

Public Sub Button3_Click ()

Message ("GRACIAS POR USAR ESTA APLICACION")
Quit



End

Public Sub ToggleButton1_Click ()

[Link]
[Link]

End

Public Sub ToggleButton2_Click ()

[Link]
[Link]

END
Diagrama













PRUEBA DE ESCRITORIO

N1 N2 D= N1/N2
7 2 3.5
3 1 3














INICIO

N1, N2

M=N1/N2
M
FIN
CODIGO
Public Sub Button1_Click ()

[Link] = Val ([Link]) * Val ([Link])


End

Public Sub Button2_Click ()

[Link] = ""
[Link] = ""
[Link] = ""
[Link]

End

Public Sub Button3_Click ()

Message ("GRACIAS POR USAR ESTA APLICACION")
Quit

End

Public Sub ToggleButton1_Click ()

[Link]
[Link]


End

Public Sub ToggleButton2_Click ()

[Link]
[Link]

End


PROGRAMAS DEL TERCER PARCIAL
PROGRAMA #31
GENERAR UN PROGRAMA QUE ME PERMITA MEDIANTE CICLO FOR QUE ME
PERMITA VISUALIZAR LOS NMEROS DEL 1 AL 10.
A A<10 A + 1
1 1<10 1+1=2
2 2<10 2+1=3
10 10<10 10+1=11
A=1; A<10; A +1






FORMULARIO




INICIO
A=1
A
FIN
CDIGO
PUBLIC SUB Button3_Click ()
DIM A AS Integer
FOR A = 1 TO 10
[Link] (A)
NEXT
END
PUBLIC SUB Button1_Click ()
[Link]
END
PUBLIC SUB Button2_Click ()
DIM A AS Integer
A = [Link] ("ESTA SEGURO QUE QUIERE SALIR DE ESTA APLICACIN", "SI", "NO",
"CANCELAR")
IF A = 1 THEN
[Link]
ENDIF
END












PROGRAMA #32
GENERAR UN PROGRAMA QUE ME PERMITA MEDIANTE CICLO FOR QUE ME
PERMITA VISUALIZAR LOS NMEROS DEL 50 AL 80
A A<10 A + 1
1 1<10 1+1=2
2 2<10 2+1=3
80 80<80 80+1=81
A=1; A<80; A +1






FORMULARIO




INICIO
A=1
A
FIN
CDIGO
PUBLIC SUB Button3_Click ()
DIM A AS Integer
FOR A = 50 TO 80
[Link] (A)
NEXT
END
PUBLIC SUB Button1_Click ()
[Link]
END
PUBLIC SUB Button2_Click ()
DIM A AS Integer
A = [Link] ("ESTA SEGURO QUE QUIERE SALIR DE ESTA APLICACIN", "SI", "NO",
"CANCELAR?")
IF A = 1 THEN
[Link]
ENDIF
END












PROGRAMA #33
REALIZAR UN PROGRAMA EN GAMBAS MEDIANTE USUARIO Y CLAVE (SI EL USUARIO Y LA
CLAVE POR MAS DE 3 OCASIONES INCORRECTAMENTE SALGA DE LA APLICACIN EN 1
FORMULARIO GENERE LOS NMEROS DEL 1 AL 100 Y EL 2 FORMULARIO GENERE LOS
NMEROS DEL 100 AL 1.























FFFFFFF
Usuario, clav

If
Alfonso=
Alfonso
MOD2=0

If
120528=
120528
Bienvenido
al sistema
Clave
incorrecta
Usuario
incorrecto
FIN
Salir del sistema
INICIO
If
Alfonso=
Alfonso
and
120528=1
20528
<=0
i=0
Usuario Clave If Alfonso = Alfonso Mensaje If 120528=120528
Alfonso 120528 If Alfonso =Alfonso ----------------------- If 120528=120528
Mensaje
If Alfonso=Alfonso And
120528=120528 Mensaje
-----------------------------
If Alfonso=Alfonso And 120528 =
120528
Bienvenido al
sistema

FORMULARIO

CODIGO
PUBLIC SUB BUTTON1 CLICK ()
SELECT CASE [Link]
CASE "ALFONSO"
CASE ELSE
Message ("NOMBRE DE USUARIO INCORRECTO")
[Link] ("INTENTE NUEVAMENTE")
END SELECT
IF [Link] = ("1234") THEN
Message ("BIENVENIDOS AL SISTEMA")
[Link]
[Link]
ELSE
Message ("ERROR EN CLAVE")
Message ("INTENTE NUEVAMENTE")
[Link] = ""= ""
[Link] = ""
[Link]
[Link] = Val ([Link]) + 1
ENDIF
END
PUBLIC SUB Button2_Click ()
DIM L AS Integer
L = [Link] ("SEGURO QUE DESEA SALIR DE ESTA APLICACIN", "SI", "NO",
"CANCELAR?")
IF L = 1 THEN
QUIT
ENDIF
END
PUBLIC SUB Button1_Click ()
DIM a AS Integer
FOR a = 1 TO 100
[Link] (A)
NEXT
END
PUBLIC SUB Button2_Click ()
[Link]
END
PUBLIC SUB Button3_Click ()
[Link]
END
PUBLIC SUB Button1_Click ()
DIM A AS Integer
FOR A = 100 TO 1 STEP -1
[Link] (A)
NEXT
END
PUBLIC SUB Button2_Click ()
[Link]
END
PUBLIC SUB Button3_Click ()
[Link]
END PRUEBAS Y DIAGRAMA DE FLUJO
A A<100 A + 1
1 1<100 1+1=2
2 2<100 2+1=3
1000 100<100 100+1=101
A=1; A<100; A + 1






A A>1 A + 1
100 100>1 100-1=99
99<1 99-1=98
1<1 1-1=0
A=1; A>100; A +1




A=1
A
FIN
INICIO
A=1
A
FIN
INICIO
PROGRAMA #34
REALIZAR UN PROGRAMA QUE ME PERMITA SIMULAR UNA CALCULADORA CIENTFICA

PUBLIC ban AS Float
PUBLIC aux1 AS Float
PUBLIC Sqr AS Float
PUBLIC Cbr AS Float
PUBLIC sin AS Float
PUBLIC Cos AS Float
PUBLIC Tan AS Float
PUBLIC SUB Button44_Click()
[Link] = [Link] & "."
END
PUBLIC SUB Button38_Click()
[Link] = [Link] & "1"
END
PUBLIC SUB Button39_Click()
[Link] = [Link] & "2"
END
PUBLIC SUB Button40_Click()
[Link] = [Link] & "3"
END
PUBLIC SUB Button33_Click()
[Link] = [Link] & "4"
END
PUBLIC SUB Button34_Click()
[Link] = [Link] & "5"
END
PUBLIC SUB Button35_Click()
[Link] = [Link] & "6"
END
PUBLIC SUB Button28_Click()
[Link] = [Link] & "7"
END
PUBLIC SUB Button29_Click()
[Link] = [Link] & "8"
END
PUBLIC SUB Button30_Click()
[Link] = [Link] & "9"
END
PUBLIC SUB Button43_Click()
[Link] = [Link] & "0"
END
PUBLIC SUB Button45_Click()
[Link] = 3.1416 * Val([Link])
END
PUBLIC SUB Button41_Click()
ban = 1
IF [Link] <> 0 THEN
aux1 = [Link]
ELSE
aux1 = 0
ENDIF
[Link]()
END
PUBLIC SUB Button36_Click()
ban = 3
IF [Link] <> 0 THEN
aux1 = [Link]
ELSE
aux1 = 0
ENDIF
[Link]()
END
PUBLIC SUB Button21_Click()
[Link] = Sin(([Link]) / 180 * 3.1416)
END

PUBLIC SUB Button22_Click()
[Link] = Cos(([Link]) / 180 * 3.1416)
END
PUBLIC SUB Button23_Click()
[Link] = Tan(([Link]) / 180 * 3.1416)
END
PUBLIC SUB Button24_Click()
[Link] = Sinh(([Link]) / 180 * 3.1416)
END
PUBLIC SUB Button25_Click()
[Link] = Cosh(([Link]) / 180 * 3.1416)
END
PUBLIC SUB Button26_Click()
[Link] = Tanh(([Link]) / 180 * 3.1416)
END
PUBLIC SUB Button14_Click()
[Link] = [Link] / [Link]
END
PUBLIC SUB Button15_Click()
[Link] = Sqr([Link])
END
PUBLIC SUB Button19_Click()
[Link] = Val([Link]) ^ 10
END
PUBLIC SUB Button20_Click()
[Link] = 2.718281828 * ([Link])
END
PUBLIC SUB Button27_Click()
[Link] = [Link] & "("
END
PUBLIC SUB Button8_Click()
[Link] = [Link] & ")"
END
PUBLIC SUB Button9_Click()
[Link] = 1 / [Link]
END
PUBLIC SUB Button10_Click()
[Link] = [Link] ^ 3
END
PUBLIC SUB Button16_Click()
[Link] = [Link] ^ 2
END
PUBLIC SUB Button17_Click()
[Link] = [Link] ^ [Link]
END
PUBLIC SUB Button18_Click()
[Link] = Log10([Link])
END
PUBLIC SUB Button1_Click()
[Link] = [Link] / 100
END
PUBLIC SUB Button7_Click()
[Link] = ""
[Link]
END
PUBLIC SUB Button31_Click()
END
PUBLIC SUB Button32_Click()
[Link] = ""
[Link]
END
PUBLIC SUB Button47_Click()
IF ban = 1 THEN
[Link] = aux1 + ([Link])
ENDIF
IF ban = 2 THEN
[Link] = aux1 - ([Link])
ENDIF
IF ban = 3 THEN
[Link] = aux1 * ([Link])
ENDIF
IF ban = 4 THEN
[Link] = aux1 / ([Link])
ENDIF
END
PUBLIC SUB MovieBox1_MouseDown()
END
PUBLIC SUB Button2_Click()
[Link] = ""
END
PUBLIC SUB Button42_Click()
ban = 2
IF [Link] <> 0 THEN
aux1 = [Link]
ELSE
aux1 = 0
ENDIF
[Link] ()
END
PUBLIC SUB Button37_Click ()
Ban = 4
IF [Link] <> 0 THEN
aux1 = [Link]
ELSE
aux1 = 0
ENDIF
[Link] ()
END
PROGRAMA #35
REALIZAR UN PROGRAMA QUE ME PERMITA INGRESAR, POR TECLADO LOS DATOS GENERALES
DE UN CLIENTE (NOMBRE, APELLIDO, TELFONO) INGRESAR EL VALOR DE 3 ARTCULOS
CALCULAR EL TOTAL DE LOS 3 ARTCULOS, SI EL TOTAL OBTENIDO ES MENOR A 200 SACAR EL
10% DE DESCUENTO, SI EL TOTAL OBTENIDO ES MENOR A 400 SACAR EL 16% DE DESCUENTO Y
SI EL TOTAL OBTENIDO ES MAYOR A 400 SACAR EL 25% DE DESCUENTO.
NOMBRE APELLIDO TELFONO 1ART. 2ART 3ART TOTAL IF T <200
ALFONSO DIAZ 253671 20 170 30 220 IF 220<200
TOTAL*0.10 IF T <400 TOTAL*0.16 IF T > 400 TOTAL*0.25
------------------------ IF 220<400 220*0.16=35.2 ------------------ ------------------






























N; a;t;art;1,2,3

If t<200

If T<400
16% DESC.
10% DESC.
FIN
25% DESC.
INICIO
IF T>400
CDIGO
PUBLIC SUB Button1_Click ()
[Link] = ([Link]) + ([Link]) + ([Link])
IF Val ([Link]) < 200 THEN
Message ("10% DESCUENTO OBTENIDO AL USUARIO")
[Link] = [Link] * 0.1
ELSE
IF Val ([Link]) < 400 THEN
Message ("16% DESCUENTO OBTENIDO AL USUARIO")
[Link] = [Link] * 0.16
ELSE
IF Val ([Link]) > 400 THEN
Message ("25% DESCUENTO OBTENIDO AL USUARIO")
[Link] = [Link] * 0.25
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB Button2_Click ()
DIM A AS Integer
A = [Link] ("ESTA SEGURO QUE DESEA BORRAR ESTOS DATOS", "YES", "NO",
"CANCELAR")
IF A = 1 THEN
ENDIF
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
END
PUBLIC SUB Button3_Click ()
DIM A AS Integer
A = [Link] ("ESTA SEGURO QUE DESEA SALIR DE ESTA APLICACIN", "YES", "NO",
"CANCELAR")
IF A = 1 THEN
QUIT
ENDIF
END
FORMULARIO

PROGRAMA #36
REALIZAR UN PROGRAMA QUE ME PERMITA POR MEDIO DEL DA Y MES DE NACIMIENTO ME
PRESENTE EL SIGNO ZODIACAL.

CDIGO
PUBLIC SUB Form_Open ()
[Link] ("BIENVENIDO A TU HORSCOPO DEL DA")
END
PUBLIC SUB Button1_Click()
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("MARZO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES ARIES")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("ABRIL") THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES ARIES")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("MARZO") THEN
[Link]("NO EXISTE ESE DIA EN MARZO", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("ABRIL") THEN
[Link]("NO EXISTE ESE DIA EN ABRIL", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("ABRIL")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES TAURO")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("MAYO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES TAURO")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("ABRIL") THEN
[Link]("NO EXISTE ESE DIA EN ABRIL", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("MAYO") THEN
[Link]("NO EXISTE ESE DIA EN ABRIL", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("MAYO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES GEMINIS")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("JUNIO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES GEMINIS")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("MAYO") THEN
[Link]("NO EXISTE ESE DIA EN MAYO", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("JUNIO") THEN
[Link]("NO EXISTE ESE DIA EN JUNIO", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("JUNIO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES CANCER")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("JULIO") THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES CANCER")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("JUNIO") THEN
[Link]("NO EXISTE ESE DIA EN JUNIO", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("JULIO") THEN
[Link]("NO EXISTE ESE DIA EN JULIO", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("JULIO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES LEO")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("AGOSTO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES LEO")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("JULIO") THEN
[Link]("NO EXISTE ESE DIA EN JULIO", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("AGOSTO") THEN
[Link]("NO EXISTE ESE DIA EN AGOSTO", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("AGOSTO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES VIRGO")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] =
("SEPTIEMBRE") THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES VIRGO")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("AGOSTO") THEN
[Link]("NO EXISTE ESE DIA EN AGOSTO", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("SEPTIEMBRE") THEN
[Link]("NO EXISTE ESE DIA EN SEPTIEMBRE", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] =
("SEPTIEMBRE") THEN
[Link] = Picture[""]
[Link]("SU SIGNO ZODIACAL ES LIBRA")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("OCTUBRE")
THEN
[Link] = Picture[""]
[Link]("SU SIGNO ZODIACAL ES LIBRA")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("SEPTIEMBRE") THEN
[Link]("NO EXISTE ESE DIA EN SEPTIEMBRE", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("OCTUBRE") THEN
[Link]("NO EXISTE ESE DIA EN OCTUBRE", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("OCTUBRE")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES ESCORPIO")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] =
("NOVIEMBRE") THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES ESCORPIO")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("OCTUBRE") THEN
[Link]("NO EXISTE ESE DIA EN OCTUBRE", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("NOVIEMBRE") THEN
[Link]("NO EXISTE ESE DIA EN NOVIEMBRE", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] =
("NOVIEMBRE") THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES SAGITARIO")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("DICIEMBRE")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES SAGITARIO")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("NOVIEMBRE") THEN
[Link]("NO EXISTE ESE DIA EN NOVIEMBRE", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("DICIEMBRE") THEN
[Link]("NO EXISTE ESE DIA EN DICIEMBRE", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] =
("DICIEMBRE") THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES CAPRICORNIO")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("ENERO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL CAPRICORNIO")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("DICIEMBRE") THEN
[Link]("NO EXISTE ESE DIA EN DICIEMBRE", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("ENERO") THEN
[Link]("NO EXISTE ESE DIA EN ENERO", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("ENERO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES ACUARIO")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("FEBRERO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES ACUARIO")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("ENERO") THEN
[Link]("NO EXISTE ESE DIA EN ENERO", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("FEBRERO") THEN
[Link]("NO EXISTE ESE DIA EN FEBRERO", "ACEPTAR")
ENDIF
IF Val([Link]) >= 21 AND Val([Link]) <= 31 AND [Link] = ("FEBRERO")
THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES PISCIS")
ENDIF
IF Val([Link]) >= 1 AND Val([Link]) <= 20 AND [Link] = ("MARZO") THEN
[Link] = Picture["/home/home/Escritorio/[Link]"]
[Link]("SU SIGNO ZODIACAL ES PISCIS")
ENDIF
IF Val([Link]) > 31 AND [Link] = ("FEBRERO") THEN
[Link]("NO EXISTE ESE DIA EN FEBRERO", "ACEPTAR")
ENDIF
IF Val([Link]) > 20 AND [Link] = ("MARZO") THEN
[Link]("NO EXISTE ESE DIA EN MARZO", "ACEPTAR")
ENDIF
END
PROGRAMA #37
REALIZAR UN PROGRAMA EN GAMBAS QUE POR MEDIO DE UN CLIC EN 3 BOTONES
INGRESADOS UBICAR EN CADA BOTN EL COLOR (AMARILLO, AZUL, ROJO) Y CON EL MISMO
CLIC EL FONDO DEL FORMULARIO DE COLOR VERDE.

CDIGO
PUBLIC SUB Label1_MouseDown ()
[Link] = (&HFFFFF00)
[Link] = (&HFF0000FF)
[Link] = (&HFFF0000)
[Link] = (&H00FFF00)
END
PROGRAMA #38
REALIZAR UN PROGRAMA QUE ME PERMITA SIMULAR POR MEDIO DE UN CLIC ME PRESENTE
UNA IMAGEN DE CARITA DE GRUN.
FORMULARIO

CDIGO
PUBLIC SUB TextLabel1_MouseDown()
[Link] = (&FFFFFF)
[Link] = (&FFFFFF)
[Link] = (&101010)
[Link] = (&101010)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FFDFBF)
[Link] = (&FF0000)
[Link] = (&FF0000)
[Link] = (&FF0000)
[Link] = (&FF0000)
[Link] = (&FF0000)
END
PUBLIC SUB Button45_Click()
DIM F AS Integer
F = [Link]("ESTA SEGURO QUE DESEA SALIR DE ESTA APLICACION?", "YES",
"NO", "CANCELAR")
IF F = 1 THEN
[Link]
ENDIF
END
PROGRAMA #39

CDIGO
PUBLIC SUB Timer1_Timer()
[Link] = [Link] + 1
IF [Link] = 1 THEN
[Link] = FALSE
[Link] = FALSE
[Link] = TRUE
ELSE IF [Link] = 20 THEN
[Link] = FALSE
[Link] = TRUE
[Link] = TRUE
ELSE IF [Link] = 21 THEN
[Link] = FALSE
[Link] = FALSE
[Link] = TRUE
ELSE IF [Link] = 22 THEN
[Link] = FALSE
[Link] = TRUE
[Link] = TRUE
ELSE IF [Link] = 23 THEN
[Link] = FALSE
[Link] = FALSE
[Link] = TRUE
ELSE IF [Link] = 24 THEN
[Link] = FALSE
[Link] = TRUE
[Link] = TRUE
ELSE IF [Link] = 25 THEN
[Link] = FALSE
[Link] = FALSE
[Link] = TRUE
ELSE IF [Link] = 26 THEN
[Link] = FALSE
[Link] = TRUE
[Link] = TRUE
ELSE IF [Link] = 27 THEN
[Link] = FALSE
[Link] = FALSE
[Link] = TRUE
ELSE IF [Link] = 28 THEN
[Link] = FALSE
[Link] = TRUE
[Link] = TRUE
ELSE IF [Link] = 29 THEN
[Link] = TRUE
[Link] = FALSE
[Link] = FALSE
ELSE IF [Link] = 50 THEN
[Link] = TRUE
[Link] = TRUE
[Link] = FALSE
ELSE IF [Link] = 51 THEN
[Link] = TRUE
[Link] = FALSE
[Link] = FALSE
ELSE IF [Link] = 52 THEN
[Link] = TRUE
[Link] = TRUE
[Link] = FALSE
ELSE IF [Link] = 53 THEN
[Link] = TRUE
[Link] = FALSE
[Link] = FALSE
ELSE IF [Link] = 54 THEN
[Link] = TRUE
[Link] = TRUE
[Link] = FALSE
ELSE IF [Link] = 55 THEN
[Link] = TRUE
[Link] = FALSE
[Link] = FALSE
ELSE IF [Link] = 56 THEN
[Link] = TRUE
[Link] = TRUE
[Link] = FALSE
ELSE IF [Link] = 57 THEN
[Link] = TRUE
[Link] = FALSE
[Link] = FALSE
ELSE IF [Link] = 58 THEN
[Link] = TRUE
[Link] = TRUE
[Link] = FALSE
ELSE IF [Link] = 59 THEN
[Link] = 0
ENDIF
END
PROGRAMA #40
MEDIANTE UN COMBO BOX Y UN RADIOBUTTON REALIZAR UN PROGRAMA QUE ME PERMITA
ELABORAR LAS 4 OPERACIONES BSICAS.
FORMULARIO

CODIGO
PUBLIC SUB ComboBox1_Click()
IF [Link] = "SUMA" THEN
[Link] = Val([Link]) + Val([Link])
ELSE
IF [Link] = "RESTA" THEN
[Link] = Val([Link]) - Val([Link])
ELSE
IF [Link] = "MULTIPLICACION" THEN
[Link] = Val([Link]) * Val([Link])
ELSE
IF [Link] = "DIVISION" THEN
[Link] = Val([Link]) / Val([Link])
ELSE
ENDIF
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB RadioButton1_Click()
[Link] = Val([Link]) + Val([Link])
END
PUBLIC SUB RadioButton2_Click()
[Link] = Val([Link]) - Val([Link])
END
PUBLIC SUB RadioButton3_Click()
[Link] = Val([Link]) * Val([Link])
END
PUBLIC SUB RadioButton4_Click()
[Link] = Val([Link]) / Val([Link])
END
PROGRAMA #41
REALIZAR UN PROGRAMA QUE ME PERMITA MEDIANTE CLAVE Y USUARIO CREAR 3
FORMULARIOS EN EL 1: GENERAR NMEROS DEL 1 AL 50 DE 2 EN 2 ; DESPUS Y DEL 51 AL 100
DE 3 EN 3 EN LA MISMA LISTA. EN EL 2DO FORMULARIO POR MEDIO DE 3 ASIGNATURAS
INGRESADAS QUE AL USUARIO LE MUESTRE LA ESPECIALIDAD A SEGUIR Y EN EL FORMULARIO
3 GENERE MEDIANTE EL DO WHILE GENERAR NMEROS DEL 100 AL 0.
FORMULARIO


CDIGO
PUBLIC SUB Button3_Click()
IF [Link] = "ALFONSO" AND [Link] = "SEE YOU LATER" THEN
Message("BIENVENIDOS AL SISTEMA ")
[Link]
[Link]
ELSE IF
[Link]("CLAVE AND USUARIO INCORRECTO")
ENDIF
END
PUBLIC SUB Button2_Click()
DIM F AS Integer
F = [Link]("ESTA SUGURO QUE DECEA LIMPIAR ESTE CODIGO?", "YES", "NO",
"CANCELAR")
IF F = 1 THEN
ENDIF
[Link] = ""
[Link] = ""
[Link]
END
PUBLIC SUB Button1_Click()
DIM F AS Integer
F = [Link]("ESTA SUGURO QUE DECEA SALIR DE ESTA APLICACION?", "YES",
"NO", "CANCELAR")
IF F = 1 THEN
[Link]()
ENDIF
PUBLIC SUB Button1_Click()
DIM A AS Integer
FOR A = 1 TO 50 STEP +2
[Link](A)
NEXT
FOR A = 51 TO 100 STEP +3
[Link](A)
NEXT
END
PUBLIC SUB ToggleButton1_Click()
[Link]
[Link]
END
PUBLIC SUB ToggleButton2_Click()
[Link]
[Link]()
END
PUBLIC SUB Button2_Click()
DIM F AS Integer
F = [Link]("ESTA SUGURO QUE DECEA LIMPIAR ESTE CODIGO?", "YES", "NO",
"CANCELAR")
IF F = 1 THEN
[Link]
ENDIF
END
PUBLIC SUB Button3_Click()
DIM F AS Integer
F = [Link]("ESTA SUGURO QUE DECEA SALIR DE ESTA APLICACION?", "YES",
"NO", "CANCELAR")
IF F = 1 THEN
QUIT
ENDIF
END
PUBLIC SUB Button3_Click()
DIM F AS Integer
F = [Link]("ESTA SUGURO QUE DECEA SALIR DE ESTA APLICACIN?", "YES",
"NO", "CANCELAR")
IF F = 1 THEN
QUIT
ENDIF
END
PUBLIC SUB Button1_Click()
IF [Link] = "DIBUJO TECNICO" AND [Link] = "FISICA" AND [Link] =
"MATEMATICAS" THEN
[Link]("SU CARRERA ES FIMA")
ENDIF
IF [Link] = "LENGUAJE" AND [Link] = "MUSICA" AND [Link] =
"COMUNICACION ORAL" THEN
[Link]("SU CARRERA ES LITERATURA")
ENDIF
IF [Link] = "SOCIALES" AND [Link] = "EDUCACION CIUDADANIA" AND
[Link] = "FILOSOFIA" THEN
[Link]("HISTORIA Y CIENCIAS SOCIALES")
ENDIF
IF [Link] = "CIENCIAS NATURALES" AND [Link] = "BOTANICA" AND
[Link] = "QUIMICA" THEN
[Link]("SU CARRERA ES CIENCIAS BIOLOGICAS")
ENDIF
IF [Link] = "COMPUTACION" AND [Link] = "INFORMATICA" AND
[Link] = "PROGRAMACION" THEN
[Link]("SU CARRERA ES APLICACIONES DE INFORMATICA")
ENDIF
IF [Link] = "COMPUTACION" AND [Link] = "FUNDAMENTOS DE
PROGRAMACION" AND [Link] = "REDES" THEN
[Link]("SU CARRERA ES ADMINISTRACION DE SISTEMAS")
ENDIF
END
PUBLIC SUB ToggleButton1_Click()
[Link]
[Link]
END
PUBLIC SUB Button2_Click()
DIM F AS Integer
F = [Link]("ESTA SUGURO QUE DECEA LIMPIAR ESTE CODIGO?", "YES", "NO",
"CANCELAR")
IF F = 1 THEN
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
ENDIF
END
PROGRAMA #42
MEDIANTE UNA TABLE VIEW GENERE 3 CAMPOS Y LOS VALLA AGREGANDO, MEDIANTE
OPCIN DE MEN EJECUTAR EL BOTN SALIR.
FORMULARIO

CDIGO
PUBLIC SUB Form_Open()
[Link] = 6
[Link][0].text = "NOMBRES"
[Link][0].WIDTH = 200
[Link][1].text = "APELLIDOS"
[Link][1].WIDTH = 200
[Link][2].text = "NUMERO DE MATRICULA"
[Link][2].WIDTH = 200
[Link][3].text = "FECHA DE NACIMIENTO"
[Link][3].WIDTH = 200
[Link][4].text = "EDAD"
[Link][4].WIDTH = 50
[Link][5].text = "DIRECCION"
[Link][5].WIDTH = 200
END
PUBLIC SUB Menu2_Click()
DIM A AS Integer
A = [Link]("ESTA SEGURO QUE DESEA SALIR?", "SI", "NO")
IF A = 1 THEN
[Link]
ENDIF
END
PUBLIC SUB Button1_Click()
DIM ROW AS Integer = [Link]
IF txt_nombres.Text <> "" AND txt_apellidos.Text <> "" AND txt_nummatri.Text <> "" AND
txt_fechnaci.TEXT <> "" AND txt_edad.Text <> "" AND txt_direccion.Text THEN
[Link] += 1
TableView1[ROW, 0].Text = txt_nombres.Text
TableView1[ROW, 1].Text = txt_apellidos.Text
TableView1[ROW, 2].Text = txt_nummatri.Text
TableView1[ROW, 3].Text = txt_fechnaci.Text
TableView1[ROW, 4].Text = txt_edad.Text
TableView1[ROW, 5].Text = txt_direccion.Text
ELSE
[Link]("INGRESE LOS DATOS EN LA PLANILLA")
ENDIF
END
PUBLIC SUB Button2_Click()
txt_nombres.Clear
txt_apellidos.Clear
txt_nummatri.Clear
txt_fechnaci.Clear
txt_edad.Clear
txt_direccion.Clear
END