[R] Comment programmé un bouton

[franfran94]

Bonjours je suis un débutant est j'aimerai qu'on me dise comment faire (comment faire pour que quand on clique sur le bouton il ouvre une fenêtre Exemple: Google Chrome)
Merci



PS: si j'ai re fait une bêtise merci de me le dire
est MERCI

[Tlem]

Message déplacé dans la bonne section.
Décidément, vous avez un problème avec les sections du forum !!!

Merci d'être plus vigilent à l'avenir.

[franfran94]

Oui je trouve pas le bouton forum x) merci =)

[franfran94]

A oui j'ai oublié je n'ai que 12 ans

[Tlem]

Oui je trouve pas le bouton forum x) merci =)

gné !!!

[franfran94]

si c'est pour dire que je suis bête dite le je sais xD

[franfran94]

C'eat pas contre toi mais on s'éloigne du sujet =) donc je ne parle plus tout seul

Bonjours je suis un débutant est j'aimerai qu'on me dise comment faire (comment faire pour que quand on clique sur le bouton il ouvre une fenêtre Exemple: Google Chrome)
Merci



PS: si j'ai re fait une bêtise merci de me le dire
est MERCI

[Tlem]

Mouais !
Je n'ai jamais dit que tu était bête, mais je trouve quand même bizarre ta réponse.

Sinon la réponse à ta question est :

Code : Tout sélectionner

    Case $Bouton1
        ShellExecute(@ProgramFilesDir & "\Google Chrome\Chrome.exe")

Évidement, le chemin vers l'exécutable n'est peut être pas tout à fait bon, car je n'utilise pas Chrome et j'avais pas envie de chercher sur Google ...
De plus ce code est à intégré dans la boucle de gestion des messages GUI de ton interface.
Si tu ne sait pas faire une interface GUI, je te conseil la lecture de ce tutoriel : http://www.siteduzero.com/tutoriel-3-22 ... utoit.html

[franfran94]

Merci beaucoup est je ferme le sujet [R] est je vais me couché

[franfran94]

enfaite non a la place de "\Google Chrome\Chrome.exe" je peut maître n’apporte quelle cible ???

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\eminem\bureau\trainer.kxf
$trainer = GUICreate("trainer", 124, 48, 479, 308)
GUISetBkColor(0xF1EFE2)
$Starte = GUICtrlCreateButton("Start ", 32, 8, 57, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "@Arial Unicode MS")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        
    Case $Starte

        ShellExecute(@ProgramFilesDir & "\VLC\Skype.exe")
            Exit
    EndSwitch
WEnd

si tu peut me dire se qui ne va pas sa serait gentil =)

[Yarillo]

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
                                                                                                ; Phase de décoration
#Region ### START Koda GUI section ### Form=c:\documents and settings\eminem\bureau\trainer.kxf ;On s'en fiche
$trainer = GUICreate("trainer", 124, 48, 479, 308)                                              ;Création de ton interface
GUISetBkColor(0xF1EFE2)                                                                          ;Colorisation du fond, ça donne la couleur
$Starte = GUICtrlCreateButton("Start ", 32, 8, 57, 25, 0)                                        ;Création de ton bouton, taille, position, son nom, et son type.
GUICtrlSetFont(-1, 8, 800, 0, "@Arial Unicode MS")                                               ;Changement de la police d'écriture
GUICtrlSetColor(-1, 0xFFFFFF)                                                                    ; Ce qui suit c'est juste pour la gueule de la fenètre
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
                                                                                                ; Début du vrai code, plus de décoration maintenant
While 1                                                                                          ; "Faire ce qui suit tout le temps"
    $nMsg = GUIGetMsg()                                                                         ; Vérification de ce qui a changé dans l'interface
    Switch $nMsg
        Case $GUI_EVENT_CLOSE                                                                   ; "Si on clique sur la croix, ça ferme"
            Exit
        Case $Starte                                                                            ; "Si on clique sur Start, ça lance skype et ça ferme"
            Run( "Skype.exe", "C:\Program Files (x86)\VLC")
            Exit
    EndSwitch                                                                                   ; Le code n'ira pas plus loin qu'ici
WEnd

