basicos en una matriz =D espero que les guste xD
Proceso Loup_Soft
Salir<-0;
Menu<-0;
MenuC<-0;
Dimension arregloC(5,5); // Esto lo configuran a su gusto
idC<-1;
Repetir
Si Menu=0 Entonces
Escribir "/////////////////////////////////////////////////////////////";
Escribir "Bienvenido a Loup Soft";
Escribir "MENU";
Escribir " ";
Escribir "Seleccione una opcion";
Escribir "1.-Clientes";
Escribir "2.-Salir";
Escribir " ";
Escribir "Opcion:";
leer var;
FinSi
Si var>0 Y var<=2 Entonces
segun var Hacer
// *********************************************************************************************
// ******************************** MENU PRINCIPAL OPCION 1 **********************************
// *********************************************************************************************
1 :
limpiarpantalla
Repetir
Si MenuC=0 Entonces
Escribir "/////////////////////////////////////////////////////////////";
Escribir "MENU CLIENTES";
Escribir "Seleccione una opcion";
Escribir " ";
Escribir "1-Capturar";
Escribir "2-Consultar";
Escribir "3-Modificar";
Escribir "4-Eliminar";
Escribir "5-Menu Principal";
Escribir "6-Salir";
Escribir " ";
Escribir "Opcion:"; leer var1;
FinSi
Segun var1 Hacer
// -------------------------CAPTURAR CLIENTES---------------------------------------------
1:
limpiarpantalla
MenuC<-1;
Escribir "/////////////////////////////////////////////////////////////";
Escribir "CAPTURA CLIENTES";
Escribir "ID Cliente ",idC;
Escribir " ";
Escribir "Nombre:";
leer arregloC(idC,1);
Escribir " ";
Escribir "Apellido:";
leer arregloC(idC,2);
Escribir " ";
Escribir "Direccion:";
leer arregloC(idC,3);
idC<-idC+1;
limpiarpantalla
Escribir " ";
Escribir "/////////////////////////////////////////////////////////////";
Escribir "DATOS GUARDADOS EXITOSAMENTE";
Escribir "/////////////////////////////////////////////////////////////";
Escribir " ";
Escribir "Desea regresar al menu principal?? S/N" ;
leer confirma;
si confirma='S' O confirma='s' Entonces
var1<-5;
menuC<-0;
limpiarpantalla
sino
var1<-1;
menuC<-0;
limpiarpantalla
FinSi
// -------------------------CONSULTAR CLIENTES---------------------------------------------
2:
limpiarpantalla
MenuC<-1;
Escribir "/////////////////////////////////////////////////////////////";
Escribir "CONSULTA CLIENTES";
Escribir " ";
Para i<-1 Hasta idC-1 Con Paso 1 Hacer
Escribir " ";
Escribir "-----------------------------------------------";
Escribir "CLIENTE",i;
Para j<-1 Hasta 1 Con Paso 1 Hacer
Escribir "Nombre: ",arregloC(i,j);
Escribir "Apellido: ",arregloC(i,j+1);
Escribir "Direccion: ",arregloC(i,j+2);
FinPara
FinPara
Repetir
Escribir " ";
Escribir "/////////////////////////////////////////////////////////////";
Escribir " ";
Escribir "Desea regresar al menu principal?? S/N" ;
leer confirma;
si confirma='S' O confirma='s' entonces
var1<-5;
menuC<-0;
limpiarpantalla
sino
var1<-1;
menuC<-0;
limpiarpantalla
FinSi
hasta que confirma='S' O confirma='s' O confirma='N' O confirma='n'
// -------------------------MODIFICAR CLIENTES---------------------------------------------
3:
si NO(idC-1)=0 Entonces
Repetir
limpiarpantalla
MenuC<-1;
Escribir "/////////////////////////////////////////////////////////////";
Escribir "MODIFICAR CLIENTES";
Escribir " ";
Escribir "Clientes Registrados ",idC-1;
Escribir "Escriba el numero de cliente a modificar";
leer numC;
si numC>=idC O numC<=0 Entonces
conf<-'n';
sino
Escribir " ";
Escribir "-----------------------------------------------";
Escribir "CLIENTE",numC;
j<-1;
Escribir "Nombre: ",arregloC(numC,j);
Escribir "Apellido: ",arregloC(numC,j+1);
Escribir "Direccion: ",arregloC(numC,j+2);
Escribir " ";
Escribir "Esta seguro de modificar este cliente? S/N";
leer conf;
FinSi
hasta que conf='S' O conf='s'
Escribir "-----------------------------------------------";
Escribir "Nuevo Nombre";
leer arregloC(numC,1);
Escribir "Nuevo Apellido";
leer arregloC(numC,2);
Escribir "Nueva Direccion";
leer arregloC(numC,3);
limpiarpantalla
Escribir " ";
Escribir "/////////////////////////////////////////////////////////////";
Escribir "DATOS GUARDADOS EXITOSAMENTE";
Repetir
Escribir "/////////////////////////////////////////////////////////////";
Escribir " ";
Escribir "Desea regresar al menu principal?? S/N" ;
leer confirma;
si confirma='S' O confirma='s' entonces
var1<-5;
menuC<-0;
limpiarpantalla
sino
var1<-1;
menuC<-0;
limpiarpantalla
FinSi
hasta que confirma='S' O confirma='s' O confirma='N' O confirma='n'
Sino
limpiarpantalla
Escribir "No hay clientes registrados";
Escribir "Presione cualquier tecla para regresar";
leer vacio;
limpiarpantalla
FinSi
// -------------------------BORRAR CLIENTES---------------------------------------------
4:
si NO(idC-1)=0 Entonces
Repetir
limpiarpantalla
MenuC<-1;
Escribir "/////////////////////////////////////////////////////////////";
Escribir "BORRAR CLIENTES";
Escribir " ";
Escribir "Clientes Registrados ",idC-1;
Escribir "Escriba el numero de cliente a eliminar del sistema";
leer numC;
si numC>=idC O numC<=0 Entonces
conf<-'n';
sino
Escribir " ";
Escribir "-----------------------------------------------";
Escribir "CLIENTE",numC;
j<-1;
Escribir "Nombre: ",arregloC(numC,j);
Escribir "Apellido: ",arregloC(numC,j+1);
Escribir "Direccion: ",arregloC(numC,j+2);
Escribir " ";
Escribir "Esta seguro de eliminar este cliente del sistema? S/N";
leer conf;
FinSi
hasta que conf='S' O conf='s'
Para camb<-numC Hasta idC-1 Con Paso 1 Hacer
arregloC(camb,j)<-arregloC(camb+1,j);
arregloC(camb,j+1)<-arregloC(camb+1,j+1);
arregloC(camb,j+2)<-arregloC(camb+1,j+2);
FinPara
idC<-idC-1;
limpiarpantalla
Escribir " ";
Escribir "/////////////////////////////////////////////////////////////";
Escribir "DATOS ELIMINADOS EXITOSAMENTE";
Repetir
Escribir "/////////////////////////////////////////////////////////////";
Escribir " ";
Escribir "Desea regresar al menu principal?? S/N" ;
leer confirma;
si confirma='S' O confirma='s' entonces
var1<-5;
menuC<-0;
limpiarpantalla
sino
var1<-1;
menuC<-0;
limpiarpantalla
FinSi
hasta que confirma='S' O confirma='s' O confirma='N' O confirma='n'
Sino
limpiarpantalla
Escribir "No hay clientes registrados";
Escribir "Presione cualquier tecla para regresar";
leer vacio;
limpiarpantalla
FinSi
// -------------------------MOSTRAR MENU PRINCIPAL---------------------------------------
5:
limpiarpantalla
Menu<-0;
Salir<-0;
// -------------------------SALIR DEL SISTEMA---------------------------------------------
6:
limpiarpantalla
Escribir "/////////////////////////////////////////////////////////////";
Escribir "GRACIAS POR USAR NUESTRO SISTEMA";
Escribir "/////////////////////////////////////////////////////////////";
Salir<-1;
FinSegun
Hasta Que var1=5 O var1=6
// *********************************************************************************************
// ******************************** MENU PRINCIPAL OPCION 2 **********************************
// *********************************************************************************************
2 :
limpiarpantalla
Escribir "/////////////////////////////////////////////////////////////";
Escribir "GRACIAS POR USAR NUESTRO SISTEMA";
Escribir "/////////////////////////////////////////////////////////////";
Salir<-1;
FinSegun
Sino
limpiarpantalla
Escribir "/////////////////////////////////////////////////////////////";
Escribir "Por favor escoja una opcion entre el 1 y el 2";
Escribir " ";
FinSi
Hasta Que Salir=1
FinProceso
No hay comentarios:
Publicar un comentario