1. Visual Basic - Curso completo teoria y practica

More documents

Recommendations

Info

Private Sub CmdAceptar_Click() Dim Hamburguesa As Integer, Cerveza As Integer Dim Gaseosa As Integer, Ensalada As Integer Dim Salchichas As Integer, Refresco As Integer Dim Sopa As Integer, Postre As Integer Dim VentaTotal As Double, Impuesto As Double Hamburguesa = Val(TxtHamburguesa) Cerveza = Val(TxtCerveza) Gaseosa = Val(TxtGaseosa) Ensalada = Val(TxtEnsalada) Salchichas = Val(TxtSalchichas) Refresco = Val(TxtRefresco) Sopa = Val(TxtSopa) Postre = Val(TxtPostre) VentaTotal = Hamburguesa * 2.5 + Cerveza * 4.0 _ + Gaseosa * 3.0 + Ensalada * 1.5 + Salchichas * 2.0 _ + Refresco * 1.0 + Sopa * 1.5 + Postre * 1.5 Impuesto = 0.18 * VentaTotal TxtVentaTotal = Str(VentaTotal) TxtImpuesto = Str(Impuesto) End Sub Luego, haga doble click sobre el botón Limpiar y añada el siguiente código: Private Sub CmdLimpiar_Click() TxtHamburguesa = “” : TxtCerveza = “” TxtGaseosa = “” : TxtEnsalada = “” TxtSalchichas = “” : TxtRefresco = “” TxtSopa = “” : TxtPostre = “” TxtVentaTotal = “” : TxtImpuesto = “” TxtHamburguesa.SetFocus End Sub Pág. 236
A continuación haga doble click sobre el botón Salir y añada el siguiente código: Private Sub CmdSalir_Click() End End Sub Aplicación Nº 3 Elaborar una aplicación que permita calcular la edad de una persona a partir de su fecha de nacimiento. El diseño de la interfaz debe ser similar a la figura mostrada: Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario: 2 etiquetas 2 cajas de texto 3 botones de comando Luego, proceda a establecer las propiedades según se indica a continuación: Form1 Nombre FrmEdad BorderStyle 3-Fixed Dialog Caption Calcula la edad de una persona Pág. 237
Page 1 and 2:
CAPÍTULO 1 FUNDAMENTOS Microsoft V
Page 3 and 4:
En la ventana anterior indicar el t
Page 5 and 6:
Icono Descripción Puntero Cuadro d
Page 7 and 8:
Ventana de propiedades Como veremos
Page 9 and 10:
MI PRIMERA APLICACIÓN Hay tres pas
Page 11 and 12:
Puede cambiar el valor de cualquier
Page 13 and 14:
CAPÍTULO 2 LOS OBJETOS Visual Basi
Page 15 and 16:
Mensajes Un mensaje es una llamada
Page 17 and 18:
aquellas características que son e
Page 19 and 20:
Para aclarar este concepto desarrol
Page 21 and 22:
Gra Gráfico Ctr Control (se utiliz
Page 23 and 24:
IDENTIFICADORES bytes + 1 byte por
Page 25 and 26:
La sentencia anterior le puede indu
Page 27 and 28:
Operadores de cadenas de caracteres
Page 29 and 30:
Como puede observar, el resto de lo
Page 31 and 32:
Para que pueda ejecutar el código
Page 33 and 34:
SENTENCIAS_1 ElseIf CONDICIÓN_2 Th
Page 35 and 36:
En este caso se comprueba el valor
Page 37 and 38:
ser conocido de antemano. Su sintax
Page 39 and 40:
condición puede ser verificada ant
Page 41 and 42:
Un uso abusivo de la sentencia GoTo
Page 43 and 44:
numeración comience en 1, debe ing
Page 45 and 46:
REGISTROS Un registro es un nuevo t
Page 47 and 48:
Una función es un procedimiento qu
Page 49 and 50:
MsgBox (Str(RESP)) Paso de argument
Page 51 and 52:
palabra reservada ByVal a la declar
Page 53 and 54:
Next End Sub MsgBox “La suma es S
Page 55 and 56:
CONTROLES BÁSICOS Los controles b
Page 57 and 58:
Los eventos asociados a un cuadro d
Page 59 and 60:
6 cajas de texto 3 botones de coman
Page 61 and 62:
Command2 Command3 Nombre CmdAceptar
Page 63 and 64:
En el código anterior hemos utiliz
Page 65 and 66:
A manera de ejemplo vamos a desarro
Page 67 and 68:
Option3 Check1 Check2 Check3 Check4
Page 69 and 70:
Private Sub ChkSubrayado_Click() If
Page 71 and 72:
Los métodos que se pueden utilizar
Page 73 and 74:
indica: Form1 Label1 Label2 Label3
Page 75 and 76:
End Sub LstSeleccionar.AddItem TxtC
Page 77 and 78:
Para el desarrollo de la presente a
Page 79 and 80:
End Sub Matriz(0, 0) = “Castillo
Page 81 and 82:
Cronómetro Un cronómetro sirve pa
Page 83 and 84:
Seguidamente proceda a ingresar el
Page 85 and 86:
La posición más a la izquierda se
Page 87 and 88:
indica: Form1 Label1 Label2 Label3
Page 89 and 90:
End Sub PicFondo.BackColor = RGB(HS
Page 91 and 92:
puede seleccionar la unidad actual
Page 93 and 94:
On Error GoTo DRIVE_ERROR Dir1.Path
Page 95 and 96:
1 Aceptar y Cancelar vbOKCancel 2 A
Page 97 and 98:
Para ello proceda a ubicar los sigu
Page 99 and 100:
CAPÍTULO 5 EL FORMULARIO Un formul
Page 101 and 102:
Nota Un twip es una unidad independ
Page 103 and 104:
Page 105 and 106:
Command2 Nombre CmdVolver Caption &
Page 107 and 108:
Page 109 and 110:
Private Sub LstTipoForm_DblClick()
Page 111 and 112:
Como ejemplo vamos a construir la s
Page 113 and 114:
Seguidamente proceda a declarar la
Page 115 and 116:
No olvide establecer la propiedad M
Page 117 and 118:
CREACIÓN DE MENÚS Un menú es un
Page 119 and 120:
• Para diferenciar un elemento de
Page 121 and 122:
Para probar el menú que acaba de c
Page 123 and 124:
Una barra de herramientas contiene
Page 125 and 126:
Se ha de presentar un cuadro de di
Page 127 and 128:
El lector debe continuar con este p
Page 129 and 130:
Para ello ubicar un control StatusB
Page 131 and 132:
CREACIÓN DE UN MENÚ CONTEXTUAL Un
Page 133 and 134:
Private Sub MnuToolsSol_Click() End
Page 135 and 136:
CONTROL ANIMATION El control Animat
Page 137 and 138:
Propiedad Descripción Color Especi
Page 139 and 140:
Al hacer click en el botón “Abri
Page 141 and 142:
Para ello proceda a crear un nuevo
Page 143 and 144:
números: Por ejemplo para N = 5 te
Page 145 and 146:
El control UpDown tiene dos botones
Page 147 and 148:
El control MonthView permite al usu
Page 149 and 150:
End Sub TxtFecha = WeekdayName(Mont
Page 151 and 152:
Para ello crear un nuevo formulario
Page 153 and 154:
El nombre de un archivo para ser re
Page 155 and 156:
cadena de caracteres que indica el
Page 157 and 158:
Para realizar alguna operación sob
Page 159 and 160:
nombre del archivo mientras éste p
Page 161 and 162:
universales, de modo que los datos
Page 163 and 164:
Los datos del archivo deben aparece
Page 165 and 166:
Función Input Retorna los siguient
Page 167 and 168:
sus prestaciones son bastante limit
Page 169 and 170:
Private Sub MnuArchivoAbrir_Click()
Page 171 and 172:
longitud), lo cuales son identifica
Page 173 and 174:
Get # NÚMERO_ARCHIVO, NÚMERO_REG,
Page 175 and 176:
La función Loc() aplicada a un arc
Page 177 and 178:
Frame1 Frame2 Frame3 Label1 Label2
Page 179 and 180:
Command3 Command4 Command5 Command6
Page 181 and 182:
End Sub TxtVacantes.Locked = Not Ok
Page 183 and 184:
End Sub POSICION = Loc(N1) + 1 If P
Page 185 and 186: End Sub Open “C:\DATA\TEMPO.DAT
Page 187 and 188: Permite grabar en un archivo binari
Page 189 and 190: Por ejemplo si ingresa el mensaje
Page 191 and 192: Como ejemplo considere los siguient
Page 193 and 194: El ejemplo inicial (código hexadec
Page 195 and 196: Por ejemplo, las instrucciones sigu
Page 197 and 198: A manera de ejemplo considere la es
Page 199 and 200: Para el dibujo de puntos se usará
Page 201 and 202: En el ejemplo anterior se utiliza l
Page 203 and 204: Para este ejemplo crear una nueva a
Page 205 and 206: Para el desarrollo de la presente a
Page 207 and 208: Control Line Line es un control gr
Page 209 and 210: Como ejemplo de este tipo de gráfi
Page 211 and 212: Para realizar nuestra aplicación d
Page 213 and 214: Para el caso de las gráficas de ec
Page 215 and 216: Luego proceda a ingresar el código
Page 217 and 218: La matemática fractal es producto
Page 219 and 220: Para el desarrollo de la presente a
Page 221 and 222: En este capítulo, debido a las lim
Page 223 and 224: La presente Guía de Laboratorio de
Page 225 and 226: Para el desarrollo de esta aplicaci
Page 227 and 228: Text1 Text2 Text3 Text4 Text5 Text6
Page 229 and 230: Luego, haga doble click sobre el bo
Page 231 and 232: A continuación active la casilla d
Page 233 and 234: Label10 Nombre LblImpuesto Caption
Page 235: En primer lugar debemos cargar los
Page 239 and 240: Private Sub CmdAceptar_Click() Dim
Page 241 and 242: Los descuentos a aplicar son sobre
Page 243 and 244: Label4 Label5 Text1 Text2 Text3 Tex
Page 245 and 246: Check3 Command1 Command2 Command3 N
Page 247 and 248: Cuatro notas entre 0 y 20 represent
Page 249 and 250: Label6 Label7 Text1 Text2 Text3 Tex
Page 251 and 252: N3 = Val(TxtN3) : N4 = Val(TxtN4) P
Page 253 and 254: Form1 Label1 Label2 Label3 Label4 T
Page 255 and 256: Case 10: CadMes = “Octubre” Cas
Page 259 and 260: El diseño de la interfaz debe ser
Page 263 and 264: Label5 Label6 Label7 Text1 Text2 Te
Page 265 and 266: Una vez establecidas las propiedade
Page 267 and 268: Un centro numérico es un número q
Page 271 and 272: Private Sub CmdAceptar_Click() If I
Page 273 and 274: figura: El diseño de la interfaz d
Page 275 and 276: Combo1 Text1 Text2 Option1 Option2
Page 277 and 278: Private Sub CboArticulo_Click() Dim
Page 279 and 280: Form1 Frame1 Frame2 Frame3 Frame4 L
Page 281 and 282: Text3 Text4 Text5 Command1 Command2
Page 283 and 284: LstDistrito.AddItem “La Victoria
Page 285 and 286: CboSexo.Locked = False TxtDireccion
Page 287 and 288:
GUÍA DE LABORATORIO Nº 5 Objetivo
Page 289 and 290:
Command1 Command2 Command3 Nombre C
Page 291 and 292:
El curso quedará seleccionado al h
Page 293 and 294:
En ese instante se añadirá un nue
Page 295 and 296:
indica: Form2 List1 Command1 Luego
Page 297 and 298:
Del cuadro de diálogo Agregar form
Page 299 and 300:
Private Sub MnuFixedSingle_Click()
Page 301 and 302:
GUÍA DE LABORATORIO Parte II ELABO
Page 303 and 304:
GUÍA DE LABORATORIO Nº 6 Objetivo
Page 305 and 306:
CurCodigo CurNombre CurProfe BC1 Bo
Page 307 and 308:
la base de datos CursosLibres.MDB.
Page 309 and 310:
otón Siguiente. En seguida aparece
Page 311 and 312:
Frame2 Frame3 Nombre FraIngreso Cap
Page 313 and 314:
Page 315 and 316:
ModoEditar True End Sub Private Sub
Page 317 and 318:
Desarrollar una aplicación que per
Page 319 and 320:
Desarrollar una aplicación que per
Page 321 and 322:
Aplicación Nº 4 Desarrollar una a
Page 323 and 324:
Para el diseño de la interfaz, pro
Page 325 and 326:
Text Para establecer las propiedade
Page 327 and 328:
TxtCurNombre.DataField = “CurNomb
Page 329 and 330:
Para el desarrollo de esta aplicaci
Page 331 and 332:
RsCurso.LockType = adLockReadOnly R
Page 333 and 334:
Para desarrollar nuestra aplicació
Page 335 and 336:
Form1 Label1 Label2 Label3 Label4 T
Page 337 and 338:
Private Sub CmdNuevo_Click() TxtCur
Page 339 and 340:
Page 341 and 342:
End Sub Private Sub CmdCerrar_Click
Page 343 and 344:
Command3 Command4 Caption &Eliminar
Page 345 and 346:
Aplicación Nº 4 Elaborar una apli
Page 347 and 348:
un Comando y denomínelo CmCurso. E
Page 349 and 350:
Etiqueta6 Font Arial (Negrita 10) N
Page 351 and 352:
A continuación sobre el diseñador
Page 353 and 354:
Form1 Frame1 Option1 Option2 Option
Page 355 and 356:
Private Sub CmdSalir_Click() Unload
Page 357 and 358:
La presente Guía de Laboratorio de
Page 359 and 360:
La ventana de código de la clase d
Page 361 and 362:
Dim A As Circulo Private Sub Form_L
Page 363 and 364:
Nombre FrmPruebaMiControl Caption P
Page 365 and 366:
En seguida, guarde y ejecute su apl
Page 367 and 368:
Luego, haga click sobre la opción
Page 369 and 370:
Ahora hemos llegado a la ventana en
Page 371 and 372:
Proyecto1 Nombre ActiveXNumBox User
Page 373 and 374:
ejemplo 5 de Setiembre de 1752. El
Page 375 and 376:
usuario: A continuación proceda a
Page 377 and 378:
Command1 Nombre BdgrdTabla Font Ari
Page 379 and 380:
Case 0 Call MostrarAlumno Case 1 Ca
Page 381 and 382:
ingrese en el cuadro de texto adjun
Page 383 and 384:
Objetivos capaz de: Luego de comple
Page 385 and 386:
Para crear la interfaz de la aplica
Page 387 and 388:
TxtTabla.Value = S Else TxtTabla.Va
Page 389 and 390:
Luego haga click en el botón Acept
Page 391 and 392:
Button2 Button3 Button4 Nombre CmdA
Page 393 and 394:
DeCursosLibres.rsCmCurso.MoveFirst
Page 395 and 396:
Seleccion1 Nombre SelProfe Id SelPr
Page 397 and 398:
GUÍA DE LABORATORIO Nº 12 Objetiv
Page 399 and 400:
Aplicación Nº 2 Desarrollar una a
Page 401 and 402:
De la siguiente pantalla Ud. podrá
Page 403 and 404:
Uno de los temas en los que Windows
Page 405 and 406:
De manera análoga a los demás cas
Page 407 and 408:
Continuar de manera similar con las
Page 409 and 410:
Al hacer click en el botón Guardar
Page 411 and 412:
En seguida se mostrará la siguient
Page 413 and 414:
En la ficha Position defina el tama
Page 415 and 416:
Para cambiar el color de la zona de
Page 417 and 418:
En seguida dar click en el botón V
Page 419 and 420:
A continuación se presentará una
Page 421:
pedirán información referente al
show all

1. Visual Basic - Curso completo teoria y practica

Create successful ePaper yourself

Delete template?

Save as template?