begin process at 2012 02 16 05:53:46
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Control

 > VU-MÉTRE À AIGUILLE

VU-MÉTRE À AIGUILLE


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :13 365 / 1 310

Auteur : epson1

Ecrire un message privé
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture BOUTON UP_DOWN
Source avec Zip RÉCEPTEUR RC5 MODIFIÉ
Source avec Zip TÉLECOMMANDE INFRA ROUGE UNIVERSELLE

 Sources de la même categorie

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE STARS par jaknight007

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture UN OCX PASSE-PARTOUT POUR LA SÉLECTION D'UNE COULEUR par lermite222
Source avec Zip OCX POUR IMPRIMER DES DONNÉES DANS DES GRILLES par jmberriot
Source avec Zip Source avec une capture CONTROL POUR AFFICHER, MODIFIER, FILTRER... UNE BASE ACCESS par bouv
Source avec Zip Source avec une capture JAUGE HORIZONTALE PROGRESSIVE AVEC SIGNETS par yannickt
Source avec Zip TUTORIEL OCX BASIQUE par Renfield

Commentaires et avis

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 ?

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 .

@+

Commentaire de drissou le 20/10/2007 16:14:20 9/10

ok merci ;o)

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

++

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

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

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 .

@+

Commentaire de Adn56 le 21/10/2007 16:26:01 9/10

clair c'est le futur ^^ bonne continuation

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

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

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

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 Quelle difference entre Me et Usercontrol a l'interieur d'un OCX ? [ par jimmypage64 ] Bonjour, Quand je suis dans le code de mon controle OCX j'ai l'impression que Me et Usercontrol ne sont pas le même object. Par exemple Me.hdc ne co 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&#


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 6,552 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales