begin process at 2012 05 27 06:53:40
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > HISTOGRAMME À UTILISER AVEC UNE BASE DE DONNÉS TOUT EN ASP

HISTOGRAMME À UTILISER AVEC UNE BASE DE DONNÉS TOUT EN ASP


 Information sur la source

Note :
4,33 / 10 - par 3 personnes
4,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Niveau :Débutant Date de création :15/12/2002 Date de mise à jour :06/02/2006 12:23:12 Vu / téléchargé :13 888 / 1 999
Auteur : jesusonline

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 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

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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

06 février 2006 12:23:13 :
test

 Sources du même auteur

Source avec Zip Source .NET (Dotnet) UTILISATION DE LA MÉTHODE SORT ET SORTDIRECTION AVEC UN GRID...
Source .NET (Dotnet) RESPONSE.FILTER : MANIPULATION DU STREAM DE SORTIE ASP.NET
Source avec Zip Source .NET (Dotnet) OPTIMISATION DE LA SERIALISATION JSON POUR LES LIST<T>
Source avec Zip Source .NET (Dotnet) CRAWLABLELINKBUTTON : UPDATEPANEL ET RÉFÉRENCEMENT
Source .NET (Dotnet) POSTBACKCONTROL - COMMUNICATION CLIENT/SERVEUR AVEC LES UPDA...
Toutes les sources de jesusonline

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CLASS CHARTS, HISTOGRAMCHART ET SECTORCHART par The Red Man
EXTRACTION D'INFORMATIONS IPTC D'UNE IMAGE par teenage
Source avec Zip Source avec une capture Source .NET (Dotnet) MANIPULATION D'IMAGES EN TEMPS RÉEL - RÉDUCTION COMPRESSION ... par badrbadr
Source avec Zip Source avec une capture Source .NET (Dotnet) UTILISATION D’AJAX ET D’UN WEBSERVICE POUR LA GÉNÉRATION D’I... par tikrimi
REDIMENSIONNER UNE IMAGE - ASPIMAGE par Keneyda
Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de gcu le 11/07/2003 10:39:17

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+

Commentaire de Alain Proviste le 10/04/2005 03:09:57 administrateur CS

ta premiere source...
quelle émotion :'(

Commentaire de sebaznar le 08/06/2005 10:52:28

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)

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Mio - Moov V735 - GPS Europe - Ecran 7"
Entre 305€ et 375€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,170 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)