SHARE
TWEET

Untitled

a guest Nov 19th, 2019 94 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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top