// Primer de tot posem els 'headers' necessaris per tal que els
// valors generats pel script no es desin a la memòria cau (cache)
// i es renovin a cada crida
Header("Cache-Control: no-cache");
Header("Pragma: no-cache");

// Generació de dades per a l'animació barres.swf de Flash
// Per a la pràctica simularem unes notes numèriques i les
// generarem de manera aleatòria amb la funcion rand()
// En una situacio real les dades podrien provenir
// de les taules de notes // Primerament ens "inventem" el nombre de grups,
// d'alumnes per grup
$numgrups = 6;
$numalums = 30;

// Suposarem que els grups, com sol ser habitual als centres,
// tenen assignada una lletra (A,B,C,D...)
// i per a generar-ne el nom anirem incrementant el seu codi ASCII
// que transformarem després en lletra
// Així establim el primer grup a 65='A'
$numgrup = 65;

// Comencem el procés de generació amb 'fors' de les dades simulades
// Engeguem un for que repassi grup per grup i vagi recollint el
// total d'aprovats de cada grup
for ($i=0; $i < $numgrups; $i++){
$totalaprovats = 0;

// Dins del primer for n'engeguem un altre que recorri tots els alumnes,
// generi una nota aleatòria, comprovi si és aprovat i,
// en cas afirmatiu l'afegeixi al total d'aprovats del grup
for ($j=0; $j < $numalums; $j++){
$nota = rand(1,10);
if ($nota > 4.99){
$totalaprovats++;
}
} // Fi for Alumnat

// Omplim un array multidimensional amb:
// - la 'lletra' del grup (amb chr() convertim a lletra $numgrup)
// - el percentatge d'aprovats arrodonit
$aPercent[] = array( chr($numgrup),round(($totalaprovats*100)/$numalums,0));
// incrementem el número de grup
$numgrup++;
} // Fi for Grups

// Definim dues variables amb el nom de centre i població
// que també seran pasades a l'animació Flash.
// Estan comentades. Si no les descomentem (i per tant no es passen
// aquests valors) l'animació té definida per defecte:
// centre: 'Rosa dels vents'
// poblacio: 'Barcelona'
//$centre = "El meu centre";
//$poblacio = "La meva poblacio";

//$sortida serà la cadena que tornarà el script
$sortida ="";
// si tenim definits $centre i $poblacio els afegim a la cadena
if (isset($centre) && isset($poblacio)){
$sortida .= "centre=$centre&poblacio=$poblacio&";
}

// afegim també un nivell
$sortida .= "nivell=1r d'ESO&";

// mitjançant un nou for completem la cadena de sortida amb:
// grup1=A&mida1=67 ( per, ex.)
for ($k=0; $k < count($aPercent); $k++){
$h = $k+1;
$sortida .= "grup$h=".$aPercent[$k][0]."&mida$h=".$aPercent[$k][1]."&";
}

// "Escrivim" la variable $sortida que serà el que arribarà a l'animació
echo $sortida;
?>

// Codi del primer fotograma del fitxer 'barres.fla'

// Primerament definim totes les variables

// Definim centre, poblacio i nivell per si no es passen
_root.centre="IES Rosa dels vents";
_root.poblacio="Barcelona";
_root.nivell="";

// definim noms de grup com a buits
_root.grup1= "";
_root.grup2= "";
_root.grup3= "";
_root.grup4= "";
_root.grup5= "";
_root.grup6= "";

// definim mides de les barres a 0
_root.mida1 = 0;
_root.mida2 = 0;
_root.mida3 = 0;
_root.mida4 = 0;
_root.mida5 = 0;
_root.mida6 = 0;

// definim valors de progrés de cada barra a 0
_root.progres1 = 0;
_root.progres2 = 0;
_root.progres3 = 0;
_root.progres4 = 0;
_root.progres5 = 0;
_root.progres6 = 0;

/////////////////////////////////////////////////////////////
// Funció que recull les dades generades pel script 'barres.php'
// Si aquest script no fos al mateix directori que la resta de
// fitxers (barres.swf i barres.html) caldria posar-hi
// l'adreça URL sencera o bé el directori relatiu on es trobés
loadVariablesNum("barres.php",0);

// Codi per a cada objecte barra

// En carregar el clip de pel·lícula:
// - posem l'escala vertical (alçada)a 0
// - posem el valor de progrés corresponent també a 0
onClipEvent(load){
   this._yscale = 0;
   _root.progres1 = 0;
}

//Codi que s'anirà executant contínuament...
onClipEvent(enterFrame) {

// Si el valor de _yscale és més petit que la mida proposada
// anirà incrementant en una unitat
// També augmentarà el valor de progrés mostrat
// Quan no es compleixi la condició no passarà res i
// tot es quedaran com estan la barra i el valor de progrés mostrat
if (this._yscale <= _root.mida1){
   _root.progres1 = this._yscale;
   this._yscale++;
}
}

<!---------------------------------------------------------------
* Mòdul: 7 Pràctica: 4 Fitxer: barres.html
* Autor: D116 Data:
* Descripció: Mostra l'animació Flash
* Pre condi.: Han d'existir: 'barres.php' i 'barres.swf'
* Post cond.:
---------------------------------------------------------------->

<HTML>

<HEAD>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<TITLE>D116. M&ograve;dul 7. Pr&agrave;ctica 4</TITLE>
</HEAD>

<BODY bgcolor="#00CC99">
<strong><font face="Verdana, Arial, Helvetica, sans-serif">Gr&agrave;fic estad&iacute;stic:
% aprovats per nivell i grup</font></strong><br>
<br>

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/
swflash.cab#version=6,0,0,0"
WIDTH="500" HEIGHT="300" id="barres" ALIGN="">
<PARAM NAME=movie VALUE="barres.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src="barres.swf" quality=high bgcolor=#FFFFFF WIDTH="500" HEIGHT="300" NAME="barres" ALIGN=""
TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
</OBJECT>

</BODY>

</HTML>