Programacion

Solo disponible en BuenasTareas
  • Páginas : 2 (386 palabras )
  • Descarga(s) : 0
  • Publicado : 14 de octubre de 2010
Leer documento completo
Vista previa del texto
EJERCICIO DE VISUAL BASIC

Este ejercicio forma parte del anterior el de la "GESTION" así que recuperaremos el ejercicio y añadiremos un formulario en blanco, siguiendo los pasos,

Como en laspartes anteriores de este ejercicio empezaremos diseñando el formulario que será igual que el resto de formularios de este programa.
Así empezamos con el "LABEL" del titulo,

continuamos con losLABEL y los TEXTBOX y el SHAPE,

para acabar colocamos los BOTONES pertinentes, que son,

Y ahora empezamos con la introducción del código, desde el apartado de "GENERAL" definiremos las variable autilizar,

Dim nombrecogido As String
Dim direcogido As String
Dim telcogido As String
Dim cpcogido As String
Dim pobcogido As String

después desde la rutina del "COMMAND1_CLICK" que es elbotón de "BORRAR" introduciremos las siguientes instrucciones,

Private Sub Command1_Click()
Open "C:\datos.dat" For Input As 1
Open "C:\pasadatos.dat" For Append As 2
Do While Not EOF(1)
Input #1,nombrecogido
Input #1, direcogido
Input #1, telcogido
Input #1, cpcogido
Input #1, pobcogido
If nombrecogido = Text6.Text Then
Text1.Text = nombrecogido
Text2.Text = direcogidoText3.Text = telcogido
Text4.Text = cpcogido
Text5.Text = pobcogido
Else
Write #2, nombrecogido
Write #2, direcogido
Write #2, telcogido
Write #2, cpcogido
Write #2,pobcogido
End If
Loop
Close #1
Close #2
Kill "c:\datos.dat"
Name "C:\pasadatos.dat" As "c:\datos.dat"
End Sub

En el código anterior hemos realizado los mismos pasos que en una consulta, peroademás hemos creado otro archivo secuencial donde pasamos todos los datos del archivo principal que no sean la ficha a borrar.

Al final de esta rutina tenemos dos archivos de texto, uno con todoslos datos y otro con todos los datos excepto la ficha a borrar que no la hemos pasado.

Finalmente borraremos el archivo original y renombramos el segundo archivo de texto y le damos el mismo...
tracking img