Advertisement
Guest User

Untitled

a guest
Nov 19th, 2019
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @echo off
  2. title Bankomat
  3.  
  4. SET mypath=%~dp0
  5. set /A logindef=admin
  6. set /A pindef=1
  7. set /p saldo=<%mypath:~0,-1%\saldo.txt
  8.  
  9. :menu
  10. cls
  11. echo Program - Bankomat
  12. echo ----------------------------
  13. echo Witaj w bankomacie!
  14. echo ----------------------------
  15. set /p login=Podaj LOGIN:
  16. set /p pin=Podaj PIN:
  17. if %login%==%logindef% goto loginok
  18. if not %login%==%logindef% goto menu
  19.  
  20. :loginok
  21. if %pin%==%pindef% goto zalogowano
  22. if not %pin%==%pindef% goto niezalogowano
  23.  
  24. :zalogowano
  25. cls
  26. echo %saldo%>%mypath:~0,-1%\saldo.txt
  27. set /p saldo=<%mypath:~0,-1%\saldo.txt
  28. echo Zalogowano jako %login%
  29. echo Twoje saldo: %saldo%zl
  30. echo.
  31. echo Co chcesz zrobic?
  32. echo 1. Wplac pieniadze
  33. echo 2. Wyplac pieniadze
  34. echo 3. Wyloguj
  35. set /p wyborbank=">> "
  36. if %wyborbank%==1 goto wplac
  37. if %wyborbank%==2 goto wyplac
  38. if %wyborbank%==3 goto wyloguj
  39. pause >> nul
  40. goto menu
  41.  
  42. :nie
  43. cls
  44. echo Niepoprawne dane
  45. pause >> nul
  46. goto menu
  47.  
  48. :wplac
  49. cls
  50. echo WPLACANIE PIENIEDZY
  51. set /p kwplaty=Podaj kwote wplaty:
  52. set /A saldo=%saldo%+%kwplaty%
  53. echo.
  54. echo Pomyslnie Wplacono!
  55. pause >> nul
  56. goto zalogowano
  57.  
  58. :wyplac
  59. cls
  60. echo WYPLACANIE PIENIEDZY
  61. set /p kwyplaty=Podaj kwote wyplaty:
  62. set /A saldo=%saldo%-%kwyplaty%
  63. echo.
  64. echo Pomyslnie Wyplacono!
  65. pause >> nul
  66. goto loginok
  67.  
  68. :wyloguj
  69. cls
  70. echo Pomyslnie wylogowano!
  71. pause >> nul
  72. goto menu
  73.  
  74. goto menu
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement