Vu-métre à aiguille

Soyez le premier à donner votre avis sur cette source.

Vue 19 372 fois - Téléchargée 1 957 fois

Description

Salut à tous .
Voici un vu-métre à aiguille sous forme d'un (tout)petit OCX .
On peut changer la couleur des graduations , des chiffres , le libellé des chiffres , la couleur du fond , de l'aiguille , l'unité

de mesure (Volt , Amp , db ... ) ainsi que sa couleur .
La valeur en entrée si situe entre 0 et 255 (byte). Un événement Over se déclanche quand l'aiguille arrive dans la zone

rouge et renvoi la valeur d'entrée .
J'avais besoin d'un tel composant pour un projet un cours et je n'ai riens trouvé qui me convienne , alors j'ai fais le mien .
Je sais qu'il y aurait encore des optimisations à faire (notament la sub Graduation , peut-être avec des boucles imbriquées

...) , mais ça marche bien comme ça .
Je l'ai tèsté sous plusieurs résolutions et je n'ai pas trouvé de bug .
J'ai commenté à peu prés tout mais si c'est pas clair ou si il y a des questions , n'hésitez pas .
J'implore vôtre indulgence , c'est mon premier OCX .

Conclusion :


Je n'ai pas utilisé de PropertyBag pour deux raisons :
1> je ne sais pas encore m'en servir
2> je n'en avais pas besoin ici

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
89
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2013

Ok , ça marche .

@+
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
Biensur j'y es penssé aussi au DMX ,d'ailleur velleman vends des KIT DMX/PC, le pourquoi du comment de mon choix tiens uniquement au coup d'un projo DMX ! Ce soft est réalisé pour un petit théatre d'un pote de fofo et il n'a pas les moyen pour l'instant d'investir dans du prof. Voila, de plus cette carte USB 5E/8S dont 2E/2S ana 8bit est vraiment idéale pour dévelloper des petit automatisme sur PC, ou banc de mesure. Super simple à programmer, relativement puissance (malgrés l'usb1.0 :( 10ms de raffraichissemnt maxi). Enfin voila j'ai plein de projet avec cette petite carte ( banc de mesure sous excel, courbe de gauss, domotique, gestion de lumiére...)
++ et pour finir sur ton OCX, j'ai reussi à me dépatouiller avec les labels ;) te casse pas la tête ;)
++
Messages postés
89
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2013

Salut ADN ,
Alors t'as mis le doigt sur le problême principal .
Pour commencer tu as raison pour le variant :je l'ai dèclaré comme ça parce que , au départ , je ne savais pas trop comment déclarer un tableau donc , je l'ai mis en variant pour être sur que ça marche et j'ai oublié de changer , mais c'est bien en string qu'il qu'il faut le dèclarer .
Ensuite , le prob que tu as vient de mon boulot de gougnafier (si ça existe : c'est un arbre à gougnafe ;) LOL).
En fait pour que les labels collent à une aiguille sur deux et sans me faire suer j'ai indexé les labels un sur deux .En fait j'ai collé 16 labels et j'en ai viré un sur deux .J'ai du faire pareille avec les TextBox dans le prog d'exemple .Je pense que ta galére viens de là :tes TextBox n'ont pas le bon index (ça devrait être : 0,2,4,6,8,10,12,14,16)et ça te génére l'erreur . Désolé , je vais voir comment je peux corriger ça .
Pour le long t'as raison , mais j'ai lus qq part que comme le processeur travail avec des longs , ça va plus vite et ça ne bouffe pas plus de mémoire (à vérifier).
Voila sinon je n'ais pas essayer le tient parce que j'ai des probs de download des zips de ce site .

Pour changer de sujet , je suis passé sur ta régie lumiére et je me suis dit que tu serais peut être interressé par l'implémentation du DMX 512 qui est le format pro dans le light sur scéne . J'ai un petit fichier (en anglais) qui décrit cette norme succintement .Si ça t'interresse , je peux te l'envoyer .

Voila @+
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
Bon je viens de tester ton OCX, il fonctionne correctement sous VB.NET.
Remarques :
Je ne comprends ces lignes, tu transféres les valeurs de l'echelle du VU, mais chez moi il me jette (voir mon code en fin de post)

Dim vals(16) As Variant ' pourquoi en variant ? j'ai mis du string c'est bon ?

Dim i As Long ' integer suffit ;)

For i = 0 To 16 Step 2 ' pourquoi ne pas compter de 0 à 8 ???
vals(i) = Text2(i).Text
Next i

VuMetre1.Valeurs = vals ' j'ai écris cela mais il me fait un débordement d'index :(

En faite voila ce que j'ai dis :

Dim vals(8) As String
For AA As Integer = 0 To 8
vals(AA) = AA
Next
VuMetre1.Valeurs = vals

@ te lire ++
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
clair c'est le futur ^^ bonne continuation
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.