DIAGRAMME BATON
Redman31100
Messages postés
167
Date d'inscription
mardi 11 septembre 2007
Statut
Membre
Dernière intervention
11 février 2009
-
10 oct. 2008 à 16:34
Ouggada Messages postés 38 Date d'inscription dimanche 24 décembre 2000 Statut Membre Dernière intervention 4 mars 2009 - 4 mars 2009 à 08:22
Ouggada Messages postés 38 Date d'inscription dimanche 24 décembre 2000 Statut Membre Dernière intervention 4 mars 2009 - 4 mars 2009 à 08:22
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/48159-diagramme-baton
https://codes-sources.commentcamarche.net/source/48159-diagramme-baton
4 mars 2009 à 08:22
je vais essayer de m'y atteler et de voir comment faire!
et pourquoi pas la chance du débutant me permettra de trouver la soolution!
Sur ce je me remet au boulot!
Cordialement, Ouggada.
3 mars 2009 à 16:55
La seule solution pour le moment est d'utiliser la propriété "Values" qui attend un tableau de single.
Si j'arrive à trouver un peu de temps, je tacherais à rendre ce control plus dynamique.
3 mars 2009 à 16:40
fiou!
il faudrait peut-être que je m'achète une paire de lunette!!
seulement maintenant je ne vois pas comment lier des données d'une colonne d'un datagrid ou autre chose???
En tout cas c'est stylé!! j'aime bien! 8/10
3 mars 2009 à 15:07
je me sens mal d'être le seul à pas avoir trouver la solution...
Enfin!
Si tu peux m'aider, j'en serai ravi.
ReMerci d'avance!
3 mars 2009 à 14:42
Si tu ne le trouve pas dans la boite a outils, hésite pas à revenir. Au pire j'ajouterais un projet complet dans la source
3 mars 2009 à 14:26
je suis désolé, je suis ptetre un peu lent mais justement je ne comprend pas du coup à quoi correspond le glisser/déposer de la boite à outils vers ma form???
Merci de ta réponse en tout cas!
3 mars 2009 à 11:23
Il suffit de l'ajouter dans un projet et de faire un glisser/déposer de la boite à outils vers ta form.
3 mars 2009 à 10:49
j'aimerai utiliser cette source mais je ne sais vraiment
pas comment faire pour la lier à mon projet et accessoirement à un bouton!
En effet lorsque je fais :
Diagramme_Baton.Sow()
j'ai le message suivant :
Une référence à un membre non partagé requiert une référence d'objet.
Merci pour vos réponses,
Cordialement
15 oct. 2008 à 19:40
Par il faut que ce soit un tableau de single dont la taille correspond aux nombres de colonnes du diagramme.
15 oct. 2008 à 17:59
15 oct. 2008 à 17:57
15 oct. 2008 à 17:39
15 oct. 2008 à 17:31
15 oct. 2008 à 17:26
15 oct. 2008 à 16:18
15 oct. 2008 à 16:11
10 oct. 2008 à 17:09
Public Sub New()
'Valeurs par défaut
NumOrd = 25
NumAbs = 70
name_absc = ""
name_ord = ""
cBatonColor = Color.Lime
InitializeComponent()
FirstIndex = 1
Unite_X = (Me.Width - 40) / NumAbs
Unite_Y = (Me.Height - 40) / NumOrd
'Tracé des axes
Draw_Axe()
'initialisation des valeurs à 5
For x As Integer = 0 To NumAbs - 1
Tab_Point(x) = 5
Next
'Tracé des batons
Draw_Baton()
End Sub
Ensuite en valeur private du controle j'ai ajouté
Private cBatonColor As Color ' couleur des batons
et dans la région propriétés j'ai ajouté
' Couleur Baton
Public Property BatonCouleur() As Color
Get
Return cBatonColor
End Get
Set(ByVal value As Color)
cBatonColor = value
Draw_Axe()
Draw_Baton()
End Set
End Property
Et j'ai modifié ceci :
Private Sub Draw_Baton()
Image_Baton = Image_Axe.Clone 'Création de l'image baton
Dim graph As Drawing.Graphics = Graphics.FromImage(Image_Baton) 'on récupère l'objet graphics de cette image pour dessiner
graph.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed 'passage en mode HighSpeed
'boucle sur toutes les valeurs du tableau et affichage des batons
For x As Integer = 0 To NumAbs - 1
Tab_Point(x) = Math.Ceiling(Tab_Point(x))
Dim valeur_attenuation As Single = IIf(Tab_Point(x) > NumOrd, NumOrd, Tab_Point(x)) 'au cas ou les valeurs du tableau dépasse de la valeur max
Dim My_rectangle As New Rectangle(20 + Unite_X * x, 20 + Unite_Y * (NumOrd - valeur_attenuation), Unite_X, Me.Height - 40 - Unite_Y * (NumOrd - valeur_attenuation)) 'création du rectangle suivant la valeur du tableau
Dim My_Brush As New SolidBrush(cBatonColor)
'affichage du rectangle
graph.FillRectangle(My_Brush, My_rectangle.X, My_rectangle.Y, My_rectangle.Width, My_rectangle.Height)
' affichage du contour
graph.DrawLine(Pens.Black, My_rectangle.Left, My_rectangle.Top + My_rectangle.Height, My_rectangle.Left, My_rectangle.Top)
graph.DrawLine(Pens.Black, My_rectangle.Left, My_rectangle.Top, My_rectangle.Left + My_rectangle.Width, My_rectangle.Top)
graph.DrawLine(Pens.Black, My_rectangle.Left + My_rectangle.Width, My_rectangle.Top, My_rectangle.Left + My_rectangle.Width, My_rectangle.Top + My_rectangle.Height)
Next
'Affichage des coordonnées sur l'image
If Not Image_Coord Is Nothing Then
graph.DrawImage(Image_Coord, Me.Width - size_texte.Width, 0)
End If
'affichage des images à l'écran
Flushimage()
End Sub
Voilà, je remarque que parfois les bordures cote a cote de 2 batons sont pas colinéaires donc ca fait une trait épais.
Voilà
10 oct. 2008 à 16:34
Aucun bug, comme amélioration j'ai peut être une idée c'est de faire un contour noir a chaque baton(droit, haut, gauche seulement).