Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Apprendre l'anglais facilement 1.0
Auteur Message
Répondre en citant
Message Apprendre l'anglais facilement 1.0 
Hello,
Voilà un interrogateur automatique Cool et imprévisible Twisted Evil
Vous pouvez créer une nouvelle liste avec Arrow du vocabulaire Arrow de la conjugaison Arrow ...
Ou vous pouvez finir la version 2.0, qui est presque terminée........ Mr. Green


Code:
@Echo Off
mode con lines=180 cols=180
Setlocal Enabledelayedexpansion

Set Type=4
Set "T1=Infinitif"
Set "T2=Preterit"
Set "T3=Participe Passe"
Set "T4=Traduction"
Set "TypeL=1,2,3,4"
If Not Exist erreurs.txt Goto Suite
echo Voulez vous charger la liste de vos erreurs ?
Echo  - Oui = 1
Echo  - Non = 2
Set/P "Choix=Choix: "
If "%Choix%"=="1" Set VI=Erreur.txt
:Suite
Set VI=Anglais.vi
Set/P "V=" < %VI%
Set Nb=0
Set NbR=0
Set NbF=0

For /F %%A In ('type %VI%') Do (
   
   Set/A Nb+=1
   For /F "tokens=1,2,3,4 delims=," %%B In ("%%A") Do (
   
      Set TabV!Nb!§1=%%B
      Set TabV!Nb!§2=%%C
      Set TabV!Nb!§3=%%D
      Set TabV!Nb!§4=%%E
   
   )

)
For /L %%A In (1,1,%Nb%) Do (
   Set "T="
   For /L %%B In (1,1,%Type%) Do (
      Set "T=!T! !TabV%%A§%%B!"
   )
   Echo !T!
)
::pause>nul
:Boucle
Call :Alea 1 %Nb% A1
Call :Alea 1 %Type% A2

Echo !T%A2%!:!TabV%A1%§%A2%!

Set "Tp=%A2%"
Set T=0

:Test
CLS
Set/A T+=1
If %T%==%Type% Goto Boucle
::Echo %tp%
::pause
:BoucleAleaQuestion
Call :Alea 1 %Type% A3
::echo %A3%
For %%A In (!Tp!) Do (
   If %A3%==%%A Goto BoucleAleaQuestion
)

Set "Tp=!Tp!,%A3%"

::Echo "%Tp%" %A2% %A3%
Echo !T%A2%!:!TabV%A1%§%A2%!
Echo Faute: %NbF%    Reussi:  %NbR%
Set/P "Choix=!T%A3%!:"

