1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
End Sub Private Sub CmdPrimero_Click() End Sub POSICION = 1 Get # N1, POSICION, REG TxtCodigo = REG.ID_CURSO TxtNombre = REG.NOMBRE TxtVacantes = Str(REG.VACANTES) TxtProfesor = REG.PROFESOR Private Sub CmdAnterior_Click() POSICION = Loc(N1) - 1 If POSICION = 0 Then Else End If Get # N1, 1, REG MsgBox “Estamos en el primer registro” Get # N1, POSICION, REG TxtCodigo = REG.ID_CURSO TxtNombre = REG.NOMBRE TxtVacantes = Str(REG.VACANTES) TxtProfesor = REG.PROFESOR End Sub Private Sub CmdSiguiente_Click() Dim ULTIMO As Integer ULTIMO = LOF(N1) / Len(REG) Pág. 182
End Sub POSICION = Loc(N1) + 1 If POSICION = ULTIMO + 1 Then Else End If Get # N1, ULTIMO, REG MsgBox “Estamos en el último registro” Get # N1, POSICION, REG TxtCodigo = REG.ID_CURSO TxtNombre = REG.NOMBRE TxtVacantes = Str(REG.VACANTES) TxtProfesor = REG.PROFESOR Private Sub CmdUltimo_Click() POSICION = LOF(N1) / Len(REG) If POSICION 0 Then End If Get #N1, POSICION, REG TxtCodigo = REG.ID_CURSO TxtNombre = REG.NOMBRE TxtVacantes = Str(REG.VACANTES) TxtProfesor = REG.PROFESOR End Sub Private Sub CmdNuevo_Click() POSICION = LOF(N1) / Len(REG) + 1 MODO_EDITAR True Pág. 183
- 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: End Sub TxtVacantes.Locked = Not Ok
- 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
End Sub<br />
POSICION = Loc(N1) + 1<br />
If POSICION = ULTIMO + 1 Then<br />
Else<br />
End If<br />
Get # N1, ULTIMO, REG<br />
MsgBox “Estamos en el último registro”<br />
Get # N1, POSICION, REG<br />
TxtCodigo = REG.ID_CURSO<br />
TxtNombre = REG.NOMBRE<br />
TxtVacantes = Str(REG.VACANTES)<br />
TxtProfesor = REG.PROFESOR<br />
Private Sub CmdUltimo_Click()<br />
POSICION = LOF(N1) / Len(REG)<br />
If POSICION 0 Then<br />
End If<br />
Get #N1, POSICION, REG<br />
TxtCodigo = REG.ID_CURSO<br />
TxtNombre = REG.NOMBRE<br />
TxtVacantes = Str(REG.VACANTES)<br />
TxtProfesor = REG.PROFESOR<br />
End Sub<br />
Private Sub CmdNuevo_Click()<br />
POSICION = LOF(N1) / Len(REG) + 1<br />
MODO_EDITAR True<br />
Pág. 183