Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VU-MÉTRE À AIGUILLE


Information sur la source

Catégorie :Control Classé sous : vumétre aiguille, OCX, mesure, usercontrol Niveau : Débutant Date de création : 19/10/2007 Vu / téléchargé: 8 325 / 925

Note :
9 / 10 - par 2 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
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
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de drissou le 20/10/2007 10:01:12

salut epson1
Ton vu mètre est sympa
Je me pose 2 questions :
- lorsque tu utilises ton boutons pour changer les valeurs des graduations, puis que tu bouges ton curseur, les valeurs affichées dans ton label en bas ne tiennent pas compte des nouvelles valeurs.
- dans le même esprit , comment changes-tu la valeur de début de la zone "rouge" ?

pour le rendre plus "transportable" (même si tu l'as fait à ta main) c'est peut être, rendre variable le nombre de graduations et plutot demander les valeur minimum et max de ton vu-mètre, les valeurs intermédiaires étant créées par calcul. car ici notamment on peut mettre des valeurs différentes des valeurs attendues; exemple 1,3,10,25,30,100..
En tout cas cela va me servir;
as tu fait un prog d'acquisition de physique, électronique ?

signaler à un administrateur
Commentaire de epson1 le 20/10/2007 15:47:41

Salut Drissou et merci pour ton commentaire .
Pour répondre à tes questions , la valeur affichée dans le label vert est celle du curseur , donc celle entrée dans le

vu-métre . Il est donc normal qu'elle ne tienne pas compte des graduations .
Pour changer la valeur d'une  graduation , il faut donner toutes les valeurs dans les TextBox et les envoyer (ça se transfert

sous forme d'un tableau) donc le début de la zone rouge est compris dedans .
D'autre part , je n'ai pas voulu calculer les valeurs , car ça permet de mettre ce qu'on veut : echelle lineaire ou

logarithmique et même des lettres et symboles, j'en aurais besoin pour un projet à venir .Ne pas oublier que ça fonctionne

avec des valeurs entre 0 et 255 et donc il faut l'etalonner avec les mesures à effectuer pour une indication fiable .
Dans un premier temps , c'est pour monitorer mon onduleur TRI 600 KVA (63A) .
Pour ta derniere question , j'ai appris le VB et je ne fais des progs pratiquement que pour gérer du matos ou des interfaces

externes (PLC , table à decouper plasma , laser de spectacle , oscillo num etc ...) sur port // ou série .
Vala , bonne continuation et si tu as d'autres questions , à ton service .

@+

signaler à un administrateur
Commentaire de drissou le 20/10/2007 16:14:20 9/10

ok merci ;o)

signaler à un administrateur
Commentaire de Adn56 le 20/10/2007 19:01:56

comme moi quoi ^^
dommage que je ne puisse lire ta source car j'ai fait pratiquement la meme chose en VB.NET ;)

http://www.vbfrance.com/codes/VU-METRE-MULTIPLE-USERCONTROL-DLL_44285.aspx

je vais essayer de décripter ton code pour voir si je peux améliorer la mienne ;)

++

signaler à un administrateur
Commentaire de epson1 le 21/10/2007 01:30:44

Salut ADN56 ,
Y'a 2 jours , j'etais en train de bosser sur mon UC quand j'ai vu le tient etje me suis dis : M.... y'en a déja un !!!
Je voulais m'en inspirer mais qq part j'ai été rassuré : c'est du .NET .Je me suis dis : tant mieux , je préfere le faire tout seul "mon mien" , c'est le meilleur moyen d'apprendre . Et en VB6 comme ça y'en aura pour tout le monde .
D'un autre coté , le tient al'air beaucoup mieux que le mien surtout que tu l'as amélioré depuis d'aprés ce que j'ai vu .Je ne l'ai pas downlodé parce que j'y comprends rien a .NET .
Une petite question : tu pense que ton UC tournerais dans un prog VB6, une fois compilé ? parce que j'essaierais bien VU qu'il me plais bien ;) . J'ai vb 2005 express pour tester certaines sources mais je ne peux qu'utiliser le prog tout fait , j'y connais rien en .NET et ça m'enerve de pas comprendre ce que j'utilise .
En tout cas , merci pour la note .
@ +

