[R] Effacer des infos dans une GUI

SurPriseS · #1

Coucou !
Bon je tente de faire un ptit prog pour géré l'entretien de la voiture ! (entre autre chose), j'ai juste fait une interface de "base" pour le moment pour essayer de résoudre les problèmes d'abord !

Le problème que je rencontre (et un des seuls que je vois pour le moment), j'ai pas trop le choix sur la façon dont doit fonctionner le logiciel :
3 boutons qui doivent affiché différente info dans la GUI, soucis comment faire pour "effacer" se qu'a fait le bouton précédent ?

En gros si j'appuie sur le bouton gasoil, la Func gaz() se lance et affiche ces info, mais si j'appuie sur le bouton entretien, il va réécrire les info par dessus celle de Func gaz()...
A part utiliser des set de partout pour tout mettre a 0 je vois pas de solution pour tout effacer PROPREMENT, j'ai pensé a l'utilisation des TAB mais faudrait que je puisse les "linker" sur les boutons...

Merchi de m'avoir lu !

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         SurPriseS

 Script Function:
    Entretien automobile.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

;--------- Include
#include <GUIConstants.au3>



;--------- Variable



;--------- GUI
GuiCreate ( " Entretien véhicule " , 700 , 425 ) ; fenêtre principale
GUISetState ( @SW_SHOW )
$bouton_gaz = GUICtrlCreateButton("Gasoil",10,10,185,40) ; Bouton gaz
GUICtrlSetFont($bouton_gaz , 24)
$bouton_entretien = GUICtrlCreateButton("Entretien",10,60,185,40) ; Bouton entretien
GUICtrlSetFont($bouton_entretien , 24)
$bouton_resum = GUICtrlCreateButton("Résumé",10,110,185,40) ; Bouton résumé
GUICtrlSetFont($bouton_resum , 24)


GUICtrlCreateGroup ( " Pavé numérique " , 10 , 160 , 185 , 260 ) ; Groupement pavé numérique
$bouton_1 = GUICtrlCreateButton("1",15,180,55,55) ; Bouton 1
GUICtrlSetFont($bouton_1, 24)
$bouton_2 = GUICtrlCreateButton("2",75,180,55,55) ; Bouton 2
GUICtrlSetFont($bouton_2 , 24)
$bouton_3 = GUICtrlCreateButton("3",135,180,55,55) ; Bouton 3
GUICtrlSetFont($bouton_3 , 24)

$bouton_4 = GUICtrlCreateButton("4",15,240,55,55) ; Bouton 4
GUICtrlSetFont($bouton_4, 24)
$bouton_5 = GUICtrlCreateButton("5",75,240,55,55) ; Bouton 5
GUICtrlSetFont($bouton_5 , 24)
$bouton_6 = GUICtrlCreateButton("6",135,240,55,55) ; Bouton 6
GUICtrlSetFont($bouton_6 , 24)

$bouton_7 = GUICtrlCreateButton("7",15,300,55,55) ; Bouton 7
GUICtrlSetFont($bouton_7, 24)
$bouton_8 = GUICtrlCreateButton("8",75,300,55,55) ; Bouton 8
GUICtrlSetFont($bouton_8 , 24)
$bouton_9 = GUICtrlCreateButton("9",135,300,55,55) ; Bouton 9
GUICtrlSetFont($bouton_9 , 24)

$bouton_0 = GUICtrlCreateButton("0",15,360,55,55) ; Bouton 0
GUICtrlSetFont($bouton_0, 24)
$bouton_virgule = GUICtrlCreateButton(",",75,360,55,55) ; Bouton virgule
GUICtrlSetFont($bouton_virgule , 24)
$bouton_entrer = GUICtrlCreateButton("«",135,360,55,55) ; Bouton entrer
GUICtrlSetFont($bouton_entrer , 24)



While 1

    $msg = GUIGetMsg ( )
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit      
        Case $msg = $bouton_gaz
            gaz()           
    EndSelect
WEnd  



;--------- Fonction

