Histogramme à utiliser avec une base de donnés tout en asp

Soyez le premier à donner votre avis sur cette source.

Vue 16 164 fois - Téléchargée 2 384 fois

Description

C un histogramme voila c tout ;)
attention faut mettre le fichier histo.asp dans un dossier stat
Ds le zip il y a l e fichier histo.asp plus index.asp j'ai mis l'histogramme en action en faisant tout simplement un mini module de stat il faut avoir les droit d'accés a l'ecriture pour ecrire dans la base access 2000 la base est deja complété pour avoir une bonne date regler votre serveur sur 22 decembre 2002.

Source / Exemple :


<%@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>

Conclusion :


pas de bug connus normal c tres simple ;)
si qqn sait comment changer ca Dim nombre(10) ligne 9 ne plus etre obligé de remettre 10 a cq fois mais colonne me contacter

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

sebaznar
Messages postés
15
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
8 juin 2005
-
Petit plus qui peut servir : le "preserve" : cela permet de modifier la taille du tableau en conservant les enregistrementqs déjà présents.

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)
cs_Alain Proviste
Messages postés
910
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
1 -
ta premiere source...
quelle émotion :'(
gcu
Messages postés
7
Date d'inscription
mardi 8 avril 2003
Statut
Membre
Dernière intervention
27 septembre 2004
-
Pour ton problème de constante... il faut utiliser ReDim au lieu de Dim pour le tableau :

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.