Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Résolu]Système de points en QCM
Auteur Message
Répondre en citant
Message [Résolu]Système de points en QCM 
Bonjour, Smile
J'aurais besoin en faite d'integrer d'un système de note pour mon questionnaire(exemple sur 7 pour ce questionnaire: Vous avez une note de 5/7):
Code:

@ECHO OFF

:choice
set /P c=Are you sure you want to continue[Y/N]?
if /I "%c%" EQU "Y" goto :somewhere
if /I "%c%" EQU "N" goto :fin
goto :choice


:somewhere

echo "1ere question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º3+3=9 ? [O/N]                                                                                            º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P a=
if /I "%a%" EQU "N" goto :suite1
if /I "%a%" EQU "O" goto :fin
goto :somewhere


:suite1
echo "1 centime"
echo "2eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuelle est la capitale de France ? [Paris/France/Berne/Madrid]                                           º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P b=
if /I "%b%" EQU "Paris" goto :suite2
if /I "%b%" EQU "France" goto :fin
if /I "%b%" EQU "Berne" goto :fin
if /I "%b%" EQU "Madrid" goto :fin
goto :suite1

:suite2
echo "2 centimes"
echo "3eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuel est le meilleur jeux de vaisseaux spatiaux d'Europe ? [PirateGalaxy/DarkOrbit/AirRivals/cactus87]   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P e=
if /I "%e%" EQU "PirateGalaxy" goto :suite3
if /I "%e%" EQU "DarkOrbit" goto :fin
if /I "%e%" EQU "AirRivals" goto :fin
if /I "%e%" EQU "cactus87" goto :fin
goto :suite2

:suite3
echo "5 centimes"
echo "4eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQui sont les createurs de Need For Speed ?[EA/Bullfrog/Google Earth/Atari]                               º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P r=
if /I "%r%" EQU "EA" goto :suite4
if /I "%r%" EQU "Bullfrog" goto :fin
if /I "%r%" EQU "Google Earth" goto :fin
if /I "%r%" EQU "Atari" goto :fin
goto :suite3

:suite4
echo "10 centimes"
echo "5eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºTrouvez l'intrus Pokedex/Pikachu/Skype/Elec-tacle.                                                       º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P y=
if /I "%y%" EQU "Skype" goto :suite5
if /I "%y%" EQU "Pikachu" goto :fin
if /I "%y%" EQU "Pokedex" goto :fin
if /I "%y%" EQU "Elec-tacle" goto :fin
goto suite4

:suite5
echo "20 centimes"
echo "6eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQue ne doit-on pas mettre dans le pain ? (Farine/Eau/Levure/Cornichon)                                   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P u=
if /I "%u%" EQU "Cornichon" goto :suite6
if /I "%u%" EQU "Levure" goto :fin
if /I "%u%" EQU "Eau" goto :fin
if /I "%u%" EQU "Farine" goto :fin
goto :suite5

:suite6
echo "50 centimes"
echo "7eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuelle est la racine carre de 25 ? (10/5/2.236067977/3+3)                                                º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P i=
if /I "%i%" EQU "5" goto :fing
if /I "%i%" EQU "10" goto :fin
if /I "%i%" EQU "2.23607977" goto :fin
if /I "%i%" EQU "3+3" goto :fin
goto :suite6

























:fin
echo Perdu
pause
goto :finf
:fing
echo Gagne !
pause
:finf

Car enfaite moi je l'ai programmé pour que l'invite de commande se ferme si on répond faux alors que je voudrais mettre une note a ceci.
(Je sais je débute ^^')



Dernière édition par goku1524 le Jeu 16 Déc 2010 - 18:51; édité 2 fois

______________________________________________________

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


Répondre en citant
Message [Résolu]Système de points en QCM 
Re-bonjour,
j'aurais peut-être la moitié de la soluton a mon problème :
ex:
Code:
set points=0

echo "1ere question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º3+3=9 ? [O/N]                                                                                            º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P a=
if /I "%a%" EQU "n"

le problème c'est après le EQU "n" j'aurais besoin comment rajouter +1 a une variable

J'espère avoir une réponse a plus tôt s'il vous plaît ^^
Cordialement goku1524




______________________________________________________

Skype
Répondre en citant
Message [Résolu]Système de points en QCM 
Bonjour
regarde ce code source : http://batch.xoo.it/t1095-BAT-QCM-code-source-a-dispo.htm




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Résolu]Système de points en QCM 
Hello,

Tu peux simplement ajouter un compter à chaque bonne réponse ...
Et enlever le goto fin, c'est mieux de continuer le qcm même si tu a faux ^^

