Título: Opinion de programa Publicado por: Architect en 23 Agosto 2007, 03:24 am He hecho esto en batch es un programa para sumlar un banco agrdeceía que me dijeran sus opiniones
@echo off title Banco :menu cls echo. echo 1.Registrarte echo 2.Login echo 3.Buscar Usuario echo 4.Transferir datos echo 5.Eliminar usuario echo 6.Salir set /p var=Que quieres hacer? if %var%==1 goto registrarte if %var%==2 goto login if %var%==3 goto buscar if %var%==4 goto transferir if %var%==5 goto eliminar if %var%==6 goto salida if %var% GTR 6 goto menu :registrarte cls set /p use=Introduce tu nombre: set /p pas=Introduce tu password: mkdir "C:\Banco\%use%" echo %pas% > "C:\Banco\%use%\%pas%.txt" attrib +h "C:\Banco\%use%\%pas%.txt" echo 0 > "C:\Banco\%use%\flujo.txt" goto menu :login cls set /p use1=Introduce tu nombre: if exist "C:\Banco\%use1%" (goto pass) else echo ese usuario no existe pause goto menu :pass cls set /p pas1=Introduce tu password: if exist "C:\Banco\%use1%\%pas1%.txt" (goto user) else echo contraseña invalida pause goto pass :user cls echo. echo Bievenido %use1% echo. echo. echo 1.Revisar la cuenta echo 2.Cambiar la cuenta echo 3.Salir echo. set /p var2=Que quiere hacer? If %var2%==1 goto revisar If %var2%==2 goto cambiar la cuenta If %var2%==3 goto exit if %var2% GTR 3 goto error :revisar cls echo. echo Sus fondos actuales son type "C:\Banco\%use1%\flujo.txt" echo. echo El Banco deposita $500 en su cuenta por el uso de sus servicios echo. echo Gracias por usar BancFue.inc echo. set /p var4=Son correctos sus fondos actuales? s/n if %var4%==s goto user if %var4%==n goto quejas :quejas cls echo. echo Consulte por favor con el administrador de banco. Llame al numero 052968562 pause goto user :cambiar la cuenta cls echo. echo 1.Depositar echo 2.Retirar echo 3.Salir set /p var5=Que quisisera hacer? if %var5%==1 goto Depositar1 if %var5%==2 goto Retirar if %var5%==3 goto irse if %var5% GTR 3 goto wrong :Depositar1 cls set /p var23=Ha hecho algun deposito antes? (s/n) if %var23%==s goto Depositar2 if %var23%==n goto Depositar :Depositar2 cls set var26=500 set /p var24=Cuanto quiere depositar? for /f "tokens=*" %%b in (C:\Banco\%use1%\flujo.txt) do set /a var25=%%b+%var26%+%var24%&goto hacer :hacer echo %var25% > "C:\Banco\%use1%\flujo.txt" echo Sus fondos se han depositado con exito pause goto user :Depositar set var6=0 cls echo. set /p var7=Cuanto quiere depositar? set /a var8=var6+var7 echo %var8% > "C:\Banco\%use1%\flujo.txt" goto cambiar la cuenta :Retirar cls echo. set /p var9=Cuanto quieres retirar? set /a var10=var8-var9 echo %var10% > "C:\Banco\%use1%\flujo.txt" goto cambiar la cuenta :irse goto user :exit goto menu :error cls echo Por favor introduzca un numero valido pause goto user :wrong cls echo Por favor introduzca un numero valido pause goto cambiar la cuenta :buscar cls set /p var12=Introduzca el nombre del usuario que desea buscar: if exist "C:\Banco\%var12%" (goto encontrado) else echo ese usuario no existe Pause goto menu :encontrado cls echo usuario %var12% encontrado en nuestra base de datos pause goto menu :eliminar cls set /p var13=Introduzca el nombre del usuario que desee borrar: if exist "C:\Banco\%var13%" (goto pass3) else echo ese usuario no existe pause goto menu :pass3 cls set /p var14=Introduzca su password: if exist "C:\Banco\%var13%\%var14%.txt" (goto seguridad) else echo password incorrecto pause goto menu :seguridad cls set /p var15=Estas seguro? s/n if %var15%==s goto delete if %var15%==n goto menu :delete cls del /A:H "C:\Banco\%var13%\%var14%.txt" del "C:\Banco\%var13%\*.txt" rmdir "C:\Banco\%var13%" echo borrado con exito...... echo El usuario %var13% no posee ya ninguna informacion en nuestro banco pause goto menu :transferir cls echo. set /p var16=Nombre del usuario del cual desea transferir datos: if exist "C:\Banco\%var16%" (goto pass4) else echo Usuario no encontrado en nuestra base de datos pause goto menu :pass4 cls echo. set /p var17=Password del usuario del cual desea transferir datos: if exist "C:\Banco\%var16%\%var17%.txt" (goto transferir1) else echo Password incorrecto pause goto menu :transferir1 cls echo. set /p var18=Nombre del usuario al que le desea transferir datos: if exist "C:\Banco\%var18%" (goto pass5) else echo Usuario no encontrado en nuestra base de datos pause goto menu :pass5 cls echo. set /p var19=Password del usuario al que le desea transferir datos: if exist "C:\Banco\%var18%\%var19%.txt" (goto transferir2) else echo Password incorrecto pause goto menu :transferir2 cls echo. set /p var20=Desea transferirlo todo o una parte? (t/p) if %var20%==t goto todo if %var20%==p goto parte :todo cls for /f "tokens=*" %%a in (C:\Banco\%var16%\flujo.txt) do echo %%a >> "C:\Banco\%var18%\flujo.txt" del "C:\Banco\%var16%\flujo.txt" echo Transferencia completa..... pause goto menu :parte cls set /p var21=Cuanto quiere transferir? for /f "tokens=*" %%a in (C:\Banco\%var16%\flujo.txt) do set /a var22=%%a-%var21%&goto parte2 :parte2 echo %var22% > "C:\Banco\%var16%\flujo.txt" for /f "tokens=*" %%c in (C:\Banco\%var18%\flujo.txt) do set /a var28=%%c+%var21% echo %var28% > "C:\Banco\%var18%\flujo.txt" echo Transferencia completa..... pause goto menu :salida exit Título: Re: Opinion de programa Publicado por: Siuto en 24 Agosto 2007, 01:53 am No probe todas las opciones pero esta muy interesante como ejercicio. ;)
Un consejo que veo asi rapidamente, no te conviene usar en la ruta que sea C:\Banco, ya que si alguien no tiene disponible la unidad C por algun motivo y el Windows se encuentra en D por ejemplo tu programa ya no funcionaria. Para solucionar eso tendrias que acostumbrarte a usar las variables de entorno, para conocer las mismas con el comando SET podes verlas y sus valores correspondientes. Yo hubiese usado algo como %ProgramFiles%\Banco. Título: Re: Opinion de programa Publicado por: Architect en 24 Agosto 2007, 23:35 pm Hey, gracias, oye lo de las variables de entorno ya lo sabía, pero no estoy muy acostumbrado a usarlas, pero supongo que toda persona debe tener un disco C:,
por eso fue que lo puse, de todas maneras te agradezco la sugerencia, es verdad este programa fue concebido para ejercitar mis conocimientos. Título: Re: Opinion de programa Publicado por: .Undertaker. en 30 Agosto 2007, 04:57 am tmb valdria "%homdrive%\Banco" no¿¿??
|