j'ai découvert Autoit cet après midi et je commence a m'exercer un peu avec les GUI.
Pour cela je suis en train de faire un petit exercice tout simple, je suis tombé sur une page type "pipotron" sur internet
et j'essaie donc de reproduire la même chose avec Autoit.
Voici donc mon code:
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Générateur d'excuses V1.0", 830, 620, 191, 202)
$Group1 = GUICtrlCreateGroup("Générateur d'excuses bidons", 8, 8, 809, 601)
$Button1 = GUICtrlCreateButton("Générer", 320, 440, 153, 25, $WS_GROUP)
$List1 = GUICtrlCreateList("", 24, 40, 113, 84)
GUICtrlSetData(-1, "En pleine nuit |Hier soir |Tard dans la nuit |Tôt dans la matinée |Vers 4h00 du matin ")
$List2 = GUICtrlCreateList("", 152, 40, 113, 97)
GUICtrlSetData(-1, "alors que |au moment où |cependant que |comme |pendant que |tandis que ")
$List3 = GUICtrlCreateList("", 280, 40, 417, 123)
GUICtrlSetData(-1, "je dormais après avoir relu pour la 3eme fois la Comédie humaine de Balzac |je faisais un somme après avoir fini de traduire Guerre et Paix en Mandarin |je me reposais après avoir pratiqué 2h intenses de Squash |je m"&Chr(39)&"étais assoupi sur la brillante émission "&Chr(39)&"Chasse et Pêche"&Chr(39)&" |je m"&Chr(39)&"étais assoupi sur une des oeuvres passionnantes de Friedrich Wilheim Nietzsche |je m"&Chr(39)&"étais endormis sur un article fort intéressant du Herald Tribune |je sommeillais en attendant de me lever pour mon footing quotidien de 5h du matin |je somnollais après avoir passé en revue une étude du Figaro économique ")
$List4 = GUICtrlCreateList("", 24, 184, 121, 71)
GUICtrlSetData(-1, "ma vieille grand-mère |mon chat |mon chien |mon péroquet ")
$List5 = GUICtrlCreateList("", 160, 184, 217, 110)
GUICtrlSetData(-1, "a appuyé par mégarde sur le bouton OFF de |a effleuré par inadvertance le Snooze de |a fait tomber dans la baignoire |a joué avec le fil électrique de |a rebooté |a renversé du Coca sur |s"&Chr(39)&"est pris les pates dans le fil électrique de ")
$List6 = GUICtrlCreateList("", 392, 184, 305, 32)
GUICtrlSetData(-1, "mon radio-réveil qui n"&Chr(39)&"a donc pas sonné, et ce n"&Chr(39)&"est ")
$List7 = GUICtrlCreateList("", 24, 312, 497, 110)
GUICtrlSetData(-1, "qu"&Chr(39)&"après l"&Chr(39)&"entrée fracassante de la SPA |qu"&Chr(39)&"au moment où les huissiers (venus pour le voisin) ont enfoncé la porte |qu"&Chr(39)&"au moment où les pompes-funèbres (venues chercher ma belle-mère) ont sonné à la porte |qu"&Chr(39)&"avec la visite d"&Chr(39)&"un représentant du Téléthon venu me remercier pour mon généreux don de la veille |qu"&Chr(39)&"avec l"&Chr(39)&"arrivée du SAMU, venu chercher ma grand-mère |que lorsque les pompiers sont entrés en hurlant "&Chr(39)&"AU FEU!"&Chr(39)&" |que quand le plombier est venu réparer l"&Chr(39)&"inondation ")
$List8 = GUICtrlCreateList("", 536, 312, 265, 71)
GUICtrlSetData(-1, "que j"&Chr(39)&"ai bondi hors de mon lit pour me ruer au bureau |que j"&Chr(39)&"ai réalisé qu"&Chr(39)&"il était trop tard pour venir au bureau ce matin |que j"&Chr(39)&"ai repris connaissance |que je me suis réveillé ")
$Edit1 = GUICtrlCreateEdit("", 24, 480, 777, 113)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$excuse = GUICtrlRead($list1) & GUICtrlRead($list2) & GUICtrlRead($list3) & GUICtrlRead($list4) & GUICtrlRead($list5) & GUICtrlRead($list6) & GUICtrlRead($list7) & GUICtrlRead($list8)
GUICtrlSetData ($Edit1, $excuse)
EndSwitch
WEnd
L'idéal serait de cliquer sur le bouton générer et qu'une excuse soit générée de manière aléatoire, mais comment faire
2eme question, je n'arrive pas a passer à la ligne en ajoutant des @CR dans $excuse comme ci-dessous:
Code : Tout sélectionner
$excuse = GUICtrlRead($list1) & GUICtrlRead($list2) & GUICtrlRead($list3) & @CR & GUICtrlRead($list4) & GUICtrlRead($list5) & GUICtrlRead($list6) & @CR & GUICtrlRead($list7) & GUICtrlRead($list8)Merci pour votre aide !
ca marche impec.
arriver a ca en quelques heures ca promet !