Func gaz()
    GUICtrlCreateGroup ( " Gasoil" , 205 , 10 , 490 , 410 ) ; Groupement pavé numérique
    GUICtrlSetFont($bouton_gaz , 24)
    $label_plein = GUICtrlCreateLabel("Ajouter un plein : ",220,40,170,25)
    GUICtrlSetFont($label_plein , 16)
    $combo_station = GUICtrlCreateCombo(" station ",220,100,170,25)
    GUICtrlSetFont($combo_station , 24)
    $input_prix = GUICtrlCreateInput("Tarif",400,30,200,50)
    GUICtrlSetFont($input_prix , 24)
    $input_litre = GUICtrlCreateInput("Litre",400,100,200,50)
    GUICtrlSetFont($input_litre , 24)
    $input_km = GUICtrlCreateInput("Km",400,170,200,50)
    GUICtrlSetFont($input_km , 24)  
    $label_prix = GUICtrlCreateLabel("  €",600,40,40,40)
    GUICtrlSetFont($label_prix , 24)    
    $label_litre = GUICtrlCreateLabel("  L",600,100,40,40)
    GUICtrlSetFont($label_litre , 24)
    $label_km = GUICtrlCreateLabel("  Km",600,180,80,80)
    GUICtrlSetFont($label_km , 24)
    $bouton_valid = GUICtrlCreateButton("Valider",220,170,170,50)
    GUICtrlSetFont($bouton_valid , 24)
EndFunc

#2

Bah perso j'ai pas de probleme, essaye un peu ca.

► Afficher le textepour le code

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         SurPriseS

 Script Function:
    Entretien automobile.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

;--------- Include
#include <GUIConstants.au3>



;--------- Variable



;--------- GUI
GuiCreate ( " Entretien véhicule " , 700 , 425 ) ; fenêtre principale
GUISetState ( @SW_SHOW )
$bouton_gaz = GUICtrlCreateButton("Gasoil",10,10,185,40) ; Bouton gaz
GUICtrlSetFont($bouton_gaz , 24)
$bouton_entretien = GUICtrlCreateButton("Entretien",10,60,185,40) ; Bouton entretien
GUICtrlSetFont($bouton_entretien , 24)
$bouton_resum = GUICtrlCreateButton("Résumé",10,110,185,40) ; Bouton résumé
GUICtrlSetFont($bouton_resum , 24)


GUICtrlCreateGroup ( " Pavé numérique " , 10 , 160 , 185 , 260 ) ; Groupement pavé numérique
$bouton_1 = GUICtrlCreateButton("1",15,180,55,55) ; Bouton 1
GUICtrlSetFont($bouton_1, 24)
$bouton_2 = GUICtrlCreateButton("2",75,180,55,55) ; Bouton 2
GUICtrlSetFont($bouton_2 , 24)
$bouton_3 = GUICtrlCreateButton("3",135,180,55,55) ; Bouton 3
GUICtrlSetFont($bouton_3 , 24)

$bouton_4 = GUICtrlCreateButton("4",15,240,55,55) ; Bouton 4
GUICtrlSetFont($bouton_4, 24)
$bouton_5 = GUICtrlCreateButton("5",75,240,55,55) ; Bouton 5
GUICtrlSetFont($bouton_5 , 24)
$bouton_6 = GUICtrlCreateButton("6",135,240,55,55) ; Bouton 6
GUICtrlSetFont($bouton_6 , 24)

$bouton_7 = GUICtrlCreateButton("7",15,300,55,55) ; Bouton 7
GUICtrlSetFont($bouton_7, 24)
$bouton_8 = GUICtrlCreateButton("8",75,300,55,55) ; Bouton 8
GUICtrlSetFont($bouton_8 , 24)
$bouton_9 = GUICtrlCreateButton("9",135,300,55,55) ; Bouton 9
GUICtrlSetFont($bouton_9 , 24)

$bouton_0 = GUICtrlCreateButton("0",15,360,55,55) ; Bouton 0
GUICtrlSetFont($bouton_0, 24)
$bouton_virgule = GUICtrlCreateButton(",",75,360,55,55) ; Bouton virgule
GUICtrlSetFont($bouton_virgule , 24)
$bouton_entrer = GUICtrlCreateButton("«",135,360,55,55) ; Bouton entrer
GUICtrlSetFont($bouton_entrer , 24)



While 1

    $msg = GUIGetMsg ( )
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit      
        Case $msg = $bouton_gaz
            gaz()           
        Case $msg = $bouton_entretien
            entretien()     
    EndSelect
WEnd  



;--------- Fonction