signaler à un administrateur
Commentaire de Adn56 le 21/10/2007 12:22:55

Oula comment tu y vas, je suis vraiment pas sur que le miens soit le meilleur ^_^, sinon tu as raison pour l'autoformation, je fais pareil en .NET (et puis tu sais du VB reste du VB c'est juste la façon de le dire qui change ;), bon de toute façon j'en suis au tout début alors tu vois....y a encore du Boulot lol) Bref pour ton UC je vais la tester cette aprem ci j'ai le temps et pour la mienne j'ai envie de dire que si tu as le framework 2.0 d'intallé sur ton post tu peux essayer de l'inclure dans un projet VB6, je ferais bien l'essais mais je n'ai que VB4 et là cela commence à faire vieux MDR. Voila bon courage pour la suite et content d'avoir un collégue automaticien dans le coin ;) ++

signaler à un administrateur
Commentaire de epson1 le 21/10/2007 16:15:36

Bin moi je vais essayer le tient et on verra bien si ça tourne .Et pis c'est peut-être le moment de me mettre à NET .

@+

signaler à un administrateur
Commentaire de Adn56 le 21/10/2007 16:26:01 9/10

clair c'est le futur ^^ bonne continuation

signaler à un administrateur
Commentaire de Adn56 le 22/10/2007 11:32:52

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 ++

signaler à un administrateur
Commentaire de epson1 le 22/10/2007 17:58:41

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 @+

signaler à un administrateur
Commentaire de Adn56 le 23/10/2007 07:44:44

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 ;)
++

signaler à un administrateur
Commentaire de epson1 le 23/10/2007 15:21:20

Ok , ça marche .

@+

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Ocx et propriété [ par Cartman ] Je cherche à utiliser la propriété ItemData d'un listebox que g créé dans un UserControlvoila ce que g fait dans mon Let et je c pas quoi mettre comme Une Form dans un ActiveX (OCX) [ par Lolux ] Bonjour, Je suis en train de créer un ActiveX qui contient :Une FormUn ModuleUn UsercontrolMa form et une sorte de fenêtre d'option qui doit permettre OCX - USERCONTROL - ENTREES/SORTIES [ par salazar ] J'ai créé indépendemment 2 usercontrols. Le 1er a 2 variables d'entrées/sortie et le 2ème en a également 2.A partir des 2 codes sources, j'ai généré 2 fermeture d'un ocx [ par pointdalattitude ] Bonjour,Je voulai savoir si c'était possible de fermer mon control activex avec un bouton de commande.J'ai essayer en placant un CommandButton su Très urgent compiler mon usercontrol.... [ par lex1111 ] Salut, j'aimerais compiler le usercontrole que j'ai trouvé sur vbfrance et que j'ai modifié un peu...J'aimerais le passer de ".ctl" a ".ocx" pour le j ActiveX Usercontrol [ par thierry00191 ] Bonjour à tous,Je suis nouveau à la programmation sur vb6 et plus particulièrement sur les activeX. Voici mon soucis:Je dois programmer Diffusion usercontrol ocx [ par RMamat ] Bonjour Je cherche a savoir comment faire pour diffuser une librairie ocx.Voici mon probleme: j'ai fais un usercontrol. Ce usercontrol est comporte u Protection d'Usercontrol [ par guguk ] bonjour todos Y aurait-y pas, par hasard, un moyen de protéger un ocx crée en vb6 de manière à ce qu'il ne puisse être utili OCX UserControl propriété (relance) [ par pcpt ] bonjour,je relance déjà mon Topic d'hier...[VB6]je créé un contrôle, je le dépose plusieurs fois sur la Form.si j'en s&# Usercontrol + form.show, vbmodal [ par peug ] Bonjour, j'ai un ocx qui contient et appel une form avec .show, vbmodal depuis un bouton Si j'utilise cet OCX dans une form2 elle-même appelé avec vb


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,749 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.