Code:

...
echo "1ere question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º3+3=9 ? [O/N]                                                                                            º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P a=
if /I "%a%" EQU "N" (
    set COUNT+=1
    goto suite1
    )
goto :somewhere
...





______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Répondre en citant
Message [Résolu]Système de points en QCM 
Oui, ^^
désolé je n'ai pas mis en résolu et je m'en excuse et je vais mettre le nouveau code source =p
attendez environ 5 ou 10 min et il est là ^^




______________________________________________________

Skype
Répondre en citant
Message [Résolu]Système de points en QCM 
Voilà la source :
Code:
@echo off
title \\Questionnaire by goku1524 and help of Laddy//
:choice
set /P c=Are you sure you want to continue[Y/N]?
if /I "%c%" EQU "Y" goto :somewhere
if /I "%c%" EQU "N" exit
goto :choice


:somewhere
set points=0
cls
echo                                                                          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                                                                          º By Goku1524 and help of Laddy  º
echo                                                                          ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo "1ere question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º3+3=9 ? [O/N]                                                                                            º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P a=
if /I "%a%" EQU "n" set /a points=points+1




cls
echo "2eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuelle est la capitale de France ? [Paris/France/Berne/Madrid]                                           º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P b=
if /I "%b%" EQU "Paris" set /a points=points+1



cls
echo "3eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuel est le meilleur jeux de vaisseaux spatiaux d'Europe ? [PirateGalaxy/DarkOrbit/AirRivals/cactus87]   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P e=
if /I "%e%" EQU "PirateGalaxy" set /a points=points+1



cls
echo "4eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQui sont les createurs de Need For Speed ?[EA/Bullfrog/Google Earth/Atari]                               º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P r=
if /I "%r%" EQU "EA" set /a points=points+1



cls
echo "5eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºTrouvez l'intrus Pokedex/Pikachu/Skype/Elec-tacle.                                                       º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P y=
if /I "%y%" EQU "Skype" set /a points=points+1



cls
echo "6eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQue ne doit-on pas mettre dans le pain ? (Farine/Eau/Levure/Cornichon)                                   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P u=
if /I "%u%" EQU "Cornichon" set /a points=points+1



cls
echo "7eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuelle est la racine carre de 25 ? (10/5/2.236067977/3+3)                                                º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P i=
if /I "%i%" EQU "5" set /a points=points+1

cls
setlocal enabledelayedexpansion
echo Termin‚ !
SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
set SPEED=0.5
set "TXT=Votre score est de %points%/7 Voulez-vous recommencer ? (oui/non)"

for /f "tokens=1,* delims=[,]" %%A in ('"%comspec% /u /c echo:%TXT%|more|find /n /v """') do (
    set /a MAX=%%A-4
    )
for /l %%A in (1,1,%MAX%) do (
    cls
    echo !TXT:~0,%%A!
    @ping localhost -n %SPEED% >nul
    )

set /P w=
if /I "%w%" EQU "oui" goto :somewhere

Et bon plaisir =p




______________________________________________________

Skype
Répondre en citant
Message [Résolu]Système de points en QCM 
Héhé, 6/7 bonnes réponses ...
Bien que je pense que dark orbit soit LE meilleur jeu ^^
Bravo pour ton code Okay

Petites suggestions:
_speed=0,5 ... ne fonctionne pas, il s'agit du nombre de ping, tu dois placer une valeur entiere !
_ajouter un "cls" juste en dessous de l'index "somewhere" pour effacer l'ecran lors d'un nouveau jeu !
_le cadrage des bords est bof bof, essaye d'ajuster !

@+




