AutoIt Français

Bonjour,

J'ai regardé en travers les solutions de représentation graphique dans une GUI, donc ne vous privé pas, si je n'ai pas trouvé, c'est que j'ai mal cherché.

Néanmoins les solutions que j'ai pu trouver ne me convenais pas, bref.

Je cherche a représenter sous forme graphique un tableau.
J'y parviens la n'est pas le problème.

Mon code:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Global $tab_graph[3][3]=[[141,10,20],[32,15,10],[20,20,50]]

Func graphique($LM,$tab,$x,$y)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   If _ArrayMax($tab, 1, 0, 0, 0)>_ArrayMax($tab, 1, 0, 0, 2) Then
      $valeur_de_base=_ArrayMax($tab, 1, 0, 0, 0)
   ElseIf _ArrayMax($tab, 1, 0, 0, 0)=_ArrayMax($tab, 1, 0, 0, 2) Then
      $valeur_de_base=_ArrayMax($tab, 1, 0, 0, 2)
   Else
      $valeur_de_base=_ArrayMax($tab, 1, 0, 0, 0)
   EndIf
   Local $graph[3][3]
   For $a=0 To UBound($tab)-1
      $graph[$a][0]=Round($tab[$a][0]*$LM/$valeur_de_base)
      $graph[$a][1]=$tab[$a][1]
      $graph[$a][2]=Round($tab[$a][2]*$LM/$valeur_de_base)
   Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   $Graphic7 = GUICtrlCreateGraphic($x, $y, $LM, 80-1)
   GUICtrlSetColor(-1, 0x008000)
   GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000, 0xFF0000)
   For $a=0 To UBound($graph)-1
      GUICtrlSetGraphic(-1, $GUI_GR_RECT, $LM-$graph[$a][0], 0+(25*$a)+2*$a, $graph[$a][0], 25)
   Next
   $Graphic8 = GUICtrlCreateGraphic($x+$LM-1, $y, $LM, 80-1)
   GUICtrlSetColor(-1, 0x008000)
   GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000, 0xFF0000)
   For $a=0 To UBound($graph)-1
      GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0+(25*$a)+2*$a, $graph[$a][2], 25)
   Next
EndFunc

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 516, 438, 192, 124)
graphique("200",$tab_graph,20,20)
$Button1 = GUICtrlCreateButton("Button1", 184, 400, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         graphique("250",$tab_graph,10,200)
   EndSwitch
WEnd

Bon je ne sais pas trop ce que vous aller en pensé mais bon je fait ce que je peut

Alors voila,
La fonction graphique placé dans les balise de Koda affiche parfaitement ce que je souhaite
Par contre il faut que j'appuis 2* sur le bouton pour que le second graphique s'affiche et en plus de cela la ligne médiane deviens jaune (Beurkkkk)

PS0: Je n'ai pas encore ajouté le redimensionnement en hauteur du graphique suivant le nombre de ligne du tableau mais bon.
PS1: J'aimerai savoir s'il existe mieux que l'UDF _MouseHover.au3 car il bugue lorsque l'on clique autre part que sur la GUI.

Bon je m’amuse bien avec mon petit script mais bon toujours ce petit hic qui le fait moi je dis

Bon bref j'ai bidouiller avec une boucle for pour qu'il m'affiche bien ce que je souhaite.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Global $tab_graph0[5][3]=[[141,0-10,20],[32,11-15,10],[20,16-20,50],[10,21-25,42],[32,26-30,12]]
Global $tab_graph1[5][3]=[[12,0-10,1],[5,11-15,50],[13,16-20,27],[49,21-25,57],[455,26-30,12]]

Func graphique($HB,$EB,$LG,$tab,$x,$y)
   If IsDeclared("Graphic7") Then
      GUICtrlDelete($Graphic7)
      GUICtrlDelete($Graphic8)
      GUICtrlDelete($Graphic7)
      GUICtrlDelete($Graphic8)
   EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   If _ArrayMax($tab, 1, 0, 0, 0)>_ArrayMax($tab, 1, 0, 0, 2) Then
      $valeur_de_base=_ArrayMax($tab, 1, 0, 0, 0)
   ElseIf _ArrayMax($tab, 1, 0, 0, 0)=_ArrayMax($tab, 1, 0, 0, 2) Then
      $valeur_de_base=_ArrayMax($tab, 1, 0, 0, 2)
   Else
      $valeur_de_base=_ArrayMax($tab, 1, 0, 0, 0)
   EndIf
   Global $graph[5][3]
   For $a=0 To UBound($tab)-1
      $graph[$a][0]=Round($tab[$a][0]*$LG/$valeur_de_base)
      $graph[$a][1]=$tab[$a][1]
      $graph[$a][2]=Round($tab[$a][2]*$LG/$valeur_de_base)
   Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   For $b=0 To 1
      $HG=($HB+$EB)*UBound($graph)+$EB
      Global $GraphicG = GUICtrlCreateGraphic($x, $y, $LG, $HG)
      GUICtrlSetColor(-1, 0x008000)
      GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000, 0xFF0000)
      For $a=0 To UBound($graph)-1
         GUICtrlSetGraphic(-1, $GUI_GR_RECT, $LG-$graph[$a][0], 0+($HB*$a)+$EB*($a+1), $graph[$a][0], $HB)
      Next
      Global $GraphicD = GUICtrlCreateGraphic($x+$LG-1, $y, $LG, $HG)
      GUICtrlSetColor(-1, 0x008000)
      GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000, 0xFF0000)
      For $a=0 To UBound($graph)-1
         GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0+($HB*$a)+$EB*($a+1), $graph[$a][2], $HB)
      Next
   Next