Func gaz()
    GUICtrlCreateGroup ( " Gasoil" , 205 , 10 , 490 , 410 ) ; Groupement pavé numérique
    GUICtrlSetFont($bouton_gaz , 24)
    $label_plein = GUICtrlCreateLabel("Ajouter un plein : ",220,40,170,25)
    GUICtrlSetFont($label_plein , 16)
    $combo_station = GUICtrlCreateCombo(" station ",220,100,170,25)
    GUICtrlSetFont($combo_station , 24)
    $input_prix = GUICtrlCreateInput("Tarif",400,30,200,50)
    GUICtrlSetFont($input_prix , 24)
    $input_litre = GUICtrlCreateInput("Litre",400,100,200,50)
    GUICtrlSetFont($input_litre , 24)
    $input_km = GUICtrlCreateInput("Km",400,170,200,50)
    GUICtrlSetFont($input_km , 24)  
    $label_prix = GUICtrlCreateLabel("  €",600,40,40,40)
    GUICtrlSetFont($label_prix , 24)    
    $label_litre = GUICtrlCreateLabel("  L",600,100,40,40)
    GUICtrlSetFont($label_litre , 24)
    $label_km = GUICtrlCreateLabel("  Km",600,180,80,80)
    GUICtrlSetFont($label_km , 24)
    $bouton_valid = GUICtrlCreateButton("Valider",220,170,170,50)
    GUICtrlSetFont($bouton_valid , 24)
EndFunc


func entretien()    

  GUICtrlCreateGroup ( " blabla" , 205 , 10 , 490 , 410 ) ; Groupement pavé numérique
    GUICtrlSetFont($bouton_gaz , 24)
    $label_plein = GUICtrlCreateLabel("blilbili : ",220,40,170,25)
    GUICtrlSetFont($label_plein , 16)
    $combo_station = GUICtrlCreateCombo(" blouboubub ",220,100,170,25)
    GUICtrlSetFont($combo_station , 24)
    $input_prix = GUICtrlCreateInput("Targergerif",400,30,200,50)
    GUICtrlSetFont($input_prix , 24)
    $input_litre = GUICtrlCreateInput("blabla",400,100,200,50)
    GUICtrlSetFont($input_litre , 24)
    $input_km = GUICtrlCreateInput("ggg",400,170,200,50)
    GUICtrlSetFont($input_km , 24)  
    $label_prix = GUICtrlCreateLabel("  g",600,40,40,40)
    GUICtrlSetFont($label_prix , 24)    
    $label_litre = GUICtrlCreateLabel("  ffff",600,100,40,40)
    GUICtrlSetFont($label_litre , 24)
    $label_km = GUICtrlCreateLabel("  gggg",600,180,80,80)
    GUICtrlSetFont($label_km , 24)
    $bouton_valid = GUICtrlCreateButton("Valider",220,170,170,50)
    GUICtrlSetFont($bouton_valid , 24)

endfunc

SurPriseS · #3

Oui comme sa pas de problème mais prend avec sa :

► Afficher le texte

Et la gros problème !

#4

Bonjour,
Je vais te répondre en te proposant 2 solutions:

la première si tu utilise des boutons.

► Afficher le texte

la deuxième si tu veux utiliser les Tabsheet

► Afficher le texte

SurPriseS · #5

Pour le set je connais ! le soucis, c'est que les 3 parties correspondant au bouton son complètement différente donc l'utilisation du set me semble délicate malheureusement =(

La solution des tabs reste correct si on peu changé de tab en cliquant sur un bouton, de mes souvenir on peu afficher des choses différentes sur les différentes tab sans que sa n'interfert !

#6

Lance l'exemple 2 que je t'ai donné, tu verra que les textes sont différends selon les Tab que tu choisis. Alors essaye le, au minimum, avant de redire que tu n'es pas certain que ce qu'on met dans les tabs n'interfert pas...

c'est que les 3 parties correspondant au bouton son complètement différente

Le set me semble au contraire bien plus indiqué dans ton problème.
Même si tes parties comportent beaucoup de Label ou autres, tu peux toujours utiliser ca:

Code : Tout sélectionner

$toutcequedoitafficherlappuisurleboutton1 = StringSplit($m_label1 & '.' & _
            $m_label2 & '.' & _
            $m_2label & '.' & _
            $m_1input & '.' & _
            $m_2input, '.')
    _GuiCtrlGroupSetState($toutcequedoitafficherlappuisurleboutton1, $GUI_HIDE)

Avec cette fonction à mettre à la fin du code:

Code : Tout sélectionner

Func _GuiCtrlGroupSetState(ByRef $a_GroupArray, $i_State)
    For $i = 1 To $a_GroupArray[0]
        GUICtrlSetState($a_GroupArray[$i], $i_State)
    Next
EndFunc   ;==>_GuiCtrlGroupSetState

Ce qui donne:

Code : Tout sélectionner

While 1
    $msg = Guigetmsg()
    Switch $msg
        Case $button1
          _GuiCtrlGroupSetState($toutcequedoitafficherlappuisurleboutton1, $GUI_SHOW)
          _GuiCtrlGroupSetState($toutcequedoitafficherlappuisurleboutton2, $GUI_HIDE)
           
        Case $button2
            _GuiCtrlGroupSetState($toutcequedoitafficherlappuisurleboutton1, $GUI_HIDE)
          _GuiCtrlGroupSetState($toutcequedoitafficherlappuisurleboutton2, $GUI_SHOW)
    EndSwitch
WEnd

SurPriseS · #7

Oups

toutes mes excuses j'ai lu un peu de travers et raté une partie... j'avais pas fait gaffe au state.... et donc je pensais que c'étais juste pour affecté une valeur nulle a l'élément désiré... vraiment désolé

Pour les tab enfaite c'est juste pour compléter le faite que sa ne m'intéressais pas si je ne pouvais pas me déplacer grace au bouton mais bon c'est vrai que c'etais pas forcément utile... désolé encore

Merci en tout cas je vais m'orienter dans se sens !

#8

OUi bien sur:) Mettre toutes les valeurs à 0 ne pouvait pas etre une bonne solution:)
Bonne chance pour la suite

SurPriseS · #9

Oui

bon la sa fonctionne a peu près correctement je m'efforce de virer un effet visuel déplaisant et je post la solution !

Merci beaucoup en tout cas

SurPriseS · #10

Bon voila sa a l'air OK !

alors le code :

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         SurPriseS

 Script Function:
    Entretien automobile.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

;--------- Include
#include <GUIConstantsEx.au3>


;--------- Variable
global $gaz


;--------- GUI
    GuiCreate ( " Entretien véhicule " , 700 , 425 ) ; fenêtre principale
    GUISetState ( @SW_SHOW )
    $bouton_gaz = GUICtrlCreateButton(" Gasoil ",10,10,185,40) ; Bouton gaz
    GUICtrlSetFont($bouton_gaz , 24)
    $bouton_entretien = GUICtrlCreateButton(" Entretien ",10,60,185,40) ; Bouton entretien
    GUICtrlSetFont($bouton_entretien , 24)
    $bouton_resum = GUICtrlCreateButton(" Résumé ",10,110,185,40) ; Bouton résumé
    GUICtrlSetFont($bouton_resum , 24)


    GUICtrlCreateGroup ( " Pavé numérique " , 10 , 160 , 185 , 260 ) ; Groupement pavé numérique
    $bouton_1 = GUICtrlCreateButton("1",15,180,55,55) ; Bouton 1
    GUICtrlSetFont($bouton_1, 24)
    $bouton_2 = GUICtrlCreateButton("2",75,180,55,55) ; Bouton 2
    GUICtrlSetFont($bouton_2 , 24)
    $bouton_3 = GUICtrlCreateButton("3",135,180,55,55) ; Bouton 3
    GUICtrlSetFont($bouton_3 , 24)

    $bouton_4 = GUICtrlCreateButton("4",15,240,55,55) ; Bouton 4
    GUICtrlSetFont($bouton_4, 24)
    $bouton_5 = GUICtrlCreateButton("5",75,240,55,55) ; Bouton 5
    GUICtrlSetFont($bouton_5 , 24)
    $bouton_6 = GUICtrlCreateButton("6",135,240,55,55) ; Bouton 6
    GUICtrlSetFont($bouton_6 , 24)

    $bouton_7 = GUICtrlCreateButton("7",15,300,55,55) ; Bouton 7
    GUICtrlSetFont($bouton_7, 24)
    $bouton_8 = GUICtrlCreateButton("8",75,300,55,55) ; Bouton 8
    GUICtrlSetFont($bouton_8 , 24)
    $bouton_9 = GUICtrlCreateButton("9",135,300,55,55) ; Bouton 9
    GUICtrlSetFont($bouton_9 , 24)

    $bouton_0 = GUICtrlCreateButton("0",15,360,55,55) ; Bouton 0
    GUICtrlSetFont($bouton_0, 24)
    $bouton_virgule = GUICtrlCreateButton(",",75,360,55,55) ; Bouton virgule
    GUICtrlSetFont($bouton_virgule , 24)
    $bouton_entrer = GUICtrlCreateButton("«",135,360,55,55) ; Bouton entrer
    GUICtrlSetFont($bouton_entrer , 24)



While 1

    $msg = GUIGetMsg ( )
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit      
        Case $msg = $bouton_gaz
            gaz()
                 
        Case $msg = $bouton_entretien
            _GuiCtrlGroupSetState($gaz, $GUI_hide)      
        Case $msg = $bouton_1
            GUICtrlSetState(-1,$GUI_HIDE)
        EndSelect
            
WEnd  



;--------- Fonction

Func _GuiCtrlGroupSetState(ByRef $a_GroupArray, $i_State)
    For $i = 1 To $a_GroupArray[0]
        GUICtrlSetState($a_GroupArray[$i], $i_State)
    Next
EndFunc   ;==>_GuiCtrlGroupSetState

Func gaz()

;--------- Group gaz
            $group_gaz =GUICtrlCreateGroup ( " Gasoil" , 205 , 10 , 490 , 410 ) ; Groupement gaz
            GUICtrlSetFont($bouton_gaz , 24)

            $label_plein = GUICtrlCreateLabel("Ajouter un plein : ",220,40,170,25)
            GUICtrlSetFont($label_plein , 16)
            
            $combo_station = GUICtrlCreateCombo(" station ",220,100,170,25)
            GUICtrlSetFont($combo_station , 24)
    
            $input_prix = GUICtrlCreateInput("Tarif",400,30,200,50)
            GUICtrlSetFont($input_prix , 24)

            $input_litre = GUICtrlCreateInput("Litre",400,100,200,50)
            GUICtrlSetFont($input_litre , 24)
            
            $input_km = GUICtrlCreateInput("Km",400,170,200,50)
            GUICtrlSetFont($input_km , 24)  
            
            $label_prix = GUICtrlCreateLabel("  €",600,40,40,40)
            GUICtrlSetFont($label_prix , 24)
            
            $label_litre = GUICtrlCreateLabel("  L",600,100,40,40)
            GUICtrlSetFont($label_litre , 24)
            
            $label_km = GUICtrlCreateLabel("  Km",600,180,80,80)
            GUICtrlSetFont($label_km , 24)

            $bouton_valid = GUICtrlCreateButton("Valider",220,170,170,50)
            GUICtrlSetFont($bouton_valid , 24)





global $gaz = StringSplit($label_plein & '.' & _
            $combo_station & '.' & _
            $input_prix & '.' & _
            $input_litre & '.' & _
            $input_km & '.' & _
            $label_prix & '.' & _           
            $label_litre & '.' & _          
            $label_km & '.' & _         
            $bouton_valid & '.' & _                 
            $group_gaz, '.')



EndFunc

#11

Pas mal du tout:) J'ai pas vérifié le code mais ca m'a l'air cool! Tu nous enverra ton code dans la partie Exemple quand tu auras fini

SurPriseS · #12

Comme toujours

De toutes façon y'a un autre soucis que je viens d'identifier donc je vais reposter a se sujet...

AutoIt Français

[R] Effacer des infos dans une GUI

[R] Effacer des infos dans une GUI

Re: [..] effacer des info dans une GUI

Re: [..] effacer des info dans une GUI

Re: [..] effacer des info dans une GUI

Re: [..] effacer des info dans une GUI

Re: [..] effacer des info dans une GUI

Re: [..] effacer des info dans une GUI

Re: [..] Effacer des infos dans une GUI

Re: [..] Effacer des infos dans une GUI

Re: [..] Effacer des infos dans une GUI

Re: [R] Effacer des infos dans une GUI

Re: [R] Effacer des infos dans une GUI