______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Répondre en citant
Message [Résolu]Système de points en QCM 
Ok ben je verrais ça ce week-end ^^
PS: Dark Orbit=2D contrairement a PirateGalaxy=3D et plus joli ^^ (DO j'ai 3Millions de crédits au level 10)
PS2: et pour le cadrage des questions ben en fait j'ai modifié la taille de mon MS-DOS a 125px de longueur donc j'ai pas fait le changement sur le bat et je m'en excuse >.<




______________________________________________________

Skype
Répondre en citant
Message [Résolu]Système de points en QCM 
RE (hors sujet ...)

Pour dark orbit, effectivement c'est de la 2D, mais jouable directement par le navigateur, sans installation et gratuit ^^
Perso, j'ai toujours minimum 50 millions et 100.000 uridiums ...
Level 17, full élite et 4 portails, classé 688° !

@+






______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Répondre en citant
Message [Résolu]Système de points en QCM 
RE: (encore hors sujet)
PirateGalaxy est aussi très jouable sur navigateur (sauf si on a un pc en papier maché)
Une 'tite expédition sur Mars =p(sorry j'ai pas pu mettre la résolution au max faute des manque de puissance de l'ordi =s)
Screens :

(Ben... là... mon vaisseau =p)
(Cryonite=argent du jeu)

(Maraudeur en carton)
Edit : Screens rajoutés




______________________________________________________

Skype
Répondre en citant
Message [Résolu]Système de points en QCM 
Nouveau code:
Code:
@echo off
setlocal enableDelayedExpansion
mode con cols=110 lines=22 &color 0A
for /l %%z in (1,1,100) do (
cls
set barre=
for /l %%y in (1,1,%%z) do (
set barre=!barre!Û)
cls
set /a pourcentage=%%z*1
echo  ÛÛÛÛÛÛ  Û     Û   ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛ    Û       Û   Û  ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ     Û
echo  Û    Û  Û     Û   Û             Û   Û Û      Û  Û   Û             Û     Û
echo  Û    Û  Û     Û   Û             Û  Û  Û      Û Û Û  Û             Û     Û
echo  Û    Û  ÛÛÛÛÛÛÛ   Û             Û Û   Û       Û  Û  Û             Û     Û
echo  ÛÛÛÛÛÛÛÛ   Û      Û  ÛÛÛÛ       ÛÛ    Û      Û   Û  ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ
echo  Û      Û   Û      Û      Û      Û Û   Û      Û   Û        Û Û          Û
echo  Û      Û   Û      Û      Û      Û  Û  Û      Û   Û        Û Û          Û
echo  Û      Û   Û      Û      Û      Û   Û Û      Û   Û        Û Û          Û
echo  ÛÛÛÛÛÛÛÛ   Û      ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ     Û ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ    Û
echo.
echo.
echo        Chargement .... !pourcentage!%%
echo      ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo       !barre!
echo      ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo.
echo.
echo Veuillez patientez
echo.
title !pourcentage!%% Chargement des composants
ping localhost -n 1 >nul
)
echo Appuyez sur une touche pour commencer le QCM...
pause>nul

cls
color 07
title \\QCM by goku1524 and help of Laddy//
:choice
set /P c=Are you sure you want to continue[Y/N]?
if /I "%c%" EQU "Y" goto :debqcm
if /I "%c%" EQU "N" exit
goto :choice
:debqcm
set points=0
cls
echo                                                                          ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                                                                          º By Goku1524 and help of Laddy  º
echo                                                                          ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo "1ere question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º3+3=9 ? [O/N]                                                                                            º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P a=
if /I "%a%" EQU "n" set /a points=points+1




cls
echo "2eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuelle est la capitale de France ? [Paris/France/Berne/Madrid]                                           º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P b=
if /I "%b%" EQU "Paris" set /a points=points+1



cls
echo "3eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuel est le meilleur jeux de vaisseaux spatiaux d'Europe ? [PirateGalaxy/DarkOrbit/AirRivals/cactus87]   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P e=
if /I "%e%" EQU "PirateGalaxy" set /a points=points+1



cls
echo "4eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQui sont les createurs de Need For Speed ?[EA/Bullfrog/Google Earth/Atari]                               º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P r=
if /I "%r%" EQU "EA" set /a points=points+1



cls
echo "5eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºTrouvez l'intrus Pokedex/Pikachu/Skype/Elec-tacle.                                                       º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P y=
if /I "%y%" EQU "Skype" set /a points=points+1



cls
echo "6eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQue ne doit-on pas mettre dans le pain ? (Farine/Eau/Levure/Cornichon)                                   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P u=
if /I "%u%" EQU "Cornichon" set /a points=points+1



cls
echo "7eme question"
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ºQuelle est la racine carre de 25 ? (10/5/2.236067977/3+3)                                                º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /P i=
if /I "%i%" EQU "5" set /a points=points+1

cls
setlocal enabledelayedexpansion
echo Termin‚ !
SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
set SPEED=1
set "TXT=Votre score est de %points%/7 Voulez-vous recommencer ? (oui/non)"

for /f "tokens=1,* delims=[,]" %%A in ('"%comspec% /u /c echo:%TXT%|more|find /n /v """') do (
    set /a MAX=%%A-4
    )
for /l %%A in (1,1,%MAX%) do (
    cls
    echo !TXT:~0,%%A!
    @ping localhost -n %SPEED% >nul
    )

set /P w=
if /I "%w%" EQU "oui" goto :debqcm
ENDLOCAL





______________________________________________________

Skype
Message [Résolu]Système de points en QCM 


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