bargraph,vumetre,progressbar,affichage de donneesRésolu

Question

bonjour,
apres de nombreuses recherches , je ne trouve pas mon bonheur.
je recois 3 donnees via le port rs232 que je traite en numerique.
et je recherche une barre qui affiche la valeur recu entre -45,0 en passant par 0 jusque 45,0
et un cercle avec une espece d'aiguille qui m'afficherais une valeur comprise entre 0 et 360.
ou la maniere de faire evoluer un dessin selon les donnees.
style un dessin de niveaux a bulle qui monte et descend selon les donnees recues.

je vous remercie d'avance de vos reponses.
les seules chose de trouvé se sont des barre de progressions qui ne vont de 0 a 100% et je ne trouve pas ou modifier la valeur qui est affiché.

bubbledesavon

MOUSSAOUIAAZIZ · Accepted Answer

Salut;
Pour le 
dessin 
il existe des  contrôles pour le faire mais moi je préfère de le faire tout seul avec un picture et des fonction simple tell que : <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>








Picture1.Circle (x0, y0), rad   pour dessiner  un cercle dont le centre est x0 , y0 et le radian est rad ;







Picture1.Line (x0, y0)-(x1, y1)  , pour dessiner  ligne








 et ce ci un exemple :











‘Tu met une  Picture 






Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long






Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long





Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long





Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long








Dim x0, y0, rad, MonVal As Integer







Dim pi As Double








 






 








Private Sub Command1_Click()







MonVal =       ' la 
valeur


 en %









Picture1.Cls







Picture1_Paint







End Sub  








 








Private Sub Picture1_Paint()


















   x0 = 160    'le centre du cercle







   y0 = 160







   rad = 150    ' le radian du cercle 


















   pi = 3.14159265358979





























   Picture1.Circle (x0, y0), rad







   Picture1.Line (x0, y0)-(x0, 10)







  q = (MonVal * 2 * pi) / 100    








 
 X1 = x0 + Sin(q) * 150    ' ici on calcule le coordonnées de la deuxième point








  Y1 = y0 - Cos(q) * 150


















   Picture1.Line (x0, y0) -(x1,y1)   


















  hFFBrush = CreateSolidBrush(&HFF8080)    ‘ ici tu peut cahnger la couleur







  SelectObject Picture1.hdc, hFFBrush







  FloodFill Picture1.hdc, x0 + 1, y0 - 148, 0    ‘







  DeleteObject hFFBrush

















End Sub








 







La fonction FloodFill remplit une zone de la surface d'affichage.  La zone est supposée être délimitée.
la fonction Picture1.Cls permet d'effacer le dessin dans le picture et tu peut dessiner une autre foi.

cs_loulou69 · Answer

Une barre de progression a au moins 3 données : min< value< max 
min et max s'intialise par ex à 0 et 100 et value prend une valeur entre 0 et 100 (c'est un exemple)

bubbledesavon · Answer

merci moussaquiaaziz, le systeme du cercle fontionne nickel , mais je galere toujours avec le bargraph .

je recherche encore 

merci et merci a loulou69

bubbledesavon

Bargraph,vumetre,progressbar,affichage de donnees

3 réponses

Votre réponse

Discussions similaires