JAUGE HORIZONTALE PROGRESSIVE AVEC SIGNETS
cs_yannickt
Messages postés
64
Date d'inscription
lundi 25 août 2003
Statut
Membre
Dernière intervention
22 novembre 2011
-
21 sept. 2005 à 08:53
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 11 août 2009 à 09:22
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 11 août 2009 à 09: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/33877-jauge-horizontale-progressive-avec-signets
https://codes-sources.commentcamarche.net/source/33877-jauge-horizontale-progressive-avec-signets
11 août 2009 à 09:22
Couleur des Sig ne marche pas, le redimensionnement du control non plus (le fait de passer par un bitmap peut être ?), une erreur lors de la pause sur la form, mais apres il roule.
Code Ex :
Dim i As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'limite min, max et légende
AxUserControl11.setLmt(0, 100, "°C")
'position des Signets
AxUserControl11.setSig(0, 10)
AxUserControl11.setSig(1, 50)
AxUserControl11.setSig(2, 90)
AxUserControl11.loadSig(3, 2) ' reste toujours noir qq soit la valeur ou rouge si aucune valeur de tapé.
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'incrémente la jauge
If i < 100 Then i = i + 2
AxUserControl11.setJau(i)
' fait bouger le signet 4
If i < 50 Then
AxUserControl11.setSig(3, 2 * i)
Else
AxUserControl11.setSig(3, i / 2)
End If
End Sub
Pour ce qui est de l'utilité, cela peu permettre d'afficher plusieurs valeur (grace au signet) sur un seul bargraph. Ex °C,Hygro,Pression. Dommage qu'il soit si vérouillé niveau paramétres (pas possible de l'avoir vertical par exemple)
@++
22 sept. 2005 à 23:14
22 sept. 2005 à 19:16
je viens de m'apercevoir d'un petite bétise :
pour l'exemple, il y a 16 couleurs, donc logiquement :
' *- déclaration -*
Const NbColors As Integer = 16
Dim TabColors(NbColors-1) As OLE_COLOR
' *- loadSig -*
(...)...= TabColors(Int((NbColors-1) * Rnd))
et bien sûr, le principe de mettre un "Optionnal", c'est d'appeler :
' *- command3 (appel Load Signet) -*
loadSig txtsig 'pas besoin de préciser "0"
'(...)
tout restait correct, mais bon^^
@+
PCPT
22 sept. 2005 à 18:58
22 sept. 2005 à 12:20
prise en compte des valeurs négatives, très bien.
j'ai regardé le code d'un peu plus près, voici une petite amélioration possible.
principe : aléatoire sur les couleurs des signets supplémentaires
pratique :
' *- déclaration -*
Const NbColors As Integer = 15
Dim TabColors(NbColors) As OLE_COLOR
' *- form Load -*
'(...)
'init tableau couleur aléatoires
TabColors(0) = &HFFFFFF 'blanc
TabColors(1) = &HC0C0C0 'gris
'pâles
TabColors(2) = &HC0C0FF 'rose
TabColors(3) = &HC0E0FF 'saumon
TabColors(4) = &HC0FFFF 'jaune
TabColors(5) = &HC0FFC0 'vert
TabColors(6) = &HFFFFC0 'bleu
TabColors(7) = &HFFC0C0 'violet
TabColors(8) = &HFFC0FF 'mauve
'vifs
TabColors(9) = &HFF& 'rouge
TabColors(10) = &H80FF& 'orange
TabColors(11) = &HFFFF& 'jaune
TabColors(12) = &HFF00& 'vert
TabColors(13) = &HFFFF00 'bleu clair
TabColors(14) = &HFF0000 'bleu foncé
TabColors(15) = &HFF00FF 'magenta
Randomize 'Time pour aléatoire
'(...)
'(et Load 1 et 2 sont devenus "loadSig 1, TabColors(14) 'vbBlue"
"loadSig 2, TabColors(9) 'vbRed")
' *- loadSig -*
Public Sub loadSig(sigID As Integer, Optional ByVal Couleur As OLE_COLOR = 0)
'(...)
If Couleur 0 Then Couleur TabColors(Int(NbColors * Rnd))
'(puis tes 2 Load normaux)
' *- command3 (appel Load Signet) -*
loadSig txtsig, 0
setSig txtsig, txtns
encore du boulot, mais c'est vraiment pas mal ;)
modification possibles en ocx:
*éventuellement écrire le texte (pas en label) + pouvoir le placer (right left center) + Font
*choisir couleur de fond (même si j'aime le noir ;))
*pouvoir étirer ou rétrécir, au moins en longueur
*menu contextuel sur le contrôle, mais tout dépend de l'utilité...
*signets personnalisés
toujours pas noté ;)
bon boulot, bonne continuation
++
PCPT
22 sept. 2005 à 09:49
21 sept. 2005 à 19:38
21 sept. 2005 à 19:06
tu demandes des commentaires constructifs et pertinants, je le crois au moins constructif.
pertinant, dire qu'un contrôle nommé est préférable, rien de bien pertinant, mais ce n'est pas ce qui prend le plus de temps dans un projet... (si?)
qu'il soit incomplet n'est pas un problème, c'est justement le but de demander un avis préalable pour l'améliorer....
pour le niveau, pour être honnête, çà me fait une belle jambe. met comme il te plaît. ce qui est certain, c'est que le lecteur qui ne fera que survoler ta source sera encore plus sévère avec un niveau disproportionné
pour l'utilité de ce contrôle, je n'arrive toujours pas à me le représenter.
je répère, contrôle intéressant, effet réussi.
bonne continuation
PCPT
21 sept. 2005 à 18:39
Je m'excuse de vous avoir livré un fouilli de code, mais c'est une étape "fonctionnelle" de mon projet, Merci de ton commentaire, PCPT.
21 sept. 2005 à 13:12
le code est vraiment à revoir.
aucune indentation, des lignes inutiles
ex :
If (nn - (100 / con.Width * niv.Width)) < 1 Then niv.Width = niv.Width + 1: GoTo fin
niv.Width = niv.Width + (nn - (100 / con.Width * niv.Width)): GoTo fin
avec un fin: juste en dessous
le ELSE sert à çà ;)
des OnError partout.... (pas une vrai gestion çà)
la jauge à 0 ou 99 n'est pas correcte
tu n'as pas géré l'erreur du Load(5) si plusieurs fois
bref, bcp de boulot encore.
mais pour ta défense, le résultat est plutôt pas mal, même si j'ai du mal à en voir réellement l'application et l'utilité.
tu devrais également gérer par exemple ces fameux Load par un menu (pour ne pas en ajouter qu'un seul)
régler ce problème de graduation incorrecte
nommer tes contrôles !!!!
pouvoir bouger manuellement les signets (à la souris, drag & drop), çà serait bien plus sympa ;)
je note pas, y'a du boulot.
ah, et si tu ne veux pas trop te faire charpiller, petit conseil, ne laisse pas le code en "initié"
j'attend la suite et une réponse sur "mais pourquoi l'intégrer à un projet" (utilité)
++ bon courage
PCPT
21 sept. 2005 à 08:53
Yannick