VU-MÉTRE MULTIPLE (USERCONTROL, DLL)
Adn56
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
5 oct. 2007 à 15:18
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 31 oct. 2011 à 19:36
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 31 oct. 2011 à 19:36
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/44285-vu-metre-multiple-usercontrol-dll
https://codes-sources.commentcamarche.net/source/44285-vu-metre-multiple-usercontrol-dll
31 oct. 2011 à 19:36
30 oct. 2011 à 14:24
Par contre je ne sais pas si cela peut être fait mais je pilote des oscillateurs avec un angle mini de 0 et maxi de 180°. il me faudrait donc 2 aiguilles mais réglable à la souris se serait pas mal.
Le but étant de crée un logiciel pour paramétrer un arduino par des néophytes.
Vous avez peut être des propositions à me faire.
27 mars 2010 à 23:50
Tes afficheur a aiguille sont tres bien mais le vumetre n'est pas un vrai vumetre, il n'a pas l'effet de memoire de l'aiguille cf:
http://fr.wikipedia.org/wiki/VU-m%C3%A8tre
d'ou la petite bar qui memorise le max et qui redessend apres sur le mien.
C'est bien quand meme, merci.
10 oct. 2007 à 14:37
merci de ton aide
Voila grosse mise à jour, j'arrete pour l'instant, pour passer à autre chose. Si modif ou bug ou autres klaxonnez cela fait vraiment plaisir d'avoir des avis (bon ou pas d'ailleur)
++
9 oct. 2007 à 08:01
ça reste plus framework, mais celà n'engage que moi.
8 oct. 2007 à 18:40
maintenant si te le trouve bien met une chtite note pour la peine cela me fera plaise ;)
sinon vois tu des améliorations à faire ?
@ te lire ++
8 oct. 2007 à 17:33
Sinon super
5 oct. 2007 à 18:41
tout marche bien sauf l'affichage qui clignote :( au secour les pros!!!!
5 oct. 2007 à 17:40
arff la trigo cela fait 15 ans que j'en avais pas refait ^^
merci de ton interet je post cela dans 1/2heure maxi.
++
5 oct. 2007 à 17:27
en attendant ton code est fourni sans la source? juste la class "vu" à copier/coller?
peux-tu refaire le zip pour qu'il contienne l'intégralité du code stp
5 oct. 2007 à 16:52
j'ai remplacer le Me.refresh() par un Me.invalidate() dans la propriété position et j'ai aussi virer le Me.BackgroundImage = fond de la propriété paint pour le placer dans la propriété type.
Mais voila cela continu à clignoter ! (cpu à 1% pourtant)
S'il vous plait, aider moi les electroniciens et autres laborentin vous dirons merci (moi le premier bien sur)
en attendant je continu à bosser sur les paramétres de positions pour ne plus à avoir à renseigner les centres x,y et rayon lors d'un redimensionnement du control.
++ et merci de votre aide.
5 oct. 2007 à 15:18
donc voici comment reproduire l'exemple de la capture :
Public Class Form1
Dim inc1, inc2, inc3, inc4 As Integer
Dim sens1, sens2, sens3, sens4 As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
inc1 = 19
sens1 = False
inc2 = 30
sens2 = False
inc3 = 20
sens3 = False
inc4 = 20
sens4 = False
Vu1.Width = 200
Vu1.Height = 150
Vu1.centre_X = 100
Vu1.centre_Y = 100
Vu1.Son_rayon = 80
Vu1.Ep_aiguille = 2
Vu1.Couleur_aiguille = Color.Black
Vu1.type_VU = 0
Vu2.Width = 200
Vu2.Height = 150
Vu2.centre_X = 100
Vu2.centre_Y = 150
Vu2.Son_rayon = 100
Vu2.Ep_aiguille = 2
Vu2.Couleur_aiguille = Color.DarkGray
Vu2.type_VU = 1
Vu3.Width = 200
Vu3.Height = 150
Vu3.centre_X = 100
Vu3.centre_Y = 98
Vu3.Son_rayon = 80
Vu3.Ep_aiguille = 2
Vu3.Couleur_aiguille = Color.DarkBlue
Vu3.type_VU = 2
Vu4.Width = 200
Vu4.Height = 150
Vu4.centre_X = 98
Vu4.centre_Y = 131
Vu4.Son_rayon = 85
Vu4.Ep_aiguille = 1
Vu1.Couleur_aiguille = Color.Black
Vu4.type_VU = 3
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Not sens1 Then If inc1 < 80 Then inc1 +2 Else sens1 True
If sens1 Then If inc1 > 20 Then inc1 -2 Else sens1 False
Vu1.position = inc1
Vu4.position = inc1
If Not sens2 Then If inc2 < 72 Then inc2 +2 Else sens2 True
If sens2 Then If inc2 > 28 Then inc2 -2 Else sens2 False
Vu2.position = inc2
Vu3.position = inc1
End Sub