- <%
-
- ' === Déclarations =============================================
- dim tab_achats ' 1=fournisseur ; 2=ttl
- dim tab_temp ' idem tab_achats pour le tri
- dim ttl_max: ttl_max=0 ' valeur max retenue
- dim largeur_tab: largeur_tab = 600 ' largeur du tableau à l'affichage
- dim clr_cel ' déclaration de la couleur de cellule
- dim i,j,k,flag_etat
-
- ' === Affichage ===============================================
- ' remplissage du Tableau
- redim tab_achats(5,2)
- tab_achats (1,1) = "Pierre"
- tab_achats (1,2) = 100
- tab_achats (2,1) = "Paul"
- tab_achats (2,2) = 20
- tab_achats (3,1) = "Jacques"
- tab_achats (3,2) = 40.50
- tab_achats (4,1) = "Titi"
- tab_achats (4,2) = 70
- tab_achats (5,1) = "Roméo"
- tab_achats (5,2) = 80
-
- ' Récupération du montant Max
- for i=1 to UBound(tab_achats)
- if tab_achats(i,2) > ttl_max then ttl_max=tab_achats(i,2)
- next
-
- range_donnees ' range les données du montant le plus fort au plus faible
- trace_graphe ' trace le graphique
-
-
- ' === Fonctions Internes =========================================
- Function range_donnees
- ' tri par ordre croissant
- j=1: redim tab_temp(1,2)
- do while j<(UBound(tab_achats)+1)
- flag_etat = true
- for i=(j+1) to UBound(tab_achats)
- if tab_achats(j,2)<tab_achats(i,2) then
- ' échange des données
- for k=1 to 2
- tab_temp(1,k)=tab_achats(j,k)
- next
- for k=1 to 2
- tab_achats(j,k)=tab_achats(i,k)
- next
- for k=1 to 2
- tab_achats(i,k)=tab_temp(1,k)
- next
- flag_etat = false
- exit for
- end if
- next
- if flag_etat then j=j+1
- loop
- End Function
-
- Function trace_graphe
- Response.Write "<br><table align=center width="& largeur_tab &" border=0 cellpadding=0 cellspacing=0>"
- for i=1 to UBound(tab_achats)
- Randomize: clr_cel = Cint(255*(Rnd+1-1)) & Cint(255*(Rnd+1-1)) & Cint(255*(Rnd+1-1)) ' génération couleur Hexa
- Response.Write "<tr>" &_
- "<td width=200><font face='Verdana' size=2>"& tab_achats(i,1) &" </font></td>" &_
- "<td>" &_
- "<table width='"& Cint(100*(tab_achats(i,2)/ttl_max)) &"%' border=0 cellpadding=0 cellspacing=0>" &_
- "<tr bgcolor='#"& clr_cel &"'><td><img src='vide.gif' width='100%' height=10 border=0 alt='"& FormatNumber(tab_achats(i,2),2) &" ?'></td></tr>" &_
- "</table>" &_
- "</td>" &_
- "</tr>"
- Response.Write "<tr>" &_
- "<td><img src='vide.gif' height=5 border=0></td>" &_
- "<td><img src='vide.gif' height=5 border=0></td>" &_
- "</tr>"
- next
- Response.Write "</table>"
- End Function
-
- %>
<%
' === Déclarations =============================================
dim tab_achats ' 1=fournisseur ; 2=ttl
dim tab_temp ' idem tab_achats pour le tri
dim ttl_max: ttl_max=0 ' valeur max retenue
dim largeur_tab: largeur_tab = 600 ' largeur du tableau à l'affichage
dim clr_cel ' déclaration de la couleur de cellule
dim i,j,k,flag_etat
' === Affichage ===============================================
' remplissage du Tableau
redim tab_achats(5,2)
tab_achats (1,1) = "Pierre"
tab_achats (1,2) = 100
tab_achats (2,1) = "Paul"
tab_achats (2,2) = 20
tab_achats (3,1) = "Jacques"
tab_achats (3,2) = 40.50
tab_achats (4,1) = "Titi"
tab_achats (4,2) = 70
tab_achats (5,1) = "Roméo"
tab_achats (5,2) = 80
' Récupération du montant Max
for i=1 to UBound(tab_achats)
if tab_achats(i,2) > ttl_max then ttl_max=tab_achats(i,2)
next
range_donnees ' range les données du montant le plus fort au plus faible
trace_graphe ' trace le graphique
' === Fonctions Internes =========================================
Function range_donnees
' tri par ordre croissant
j=1: redim tab_temp(1,2)
do while j<(UBound(tab_achats)+1)
flag_etat = true
for i=(j+1) to UBound(tab_achats)
if tab_achats(j,2)<tab_achats(i,2) then
' échange des données
for k=1 to 2
tab_temp(1,k)=tab_achats(j,k)
next
for k=1 to 2
tab_achats(j,k)=tab_achats(i,k)
next
for k=1 to 2
tab_achats(i,k)=tab_temp(1,k)
next
flag_etat = false
exit for
end if
next
if flag_etat then j=j+1
loop
End Function
Function trace_graphe
Response.Write "<br><table align=center width="& largeur_tab &" border=0 cellpadding=0 cellspacing=0>"
for i=1 to UBound(tab_achats)
Randomize: clr_cel = Cint(255*(Rnd+1-1)) & Cint(255*(Rnd+1-1)) & Cint(255*(Rnd+1-1)) ' génération couleur Hexa
Response.Write "<tr>" &_
"<td width=200><font face='Verdana' size=2>"& tab_achats(i,1) &" </font></td>" &_
"<td>" &_
"<table width='"& Cint(100*(tab_achats(i,2)/ttl_max)) &"%' border=0 cellpadding=0 cellspacing=0>" &_
"<tr bgcolor='#"& clr_cel &"'><td><img src='vide.gif' width='100%' height=10 border=0 alt='"& FormatNumber(tab_achats(i,2),2) &" ?'></td></tr>" &_
"</table>" &_
"</td>" &_
"</tr>"
Response.Write "<tr>" &_
"<td><img src='vide.gif' height=5 border=0></td>" &_
"<td><img src='vide.gif' height=5 border=0></td>" &_
"</tr>"
next
Response.Write "</table>"
End Function
%>