EndFunc

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 516, 438, 192, 124)
$Boutton0 = GUICtrlCreateButton("premier graph","2","350")
$Boutton1 = GUICtrlCreateButton("second graph","100","350")
$Boutton2 = GUICtrlCreateButton("del","2","350")
GUICtrlSetState($Boutton2,$GUI_HIDE)
$Boutton3 = GUICtrlCreateButton("del","100","350")
GUICtrlSetState($Boutton3,$GUI_HIDE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Boutton0
         graphique(10,2,200,$tab_graph0,20,20)
         GUICtrlSetState($Boutton0,$GUI_HIDE)
         GUICtrlSetState($Boutton2,$GUI_SHOW)
      Case $Boutton1
         graphique(10,20,100,$tab_graph1,120,120)
         GUICtrlSetState($Boutton1,$GUI_HIDE)
         GUICtrlSetState($Boutton3,$GUI_SHOW)
      Case $Boutton2
         GUICtrlDelete($GraphicG)
         GUICtrlDelete($GraphicD)
      Case $Boutton3
         GUICtrlDelete($GraphicG)
         GUICtrlDelete($GraphicD)
   EndSwitch
WEnd

J'ai ajouté des boutons pour tester et je constate qu'il n'efface rien.
Enfin si il efface la surcouche et ceux sur les deux graphiques.
Je me dis que cela est tout a fait normal puisse que je ne gère pas le nom des éléments GUICtrlCreateGraphic.

Bon je continue dans le flou.

PS0: j'ai ajouté des arguments histoire de pouvoir controler un peu mieux encore le graphique, Reste plus qu'a ajouter les valeurs.
PS1: J'aimerai savoir s'il existe mieux que l'UDF _MouseHover.au3 car il bugue lorsque l'on clique autre part que sur la GUI.

A la place de _MouseHover.au3 je vais utiliser _ControlHover.au3 qui ne bugue pas lui.

Salut Sepular
Votre code source ne fonctionne pas chez moi, il y a plusieurs d'erreur sur les déclarations des variables et du tableau dimensionnel.

Avez-vous fait une recherche du coté GDIPlus ?

Bizarre le script fonctionne très bien chez moi et je viens de refaire un copier coller du code et il fonctionne.
ma version scite est : v3.3.12.0

Je ne pense pas avoir besoin d'alourdir ma futur application avec GDIPlus pour un simple graphique comme celui.

Si je ne trouve pas de réponse je laisserais un affichage standard. C'est dommage j'aurais apprécié rendre la GUI plus dynamique et agréable.

Et au cas ou je suis preneur des erreurs qu'il vous retourne.

Si vous cherchez à changer l' apparence de votre GUI,
il y a (XSkin - Fully Loaded) fait une petite recherche, vous pouvez trouver des skins intéressants sur ce sujet ou voir vous-même faire votre propre GUI.

j'espère que ça vous aidera Sepular bonne chance

http://autoitscript.fr/forum/viewtopic.php?f=4&t=9035

Non cela ne m'aide pas du tout, a vrai dire je ne vois même pas du tout le rapport avec ma question mais bon merci.

PS: déjà dans mes favoris.

après avoir modifié votre code source dans les _ArrayMax($tab, 1, 0, 0, 0),
j'ai mis a la place _ArrayMax($tab, 1, 0, 0) et j'ai pu avoir ceci.

Donnez-nous plus d'informations sur la structure de votre tableau graphique que vous aimerez réaliser. :\

Bon ben avec une copie parfaire de mon second code, voila ce que moi j'obtiens

Quels sont les erreurs que vous obtenez avec mon second code ? Votre array.au3 ne serai pas modifier ?

Oula pas mal de retirer dans quel colonne je cherche, ça dérange pas ici parce que c la colonne 0 mais bon pas térrible moi je dis.

Voici l'erreur que j'obtiens
(17) : ==> Incorrect number of parameters in function call.:
If _ArrayMax($tab, 1, 0, 0, 0)>_ArrayMax($tab, 1, 0, 0, 2) Then
If ^ ERROR

version Autoit ?

► Afficher le texte

_ArrayMax ( Const ByRef $aArray [, $iCompNumeric = 0 [, $iStart = 0 [, $iEnd = 0 [, $iSubItem = 0]]]] )

Bon une correction s'il dois y en avoir une

J'ai la version SciTE Version 3.4.1 et sur l'image j'utilise ISN Autoit studio V. 0.99 Beta

Ben faut pas chercher plus loin.

Si tu veut voir essaie avec ma pseudo correction ou reviens a la version qui tourne bien lol.

AutoIt Français

[..] Création de graphique

[..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique

Re: [..] Création de graphique