echo !TabV%A1%§%A3%!
If /I "%Choix%"=="!TabV%A1%§%A3%!" (
   Set/A NbR+=1
echo   /$$$$$$                            /$$        /$$$$$$                                          /$$
echo  /$$__  $$                          | $$       /$$__  $$                                        | $$
echo | $$  \__/  /$$$$$$   /$$$$$$   /$$$$$$$      | $$  \__/  /$$$$$$  /$$$$$$/$$$$   /$$$$$$       | $$
echo | $$ /$$$$ /$$__  $$ /$$__  $$ /$$__  $$      | $$ /$$$$ |____  $$| $$_  $$_  $$ /$$__  $$      | $$
echo | $$|_  $$| $$  \ $$| $$  \ $$| $$  | $$      | $$|_  $$  /$$$$$$$| $$ \ $$ \ $$| $$$$$$$$      |__/
echo | $$  \ $$| $$  | $$| $$  | $$| $$  | $$      | $$  \ $$ /$$__  $$| $$ | $$ | $$| $$_____/         
echo |  $$$$$$/|  $$$$$$/|  $$$$$$/|  $$$$$$$      |  $$$$$$/|  $$$$$$$| $$ | $$ | $$|  $$$$$$$       /$$
echo  \______/  \______/  \______/  \_______/       \______/  \_______/|__/ |__/ |__/ \_______/      |__/
pause>nul
   Goto Test

echo  /$$     /$$                                   /$$$$$$              /$$ /$$       /$$
echo |  $$   /$$/                                  /$$__  $$            |__/| $$      | $$
echo  \  $$ /$$//$$$$$$  /$$   /$$      | $$  \__//$$$$$$  /$$| $$      | $$
echo   \  $$$$//$$__  $$| $$  | $$      | $$$$   |____  $$| $$| $$      | $$
echo    \  $$/| $$  \     $$| $$  | $$      | $$_/    /$$$$$$$| $$| $$      |__/
echo     | $$ | $$  |     $$| $$  | $$      | $$      /$$__  $$| $$| $$
echo     | $$ |  $$$$$$/|  $$$$$$/      | $$    |  $$$$$$$| $$| $$       /$$
echo     |__/  \______/  \______/       |__/     \_______/|__/|__/      |__/
Echo FAUX, la bonne reponse est: "!TabV%A1%§%A3%!"
Pause>Nul
::Pause>Nul
For /L %%A In (1,1,%Type%) Do Set "TE=!TE!,!TabV%A1%§%%A!"
Echo %TE:~1% >> Erreurs.txt
Set "TE="
Set/A NbF+=1
Goto Test

:Alea

Set/A Exc=%2+1
:BAlea
For /L %%A In (1,1,5) Do (
   Set/a Alea=%1+!Random!*%2/32767
)
::If %Alea%==%Exc% goto BAlea
set %3=%Alea%

Goto :eof




be,was/were,been,etre
beat,beat,beaten,battre
begin,began,begun,devenir
bet,bet,bet,parier
bind,bound,bound,relier
bite,bit,bitten,mordre
bleed,bled,bled,saigner
blow,blew,blown,souffler
braek,broke,broken,casser
bring,brought,brought,apporter
build,built,built,construire
burn,burnt,burnt,bruler
burst,burst,burst,eclater
buy,bought,bought,acheter
catch,caught,caught,attraper
choose,chose,chosen,choisir
come,came,come,venir
cost,cost,cost,couter
cut,cut,cut,couper
do,did,done,faire
draw,drew,drawn,dessiner
dream,dreamt,dreamt,rever
drink,drank,drunk,boire
drive,drove,driven,conduire
eat,ate,eaten,manger
fall,fell,fallen,tomber
feed,fed,fed,nourrir
feel,felt,felt,se sentir
fight,fought,fought,se battre
find,found,found,trouver
fly,flew,flown,voler
forget,forgot,forgotten,oublier
forgive,forgave,forgiven,pardonner
freeze,froze,frozen,geler
get,got,got,obtenir
give,gave,given,donner
go,went,gone,aller
grow,grew,grown,grandir
hang,hung,hung,pendre
have,had,had,avoir
hear,heard,heard,entendre
hide,hid,hidden,cacher,cacher
hit,hit,hit,frapper
hold,held,held,tenir
hurt,hurt,hurt,blesser,faire mal
keep,kept,kept,garder
know,knew,known,savoir
lay,laid,laid,poser
learn,learnt,learnt,apprendre
leave,left,left,quitter
lend,lent,lent,prêter
let,let,let,permettre
lie,laye,lain,s'allonger
lose,lost,lost,perdre
make,made,made,faire,frabiquer
mean,meant,meant,vouloir dire
meet,met,met,rencontrer
pay,paid,paid,payer
put,put,put,mettre
read,read,read,lire
ride,rode,ridden,monter
ring,rang,rung,sonner
rise,rose,risen,monter
run,ran,run,courir
say,said,said,dire
see,saw,seen,voir
sell,sold,sold,vendre
send,sent,sent,envoyer
set,set,set,mettre
shake,shook,shaken,trembler
shine,shone,shone,briller
shoot,shot,shot,tirer
show,showed,shown,montrer
shut,shut,shut,fermer
sing,sang,sung,chanter
sit,sat,sat,s'asseoir
sleep,slept,slept,dormir
smell,smelt,smelt,sentir
speak,spoke,spoken,parler
spend,spent,spent,depenser
spread,spread,spread,etaler
stand,stood,stood,se tenir debout
steal,stole, stolen,voler
strike,struck,struck,frapper
swear,swore,sworn,jurer
swim,swam,swum,nager
take,took,taken,prendre
teach,taught,taught,enseigner
tear,tore,torn,dechirer
tell,told,told,dire
think,thought,thought,penser
throw,threw,thrown,jeter
understand,understood,understood,comprendre
upset,upset,upset,contrarier
wake up,woke up,woken up,se reveiller
wear,wore,worn,porter
win,won,won,gagner
write,wrote,written,ecrire


Télecharger: Testeur + Liste



Dernière édition par LG le Ven 9 Mai 2014 - 20:52; édité 1 fois

______________________________________________________
Clickez sur Saturne pour voir mes tutoriels et sur la Terre pour voir mon Forum:


Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Apprendre l'anglais facilement 1.0 
Je ne sait pas pourquoi mais la V2 m'affiche "oui" quand je perd, fait une autre pause et se ferme. Neutral

Tiens, pour rajouter un petit plus :
Quand on gagne :
Code:
echo   /$$$$$$                            /$$        /$$$$$$                                          /$$
echo  /$$__  $$                          | $$       /$$__  $$                                        | $$
echo | $$  \__/  /$$$$$$   /$$$$$$   /$$$$$$$      | $$  \__/  /$$$$$$  /$$$$$$/$$$$   /$$$$$$       | $$
echo | $$ /$$$$ /$$__  $$ /$$__  $$ /$$__  $$      | $$ /$$$$ |____  $$| $$_  $$_  $$ /$$__  $$      | $$
echo | $$|_  $$| $$  \ $$| $$  \ $$| $$  | $$      | $$|_  $$  /$$$$$$$| $$ \ $$ \ $$| $$$$$$$$      |__/
echo | $$  \ $$| $$  | $$| $$  | $$| $$  | $$      | $$  \ $$ /$$__  $$| $$ | $$ | $$| $$_____/         
echo |  $$$$$$/|  $$$$$$/|  $$$$$$/|  $$$$$$$      |  $$$$$$/|  $$$$$$$| $$ | $$ | $$|  $$$$$$$       /$$
echo  \______/  \______/  \______/  \_______/       \______/  \_______/|__/ |__/ |__/ \_______/      |__/


Quand on perd :
Code:
echo  /$$     /$$                         /$$$$$$          /$$ /$$       /$$
echo |  $$   /$$/                        /$$__  $$        |__/| $$      | $$
echo  \  $$ /$$//$$$$$$  /$$   /$$      | $$  \__//$$$$$$  /$$| $$      | $$
echo   \  $$$$//$$__  $$| $$  | $$      | $$$$   |____  $$| $$| $$      | $$
echo    \  $$/| $$  \ $$| $$  | $$      | $$_/    /$$$$$$$| $$| $$      |__/
echo     | $$ | $$  | $$| $$  | $$      | $$     /$$__  $$| $$| $$
echo     | $$ |  $$$$$$/|  $$$$$$/      | $$    |  $$$$$$$| $$| $$       /$$
echo     |__/  \______/  \______/       |__/     \_______/|__/|__/      |__/


Voilà ^^
Je n'ai rien d'autre à dire, c'est bien fait Okay




______________________________________________________
~
Répondre en citant
Message Apprendre l'anglais facilement 1.0 
Merci j'ai rajouté tes trop gentils messages Twisted Evil au code source !!
Tu aurais pu mettre "YOU ARE JUST A LOSER" ou "EPIC FALL" Mr. Green
Sinon la version 2.0 est bien meilleur, elle lit n'importe quelle liste, mais j’ai pas envie de la terminer !! Arrow ( Il faut utiliser des boucles FOR avec un retour de jeton de nombre inconnue ; ce qui est très dũr ou normalement impossible Neutral )
Tu peux essayer il faut juste rajouter un système de / pour les possibilités multiples et ne pas compter les () dans la vérification de la réponse !
Bonne Chance Okay




______________________________________________________
Clickez sur Saturne pour voir mes tutoriels et sur la Terre pour voir mon Forum:


Skype
Répondre en citant
Message Apprendre l'anglais facilement 1.0 
Et pour le "oui" qui fait tout foirer ?
Tu sais pourquoi ? J'ai la flemme d'étudier le code XD




______________________________________________________
~
Répondre en citant
Message Apprendre l'anglais facilement 1.0 
En faite, le "oui" ne fais rien foirer, il sert juste à dire que le bug est plus bas Mr. Green
Le code est simple, c'est juste un gros tableau à double entrées (TabV..§..) !




______________________________________________________
Clickez sur Saturne pour voir mes tutoriels et sur la Terre pour voir mon Forum:


Skype
Répondre en citant
Message Apprendre l'anglais facilement 1.0 
Ok j’étudierai (et améliorerai peut-être) le code plus tard Wink




______________________________________________________
~
Message Apprendre l'anglais facilement 1.0 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch