Informatica

Este es un trbajo basico para mis alumnos de segundo de bachillerato, en su iniciacion con el ambiente BV 6.0 para pasar a .net
Ejercicio de Achivos Aleatorios, nimisistema para una agenda.

Option Explicit
Dim Regi(1000), a, b As Integer
Dim nombre(1000), tele(1000), Direc(1000), Fecha(1000), Acti(1000), nota(1000) As String

Private Sub Command1_Click()
Show
a = a + 1
Regi(a) =Val(Text1)
nombre(a) = Text2
tele(a) = Text3
Direc(a) = Text4
Fecha(a) = Text5
Acti(a) = Text6
nota(a) = Text7
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
End Sub

Private Sub Command2_Click()
b = 0
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Do While True
b = 0
b = InputBox("por favor ingrese el numero deregistro a consultar")
Text1 = Regi(b)
Text2 = nombre(b)
Text3 = tele(b)
Text4 = Direc(b)
Text5 = Fecha(b)
Text6 = Acti(b)
Text7 = nota(b)
If MsgBox("Estás seguro que es el registro buscado", vbQuestion + vbYesNo, "Advertencia") = vbYes Then
MsgBox ("Escriba los nuevos cambios y presione Modificar")
Exit Do
End If
Loop
End Sub

Private Sub Command3_Click()
If MsgBox("Los cambiosseran efectivos, confirme la respuesta", vbQuestion + vbYesNo, "Advertencia") = vbYes Then
Regi(b) = Val(Text1)
nombre(b) = Text2
tele(b) = Text3
Direc(b) = Text4
Fecha(b) = Text5
Acti(b) = Text6
nota(b) = Text7
End If
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
a = 0
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""Text5 = ""
Text6 = ""
Text7 = ""
End Sub

Archivos Boléanos o Binarios
Con esta entrega, empiezo la serie de manejo de datos almacenados en disco. Así que presta atención para que esto del manejo de la información almacenada en disco te sea fácil de usar.
Cada vez que quieras abrir un fichero, tienes que usar un número de "canal" por el que VB nos suministrará la información. El canal seindica por medio de un número de 1 a 255. Gracias a este número, el Basic se comunica con el sistema operativo para acceder a los datos. El Basic nos facilita la tarea de conseguir ese número, con idea de que no usemos una línea que esté en uso... La instrucción, en realidad es una función, para conseguir un número de canal libre, es: Freefile. Esta función devuelve un número entero, el cual sealmacenará en una variable y así podremos usarlo para el manejo de los datos almacenados.
NumFic = Freefile
Una vez que conozcamos un canal por el que poder acceder, tendremos que abrirlo:
Open "Prueba.txt" For Output As NumFic
Con esta línea, abrimos el fichero Prueba.txt de forma secuencial para poder escribir en él.
Una vez que tenemos una "via" de comunicación, podremos escribir informaciónusando una versión un poco maquillada de la instrucción Print... El maquillaje es el número de canal con el que podemos acceder al fichero:
Print #NumFic, "Lo que sea"
#NumFic es el número de fichero (o canal) por el que accedemos al fichero abierto y después de ese número, usamos una coma y a continuación lo que queremos guardar en el fichero.
Cuando hayamos acabado de guardar cosas, tendremosque cerrar el fichero que hemos abierto, para poder liberar ese canal abierto y así poder usarlo en otra ocasión, esto se consigue con el comando Close:
Close NumFic
Es importante esto de cerrar el fichero abierto, ya que en ese momento es cuando el Basic guarda la información que aún tiene "temporalmente" almacenada en una memoria intermedia que usa para que el acceso a datos sea, al menos enteoría, más rápido. A esta memoria intermedia se le llama "buffer". El VB la usa para ir guardando la información que vamos a grabar físicamente en el disco, antes de grabarla, la guarda ahí y cuando está llena, la escribe en el disco y la libera, esto se consigue con el close, para asegurarnos que todo lo que tenga que estar guardao, realmente lo esté.

Open RutaAcceso [For Modo] [Access...