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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (jesusonline)