1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Label6 Text1 Text2 Text3 Text4 Text5 Text6 Command1 Nombre LblB100 AutoSize True Caption Billetes de S/. 100 Nombre LblB200 AutoSize True Caption Billetes de S/. 200 Nombre TxtCantidad Text Nombre TxtB10 Text Nombre TxtB20 Text Nombre TxtB50 Text Nombre TxtB100 Text Nombre TxtB200 Text Pág. 60
Command2 Command3 Nombre CmdAceptar Caption &Aceptar Nombre CmdLimpiar Caption &Limpiar Nombre CmdSalir Caption &Salir Para añadir código a la aplicación haga doble click sobre el botón “Aceptar” e ingrese lo siguiente: Private Sub CmdAceptar_Click() Dim C As Integer, B200 As Integer, B100 As Integer, _ B50 As Integer, B20 As Integer, B10 As Integer C = Val(TxtCantidad) If C Mod 10 = 0 Then Else B200 = C \ 200 : C = C Mod 200 B100 = C \ 100 : C = C Mod 100 B50 = C \ 50 : C = C Mod 50 B20 = C \ 20 : B10 = C Mod 20 TxtB200 = Str(B200) TxtB100 = Str(B100) TxtB50 = Str(B50) TxtB20 = Str(B20) TxtB10 = Str(B10) Pág. 61
- 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: 6 cajas de texto 3 botones de coman
- 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: Para el desarrollo de la presente a
- Page 105 and 106: Command2 Nombre CmdVolver Caption &
- Page 107 and 108: Para el desarrollo de la presente a
- Page 109 and 110: Private Sub LstTipoForm_DblClick()
Command2<br />
Command3<br />
Nombre CmdAceptar<br />
Caption &Aceptar<br />
Nombre CmdLimpiar<br />
Caption &Limpiar<br />
Nombre CmdSalir<br />
Caption &Salir<br />
Para añadir código a la aplicación haga doble click sobre<br />
el botón “Aceptar” e ingrese lo siguiente:<br />
Private Sub CmdAceptar_Click()<br />
Dim C As Integer, B200 As Integer, B100 As Integer, _<br />
B50 As Integer, B20 As Integer, B10 As Integer<br />
C = Val(TxtCantidad)<br />
If C Mod 10 = 0 Then<br />
Else<br />
B200 = C \ 200 : C = C Mod 200<br />
B100 = C \ 100 : C = C Mod 100<br />
B50 = C \ 50 : C = C Mod 50<br />
B20 = C \ 20 : B10 = C Mod 20<br />
TxtB200 = Str(B200)<br />
TxtB100 = Str(B100)<br />
TxtB50 = Str(B50)<br />
TxtB20 = Str(B20)<br />
TxtB10 = Str(B10)<br />
Pág. 61