Page 1 sur 2
[R] Comment programmé un bouton
Posté : mer. 11 mai 2011 22:33
par 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

Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 22:51
par 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.
Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 22:54
par franfran94
Oui je trouve pas le bouton forum x) merci =)
Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 22:58
par franfran94
A oui j'ai oublié je n'ai que 12 ans

Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 23:06
par Tlem
franfran94 a écrit :Oui je trouve pas le bouton forum x) merci =)
gné !!!

Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 23:06
par franfran94
si c'est pour dire que je suis bête dite le je sais xD
Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 23:17
par franfran94
C'eat pas contre toi mais on s'éloigne du sujet =) donc je ne parle plus tout seul
franfran94 a écrit :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

Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 23:24
par 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
Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 23:28
par franfran94
Merci beaucoup est je ferme le sujet [R] est je vais me couché
Re: [..] Comment programmé un bouton
Posté : mer. 11 mai 2011 23:50
par 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 =)
Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 00:24
par 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.
Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 07:51
par 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.

Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 08:31
par franfran94
Merci a vous deux je test est si sa marche je ferme le sujet
encore Merci 
Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 08:45
par 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
Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 12:54
par 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,
Après quelques recherches il est plus intelligent d'utiliser comme tu l'as fait :
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.
Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 12:55
par 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.
Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 12:57
par ricky
Grillé par Yarillo, mais je suis pas daccord avec toi.
Il faut mettre le full path avant le skype, voir documentation.
Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 13:00
par Yarillo
Aïe, la grosse baffe.
J'édite ça

Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 17:35
par 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 =)-)

Re: [..] Comment programmé un bouton
Posté : jeu. 12 mai 2011 17:42
par 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