Final de progra

Solo disponible en BuenasTareas
  • Páginas : 6 (1336 palabras )
  • Descarga(s) : 4
  • Publicado : 12 de mayo de 2010
Leer documento completo
Vista previa del texto
Imports System.Console
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("...
tracking img