Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- title Bankomat
- SET mypath=%~dp0
- set /A logindef=admin
- set /A pindef=1
- set /p saldo=<%mypath:~0,-1%\saldo.txt
- :menu
- cls
- echo Program - Bankomat
- echo ----------------------------
- echo Witaj w bankomacie!
- echo ----------------------------
- set /p login=Podaj LOGIN:
- set /p pin=Podaj PIN:
- if %login%==%logindef% goto loginok
- if not %login%==%logindef% goto menu
- :loginok
- if %pin%==%pindef% goto zalogowano
- if not %pin%==%pindef% goto niezalogowano
- :zalogowano
- cls
- echo %saldo%>%mypath:~0,-1%\saldo.txt
- set /p saldo=<%mypath:~0,-1%\saldo.txt
- echo Zalogowano jako %login%
- echo Twoje saldo: %saldo%zl
- echo.
- echo Co chcesz zrobic?
- echo 1. Wplac pieniadze
- echo 2. Wyplac pieniadze
- echo 3. Wyloguj
- set /p wyborbank=">> "
- if %wyborbank%==1 goto wplac
- if %wyborbank%==2 goto wyplac
- if %wyborbank%==3 goto wyloguj
- pause >> nul
- goto menu
- :nie
- cls
- echo Niepoprawne dane
- pause >> nul
- goto menu
- :wplac
- cls
- echo WPLACANIE PIENIEDZY
- set /p kwplaty=Podaj kwote wplaty:
- set /A saldo=%saldo%+%kwplaty%
- echo.
- echo Pomyslnie Wplacono!
- pause >> nul
- goto zalogowano
- :wyplac
- cls
- echo WYPLACANIE PIENIEDZY
- set /p kwyplaty=Podaj kwote wyplaty:
- set /A saldo=%saldo%-%kwyplaty%
- echo.
- echo Pomyslnie Wyplacono!
- pause >> nul
- goto loginok
- :wyloguj
- cls
- echo Pomyslnie wylogowano!
- pause >> nul
- goto menu
- goto menu
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement