et */ while(ereg("",$chaine)){ $qcm=true; $codeHTML=""; list($texteAvant,$suite)=explode("",$chaine,2); list($qcm,$texteApres)=explode("",$suite,2); /* On isole les questions les réponses et les commentaires */ $ligne=split("\n",$qcm); $nbligne=count($ligne); $premierequestion=$nbQuestion; for($i=0;$i<$nbligne;$i++){ /* Pour chaque ligne on regarde le premier caractère */ switch($ligne[$i][0]){ case 'T' : $titreQCM=substr($ligne[$i],1);break; case 'Q' : $nbQuestion++; $question[$nbQuestion]=substr($ligne[$i],1); break; case 'P' : /* On extrait les précisions de la proposition */ list($reponse,$precis)=explode("|",$ligne[$i]); /* On extrait le numéro de la proposition et son contenu */ ereg("P([0-9]+)(.*)",$reponse,$eregResult1); $numPropos=$eregResult1[1]; /* On extrait les points éventuellement associés * à chaque réponse */ if(ereg("[.](-?[0-9]+)(.*)",$eregResult1[2],$eregResult2)){ $points[$nbQuestion][$numPropos]=$eregResult2[1]; $choix[$nbQuestion][$numPropos]= $eregResult2[2]; //$gestionPoint=true; } /* Si une erreur de syntaxe apparait * on passe en mode par défaut pour la gestion des points */ else{ $gestionPoint=false; $choix[$nbQuestion][$numPropos]= $eregResult1[2]; } $precision[$nbQuestion][$numPropos]= $precis; break; case 'R' : /* On récupère le numéro de la bonne réponse */ ereg("R([0-9]+)(.*)",$ligne[$i],$eregResult); $numProposition=$eregResult[1]; $bonneReponse[$nbQuestion]=$numProposition; break; default : break; } } /* * Affichage du QCM */ // Si on ne corrige pas on affiche le QCM if (!isset($GLOBALS["var_correction"])){ for($i=$premierequestion+1;$i<=count($question);$i++){ $nomVarSelect="var_Q".$i; $codeHTML.="
$question[$i]
"; $codeHTML.="
"; // Si il ya plus de 5 choix, on utilise une liste if(count($choix[$i])>5){ $codeHTML.=""; } // Sinon des radio boutons else{ for($j=1;$j<=count($choix[$i]);$j++){ $codeHTML.=" "; $codeHTML.=$choix[$i][$j]."
"; } } $codeHTML.="

"; }// Fin traitement des questions }//Fin du cas sans correction // Sinon on affiche la correction else{ // Initialisation du code à retourner $codeHTML=""; for($i=$premierequestion+1;$i<=count($question);$i++){ $nomVarSelect="var_Q".$i; /* On comptabilise le maximum de points que l'on peut obtenir */ if($gestionPoint){ $pointParQuestion=$points[$i][$bonneReponse[$i]]; $scoreMax+=$pointParQuestion; } else{ $pointParQuestion=1; $scoreMax+=$pointParQuestion; } // La réponse choisie $codeHTML.="
$question[$i]($pointParQuestion pt)
"; // Si c'est juste if($bonneReponse[$i]==$GLOBALS[$nomVarSelect]){ // Les points par défaut : 1 par bonne réponse if($gestionPoint){ $score+=$points[$i][$GLOBALS[$nomVarSelect]]; } else{ $score++; } $codeHTML.="
$introReponse"; $codeHTML.=$choix[$i][$GLOBALS[$nomVarSelect]]; $codeHTML.="
"; $codeHTML.="
$reponseJuste
"; if (isset($precision[$i][$GLOBALS[$nomVarSelect]])){ $codeHTML.="
"; $codeHTML.=$precision[$i][$GLOBALS[$nomVarSelect]]; $codeHTML.="
"; } } // Si c'est faux else{ if(isset($GLOBALS[$nomVarSelect])){ $score+=$points[$i][$GLOBALS[$nomVarSelect]]; $codeHTML.="
"; $codeHTML.=$choix[$i][$GLOBALS[$nomVarSelect]]; $codeHTML.="
"; $codeHTML.="
$reponseFausse
"; if (isset($precision[$i][$GLOBALS[$nomVarSelect]])){ $codeHTML.="
"; $codeHTML.=$precision[$i][$GLOBALS[$nomVarSelect]]; $codeHTML.="
"; } } else{ $codeHTML.="
$reponseNulle
"; } } $codeHTML.="
"; } } // On ajoute les balises et $codeHTML="".$codeHTML.""; $chaine=$texteAvant.$codeHTML.$texteApres; }//fin du while if($qcm){ if (!isset($GLOBALS["var_correction"])){ $teteFormulaire="
"; $piedFormulaire="
"; $chaine=$teteFormulaire.$chaine.$piedFormulaire; } else{ // On ajoute le score final $chaine.="
Score : $score / $scoreMax
"; $chaine.="
[ Réinitialiser le QCM ]
"; unset($GLOBALS["var_correction"]); } $chaine="
".$titreQCM."
".$chaine."
"; } return $chaine; } ?> Armada 03
Armada 03

پذيرش سايت

Armada 03

  • English version

    7 November 2006, by Admin
    mhghhk k lhl

  • History of football in Iran

    25 October 2006, by Author 04
    Football was an unknown sport in Iran until British workers introduced the game in the 1930’s. At that time they were working at major oil refineries in the province of Khuzestan. The British played among themselves at first, as 22 men in shorts chasing after a plastic ball seemed to be more of a joke than a game to Iranians. The skepticism was short-lived and eventually the Iranian workers started playing as well, and in a small amount of time, football became extremely popular in (...)


0 | 10