manual-programacion dhj.pdf
-
Upload
carlos-ernesto -
Category
Documents
-
view
64 -
download
1
Transcript of manual-programacion dhj.pdf
-
Manual de Visual BasicPrincipianteAutor: Jorge Alvarez
1
mailxmail - Cursos para compartir lo que sabes
-
Presentacin del curso
En el ttulo de este curso, Manual de Visual Basic para Principiantes, resumimosnuestro objetivo y decantamos lo que ser el contenido del mismo. Queremosofrecer una buena, clara y prctica introduccin a este software de programacin deMicrosoft como es el Visual Basic.
Luego de ver y estudiar qu es Visual Basic, empezaremos con las primeras y msbsicas indicaciones sobre el manejo del programa, mostrando los elementos msimportantes y siguiendo, mediante grficos y su explicacin respectiva, la interfacedel programa y la aplicabilidad de cada una de las partes.Veremos cmo iniciar Visual Basic, cmo crear proyectos y de qu maneraguardarlos en nuestro ordenador. Como la finalidad de este curso es eminentementeprctica, luego de dadas las instrucciones fundamentales, comenzaremos a trabajarsobre ejercicios prcticos, de modo que vayamos acompaando la teora de laprctica y la aplicacin de las funciones de programacin ms importantes de Visual Basic.
Veremos, por ejemplo, cmo crear un formulario que contenga un reloj operativo yun calendario. O, asimismo, tendremos la posibilidad de aprender crear unformulario con varias etiquetas, cajas de texto y botones. Todos estos ejercicios,seguro nos aportarn valiosa experiencia en el manejo de Visual Basic.Ser muy interesante tambin, aprender a crear un formulario que haga lasfunciones de una calculadora. Y as, de esa manera, iremos haciendo muchosejercicios prcticos de programacin en Visual Basic, para que puedas aprenderutilidades muy concretas que luego podrs poner en prctica para tus propiosproyectos.
2
mailxmail - Cursos para compartir lo que sabes
-
1. Visual Basic
Ques Visual Basic?
Es un programa que es en s mismo un Lenguaje de Programacin de alto nivel, conel cual se pueden desarrollar aplicaciones para cualquier necesidad, ya sea de unusuario o de una empresa.Inicio de Visual Basic
Cmo empezar a trabajar con Microsoft Visual Basic:1. Haz clic en el botn Inicio.2. Seala Programas.3. Haz clic en Microsoft Visual Studio 6.0, Microsoft Visual Basic 6.0.Despus de unos segundos de carga y una pantalla de presentacin se presentar lapantalla de opciones de proyecto.
De manera predeterminada viene seleccionado el icono Standard EXE, haz clic enAbrir.
Enseguida podemos ver el rea de trabajo de Visual Basic.
3
mailxmail - Cursos para compartir lo que sabes
-
Los componentes principales son:Mens (listas de acciones que puedes hacer en Visual Basic) Barras de herramientas(para realizar las mismas acciones en menos tiempo) Formulario (son las ventanas principales de toda aplicacin creada con Visual Basic)
Explorador del Proyecto (desde aqu se puede acceder a los componentes delproyecto)
Ventana de Propiedades (de cada control podemos definir sus atributos opropiedades particulares que determinan su apariencia y comportamiento)
4
mailxmail - Cursos para compartir lo que sabes
-
Caja de herramientas (aqu aparecen los diversos controles que se pueden usar)
Para colocar un control en el formulario
Haz clic sobre el control que deseas colocar en el formulario. Colcate sobre elformulario en donde colocars el control. Presiona el botn izquierdo del ratn ydibuja sobre el formulario el control hasta que obtenga la forma y el tamao queprefieras, entonces suelta el botn.
5
mailxmail - Cursos para compartir lo que sabes
-
6
mailxmail - Cursos para compartir lo que sabes
-
2. Las Propiedades
Aqu tienes una lista de algunas propiedades tiles
Para guardar un proyecto en Visual BasicEs recomendable que crees una carpeta para cada proyecto de Visual Basic. Haz clicen (File) Archivo, Save Form1 As... (Guardar Formulario1 Como...). En Save File As(Guardar Archivo Como), Save in (Guardar en) selecciona la carpeta o unidad dedisco en donde guardars tu proyecto de Visual Basic. En Name (Nombre) escribe elnombre del formulario (un nombre que tenga relacin con el formulario como:entrada, contrasea, datos, etc.) y haz clic en Save (Guardar) Enseguida repite elprocedimiento para guardar el proyecto.
7
mailxmail - Cursos para compartir lo que sabes
-
3. Ejercicio 1: Reloj y Calendario
Crea un formulario con cuatro etiquetas, un reloj con intervalo de 1000 y escribe elsiguiente cdigo:Private Sub Timer1_Timer()Label2.Caption = TimeLabel4.Caption = DateEnd Sub
8
mailxmail - Cursos para compartir lo que sabes
-
4. Ejercicio 2: Tipo de Cambio
Crea un formulario con tres etiquetas, tres cajas de texto, cuatro botones y escribeel siguiente cdigo:Escribe el siguiente cdigo:El botn Ver PesosPrivate Sub Command1_Click()Text1 = Val(Text2) * Val(Text3)End Sub
El botn Ver DlaresPrivate Sub Command2_Click()Text2 = Val(Text1) / Val(Text3)End Sub
El botn Nuevo ClculoPrivate Sub Command3_Click()Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocusEnd Sub
El botn SalirPrivate Sub Command4_Click()Unload Me
9
mailxmail - Cursos para compartir lo que sabes
-
End
End Sub
1 0
mailxmail - Cursos para compartir lo que sabes
-
5. Ejercicio 3: Calculadora
Crea un formulario con cuatro etiquetas, tres cajas de texto, una caja de combo, tresbotones y escribe el siguiente cdigo:
Private Sub Form_Load()Combo1.AddItem "Dividir"Combo1.AddItem "Multiplicar"Combo1.AddItem "Restar"Combo1.AddItem "Sumar"End Sub
El botn Nuevo ClculoPrivate Sub Command1_Click()text1 = ""
text2 = ""
text3 = ""
text1.SetFocusEnd Sub
El botn CalcularPrivate Sub Command2_Click()If Combo1 = "Sumar" ThenText3 = Val(Text1) + Val(Text2)ElseIf Combo1 = "Restar" ThenText3 = Val(Text1) - Val(Text2)
1 1
mailxmail - Cursos para compartir lo que sabes
-
ElseIf Combo1 = "Multiplicar" ThenText3 = Val(Text1) * Val(Text2)ElseIf Combo1 = "Dividir" ThenText3 = Val(Text1) / Val(Text2)End If
End Sub
El botn SalirPrivate Sub Command3_Click()Unload MeEnd
End Sub
1 2
mailxmail - Cursos para compartir lo que sabes
-
6. Ejercicio 4: Concatenacin
Crea un formulario con cuatro etiquetas, cuatro cajas de texto, tres botones yescribe el siguiente cdigo:El botn Concatenar DatosPrivate Sub Command1_Click()Text4 = Text1 & " " & Text2 & " " & Text3
End Sub
El botn Nuevos DatosPrivate Sub Command2_Click()Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocusEnd Sub
El botn Salir del ProgramaPrivate Sub Command3_Click()Unload MeEnd
End Sub
1 3
mailxmail - Cursos para compartir lo que sabes
-
7. Ejercicio5: Calculadora 2
Crea un formulario con tres etiquetas, tres cajas de texto, seis botones y escribe elsiguiente cdigo:El botn Nuevo ClculoPrivate Sub Command5_Click()Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocusEnd Sub
El botn SumarPrivate Sub Command1_Click()Text3 = Val(Text1) + Val(Text2)End Sub
El botn RestarPrivate Sub Command2_Click()Text3 = Val(Text1) - Val(Text2)End Sub
El botn MultiplicarPrivate Sub Command3_Click()Text3 = Val(Text1) * Val(Text2)End Sub
1 4
mailxmail - Cursos para compartir lo que sabes
-
El botn MultiplicarPrivate Sub Command4_Click()Text3 = Val(Text1) / Val(Text2)End Sub
El botn SalirPrivate Sub Command6_Click()Unload MeEnd
End Sub
1 5
mailxmail - Cursos para compartir lo que sabes
-
8. Ejercicio 6: Alarma
Crea un formulario con tres etiquetas, dos cajas de texto, dos botones, un reloj conintervalo de 1000 y escribe el siguiente cdigo:El botn Establecer la Alarma y MinimizarPrivate Sub Command1_Click()Form1.WindowState = 1Timer1.Enabled = True
End Sub
El botn SalirPrivate Sub Command2_Click()Unload MeEnd
End Sub
El relojPrivate Sub Timer1_Timer()Dim horas As Stringhora = Format(Time, "hh:mm")If hora = Text1.Text Then
BeepMsgBox Text2.Text, vbOKOnly + vbInformation, "Aviso de la Alarma"Timer1.Enabled = False
Form1.WindowState = 0End If
1 6
mailxmail - Cursos para compartir lo que sabes
-
End Sub
1 7
mailxmail - Cursos para compartir lo que sabes
-
9. Ejercicio 7: Calculadora 3
Crea un formulario con tres etiquetas, tres cajas de texto, un marco, cuatro botonesde opcin, tres botones y escribe el siguiente cdigo:El botn CalcularPrivate Sub Command1_Click()If Option1 = True ThenText3 = Val(Text1) / Val(Text2)ElseIf Option2 = True ThenText3 = Val(Text1) * Val(Text2)ElseIf Option3 = True ThenText3 = Val(Text1) - Val(Text2)ElseIf Option4 = True ThenText3 = Val(Text1) + Val(Text2)End If
End Sub
El botn Otra OperacinPrivate Sub Command2_Click()Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocusEnd Sub
El botn Salir
1 8
mailxmail - Cursos para compartir lo que sabes
-
Private Sub Command3_Click()Unload MeEnd
End Sub
1 9
mailxmail - Cursos para compartir lo que sabes
-
10. Ejercicio 8: Conversiones
Crea un formulario con dos etiquetas, dos cajas de texto, un marco, cuatro botonesde opcin, tres botones y escribe el siguiente cdigo:El botn ConvertirPrivate Sub Command1_Click()If Option1 = True ThenText2 = Val(Text1) * 1000ElseIf Option2 = True ThenText2 = Val(Text1) * 100ElseIf Option3 = True ThenText2 = Val(Text1) * 10ElseIf Option4 = True ThenText2 = Val(Text1) / 1000End If
End Sub
El botn Nuevo ClculoPrivate Sub Command2_Click()Text1 = ""
Text2 = ""
Text1.SetFocusEnd Sub
El botn SalirPrivate Sub Command3_Click()
2 0
mailxmail - Cursos para compartir lo que sabes
-
Unload MeEnd
End Sub
2 1
mailxmail - Cursos para compartir lo que sabes
-
11. Ejercicio 9: Concatenacin 2
Crea un formulario con un control con pestaas (haz clic con el botn derecho delratn sobre la Caja de herramientas, haz clic en Components. En Components,Controls, selecciona el control Microsoft Tabbed Dialog Control 6.0 (SP5) y haz clicen Aceptar. El control aparecer en la Caja de herramientas.), en la primera seccincrea seis etiquetas, seis cajas de texto y dos botones.
En la segunda seccin crea tres etiquetas, tres cajas de texto y un botn.En este programa programaremos las cajas de texto para que el cursor avance conEnter a la siguiente caja de texto. Haz doble clic en la primera caja de texto y en lacaja de opciones de eventos selecciona KeyPress y escribe el siguiente cdigo:Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText2.SetFocusEnd If
End SubLa caja de texto 2 la programaremos para que se introduzca automticamente lafecha. Haz doble clic en la caja de texto 2, selecciona el evento GotFocus y escribe elsiguiente cdigo:Private Sub Text2_GotFocus()
2 2
mailxmail - Cursos para compartir lo que sabes
-
Text2.Text = Format(Now, "dd-mm-yyyy")Text3.SetFocusEnd Sub
Programa las cajas de texto (hasta la nmero seis) para que el cursor avance a lasiguiente caja de texto.
El botn SalirPrivate Sub Command1_Click()Unload MeEnd
End Sub
El botn LimpiarPrivate Sub Command2_Click()Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocusEnd Sub
El botn Mostrar DatosPrivate Sub Command3_Click()Text7 = Text1 & " " & Text3
Text8 = Text4
Text9 = Text5
End Sub
2 3
mailxmail - Cursos para compartir lo que sabes
-
12. Ejercicio 10: Las Tablas
Crea un formulario con una etiqueta, dos cajas de texto y tres botones.Escribe el siguiente cdigo:El botn Ver TablaPrivate Sub Command1_Click()Dim res As Long, retornoFor n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno
Next n
End Sub
El botn Nueva TablaPrivate Sub Command2_Click ()Text1 = ""
Text2 = ""
Text1.SetFocusEnd Sub
El botn SalirPrivate Sub Command3_Click()If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "Qu Ya Te QuieresIr?") = vbYes ThenEnd
2 4
mailxmail - Cursos para compartir lo que sabes
-
Else
Cancel = 1End If
End Sub
2 5
mailxmail - Cursos para compartir lo que sabes
-
13. Ejercicio 11: La Grfica
Crea un formulario con un cuadro de imagen e inserta la imagen que prefieras.Agrega las etiquetas que necesites y coloca una al pie de la imagen y las demssobre diferentes cosas de la imagen. En todas borra su Caption y de las que estnsobre la imagen cambia su propiedad BackStyle a 0-Transparent y escribe elsiguiente cdigo:La etiqueta 2Private Sub Label2_Click()Label1.Caption = "Mi Pollito"End Sub
La etiqueta 3Private Sub Label3_Click()Label1.Caption = "El Pap"End Sub
La etiqueta 4Private Sub Label4_Click()Label1.Caption = "Mi Pap y Mi Mam"End Sub
2 6
mailxmail - Cursos para compartir lo que sabes
-
14. Ejercicio 12: lbum Fotogrfico
Crea un formulario con un cronmetro con intervalo de 50 y escribe el siguientecdigo:Private Sub Timer1_Timer()Static a As Integera = a + 1
If a = 5 Then
Image1.Picture = LoadPicture("c:\windows\matrix_800.bmp")End If
If a = 25 Then
Image1.Picture = LoadPicture("c:\windows\matrix_reloaded28.bmp")End If
If a = 35 Then
Image1.Picture = LoadPicture("c:\windows\matrix_xp_800.bmp")End If
If a = 45 Then
Image1.Picture = LoadPicture ("c:\windows\matrixreloaded800x600.bmp")End If
If a = 55 Then
a = 0
End If
End Sub
2 7
mailxmail - Cursos para compartir lo que sabes
Presentacin del curso1. Visual Basic2. Las Propiedades3. Ejercicio 1: Reloj y Calendario4. Ejercicio 2: Tipo de Cambio5. Ejercicio 3: Calculadora6. Ejercicio 4: Concatenacin7. Ejercicio5: Calculadora 28. Ejercicio 6: Alarma9. Ejercicio 7: Calculadora 310. Ejercicio 8: Conversiones11. Ejercicio 9: Concatenacin 212. Ejercicio 10: Las Tablas13. Ejercicio 11: La Grfica14. Ejercicio 12: lbum Fotogrfico