AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 03 08:35:15
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 MULTIPLE (USERCONTROL, DLL)


Information sur la source

Catégorie :Control Source .NET ( DotNet ) Classé sous : usercontrol, gauge, vu-metre, créer DLL Niveau : Débutant Date de création : 05/10/2007 Date de mise à jour : 10/10/2007 14:33:33 Vu / téléchargé: 6 530 / 625
Auteur : Adn56 Site perso
Ecrire un message privé
Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Bonjour, voici un user control qui servira (je l'éspére) à ceux qui veulent visualiser une valeur. La DLL gére huit types de VU
type 0 =>  voltmétre (V)
type 1 => ampéremétre (yA)
type 2 => VU audio (DB)
type 3 => Galvanométre (0 au centre)
type 4 => compteur de vitesse (exemple)
type 5 => libre 180° (100% personalisable)
type 6 => libre 360° (100% personalisable)
type 7 => vierge

Ceci est mon premier control, je l'ai fait car à part celui de VB4 (gauge.ocx) je n'en ai pas trouvé qui me plait;
Il doit donc y avoir pas mal d'optimisation XD
Reste pas mal de modif à faire pour que ce control devienne vraiment bien ficelé
(ajout de label pour l'échelle, de consigne min et max, éviter le clignotement de l'affichage, etc.....)
je posterais les modifs de code au fur et à mesure et vous invite biensur à critiquer le code. salut, @dn (au 10/10/07 Dll en version finale)
 

Source

  • in the zip
  • + 1 exemple ^^
  • Regardez l'image du Zip ;) 
in the zip
+ 1 exemple ^^
Regardez l'image du Zip ;)

Conclusion

DLL terminé, sans bug connu. Exemple fourni dans un autre projet du ZIP

 

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

Historique

05 octobre 2007 15:47:24 :
rajout type compteur vitesse 360°
05 octobre 2007 18:37:33 :
position x,y et rayon en auto en fonction du type de VU et de sa dimension. reste l'affichage qui clignote qui me saoule !!!
08 octobre 2007 15:18:32 :
Modif écriture via fonction optimisation affichage (reste encore un clignotement si la valeurs change trop vite -_-")
08 octobre 2007 16:11:31 :
correction clignotement affichage. Dll utilisable . +
10 octobre 2007 14:33:34 :
Modif compléte de la gestion des VU bmp Création de deux type 100% gérable par GDI+ (grace à l'aide du code de LAPIX) Grosse mise à jours des propriétés Gestion auto des mini/maxi sur les bipmaps

Commentaires et avis

signaler à un administrateur
Commentaire de Adn56 le 05/10/2007 15:18:33

argg, les exes ont étaient supp de l'archive -_-"
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

signaler à un administrateur
Commentaire de Adn56 le 05/10/2007 16:52:15

arggg je n'arrive pas à supprimer les clignotements !
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.

signaler à un administrateur
Commentaire de PCPT le 05/10/2007 17:27:59 administrateur CS

salut,
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

signaler à un administrateur
Commentaire de Adn56 le 05/10/2007 17:40:59

oui je le fait dés que j'ai fini les modifs de position de l'aiguille ;)
arff la trigo cela fait 15 ans que j'en avais pas refait ^^
merci de ton interet je post cela dans 1/2heure maxi.
++

signaler à un administrateur
Commentaire de Adn56 le 05/10/2007 18:41:26

voila code de la dll posté !
tout marche bien sauf l'affichage qui clignote :( au secour les pros!!!!

signaler à un administrateur
Commentaire de castagne le 08/10/2007 17:33:46

quand je mets usercontrol.doublebuffered =true je n'ai plus de cligno.

Sinon super

signaler à un administrateur
Commentaire de Adn56 le 08/10/2007 18:40:14

merci castagne, c'est éxactement la mise à jour que j'ai posté cette aprem ;)

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

signaler à un administrateur
Commentaire de castagne le 09/10/2007 08:01:33 9/10

Je considère pour ma part que visual basic compatibility  n'est là que pour un temps et qu'il faut essayer de ne plus se servir de la syntaxe de VB6...vaste débat. Donc dans ta classe, j'ai remplacer tous les cint(= par convert.Toint32()
ça reste plus framework, mais celà n'engage que moi.

signaler à un administrateur
Commentaire de Adn56 le 10/10/2007 14:37:05

j'ai aussi tout modifié suivant ton post ;)
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)

++

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

USERCONTROL???? [ par alex ] euh, question: comment faire pour faire une propriété de son usercontrol?? par example avoir moncontrol.imagedefond = blablabla ???merchi Probleme avec UserControl [ par BRAHIM ] Bonjour,S.v.p je suis vraiment coincé c'est l'ultime etape pour bouclermon projet. J'ai creer un composant activex avec UserControl comportantune nouv S.v.p un peu de lumiere sur le Usercontrol!!!!!!!!!!!!!!! [ par BRAHIM ] Bonjour, Je voudrais savoir si il est possible de changer la valeur d'une propriété en mode execution créee dans un Usercontrol et compilée en .ocx si Usercontrol Paramètres [ par Niedernsill ] Comment programmer un Usercontrol, de manière à l'utiliser comme :ActiveX.col(index).width ?Merci 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 Bouton [ par emap ] Bonjour a tous,Alors voile, je fais un bouton controle utilisateur avec les propriétés et tout le bordel.Mais quand je le place sur ma form et que j'e UserControl [ par Raka ] Voila j'ai un problème ,j'ai créé des UserControls que je place dans une frame ,et quand je veux acceder a un txtBox par exemple, je n'y arrive pas EX Usercontrol Invisible [ par MEGATRIX ] Comment rendre un activeX invisible mais seulement sont fond pas autre choses; les controle doivent etre visible?merci@++Megatrix


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

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


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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,967 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é.