Tout ce qui est après les ; c'est des commentaires que j'ai laissé pour que tu comprennes le code plus facilement, j'ai dosé, parce que vu les bêtises que tu as fait je me suis dit que ça pourrait t'aider. /joke
Tu as mis des   absolument partout, j'ai aucune idée de pourquoi. Tu as commenté tout le texte qui servait à lancer le programme.
Tu utilisais la macro @programfilesdir mais moi-même je sais pas encore le faire, donc j'ai remplacé par C:\Program Files (x86)\VLC... Et plein d'autres choses.
Compare les deux.

[Tlem]

@franfran94
Tu code va très bien.
Après, si l'application n'est pas lancée, c'est que le chemin vers celle-ci n'est pas bon.
Attention si ton OS est en 64 bits, @ProgramFiles renvoi peut être C:\Program Files (X86) alors que ton application ce trouve (peut être) dans C:\Program Files.

[franfran94]

Merci a vous deux je test est si sa marche je ferme le sujet

encore Merci

[franfran94]

quand je clique sur le bouton "strart" le fenêtre s'éteins est plus rien

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
                                                                                                
#Region ### START Koda GUI section ### Form=c:\documents and settings\eminem\bureau\trainer.kxf 
$trainer = GUICreate("trainer", 124, 48, 479, 308)                                              
GUISetBkColor(0xF1EFE2)                                                                          
$Starte = GUICtrlCreateButton("Start ", 32, 8, 57, 25, 0)                                        
GUICtrlSetFont(-1, 8, 800, 0, "@Arial Unicode MS")                                               
GUICtrlSetColor(-1, 0xFFFFFF)                                                                    
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
                                                                                               
While 1                                                                                          
    $nMsg = GUIGetMsg()                                                                         
    Switch $nMsg
        Case $GUI_EVENT_CLOSE                                                                
            Exit
        Case $Starte                                                                            
            Run( "Skype.exe", "C:\Program Files (x86)\VLC")
            Exit
    EndSwitch                                                                               
WEnd

si on peux me dire se qui ne vas pas sa serait gentil
Merci

[Yarillo]

Salut,
Comme l'a dit monsieur en rouge plus haut (Désolé, j'ai oublié le nom ) le code que je t'ai donné a une petite faute à la ligne,

Code : Tout sélectionner

Run( "Skype.exe", "C:\Program Files (x86)\VLC")
 

Après quelques recherches il est plus intelligent d'utiliser comme tu l'as fait :

Code : Tout sélectionner

            Run (@ProgramFilesDir & "\VLC\Skype.exe", "")
 

Ce code va rechercher skype.exe dans C:\Program Files (x86)\VLC
Note qu'on ne sait pas du tout ou est installé skype sur ton ordinateur, c'est à toi de modifier cette ligne comme tu le veux pour que ça le trouve.

[ricky]

Hello,

c'est simple, regarde le code :

Code : Tout sélectionner

Case $Starte                                                                            ; "Si on clique sur Start, ça lance skype et ça ferme"
            Run( "Skype.exe", "C:\Program Files (x86)\VLC")
            Exit

Si tu prends la fonction Run, il faut mettre tout le chemin avant le skype.exe et le workingdir, tu en as pas besoin. La fenêtre se ferme car juste après il y a un exit.

[ricky]

Grillé par Yarillo, mais je suis pas daccord avec toi.

Il faut mettre le full path avant le skype, voir documentation.

[Yarillo]

Aïe, la grosse baffe.
J'édite ça

[franfran94]

Merci a tousse de bien vouloir m'aider je test est ci sa marche je ferme le sujet
(out sa dans l bonne humeur en plus =)-)

[franfran94]

hoooo non sa marche toujours pas =( je clique sur start sa éteint le logiciel mais ça allume pas Skype

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\eminem\bureau\trainer.kxf
$trainer = GUICreate("trainer", 124, 48, 479, 308)
GUISetBkColor(0xF1EFE2)
$Starte = GUICtrlCreateButton("Start ", 32, 8, 57, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "@Arial Unicode MS")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        
    Case $Starte
                                                                        
            Run( "Skype.exe", "C:\Program Files (x86)\VLC")
            Exit

    EndSwitch
WEnd