1.
Visual Basic
Captulo siguiente: 2 - Las Propiedades
Ques Visual Basic?
Es un programa que es en s mismo un Lenguaje de Programacin de alto nivel, con el
cual se pueden desarrollar aplicaciones para cualquier necesidad, ya sea de un usuario o
de una empresa.
Inicio de Visual Basic
Cmo empezar a traajar con !icroso"t #isual $asic%
&. 'az clic en el otn Inicio.
2. (e)ala Programas.
*. 'az clic en Microsoft Visual tudio !.", !icroso"t #isual $asic +.,.
-espu.s de unos segundos de carga y una pantalla de presentacin se presentar/ la
pantalla de opciones de proyecto.
-e manera predeterminada viene seleccionado el icono (tandard E0E, 1az clic en
2rir.
Enseguida podemos ver el /rea de traajo de #isual $asic.
Los componentes principales son%
!en3s 4listas de acciones que puedes 1acer en #isual $asic5 $arras de 1erramientas
4para realizar las mismas acciones en menos tiempo5
6ormulario 4son las ventanas principales de toda aplicacin creada con #isual $asic5
E7plorador del Proyecto 4desde aqu se puede acceder a los componentes del proyecto5
#entana de Propiedades 4de cada control podemos de"inir sus atriutos o propiedades
particulares que determinan su apariencia y comportamiento5
Caja de 1erramientas 4aqu aparecen los diversos controles que se pueden usar5
Para colocar un control en el "ormulario
'az clic sore el control que deseas colocar en el "ormulario. Colcate sore el
"ormulario en donde colocar/s el control. Presiona el otn izquierdo del ratn y diuja
sore el "ormulario el control 1asta que otenga la "orma y el tama)o que pre"ieras,
entonces suelta el otn.
#. $as Propiedades
Captulo anterior: & - #isual $asic
Captulo siguiente: * - Ejercicio &% 8eloj y Calendario
2qu tienes una lista de algunas propiedades 3tiles
Para guardar un proyecto en #isual $asic
Es recomendale que crees una carpeta para cada proyecto de #isual $asic. 'az clic en
46ile5 2rc1ivo, (ave 6orm& 2s... 49uardar 6ormulario& Como...5. En (ave 6ile 2s
49uardar 2rc1ivo Como5, (ave in 49uardar en5 selecciona la carpeta o unidad de disco
en donde guardar/s tu proyecto de #isual $asic. En :ame 4:omre5 escrie el nomre
del "ormulario 4un nomre que tenga relacin con el "ormulario como% entrada,
contrase)a, datos, etc.5 y 1az clic en (ave 49uardar5 Enseguida repite el procedimiento
para guardar el proyecto.
%. &'ercicio 1: (elo' ) Calendario
Captulo anterior: 2 - Las Propiedades
Captulo siguiente: ; - Ejercicio 2% <ipo de Camio
Crea un "ormulario con cuatro etiquetas, un reloj con intervalo de &,,, y escrie el
siguiente cdigo%
Private (u <imer&=<imer45
[Link] > <ime
Lael;.Caption > -ate
End (u
*. &'ercicio #: +ipo de Cam,io
Captulo anterior: * - Ejercicio &% 8eloj y Calendario
Captulo siguiente: ? - Ejercicio *% Calculadora
Crea un "ormulario con tres etiquetas, tres cajas de te7to, cuatro otones y escrie el
siguiente cdigo%
Escrie el siguiente cdigo%
El otn #er Pesos
Private (u Command&=Clic@45
<e7t& > #al4<e7t25 A #al4<e7t*5
End (u
El otn #er -lares
Private (u Command2=Clic@45
<e7t2 > #al4<e7t&5 B #al4<e7t*5
End (u
El otn :uevo C/lculo
Private (u Command*=Clic@45
<e7t& > CC
<e7t2 > CC
<e7t* > CC
<e7t&.(et6ocus
End (u
El otn (alir
Private (u Command;=Clic@45
Dnload !e
End
End (u
-. &'ercicio %: Calculadora
Captulo anterior: ; - Ejercicio 2% <ipo de Camio
Captulo siguiente: + - Ejercicio ;% Concatenacin
Crea un "ormulario con cuatro etiquetas, tres cajas de te7to, una caja de como, tres
otones y escrie el siguiente cdigo%
Private (u 6orm=Load45
Como&.2ddEtem C-ividirC
Como&.2ddEtem C!ultiplicarC
Como&.2ddEtem C8estarC
Como&.2ddEtem C(umarC
End (u
El otn :uevo C/lculo
Private (u Command&=Clic@45
te7t& > CC
te7t2 > CC
te7t* > CC
te7t&.(et6ocus
End (u
El otn Calcular
Private (u Command2=Clic@45
E" Como& > C(umarC <1en
<e7t* > #al4<e7t&5 F #al4<e7t25
ElseE" Como& > C8estarC <1en
<e7t* > #al4<e7t&5 - #al4<e7t25
ElseE" Como& > C!ultiplicarC <1en
<e7t* > #al4<e7t&5 A #al4<e7t25
ElseE" Como& > C-ividirC <1en
<e7t* > #al4<e7t&5 B #al4<e7t25
End E"
End (u
El otn (alir
Private (u Command*=Clic@45
Dnload !e
End
End (u
!. &'ercicio *: Concatenaci.n
Captulo anterior: ? - Ejercicio *% Calculadora
Captulo siguiente: G - Ejercicio?% Calculadora 2
Crea un "ormulario con cuatro etiquetas, cuatro cajas de te7to, tres otones y escrie el
siguiente cdigo%
El otn Concatenar -atos
Private (u Command&=Clic@45
<e7t; > <e7t& H C C H <e7t2 H C C H <e7t*
End (u
El otn :uevos -atos
Private (u Command2=Clic@45
<e7t& > CC
<e7t2 > CC
<e7t* > CC
<e7t; > CC
<e7t&.(et6ocus
End (u
El otn (alir del Programa
Private (u Command*=Clic@45
Dnload !e
End
End (u
/. &'ercicio-: Calculadora #
Captulo anterior: + - Ejercicio ;% Concatenacin
Captulo siguiente: I - Ejercicio +% 2larma
Crea un "ormulario con tres etiquetas, tres cajas de te7to, seis otones y escrie el
siguiente cdigo%
El otn :uevo C/lculo
Private (u Command?=Clic@45
<e7t& > CC
<e7t2 > CC
<e7t* > CC
<e7t&.(et6ocus
End (u
El otn (umar
Private (u Command&=Clic@45
<e7t* > #al4<e7t&5 F #al4<e7t25
End (u
El otn 8estar
Private (u Command2=Clic@45
<e7t* > #al4<e7t&5 - #al4<e7t25
End (u
El otn !ultiplicar
Private (u Command*=Clic@45
<e7t* > #al4<e7t&5 A #al4<e7t25
End (u
El otn !ultiplicar
Private (u Command;=Clic@45
<e7t* > #al4<e7t&5 B #al4<e7t25
End (u
El otn (alir
Private (u Command+=Clic@45
Dnload !e
End
End (u
0. &'ercicio !: 1larma
Captulo anterior: G - Ejercicio?% Calculadora 2
Captulo siguiente: J - Ejercicio G% Calculadora *
Crea un "ormulario con tres etiquetas, dos cajas de te7to, dos otones, un reloj con
intervalo de &,,, y escrie el siguiente cdigo%
El otn Estalecer la 2larma y !inimizar
Private (u Command&=Clic@45
6orm&.KindoL(tate > &
<imer&.Enaled > <rue
End (u
El otn (alir
Private (u Command2=Clic@45
Dnload !e
End
End (u
El reloj
Private (u <imer&=<imer45
-im 1oras 2s (tring
1ora > 6ormat4<ime, C11%mmC5
E" 1ora > <e7t&.<e7t <1en
$eep
!sg$o7 <e7t2.<e7t, vMNMnly F vEn"ormation, C2viso de la 2larmaC
<imer&.Enaled > 6alse
6orm&.KindoL(tate > ,
End E"
End (u
2. &'ercicio /: Calculadora %
Captulo anterior: I - Ejercicio +% 2larma
Captulo siguiente: &, - Ejercicio I% Conversiones
Crea un "ormulario con tres etiquetas, tres cajas de te7to, un marco, cuatro otones de
opcin, tres otones y escrie el siguiente cdigo%
El otn Calcular
Private (u Command&=Clic@45
E" Mption& > <rue <1en
<e7t* > #al4<e7t&5 B #al4<e7t25
ElseE" Mption2 > <rue <1en
<e7t* > #al4<e7t&5 A #al4<e7t25
ElseE" Mption* > <rue <1en
<e7t* > #al4<e7t&5 - #al4<e7t25
ElseE" Mption; > <rue <1en
<e7t* > #al4<e7t&5 F #al4<e7t25
End E"
End (u
El otn Mtra Mperacin
Private (u Command2=Clic@45
<e7t& > CC
<e7t2 > CC
<e7t* > CC
<e7t&.(et6ocus
End (u
El otn (alir
Private (u Command*=Clic@45
Dnload !e
End
End (u
1". &'ercicio 0: Con3ersiones
Captulo anterior: J - Ejercicio G% Calculadora *
Captulo siguiente: && - Ejercicio J% Concatenacin 2
Crea un "ormulario con dos etiquetas, dos cajas de te7to, un marco, cuatro otones de
opcin, tres otones y escrie el siguiente cdigo%
El otn Convertir
Private (u Command&=Clic@45
E" Mption& > <rue <1en
<e7t2 > #al4<e7t&5 A &,,,
ElseE" Mption2 > <rue <1en
<e7t2 > #al4<e7t&5 A &,,
ElseE" Mption* > <rue <1en
<e7t2 > #al4<e7t&5 A &,
ElseE" Mption; > <rue <1en
<e7t2 > #al4<e7t&5 B &,,,
End E"
End (u
El otn :uevo C/lculo
Private (u Command2=Clic@45
<e7t& > CC
<e7t2 > CC
<e7t&.(et6ocus
End (u
El otn (alir
Private (u Command*=Clic@45
Dnload !e
End
End (u
11. &'ercicio 2: Concatenaci.n #
Captulo anterior: &, - Ejercicio I% Conversiones
Captulo siguiente: &2 - Ejercicio &,% Las <alas
Crea un "ormulario con un control con pesta)as 41az clic con el otn derec1o del ratn
sore la Caja de 1erramientas, 1az clic en Components. En Components, Controls,
selecciona el control !icroso"t <aed -ialog Control +., 4(P?5 y 1az clic en 2ceptar.
El control aparecer/ en la Caja de 1erramientas.5, en la primera seccin crea seis
etiquetas, seis cajas de te7to y dos otones.
En la segunda seccin crea tres etiquetas, tres cajas de te7to y un otn.
En este programa programaremos las cajas de te7to para que el cursor avance con Enter
a la siguiente caja de te7to. 'az dole clic en la primera caja de te7to y en la caja de
opciones de eventos selecciona NeyPress y escrie el siguiente cdigo%
Private (u <e7t&=NeyPress4Ney2scii 2s Enteger5
E" Ney2scii > &* <1en
<e7t2.(et6ocus
End E"
End (u
La caja de te7to 2 la programaremos para que se introduzca autom/ticamente la "ec1a.
'az dole clic en la caja de te7to 2, selecciona el evento 9ot6ocus y escrie el siguiente
cdigo%
Private (u <e7t2=9ot6ocus45
<e7t2.<e7t > 6ormat4:oL, Cdd-mm-yyyyC5
<e7t*.(et6ocus
End (u
Programa las cajas de te7to 41asta la n3mero seis5 para que el cursor avance a la
siguiente caja de te7to.
El otn (alir
Private (u Command&=Clic@45
Dnload !e
End
End (u
El otn Limpiar
Private (u Command2=Clic@45
<e7t& > CC
<e7t2 > CC
<e7t* > CC
<e7t; > CC
<e7t? > CC
<e7t+ > CC
<e7tG > CC
<e7tI > CC
<e7tJ > CC
<e7t&.(et6ocus
End (u
El otn !ostrar -atos
Private (u Command*=Clic@45
<e7tG > <e7t& H C C H <e7t*
<e7tI > <e7t;
<e7tJ > <e7t?
End (u
1#. &'ercicio 1": $as +a,las
Captulo anterior: && - Ejercicio J% Concatenacin 2
Captulo siguiente: &* - Ejercicio &&% La 9r/"ica
Crea un "ormulario con una etiqueta, dos cajas de te7to y tres otones.
Escrie el siguiente cdigo%
El otn #er <ala
Private (u Command&=Clic@45
-im res 2s Long, retorno
6or n > & <o &,
res > <e7t& A n
retorno > C1r4&*5 H C1r4&,5
<e7t2 > <e7t2 H <e7t& H C 7 C H n H C > C H res H retorno
:e7t n
End (u
El otn :ueva <ala
Private (u Command2=Clic@ 45
<e7t& > CC
<e7t2 > CC
<e7t&.(et6ocus
End (u
El otn (alir
Private (u Command*=Clic@45
E" !sg$o74CPor 6avor Con"irma (i Oa <e Puieres ErC, vOes:o, CQPu. Oa <e Puieres
ErRC5 > vOes <1en
End
Else
Cancel > &
End E"
End (u
1%. &'ercicio 11: $a 4r5fica
Captulo anterior: &2 - Ejercicio &,% Las <alas
Captulo siguiente: &; - Ejercicio &2% Slum 6otogr/"ico
Crea un "ormulario con un cuadro de imagen e inserta la imagen que pre"ieras.
2grega las etiquetas que necesites y coloca una al pie de la imagen y las dem/s sore
di"erentes cosas de la imagen. En todas orra su Caption y de las que est/n sore la
imagen camia su propiedad $ac@(tyle a ,-<ransparent y escrie el siguiente cdigo%
La etiqueta 2
Private (u Lael2=Clic@45
Lael&.Caption > C!i PollitoC
End (u
La etiqueta *
Private (u Lael*=Clic@45
Lael&.Caption > CEl Pap/C
End (u
La etiqueta ;
Private (u Lael;=Clic@45
Lael&.Caption > C!i Pap/ y !i !am/C
End (u
1*. &'ercicio 1#: 6l,um 7otogr5fico
Captulo anterior: &* - Ejercicio &&% La 9r/"ica
Crea un "ormulario con un cronmetro con intervalo de ?, y escrie el siguiente cdigo%
Private (u <imer&=<imer45
(tatic a 2s Enteger
a > a F &
E" a > ? <1en
Emage&.Picture > LoadPicture4Cc%TLindoLsTmatri7=I,,.mpC5
End E"
E" a > 2? <1en
Emage&.Picture > LoadPicture4Cc%TLindoLsTmatri7=reloaded2I.mpC5
End E"
E" a > *? <1en
Emage&.Picture > LoadPicture4Cc%TLindoLsTmatri7=7p=I,,.mpC5
End E"
E" a > ;? <1en
Emage&.Picture > LoadPicture 4Cc%TLindoLsTmatri7reloadedI,,7+,,.mpC5
End E"
E" a > ?? <1en
a > ,
End E"
End (u