1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
On Error GoTo ERROR_GUARDAR FILTRO = “Archivos de texto (*.TXT)|*.TXT” CommonDialog1.Filter = FILTRO CommonDialog1.ShowSave FILE = CommonDialog1.FileName N1 = FreeFile() Open FILE For Output As # N1 Print # N1, TxtEditor Close # N1 FrmEditor.Caption = “Editor - ” & FILE SALIR_GUARDAR: Exit Sub ERROR_GUARDAR: End Sub MsgBox Err.Description Resume SALIR_GUARDAR La sentencia Err.Description retorna una cadena que contiene la descripción asociada a un error en tiempo de ejecución. La sentencia Resume continua la ejecución en la etiqueta especificada cuando termina una rutina de gestión de errores. ARCHIVOS DE ACCESO ALEATORIO En los archivo de acceso aleatorio el almacenamiento de los datos se hace mediante registros (todos de la misma Pág. 170
longitud), lo cuales son identificados mediante un único número denominado índice. El primer registro de un archivo tiene como índice 1, el segundo tiene índice 2 y así sucesivamente. La información contenida en un archivo de este tipo puede ser accedida en cualquier secuencia, ya que cada registro individual se asocia con su respectivo índice y puede ser leído, escrito o actualizado. Las sentencias y funciones necesarias para manipular archivos de tipo aleatorio se presentan a continuación. Sentencia Open Permite abrir un archivo. La sintaxis para acceder aleatoriamente a un archivo es: Open NOMBRE_ARCHIVO For Random As # NÚMERO_ARCHIVO Len = LON_REG Donde NOMBRE_ARCHIVO es una cadena que especifica el nombre del archivo que se debe ser abierto en modo Random. El parámetro NÚMERO_ARCHIVO es un entero cuyo valor está comprendido entre 1 y 511. Este número será asociado con el nombre del archivo mientras permanezca abierto. LON_REG es un entero que establece la longitud del registro para archivos aleatorios. Sentencia Put Permite grabar un registro en un archivo abierto para acceso aleatorio. Su sintaxis es: Pág. 171
- 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: Private Sub MnuArchivoAbrir_Click()
- 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
longitud), lo cuales son identificados mediante un único número<br />
denominado índice. El primer registro de un archivo tiene como<br />
índice 1, el segundo tiene índice 2 y así sucesivamente. La<br />
información contenida en un archivo de este tipo puede ser<br />
accedida en cualquier secuencia, ya que cada registro<br />
individual se asocia con su respectivo índice y puede ser<br />
leído, escrito o actualizado.<br />
Las sentencias y funciones necesarias para manipular<br />
archivos de tipo aleatorio se presentan a continuación.<br />
Sentencia Open<br />
Permite abrir un archivo. La sintaxis para acceder<br />
aleatoriamente a un archivo es:<br />
Open NOMBRE_ARCHIVO For Random As # NÚMERO_ARCHIVO Len = LON_REG<br />
Donde NOMBRE_ARCHIVO es una cadena que especifica el<br />
nombre del archivo que se debe ser abierto en modo Random.<br />
El parámetro NÚMERO_ARCHIVO es un entero cuyo valor está<br />
comprendido entre 1 y 51<strong>1.</strong> Este número será asociado con el<br />
nombre del archivo mientras permanezca abierto.<br />
LON_REG es un entero que establece la longitud del<br />
registro para archivos aleatorios.<br />
Sentencia Put<br />
Permite grabar un registro en un archivo abierto para<br />
acceso aleatorio. Su sintaxis es:<br />
Pág. 171