Final de progra
Imports System.IO
Module Module1
Sub Main()
Dim opcion As Integer
Do
WriteLine(" ***Menu*** ")
WriteLine(" ")
WriteLine("1.-Alta")
WriteLine("2.-Baja")
WriteLine("3.-Modificacion")
WriteLine("4.-Consultas")
WriteLine("5.-Ordenacion")WriteLine("6.-Generar Archivos")
WriteLine("7.-Salir")
WriteLine(" ")
WriteLine("¿Que opcion desea?")
opcion = ReadLine()
Select Case opcion
Case 1
alta()
Case 2
baja()
Case 3
TIPOMODIFICACION()
Case 4Dim op As Char
WriteLine("Desea buscar por:")
WriteLine(" ")
WriteLine("a)Numero de producto" & " " & "b)Existencias en cero")
WriteLine("c)Por departamento" & " " & "d)Lista general")
op = ReadLine()
Select Case op
Case "a"numprod()
Case "b"
ecero()
Case "c"
depto()
Case "d"
listagral()
End Select
Case 5
Dim ans As Char
Write("Ordenar por : ")Write("a)Por numero de producto" & " " & "b)Departamento")
ans = ReadLine()
Case 6
ordenacion()
Case 7
WriteLine("Proceso terminado")
End Select
Loop While opcion 7
End Sub
Sub alta()
Dim noproducto As Integer
Dim descrip As StringDim precio As Decimal
Dim cantexistencia As Integer
Dim clavedepto As Integer
Dim answer As Char
Dim existe As Boolean = False
Do
If existearchivo("c:\ProyectoFinal\Archivo\BDarchivo.txt") Then
WriteLine("***Alta***")
WriteLine("Numero del producto: ")
noproducto = ReadLine()existe = revisarsiexiste(noproducto)
Dim archivo As New StreamWriter("c:\ProyectoFinal\archivo\BDarchivo.txt", True)
If existe = False Then
WriteLine("Descripcion: ")
descrip = ReadLine()
WriteLine(" Precio: ")
precio = ReadLine()
WriteLine("Cantidad en existencia ")
cantexistencia = ReadLine()
WriteLine(" Clave del Departamento: ")
clavedepto = ReadLine()
archivo.Writeline(LSet(noproducto, 5) & " " & LSet(descrip, 10) & " " & LSet(precio, 5) & " " & LSet(cantexistencia, 8) & " " & clavedepto)
Write(" ")archivo.Flush()
archivo.Close()
WriteLine(" Los datos se han registrado correctamente ")
Else
WriteLine(" Ya existe un producto con el numero que indico ")
End If
Else
Dim archivo As New StreamWriter("c:\ProyectoFinal\archivo\BDarchivo.txt", False)WriteLine("***Alta***")
WriteLine("Numero de Producto: ")
noproducto = ReadLine()
WriteLine("Descripcion: ")
descrip = ReadLine()
WriteLine(" Precio: ")
precio = ReadLine()
WriteLine(" Cantidad en existencia ")
cantexistencia = ReadLine()
WriteLine("...
Regístrate para leer el documento completo.