ASP/VML, TRACER UN HISTOGRAMME À PARTIR D'UNE BD SQL SERVER OU AUTRE
cs_fabrice69
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Membre
Dernière intervention
11 décembre 2013
-
25 juin 2004 à 01:33
Jo_Pistol Messages postés 12 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 26 juillet 2007 - 16 juil. 2007 à 13:17
Jo_Pistol Messages postés 12 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 26 juillet 2007 - 16 juil. 2007 à 13:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23965-asp-vml-tracer-un-histogramme-a-partir-d-une-bd-sql-server-ou-autre
https://codes-sources.commentcamarche.net/source/23965-asp-vml-tracer-un-histogramme-a-partir-d-une-bd-sql-server-ou-autre
16 juil. 2007 à 13:17
Pas mal tu tout l'utilisation du vml.
Est ce que tu sais si il est possible de faire des "pivot chart" avec ou pas.
Merci
21 mars 2006 à 23:30
Il suffira de faire varier certaines propriétés de la balise rect.
21 mars 2006 à 16:44
seulement si on pouvait avoir des histogramme verticaux
31 août 2005 à 12:59
as tu plus de news à propos des Navigateurs compatibles ???
genre Nescape, opéra, mozilla
Ils devraient bientot le faire etant recommander (ou normaliser) par le W3C
en tout cas, à choisir entre la daube Flash et le VML j'ai choisi :-)
bye
30 août 2005 à 18:21
Merci quand même.
Il faut cependant noter que le VML est quand même à ses balbutiements étant donné que des navigateurs comme firefox ne l'ont pas encore adopté.
30 août 2005 à 17:52
je me permets de mettre un code un peu plus généraliste pour en faire profiter tout le
monde meme les novices
Je sais c'est facile de mettre un code derrière un autre, mais c'est pour montrer plus de
fonctionalité entre autre la 3D.
Une petite Image : http://img353.imageshack.us/img353/8491/test0bc.jpg
Voilà le code (copier / coller dans notepad et enregistrer sous test.htm) :
<html xmlns:v="urn:schemas-microsoft-com:vml">
<head>
<title>Résultats du Sondage Intranet</title>
<style>
v\:* {behavior:url(#default#VML);}
</style>
</head>
<SCRIPT language="VBScript">
Function RazRotate()
txtX.value = 0
txtY.value = 0
txtZ.value = 0
rx = 0
ry = 0
rz = 0
For i = 1 To 10
document.getelementbyid("Rect"&cstr(i)).rotation = rz
document.getelementbyid("Ext"&cstr(i)).rotationangle = rx & " " & ry
Next
End Function
Function ChangeRotate()
x = txtX.value
y = txtY.value
z = txtZ.value
If Not IsNumeric(x) Then
alert("X : n'est pas Valide !!!")
txtX.focus()
return
End If
If Not IsNumeric(y) Then
alert("Y : n'est pas Valide !!!")
txtY.focus()
return
End If
If Not IsNumeric(z) Then
alert("Z : n'est pas Valide !!!")
txtZ.focus()
return
End If
rx = x
ry = y
rz = z
For i = 1 To 10
document.getelementbyid("Rect"&cstr(i)).rotation = rz
document.getelementbyid("Ext"&cstr(i)).rotationangle = rx & " " & ry
Next
End Function
Function Change3D()
Select Case Sel3D.value
Case "2D"
For i = 1 To 10
document.getelementbyid("Ext"&cstr(i)).backdepth = 0
Next
Case "3D"
For i = 1 To 10
document.getelementbyid("Ext"&cstr(i)).backdepth = 75
Next
End Select
End Function
Function ChangeDegrade()
Select Case SelDegrade.value
Case "Sans"
For i = 1 To 10
document.getelementbyid("Deg"&cstr(i)).type = none
Next
Case Else
For i = 1 To 10
document.getelementbyid("Deg"&cstr(i)).on = True
document.getelementbyid("Deg"&cstr(i)).type = SelDegrade.value
Next
End Select
End Function
</SCRIPT>
<center>
<v:line from="0, 0" to="70, 0" style="width:100;height:100">
<v:fill on="True" color="#FFFFFF" color2="#fe845a" type="gradient" angle="180" />
<v:shadow on="true" color="#808080" offset="5pt, 5pt" opacity="50%" />
<v:path textpathok="True" />
<v:textpath on="True" string="Résultats du Sondage Intranet" style="font:normal normal normal 40pt Arial" />
</v:line>
</center>
<hr>
Dégradé :
<select name="SelDegrade" onchange = "ChangeDegrade()">
<option value="Sans"> Sans</option>
<option value="gradient" selected> Gradient</option>
<option value="gradientradial"> Gradient Radial</option>
</select>
Vue 3D :
<select name="Sel3D" onchange = "Change3D()">
<option value="2D">2D</option>
<option value="3D" selected> 3D </option>
</select>
Rotation :
x y
z =
<hr>
<script language="VBScript">
Dim R
Dim V
DIM B
DIM WAleat
DIM Couleur
For i=1 to 10
R hex(Int((255 - 0 + 1)*Rnd() + 0)) 'Couleur Aléatoire Rouge (0> 255)
V hex(Int((255 - 0 + 1)*Rnd() + 0)) 'Couleur Aléatoire Vert (0> 255)
B hex(Int((255 - 0 + 1)*Rnd() + 0)) 'Couleur Aléatoire Bleu (0> 255)
WAleat Int((255 - 0 + 1)*Rnd() + 0) 'Longeur de l'Histogramme Aléatoire (0> 255)
CouleurR&V&B 'La Couleur en Hexadecimal est à Rouge + Vert + Bleu
randomize ' un petit Random pour qu'à chaque rafraichissement ça bouge un peu
'La partie Dégradé => <v:fill
'La partie 3D de votre Rect avec une autre forme de terminaison de balise VML "" comme le XHTML => <v:extrusion
document.write "<v:rect id='Rect"&i&"'"&_
" fillcolor='#"&Couleur&"'"&_
" style='position:relative;top:1;left:1;width:"&WAleat&";height:20'>"&_
"<v:fill id='Deg"&i&"' on='True' type='gradient' color='#"&Couleur&"' />"&_
"<v:extrusion id='Ext"&i&"' on = 't' type = 'perspective' backdepth = '75pt' />"
if WAleat > 55 Then 'Comme je donne la largeur de l'Histogramme au libellé interne, je suis obligé d'adapter pour éviter le retour chariot à cause de la Largeur
document.write "
test : "&i&"
"
Else
document.write "
test : "&i&"
"
End If
document.write "
"&WAleat&"
"&_
"</v:rect>"&_
"
"
Next
</script>
</html>
Bye et continue le VML
27 août 2004 à 18:37
merci pour cette source.super
25 juin 2004 à 01:33
- http://www.asp-php.net/tutorial/vml/index.php
F___