1. Visual Basic - Curso completo teoria y practica

More documents

Recommendations

Info

El código necesario para realizar la conexión y efectuar el mantenimiento de la tabla se muestra a continuación. Observar la analogía cuando se utiliza Data Environment. Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Private Sub ModoEditar(ByVal Ok As Boolean) TxtCurCodigo.Locked = Not Ok TxtCurNombre.Locked = Not Ok TxtCurVacantes.Locked = Not Ok TxtCurProfe.Locked = Not Ok CmdNuevo.Enabled = Not Ok CmdEditar.Enabled = Not Ok CmdGuardar.Enabled = Ok CmdEliminar.Enabled = Not Ok If Ok Then TxtCurCodigo.SetFocus End Sub Private Sub Form_Load() ModoEditar False Set Cn = New ADODB.Connection Set Rs = New ADODB.Recordset Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _ “Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _ “Persist Security Info=False” Rs.ActiveConnection = Cn Rs.CursorType = adOpenKeyset Rs.LockType = adLockOptimistic Rs.Open “Select * From Curso” Set TxtCurCodigo.DataSource = Rs TxtCurCodigo.DataField = “CurCodigo” Set TxtCurNombre.DataSource = Rs Pág. 326
TxtCurNombre.DataField = “CurNombre” Set TxtCurVacantes.DataSource = Rs TxtCurVacantes.DataField = “CurVacantes” Set TxtCurProfe.DataSource = Rs TxtCurProfe.DataField = “CurProfe” End Sub Private Sub CmdPrimero_Click() Rs.MoveFirst End Sub Private Sub CmdAnterior_Click() Rs.MovePrevious If Rs.BOF Then Rs.MoveFirst MsgBox “Estamos en el primer registro” End If End Sub Private Sub CmdSiguiente_Click() Rs.MoveNext If Rs.EOF Then Rs.MoveLast MsgBox “Estamos en el último registro” End If End Sub Private Sub CmdUltimo_Click() Rs.MoveLast End Sub Private Sub CmdNuevo_Click() Rs.AddNew ModoEditar True Pág. 327
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:
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:
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 and 236:
En primer lugar debemos cargar los
Page 237 and 238:
A continuación haga doble click so
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 257 and 258:
Page 259 and 260:
El diseño de la interfaz debe ser
Page 261 and 262:
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 269 and 270:
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: Command5 Command6 Command7 Command8
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: Text Para establecer las propiedade
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: Command1 Command2 Command3 Command4
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

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?