begin process at 2012 02 05 03:01:04
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > VML/ASP : GÉNÉRATION D'UNE COURBE DE DROITES

VML/ASP : GÉNÉRATION D'UNE COURBE DE DROITES


 Information sur la source

Note :
10 / 10 - par 2 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Classé sous :vml, tracer, courbe, trigonométrie, droite Niveau :Initié Date de création :15/07/2004 Vu :8 913
Auteur : zeb13

Ecrire un message privé
Site perso
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
En VML le système trigo fonctionne avec un axe des Y à l'envers, le 0,0 est en haut à gauche. Aussi voici un petit code que j'utilise pour exprimer une progession de Chiffre d'Affaires en inversant l'axe Y.

Source

  • <%@ Language=VBScript %>
  • <%
  • option explicit
  • dim gris_fonce: gris_fonce="#cccccc"
  • dim col: col=50 ' largeur d'une colonne
  • dim ratio: ratio=100 ' ration de division pour l'affichage
  • dim largeur: largeur=650 ' largeur tab
  • dim solde_rapproche: solde_rapproche=0 ' affectation d'une valeur de base au démarrage (CA rapporté par exemple)
  • dim ca_max: ca_max=solde_rapproche
  • dim ca: ca=ca_max ' CA
  • dim i_max: i_max=ca_max
  • dim points,points_solde,i
  • dim tab_compta: redim tab_compta(12)
  • for i=1 to 12 ' remplissage de la table en Euros
  • RANDOMIZE
  • tab_compta(i)=Int((4999 * Rnd) + 1)
  • next
  • ' définition des mois
  • dim tab_mois: redim tab_mois(12)
  • tab_mois(1) = "Janv."
  • tab_mois(2) = "Fév."
  • tab_mois(3) = "Mars"
  • tab_mois(4) = "Avr."
  • tab_mois(5) = "Mai"
  • tab_mois(6) = "Juin"
  • tab_mois(7) = "Juil."
  • tab_mois(8) = "Août"
  • tab_mois(9) = "Sept."
  • tab_mois(10)= "Oct."
  • tab_mois(11)= "Nov."
  • tab_mois(12)= "Déc."
  • %>
  • <HTML xmlns:v="urn:schemas-microsoft-com:vml">
  • <HEAD>
  • <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  • <META NAME="Author" Content="RD medias">
  • <style>
  • v\:* {behavior:url(#default#VML);}
  • TD { font-family: Verdana; font-size: 10px; }
  • </style>
  • </HEAD>
  • <BODY>
  • <%
  • ' detection solde max
  • for i=1 to 12
  • ca = ca + tab_compta(i)
  • if Cdbl(ca) > Cdbl(i_max) then i_max = ca
  • next
  • 'i_max = FormatNumber(i_max,0)
  • ca = ca_max
  • points = col/2 &","& FormatNumber((i_max-solde_rapproche)/ratio,0)
  • for i=1 to 12
  • ca = ca + tab_compta(i)
  • points = points &","& (col*i)+col/2 &","& FormatNumber((i_max-ca)/ratio,0)
  • next
  • %>
  • <br>
  • <table border=0 align=center cellpadding=0 cellspacing=0>
  • <tr align=center>
  • <td width=50><%=FormatNumber(solde_rapproche/1000,0)%> K¤</td>
  • <% ca = ca_max
  • for i=1 to 12
  • if tab_compta(i)>0 then
  • ca = ca + tab_compta(i) %>
  • <td width=50><%=FormatNumber(ca/1000,0)%> K¤</td>
  • <% else %>
  • <td width=50>&nbsp;</td>
  • <% end if
  • next %>
  • </tr>
  • <tr>
  • <td colspan=13>
  • <!-- axes -->
  • <div id=global name=global style="position:relative; visibility:show; left:0px; top:0px; z-index:0; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
  • <div id=y name=y style="position:absolute; visibility:show; left:0px; top:0px; z-index:6; width:<%=largeur%>; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
  • <% for i=0 to formatNumber(i_max,0) step ratio*10%>
  • <v:line
  • from="0,<%=i/ratio%>" to="<%=largeur%>,<%=i/ratio%>"
  • strokecolor="<%=gris_fonce%>" style="position:absolute;">
  • </v:line>
  • <% next %>
  • </div>
  • <div id=x name=x style="position:absolute; visibility:show; left:0px; top:0px; z-index:5; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
  • <% for i=0 to 12 %>
  • <v:line
  • from="<%=(col*i)+col/2%>,0" to="<%=col*i+col/2%>,<%=FormatNumber(i_max/ratio,0)%>"
  • strokecolor="<%=gris_fonce%>" style="position:absolute;">
  • </v:line>
  • <% next %>
  • </div>
  • <div id=courbes name=courbes style="position:absolute; visibility:show; left:0px; top:0px; z-index:1; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
  • <v:polyline
  • points="<%=points%>"
  • strokecolor="red" style="position:absolute;">
  • </v:polyline>
  • </div>
  • </div>
  • </td>
  • </tr>
  • <tr>
  • <td width=50 align=center>n0</td>
  • <% for i=1 to 12 %>
  • <td width=50 align=center><%=tab_mois(i)%></td>
  • <% next %>
  • </tr>
  • </table>
  • </BODY>
  • </HTML> 
<%@ Language=VBScript %>
<%
option explicit	

dim gris_fonce:	gris_fonce="#cccccc"
dim col:		col=50					' largeur d'une colonne
dim ratio:		ratio=100				' ration de division pour l'affichage
dim largeur:	largeur=650				' largeur tab

dim solde_rapproche:	solde_rapproche=0		' affectation d'une valeur de base au démarrage (CA rapporté par exemple)
dim ca_max:				ca_max=solde_rapproche
dim ca:					ca=ca_max				' CA
dim i_max:				i_max=ca_max

dim points,points_solde,i

dim tab_compta:	redim tab_compta(12)
for i=1 to 12	' remplissage de la table en Euros
	RANDOMIZE
	tab_compta(i)=Int((4999 * Rnd) + 1)
next

' définition des mois
dim tab_mois:	redim tab_mois(12)
tab_mois(1)	= "Janv."
tab_mois(2)	= "Fév."
tab_mois(3)	= "Mars"
tab_mois(4)	= "Avr."
tab_mois(5)	= "Mai"
tab_mois(6)	= "Juin"
tab_mois(7)	= "Juil."
tab_mois(8)	= "Août"
tab_mois(9)	= "Sept."
tab_mois(10)= "Oct."
tab_mois(11)= "Nov."
tab_mois(12)= "Déc."
%>

<HTML xmlns:v="urn:schemas-microsoft-com:vml">
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META NAME="Author"			Content="RD medias">
<style>
  v\:* {behavior:url(#default#VML);}
  TD { font-family: Verdana; font-size: 10px; }
</style>
</HEAD>
<BODY>

<%
' detection solde max
for i=1 to 12
	ca = ca + tab_compta(i)
	if Cdbl(ca) > Cdbl(i_max) then	i_max = ca
next
'i_max	= FormatNumber(i_max,0)
ca		= ca_max

points	= col/2 &","& FormatNumber((i_max-solde_rapproche)/ratio,0)
for i=1 to 12
	ca = ca + tab_compta(i)
	points = points &","& (col*i)+col/2 &","& FormatNumber((i_max-ca)/ratio,0)
next
%>
<br>

<table border=0 align=center cellpadding=0 cellspacing=0>
<tr align=center>
	<td width=50><%=FormatNumber(solde_rapproche/1000,0)%> K¤</td>
<%	ca = ca_max
	for i=1 to 12
		if tab_compta(i)>0 then 
			ca = ca + tab_compta(i)	%>
			<td width=50><%=FormatNumber(ca/1000,0)%> K¤</td>	
	<%	else	%>
			<td width=50>&nbsp;</td>
	<%	end if
	next				%>
</tr>
<tr>
	<td colspan=13>
	<!-- axes -->
	<div id=global name=global style="position:relative; visibility:show; left:0px; top:0px; z-index:0; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
		<div id=y name=y style="position:absolute; visibility:show; left:0px; top:0px; z-index:6; width:<%=largeur%>; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
	<%	for i=0 to formatNumber(i_max,0) step ratio*10%>	
		<v:line
		from="0,<%=i/ratio%>" to="<%=largeur%>,<%=i/ratio%>"
		strokecolor="<%=gris_fonce%>" style="position:absolute;">
		</v:line>
	<%	next 			%>
		</div>		
		<div id=x name=x style="position:absolute; visibility:show; left:0px; top:0px; z-index:5; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
	<%	for i=0 to 12	%>	
		<v:line
		from="<%=(col*i)+col/2%>,0" to="<%=col*i+col/2%>,<%=FormatNumber(i_max/ratio,0)%>"
		strokecolor="<%=gris_fonce%>" style="position:absolute;">
		</v:line>
	<%	next			%>
		</div>
		<div id=courbes name=courbes style="position:absolute; visibility:show; left:0px; top:0px; z-index:1; height:<%=FormatNumber((i_max+solde_rapproche)/ratio,0)%>px;">
		<v:polyline
		points="<%=points%>"
		strokecolor="red" style="position:absolute;">
		</v:polyline>
		</div>		
	</div>
	</td>
</tr>
<tr>
	<td width=50 align=center>n0</td>
<% for i=1 to 12	%>
	<td width=50 align=center><%=tab_mois(i)%></td>
<% next				%>
</tr>
</table>

</BODY>
</HTML>

 Conclusion

> Ce code est prévu pour des valeurs POSITIVES, à vous de corriger pour exploiter des valeurs négatives.
> Ne pas oublier la déclaration du VML dans la balise HTML et STYLE !


 Sources du même auteur

Source .NET (Dotnet) CONNEXION SQL SERVEUR + LISTBOX
Source avec Zip Source avec une capture GRAPHIQUE EN BARRES (FAÇON EXCEL)
Source avec une capture SUPPRESSION DES BALISES HTML
CRÉATION D'UN DOCUMENT WORD SANS WORD SUR LE SERVEUR
Toutes les sources de zeb13

 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

 Sources en rapport avec celle ci

Source avec une capture ASP/VML, TRACER UN HISTOGRAMME À PARTIR D'UNE BD SQL SERVER ... par rahou

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

[EXCEL]comment peut tracer dans excel une courbe tri-logarithmique? [ par aminagc ] je veux tracer dans excel une courbe tri-logarithmique . C'est pourquoi je sollicite votre aide pour la réussite de l'exerce Traitement algorithmique pour un labyrinthe [ par lovemeforaday ] Bonjour, je dois réaliser la procédure pour écrire un labyrinthe. Problème je n'arrive pas à avancer. Je vous explique mes contraintes. J'ai un lab a Tracer des courbes et des histogrammes en ASP [ par abdo ] Bonjour; je serais trés reconnaissant si quelqu'un me donne la meilleure méthode de tracer des courbes et des histogrammes en ASP.et merci d'avance. ::URGENT:: Tracer un trait [ par ctof3552 ] Slt!est-il possible de dessiner avec l'ASP ? a savoir, tracer un trait entre 2 points A(X1,Y1) et B(X2,Y2) ?thx!A+ question :tracer arbre pour un structure lineaire [ par jhonne2 ] bonjour a tout je vous un code source qui permet de tracer un arbre pour un structure lineare par exemple P ( GN ( DET (la) N (fille) ) GV ( V (dor Frames [ par bartez999 ] (debutant!)Bonjour tout le monde,en fait j'ai une page qui est divisée en deux frames ("droite" et ""gauche")celui de la gauche se compose de deux cha ASP.NET Double redirection + Authentification [ par cabbry ] Bonjour,j'ai une application&nbsp; .Net de type Web, avec 2 frames.Le menu a gauche et le contenu a droite.Dans&nbsp;le menu, il y a un lien vers la p Organigramme hiérarchique (Au secours) [ par TTMan ] Bonjour,Je cherche un exemple de code source permettant de tracer un organigramme hi&#233;rarchique (du type d'un code PHP vu sur phpcs.com).Le but es Comment tracer un utilisateur ? [ par zigxag ] Bonjour !Dans mon application ASPNet 2, je voudrais tracer les faits et gestes de l'utilisateur. Je voudrais avoir des infos sur son parcours, sur ce Tracer dans un fichier ASP.net 2.0 [ par minsou ] Hello j'essaye de tracer des informations dans un fichier à partir d'une page webforms sans succés :J'utilise pour cela le traceSource. Ni la méthode


Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Renewable Energy is Within ReachPhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo vue aerienne de Kerassel, Le logéo, Golfe du Morbihan (56) 

Visiter la photothèque
 
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 : 2,746 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)