Soyez le premier à donner votre avis sur cette source.
Vue 16 465 fois - Téléchargée 2 480 fois
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!-- Module d'Histogramme par Jesusonline--> <% 'declaration de variable colonne =10 ' nombre de barres hauteur = 130 ' hauteur des colonnes Dim nombre(10) ' je n'ai encore pas trouvé le moyen de mettre colonne a la place du nombre for i = 1 to colonne ' pas besoin de commentaire ' c ici que vous devrez mettre vos valeurs, elles doivent etre compris entre 1 et hauteur - 20 le mieux c de faire cette formule CAD (Valeur/valeurmax)*hauteur nombre(i) = int((hauteur-20)*rnd+1) ' générateur aléatoire d'un nombre compris entre 1 et hauteur-20 pour laisser de la place à la valeur en dessus de la barre si qqn voit comment faire me contacter If CInt(nombre(i)) < 10 Then ' Rajout d'un zéro non significatif nombre(i) = "0" & CStr(nombre(i)) ' End If next ' fin de la declaration de variable %> <html> <head> <title>Stat</title> </head> <body> <!-- j'apppelle ma page ici comme ca elle est utilisable plusieurs fois et . on peut mettre cette partie ou on veut du moment que c aprés la definition de variable --> <!--#include file="stat/histo.asp" --> <!-- C ici qu'on change la location du fichier --> </body> </html> ' et la c le fichier histo.asp <!--Module a mettre en ASP sur cq page ou on appelle cette page 'declaration de variable colonne =10 ' nombre de barres hauteur = 130 ' hauteur des colonnes Dim nombre(10) for i = 1 to colonne nombre(i) = int((hauteur-20)*rnd+1) If CInt(nombre(i)) < 10 Then ' Rajout d'un zéro non significatif nombre(i) = "0" & CStr(nombre(i)) ' End If next ' fin de la declaration de variable !--# include file="stat/histo.asp" --> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <% for i = 0 to colonne-1 %> <td width="<%=int(100/colonne)%>%" height="58" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="33%" rowspan="3" valign="top" bgcolor="#FFFFCC"><!--on peut ecrire qqchose ici--> </td> <td width="34%" height="<%=hauteur-nombre(i)+20%>" valign="bottom" bgcolor="#FFFFCC"><% If CInt(valeur(i)) < 10 Then ' Rajout d'un espace non significatif response.write("0"&valeur(i)) else response.write(valeur(i)) End If %> </td> <td width="33%" rowspan="3" valign="top" bgcolor="#FFFFCC"><!--on peut ecrire qqchose ici--> </td> </tr> <tr> <td height="<%=nombre(i)%>" valign="top" background="barre_graph.gif"><!--ne rien ecrire qqchose ici--></td> </tr> <tr> <td height="20" valign="top" bgcolor="#FFFFCC"><% response.write(i)%></td> </tr> </table></td> <%next%></tr> </table>
ReDim preserve table(new_val)
Pour les tableaux à 2 dimensions ou plus, seule la dernière dimensions est modifiable (avec le preserve !!!)
++ les gens ;o)
quelle émotion :'(
Const colonne = 10 ' nombre de barres
Const hauteur = 130 ' hauteur des colonnes
ReDim nombre(colonne)
Et le tour est joué :)
Par contre, il faudrait peut etre remplacé les "valeur(i)" par des "nombre(i)" ... NON ?
A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.