mailxmail - Cursos para compartir lo que sabes
Manual de Visual Basic
Intermedio
Autor: Jorge Alvarez
[[Link]
Descubre miles de cursos como éste en [Link] 1
mailxmail - Cursos para compartir lo que sabes
Presentación del curso
Esta es la segunda parte del Manual de Visual Basic Principiante. Con él podrás
superar el nivel que adquiriste al realizar el primero y, por lo tanto, conseguir
trabajar con este programa con total autonomía.
Visita más cursos como este en mailxmail:
[[Link]
[[Link]
¡Tu opinión cuenta! Lee todas las opiniones de este curso y déjanos la tuya:
[[Link]
Cursos similares
Cursos Valoración Alumnos Vídeo
Diseño de páginas web con FrontPage
Frontpage es uno de los programas más tradicionales para la creación de páginas web 85.894
atractivas. en los tiempos en los que estamos, en los que todas las empresas se hacen ...
[18/09/02]
Programa de diseño AutoCAD
Autocad es un programa de diseño asistido por computadora (computer aided design). es 2.981
un software de diseño vectorial, es decir, de objetos creados por fórmulas de relati...
[28/12/07]
Diseño de ambientes de aprendizaje
Este curso ofrece un conjunto de pautas y lineamientos para el diseño de ambientes que 1.034
promuevan el aprendizaje asignificativo....
[06/04/06]
AutoCAD 3D
Autocad en la actualidad, es uno de los programas más utilizados por profesionales de 45.568
todas las ramas de la arquitectura, ingeniería y ciencias para el diseño de objetos,...
[13/09/04]
Banners animados e inanimados. Cómo hacerlos
Banners publicitarios animados e inanimados en photoshop e imageready. el banner en 331
formato gif es una her...
[06/03/09]
Descubre miles de cursos como éste en [Link] 2
mailxmail - Cursos para compartir lo que sabes
1. Ejercicio1: Aprende a Sumar
[ [Link]
Crea un formulario con cinco etiquetas, una caja de texto, tres botones, dos
imágenes y tres líneas. Modifica las propiedades de las etiquetas de las cantidades y
la de la palabra de resultado como sigue: BackColor blanco y Border Style 1-Fixed
Single. Usa Font y ForeColor para el tamaño y color del contenido y Alignment
2-Center
En Word crea las caritas y colócalas dentro de los cuadros de imágenes con su
propiedad Stretch en True, las líneas hazlas más gruesas en BorderWidth 3 y
BorderColor azul.
Vamos a crear un procedimiento para generar al azar los números:
Haz doble clic en el formulario. Haz clic en Tools (Herramientas)/Add Procedure
(Agregar Procedimiento). En Add Procedure escribe el nombre del procedimiento, en
este caso Azar y haz clic en Aceptar. Ahora escribe el código:
Public Sub azar()
n1 = Int(Rnd * 10) + 1
n2 = Int(Rnd * 10) + 1
[Link] = n1
[Link] = n2
End Sub
Haz doble clic en el formulario y escribe el siguiente código:
Private Sub Form_Load()
Randomize
Call azar
[Link] = False
[Link] = False
Descubre miles de cursos como éste en [Link] 3
mailxmail - Cursos para compartir lo que sabes
End Sub
El botón Otra Suma
Private Sub Command1_Click()
Call azar
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
End Sub
El botón Revisar
Private Sub Command2_Click()
If Val(Text1) = Val(Label1) + Val(Label2) Then
[Link] = "Bien"
[Link] = True
Else
[Link] = "Mal"
[Link] = False
[Link] = True
End If
End Sub
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
Descubre miles de cursos como éste en [Link] 4
mailxmail - Cursos para compartir lo que sabes
2. Ejercicio 2: Ordenar los Números
[ [Link]
Crea un formulario con nueve etiquetas, dos de ellas serán las instrucciones y a las
que contendrán los números (seis) cámbiales su Propiedad Alignment a 2-Center,
BackColor blanco, BorderStyle a 1-Fixed Single y tres botones, ahora
Introduce las siguientes declaraciones
Haz doble clic en el formulario En la caja de combo de la esquina superior izquierda
selecciona (General) Y escribe: Dim n1, n2, n3 As Integer (presiona Enter al terminar)
Ahora crea un procedimiento:
Haz doble clic en el formulario. Haz clic en Herramientas (Tools)/Agregar
Procedimiento (Add Procedure). En Agregar Procedimiento escribe el nombre del
Procedimiento (en este caso azar) y haz clic en Aceptar. Ahora escribe el siguiente
código:
Public Sub azar()
n1 = Int(Rnd * 10) + 1
n2 = Int(Rnd * 10) + 1
n3 = Int(Rnd * 10) + 1
If n1 <> n2 And n2 <> n3 And n1 <> n3 Then
[Link] = n1
[Link] = n2
[Link] = n3
Else
Exit Sub
End If
End Sub
La etiqueta 4
Private Sub Label4_DragDrop(Source As Control, X As Single, Y As Single)
[Link] = Source
[Link] = False
End Sub
La etiqueta 5
Descubre miles de cursos como éste en [Link] 5
La etiqueta 5
Private Sub Label5_DragDrop(Source As Control, X As Single, Y As Single)
[Link] = Source
[Link] = False
End Sub
La etiqueta 6
Private Sub Label6_DragDrop(Source As Control, X As Single, Y As Single)
[Link] = Source
[Link] = False
End Sub
El botón Iniciar
Private Sub Command1_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = True
[Link] = True
[Link] = True
Call azar
End Sub
El botón Resultado
Private Sub Command2_Click()
If Val([Link]) < Val([Link]) And Val([Link]) <
Val([Link]) Then
[Link] = "Bien"
Else
[Link] = "Mal"
End If
End Sub
mailxmail - Cursos para compartir lo que sabes
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
El formulario
Private Sub Form_Load()
Randomize
Call azar
End Sub
Descubre miles de cursos como éste en [Link] 7
mailxmail - Cursos para compartir lo que sabes
3. Ejercicio 3: Calcular la edad
[ [Link]
Crea un formulario con dos etiquetas, dos cajas de texto y tres botones, escribe el
siguiente código:
El botón Calcular la Edad
Private Sub Command1_Click()
Dim fecnac As Date, edad As Integer
fecnac = CDate(Text1)
edad = CInt((Date - fecnac) / 365)
Text2 = Str(edad) & " años"
End Sub
El botón Nuevo Cálculo
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
[Link]
End Sub
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
Descubre miles de cursos como éste en [Link] 8
mailxmail - Cursos para compartir lo que sabes
4. Ejercicio 4: Cálculo de Ventas
[ [Link]
Crea un formulario con ocho etiquetas, ocho cajas de texto, un control Microsoft
Hierarchical FlexGrid (haz clic con el botón derecho del ratón sobre la caja de
herramientas y haz clic en Componentes, selecciona la casilla Microsoft Hierarchical
FlexGrid Control 6.0 y haz clic en Aceptar) tres botones y escribe el siguiente código:
Doble clic sobre el formulario
Private Sub Form_Load()
[Link] = 2
[Link] = 8
[Link] = 0
[Link] = 1
[Link](0) = "Menú"
[Link](1) = "Precio"
[Link](2) = "Burrito"
[Link](3) = "9.50"
[Link](4) = "Burger"
[Link](5) = "12.75"
[Link](6) = "Torta"
[Link](7) = "8.25"
[Link](8) = "Refresco"
[Link](9) = "4.00"
[Link](10) = "Cerveza"
[Link](11) = "15.60"
[Link](12) = "Ensalada"
Descubre miles de cursos como éste en [Link] 9
mailxmail - Cursos para compartir lo que sabes
[Link](13) = "14.45"
[Link](14) = "Hot Dog"
[Link](15) = "6.90"
End Sub
El botón Aceptar
Private Sub Command1_Click()
Dim burrito As Integer, burger As Integer
Dim torta As Integer, refresco As Integer
Dim cerveza As Integer, ensalada As Integer
Dim hotdog As Integer, ventatotal As Double
burrito = Val(Text1)
burger = Val(Text2)
torta = Val(Text3)
refresco = Val(Text4)
cerveza = Val(Text5)
ensalada = Val(Text6)
hotdog = Val(Text7)
ventatotal = burrito * 9.5 + burger * 12.75 + torta * 8.25 + refresco * 4.60 +
cerveza * 15.6 + ensalada * 14.45 + hotdog * 6.9
Text8 = Str(ventatotal)
End Sub
El botón Limpiar
Private Sub Command2_Click()
Text1 = "": Text2 = ""
Text3 = "": Text4 = ""
Text5 = "": Text6 = ""
Text7 = "": Text8 = ""
text9 = "": [Link]
End Sub
El botón Salir
Descubre miles de cursos como éste en [Link] 10
mailxmail - Cursos para compartir lo que sabes
Private Sub Command3_Click()
Unload Me
End
End Sub
Descubre miles de cursos como éste en [Link] 11
mailxmail - Cursos para compartir lo que sabes
5. Ejercicio 5: Fecha Escrita
[ [Link]
Crea un formulario con cinco etiquetas, tres cajas de texto, un marco, tres botones y
escribe el siguiente código:
El botón Convertir
Private Sub Command1_Click()
Dim cadmes As String, mes As Integer
mes = Val(Text2)
Select Case mes
Case 1: cadmes = "Enero"
Case 2: cadmes = "Febrero"
Case 3: cadmes = "Marzo"
Case 4: cadmes = "Abril"
Case 5: cadmes = "Mayo"
Case 6: cadmes = "Junio"
Case 7: cadmes = "Julio"
Case 8: cadmes = "Agosto"
Case 9: cadmes = "Septiembre"
Case 10: cadmes = "Octubre"
Case 11: cadmes = "Noviembre"
Case 12: cadmes = "Diciembre"
Case Else
MsgBox "Revísalos Por Favor", vbCritical, "Hay un Error en los Datos...!!!"
Call Command2_Click
Descubre miles de cursos como éste en [Link] 12
mailxmail - Cursos para compartir lo que sabes
Exit Sub
End Select
Label4 = Text1 & " de " & cadmes & " de " & Text3
End Sub
El botón Limpiar
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
[Link]
End Sub
El botón Salir
Private Sub Command3_Click()
If MsgBox("¿Ya Quieres Salir del Programa?", vbQuestion + vbYesNo, "Tengo una
Pregunta para Ti") = vbYes Then
End
Else: Call Command2_Click
End If
End Sub
Descubre miles de cursos como éste en [Link] 13
mailxmail - Cursos para compartir lo que sabes
6. Ejercicio 6: Análisis Numérico
[ [Link]
Crea un formulario con cuatro marcos, siete etiquetas, ocho cajas de texto, tres
botones y escribe el siguiente código:
El botón Análisis
Private Sub Command1_Click()
If IsNumeric(Text1) Then
Dim s As Integer, si As Integer, sp As Integer
Dim may As Integer, min As Integer
Dim cad As String
Dim i As Integer, j As Integer
n = CLng(Text1)
m = CLng(Text1)
cad = ""
i = 0
j = 1
s = sp = si = 0
For j = 1 To n
If (n Mod j = 0) Then
cad = cad & j & vbCrLf
End If
Next j
Descubre miles de cursos como éste en [Link] 14
mailxmail - Cursos para compartir lo que sabes
Next j
While (n > 0)
If ((n Mod 10) Mod 2) = 0 Then
sp = sp + (n Mod 10)
Else
si = si + (n Mod 10)
End If
s = s + (n Mod 10)
n = n \ 10
i = i + 1
Wend
may = Mid(Text1, 1, 1)
men = may
While (m > o)
If may < (m Mod 10) Then
may = m Mod 10
End If
If men > (m Mod 10) Then
men = m Mod 10
End If
m = m \ 10
Wend
Text2 = Str(i)
Text3 = Str(si)
Text4 = Str(sp)
Text5 = Str(s)
Text6 = Str(may)
Text7 = Str(men)
Text8 = cad
Else
MsgBox "Debes Introducir un Número, El que Quieras pero Introduce Un Número",
vbCritical, "Aviso Importante"
Descubre miles de cursos como éste en [Link] 15
mailxmail - Cursos para compartir lo que sabes
[Link]
End If
End Sub
El botón Otro Número
Private Sub Command2_Click()
Text1 = "": Text2 = ""
Text3 = "": Text4 = ""
Text5 = "": Text6 = ""
Text7 = "": Text8 = ""
[Link]
End Sub
El botón Salir
Private Sub Command3_Click()
If MsgBox("¿Deseas Cerrar el Programa?", vbQuestion + vbYesNo, "Aviso Antes de
Cerrar el Programa") = vbYes Then
End
Else
Cancel = True
[Link]
End If
End Sub
Descubre miles de cursos como éste en [Link] 16
mailxmail - Cursos para compartir lo que sabes
7. Ejercicio 7: Lista de Números
[ [Link]
Crea un formulario con tres marcos, una caja de texto, dos botones de opción, una
caja de lista, cuatro botones y escribe el siguiente código:
Haz doble clic en el formulario y escribe:
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿Cerramos el Programa?", vbQuestion + vbYesNo, "¿Ya nos Vamos?") =
vbYes Then
End
Else: Cancel = True: [Link]
End If
End Sub
El botón Agregar
Private Sub Command1_Click()
If IsNumeric([Link]) Then
[Link] [Link]
[Link] = ""
[Link]
Else
MsgBox "Introduce un Número", vbCritical, "Por Favor"
[Link] = 0
[Link] = Len([Link])
[Link]
End If
Descubre miles de cursos como éste en [Link] 17
mailxmail - Cursos para compartir lo que sabes
End Sub
El botón Ordenar
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Integer, n As Integer
Dim a() As Integer
n = [Link]
ReDim a(n)
For i = 0 To n - 1
a(i) = [Link](i)
Next i
If [Link] Then
For i = 0 To n - 2
For j = i + 1 To n - 1
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
End If
[Link]
If [Link] Then
For i = 0 To n - 2
For j = i + 1 To n - 1
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Descubre miles de cursos como éste en [Link] 18
mailxmail - Cursos para compartir lo que sabes
Next i
End If
[Link]
For i = 0 To n - 1
[Link](i) = a(i)
Next i
[Link]
End Sub
El botón Lista Nueva
Private Sub Command4_Click()
Text1 = ""
[Link]
[Link]
End Sub
El botón Salir
Private Sub Command3_Click()
If MsgBox("¿Seguro que Quieres Cerrar el Programa?", vbQuestion + vbYesNo, "¿Ya es
Hora de Irnos?") = vbYes Then
End
Else: Cancel = True: [Link]
End If
End Sub
Descubre miles de cursos como éste en [Link] 19
mailxmail - Cursos para compartir lo que sabes
8. Ejercicio 8: Registro de Cursos
[ [Link] ]
Crea un formulario con cuatro marcos, seis etiquetas, cinco cajas de texto, un
cuadro combinado, dos cajas de lista, cuatro botones y escribe el siguiente código:
Private Sub Form_Load()
[Link] "Intro. a Sistemas"
[Link] "Windows"
[Link] "MS Word"
[Link] "MS Excel"
[Link] "MS PowerPoint"
[Link] "MS Access"
[Link] "Soporte Técnico"
[Link] "Redes"
[Link] "MS Visual Basic"
[Link] "Internet"
[Link] "Chihuahua"
[Link] "Campeche"
[Link] "Veracruz"
[Link] "Colima"
[Link] "Yucatán"
[Link] "Sonora"
Descubre miles de cursos como éste en [Link] 20
mailxmail - Cursos para compartir lo que sabes
[Link] "Sinaloa"
[Link] "Puebla"
[Link] "Tabasco"
[Link] "Zacatecas"
[Link] "Masculino"
[Link] "Femenino"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿Estás Seguro de Querer Cerrar el Programa?", vbQuestion + vbYesNo,
"¿Oye qué pasa contigo?") = vbYes Then
End
Else
Cancel = True
End If
End Sub
Private Sub List1_Click()
Text1 = List1
End Sub
Private Sub List2_Click()
Text5 = List2
End Sub
El botón Guardar
Private Sub Command1_Click()
[Link] = False
[Link] = False
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
Descubre miles de cursos como éste en [Link] 21
mailxmail - Cursos para compartir lo que sabes
MsgBox "Este Alumno ha sido Matriculado", vbInformation, "Mensaje Importante"
End Sub
El botón Limpiar
Private Sub Command2_Click()
[Link] = True
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Text4 = ""
Text5 = ""
[Link]
End Sub
El botón Cancelar
Private Sub Command3_Click()
If MsgBox("Deseas Cancelar Algún Dato?", vbQuestion + vbYesNo, "Aviso Muy
Importante") = vbYes Then
[Link] = True
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
Descubre miles de cursos como éste en [Link] 22
mailxmail - Cursos para compartir lo que sabes
[Link] = False
End If
End Sub
El botón Salir
Private Sub Command4_Click()
Unload Me
End
End Sub
Descubre miles de cursos como éste en [Link] 23
mailxmail - Cursos para compartir lo que sabes
9. Ejerciocio 9: Palíndromos
[ [Link]
Crea un formulario con tres etiquetas, dos cajas de texto, tres botones y escribe el
siguiente código:
Function cadinvertida(cadena As String) As String
Dim invertida() As String * 1
Dim i As Integer
Dim j As Integer
n = Len(cadena)
ReDim invertida(n)
For i = 1 To n
invertida(i - 1) = Mid(cadena, i, 1)
Next i
For j = (n - 1) To 0 Step -1
cadinvertida = cadinvertida & invertida(j)
Next j
End Function
El botón Invertir
Private Sub Command1_Click()
Text2 = cadinvertida(Text1)
End Sub
El botón Limpiar
Private Sub Command2_Click()
Descubre miles de cursos como éste en [Link] 24
mailxmail - Cursos para compartir lo que sabes
Text1 = ""
Text2 = ""
[Link]
End Sub
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
Descubre miles de cursos como éste en [Link] 25
mailxmail - Cursos para compartir lo que sabes
10. Ejercicio 10: Inter Compras Net
[ [Link]
Crea un formulario con siete etiquetas, cinco cuadros image, un botón y escribe el siguiente
código:
Dim total As Double
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
[Link] X, Y
End Sub
El botón Cuenta Nueva
Private Sub Command1_Click()
Label7 = ""
total = o
End Sub
Private Sub Image5_DragDrop(Source As Control, X As Single, Y As Single)
If Source = Image1 Then
total = total + 250#
ElseIf Source = Image2 Then
total = total + 375#
ElseIf Source = Image3 Then
total = total + 400#
ElseIf Source = Image4 Then
total = total + 500#
End If
Label7 = "$" & total & ".00"
End Sub
Descubre miles de cursos como éste en [Link] 26
mailxmail - Cursos para compartir lo que sabes
Descubre miles de cursos como éste en [Link] 27
mailxmail - Cursos para compartir lo que sabes
11. Ejercicio 11: Calificaciones
[ [Link]
Crea un formulario con ocho etiquetas, nueve cajas de texto, tres botones ye escribe
el siguiente código:
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
El botón Limpiar
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
[Link]
End Sub
Descubre miles de cursos como éste en [Link] 28
mailxmail - Cursos para compartir lo que sabes
El botón Prom. Gral. Redondeado
Private Sub Command1_Click()
Dim n1 As Double, n2 As Double, n3 As Double, n4 As Double, n5 As Double, n6 As
Double
Dim promedio As Integer
n1 = Val(Text2): n2 = Val(Text3)
n3 = Val(Text4): n4 = Val(Text5)
n5 = Val(Text6): n6 = Val(Text7)
promedio = ((n1 + n2 + n3 + n4 + n5 + n6) / 6)
Text8 = Str(promedio)
If promedio >= 9.5 Then
Text9 = "Excelente"
End If
If promedio >= 9 And promedio < 9.5 Then
Text9 = "Muy Bien"
End If
If promedio >= 8.5 And promedio < 9 Then
Text9 = "Bien"
End If
If promedio >= 8 And promedio < 8.5 Then
Text9 = "Regular"
End If
If promedio < 8 Then
Text9 = "Mal"
End If
End Sub
Descubre miles de cursos como éste en [Link] 29
mailxmail - Cursos para compartir lo que sabes
12. Ejercicio 12: Impresión
[ [Link]
Crea un formulario con seis etiquetas, seis cajas de texto, dos botones y escribe el
siguiente código:
El botón Limpiar
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
[Link]
End Sub
El botón Imprimir
Private Sub Command1_Click()
[Link] = 1
[Link] = 12
[Link]
[Link]
[Link]
[Link] Tab(15); [Link]; Tab(30); [Link]
[Link]
Descubre miles de cursos como éste en [Link] 30
mailxmail - Cursos para compartir lo que sabes
[Link]
[Link] Tab(15); [Link]; Tab(30); [Link]
[Link]
[Link]
[Link] Tab(15); [Link]; Tab(30); [Link]
[Link]
[Link]
[Link] Tab(15); [Link]; Tab(30); [Link]
[Link]
[Link]
[Link] Tab(15); [Link]; Tab(30); [Link]
[Link]
[Link]
[Link] Tab(15); [Link]; Tab(30); [Link]
[Link]
End Sub
Visita más cursos como este en mailxmail:
[[Link]
[[Link]
¡Tu opinión cuenta! Lee todas las opiniones de este curso y déjanos la tuya:
[[Link]
Cursos similares
Cursos Valoración Alumnos Vídeo
Programa de diseño AutoCAD
Autocad es un programa de diseño asistido por computadora (computer aided design). es 2.981
un software de diseño vectorial, es decir, de objetos creados por fórmulas de relati...
[28/12/07]
Iniciación a la imagen digital
¿todavía piensas que si una foto tiene una buena resolución es sinonimo de buena calidad, 15.865
sin más?. si la respuesta es afirmativa, me temo que confundes algunos conceptos...
[28/10/05]
Guía para crear tarjetas de presentación
¿cuántas veces te has encontrado en una situación en la cuál te piden tus datos de 1.205
contacto y has tenido que escribirlo en una servilleta o en un papel usado que se termi...
[03/07/07]
Diseño de ambientes de aprendizaje
Descubre miles de cursos como éste en [Link] 31
mailxmail - Cursos para compartir lo que sabes
Diseño de ambientes de aprendizaje
Este curso ofrece un conjunto de pautas y lineamientos para el diseño de ambientes que 1.034
promuevan el aprendizaje asignificativo....
[06/04/06]
Programar con Flash MX
Macromedia creo flash 3, y con el introdujo un, hasta entonces, desconocido concepto en 14.831
el mundo flash, la programación. primitivos play, stop y gotoandplay poblaron ento...
[16/03/05]
Descubre miles de cursos como éste en [Link] 32
