TomAlverate
Gebruiker
- Lid geworden
- 6 jan 2015
- Berichten
- 5
beste,
Ik ben een vertaalprogramma aan het maken voor school, maar het werkt niet.
Ik vermoed dat het iets is met de goto's maar wat ik ook probeer het werkt niet.
Dit zijn mijn code's:
Alvast bedankt
Ik ben een vertaalprogramma aan het maken voor school, maar het werkt niet.
Ik vermoed dat het iets is met de goto's maar wat ik ook probeer het werkt niet.
Dit zijn mijn code's:
@echo off
color a
goto main
:main
Set /p werkwoord="Welk werkwoord wil je vervoegen:"
Set werkwoord=%werkwoord%
if "%werkwoord:~-0,2%"=="ar" goto first
if "%werkwoord:~-0,2%"=="er" goto second
if "%werkwoord:~-0,2%"=="ir" goto third
:first
echo %werkwoord:~-0,-2%o
echo %werkwoord:~-0,-2%as
echo %werkwoord:~-0,-2%a
echo %werkwoord:~-0,-2%amos
echo %werkwoord:~-0,-2%ais
echo %werkwoord:~-0,-2%an
goto end
:second
echo %werkwoord:~-0,-2%o
echo %werkwoord:~-0,-2%es
echo %werkwoord:~-0,-2%e
echo %werkwoord:~-0,-2%emos
echo %werkwoord:~-0,-2%eis
echo %werkwoord:~-0,-2%en
goto end
:third
echo %werkwoord:~-0,-2%o
echo %werkwoord:~-0,-2%es
echo %werkwoord:~-0,-2%e
echo %werkwoord:~-0,-2%imos
echo %werkwoord:~-0,-2%is
echo %werkwoord:~-0,-2%en
goto end
:end
Set /p opnieuw="Wil je nog een ander werkwoord vervoegen? (ja of nee):"
Set opnieuw=%opnieuw%
if "%opnieuw:~-0,2%"=="ja" cls & goto main
if "%opnieuw:~-0,2%"=="nee" goto:eof
Alvast bedankt