Aller au contenu


Photo
- - - - -

robot "programmable" utilisant un lecteur MP3 comme cerveau


  • Veuillez vous connecter pour répondre
40 réponses à ce sujet

#41 clem494949

clem494949

    Membre

  • Membres
  • 43 messages
  • Gender:Male

Posté 03 mars 2013 - 02:16

;Re
;Voila le script sous Autoit (il n'a que peut avancé)


;#include <GUIConstantsEx.au3>



$MsgBox1 = MsgBox ( 4, "générateurXD", "Avez-vous bien visionnez la diapo ou lu le petit texte ?" , 10  )
if $Msgbox1 = 7 Then 
 $presentation = FileRead ( "presentationcodez.txt" )
 MsgBox ( 0 , "générateurXD", $presentation )
EndIf

;ci dessu le message demandant la lecture du guide d'utilisation  
;cidessou l'interface utilisateur
 
GUICreate ("GénérateurXD",700,680)

;GUISetBkColor(0xEE8186) 
;en rose 

GUISetBkColor(0xC7FBA8) 
;en vert

$boutonsuite = GUICtrlCreateButton("Suite",445, 640, 200)
$boutonanuler = GUICtrlCreateButton("Anuler",230, 640, 200)
$boutonhelp = GUICtrlCreateButton("Help",15, 640, 200)

$boutong1 = GUICtrlCreateButton("gauche",10, 10,80)
$boutong2 = GUICtrlCreateButton("gauche",10, 35,80)
$boutong3 = GUICtrlCreateButton("gauche",10, 60,80)
$boutong4 = GUICtrlCreateButton("gauche",10, 85,80)
$boutong5 = GUICtrlCreateButton("gauche",10, 110,80)
$boutong6 = GUICtrlCreateButton("gauche",10, 135,80)
$boutong7 = GUICtrlCreateButton("gauche",10, 160,80)
$boutong8 = GUICtrlCreateButton("gauche",10, 185,80)
$boutong9 = GUICtrlCreateButton("gauche",10, 210,80)
$boutong10 = GUICtrlCreateButton("gauche",10, 235,80)
$boutong11 = GUICtrlCreateButton("gauche",10, 260,80)
$boutong12 = GUICtrlCreateButton("gauche",10, 285,80)
$boutong13 = GUICtrlCreateButton("gauche",10, 310,80)
$boutong14 = GUICtrlCreateButton("gauche",10, 335,80)
$boutong15 = GUICtrlCreateButton("gauche",10, 360,80)
$boutong16 = GUICtrlCreateButton("gauche",10, 385,80)
$boutong17 = GUICtrlCreateButton("gauche",10, 410,80)
$boutong18 = GUICtrlCreateButton("gauche",10, 435,80)
$boutong19 = GUICtrlCreateButton("gauche",10, 460,80)
$boutong20 = GUICtrlCreateButton("gauche",10, 485,80)
$boutong21 = GUICtrlCreateButton("gauche",10, 510,80)
$boutong22 = GUICtrlCreateButton("gauche",10, 535,80)
$boutong23 = GUICtrlCreateButton("gauche",10, 560,80)
$boutong24 = GUICtrlCreateButton("gauche",10, 585,80)
$boutong25 = GUICtrlCreateButton("gauche",10, 610,80)

$boutond1 = GUICtrlCreateButton("droite",110, 10,80)
$boutond2 = GUICtrlCreateButton("droite",110, 35,80)
$boutond3 = GUICtrlCreateButton("droite",110, 60,80)
$boutond4 = GUICtrlCreateButton("droite",110, 85,80)
$boutond5 = GUICtrlCreateButton("droite",110, 110,80)
$boutond6 = GUICtrlCreateButton("droite",110, 135,80)
$boutond7 = GUICtrlCreateButton("droite",110, 160,80)
$boutond8 = GUICtrlCreateButton("droite",110, 185,80)
$boutond9 = GUICtrlCreateButton("droite",110, 210,80)
$boutond10 = GUICtrlCreateButton("droite",110, 235,80)
$boutond11 = GUICtrlCreateButton("droite",110, 260,80)
$boutond12 = GUICtrlCreateButton("droite",110, 285,80)
$boutond13 = GUICtrlCreateButton("droite",110, 310,80)
$boutond14 = GUICtrlCreateButton("droite",110, 335,80)
$boutond15 = GUICtrlCreateButton("droite",110, 360,80)
$boutond16 = GUICtrlCreateButton("droite",110, 385,80)
$boutond17 = GUICtrlCreateButton("droite",110, 410,80)
$boutond18 = GUICtrlCreateButton("droite",110, 435,80)
$boutond19 = GUICtrlCreateButton("droite",110, 460,80)
$boutond20 = GUICtrlCreateButton("droite",110, 485,80)
$boutond21 = GUICtrlCreateButton("droite",110, 510,80)
$boutond22 = GUICtrlCreateButton("droite",110, 535,80)
$boutond23 = GUICtrlCreateButton("droite",110, 560,80)
$boutond24 = GUICtrlCreateButton("droite",110, 585,80)
$boutond25 = GUICtrlCreateButton("droite",110, 610,80)

$boutona1 = GUICtrlCreateButton("avancer",210, 10,80)
$boutona2 = GUICtrlCreateButton("avancer",210, 35,80)
$boutona3 = GUICtrlCreateButton("avancer",210, 60,80)
$boutona4 = GUICtrlCreateButton("avancer",210, 85,80)
$boutona5 = GUICtrlCreateButton("avancer",210, 110,80)
$boutona6 = GUICtrlCreateButton("avancer",210, 135,80)
$boutona7 = GUICtrlCreateButton("avancer",210, 160,80)
$boutona8 = GUICtrlCreateButton("avancer",210, 185,80)
$boutona9 = GUICtrlCreateButton("avancer",210, 210,80)
$boutona10 = GUICtrlCreateButton("avancer",210, 235,80)
$boutona11= GUICtrlCreateButton("avancer",210, 260,80)
$boutona12 = GUICtrlCreateButton("avancer",210, 285,80)
$boutona13 = GUICtrlCreateButton("avancer",210, 310,80)
$boutona14 = GUICtrlCreateButton("avancer",210, 335,80)
$boutona15 = GUICtrlCreateButton("avancer",210, 360,80)
$boutona16 = GUICtrlCreateButton("avancer",210, 385,80)
$boutona17 = GUICtrlCreateButton("avancer",210, 410,80)
$boutona18 = GUICtrlCreateButton("avancer",210, 435,80)
$boutona19 = GUICtrlCreateButton("avancer",210, 460,80)
$boutona20 = GUICtrlCreateButton("avancer",210, 485,80)
$boutona21 = GUICtrlCreateButton("avancer",210, 510,80)
$boutona22 = GUICtrlCreateButton("avancer",210, 535,80)
$boutona23 = GUICtrlCreateButton("avancer",210, 560,80)
$boutona24 = GUICtrlCreateButton("avancer",210, 585,80)
$boutona25 = GUICtrlCreateButton("avancer",210, 610,80)
 
$boutondtg1 = GUICtrlCreateButton("demi-tour gauche",310, 10,125)
$boutondtg2 = GUICtrlCreateButton("demi-tour gauche",310, 35,125)
$boutondtg3 = GUICtrlCreateButton("demi-tour gauche",310, 60,125)
$boutondtg4 = GUICtrlCreateButton("demi-tour gauche",310, 85,125)
$boutondtg5 = GUICtrlCreateButton("demi-tour gauche",310, 110,125)
$boutondtg6 = GUICtrlCreateButton("demi-tour gauche",310, 135,125)
$boutondtg7 = GUICtrlCreateButton("demi-tour gauche",310, 160,125)
$boutondtg8 = GUICtrlCreateButton("demi-tour gauche",310, 185,125)
$boutondtg9 = GUICtrlCreateButton("demi-tour gauche",310, 210,125)
$boutondtg10 = GUICtrlCreateButton("demi-tour gauche",310, 235,125)
$boutondtg11 = GUICtrlCreateButton("demi-tour gauche",310, 260,125)
$boutondtg12 = GUICtrlCreateButton("demi-tour gauche",310, 285,125)
$boutondtg13 = GUICtrlCreateButton("demi-tour gauche",310, 310,125)
$boutondtg14 = GUICtrlCreateButton("demi-tour gauche",310, 335,125)
$boutondtg15 = GUICtrlCreateButton("demi-tour gauche",310, 360,125)
$boutondtg16 = GUICtrlCreateButton("demi-tour gauche",310, 385,125)
$boutondtg17 = GUICtrlCreateButton("demi-tour gauche",310, 410,125)
$boutondtg18 = GUICtrlCreateButton("demi-tour gauche",310, 435,125)
$boutondtg19 = GUICtrlCreateButton("demi-tour gauche",310, 460,125)
$boutondtg20 = GUICtrlCreateButton("demi-tour gauche",310, 485,125)
$boutondtg21 = GUICtrlCreateButton("demi-tour gauche",310, 510,125)
$boutondtg22 = GUICtrlCreateButton("demi-tour gauche",310, 535,125)
$boutondtg23 = GUICtrlCreateButton("demi-tour gauche",310, 560,125)
$boutondtg24 = GUICtrlCreateButton("demi-tour gauche",310, 585,125)
$boutondtg25 = GUICtrlCreateButton("demi-tour gauche",310, 610,125) 

$boutondtd1 = GUICtrlCreateButton("demi-tour droite",460, 10,125)
$boutondtd2 = GUICtrlCreateButton("demi-tour droite",460, 35,125)
$boutondtd3 = GUICtrlCreateButton("demi-tour droite",460, 60,125)
$boutondtd4 = GUICtrlCreateButton("demi-tour droite",460, 85,125)
$boutondtd5 = GUICtrlCreateButton("demi-tour droite",460, 110,125)
$boutondtd6 = GUICtrlCreateButton("demi-tour droite",460, 135,125)
$boutondtd7 = GUICtrlCreateButton("demi-tour droite",460, 160,125)
$boutondtd8 = GUICtrlCreateButton("demi-tour droite",460, 185,125)
$boutondtd9 = GUICtrlCreateButton("demi-tour droite",460, 210,125)
$boutondtd10 = GUICtrlCreateButton("demi-tour droite",460, 235,125)
$boutondtd11 = GUICtrlCreateButton("demi-tour droite",460, 260,125)
$boutondtd12 = GUICtrlCreateButton("demi-tour droite",460, 285,125)
$boutondtd13 = GUICtrlCreateButton("demi-tour droite",460, 310,125)
$boutondtd14 = GUICtrlCreateButton("demi-tour droite",460, 335,125)
$boutondtd15 = GUICtrlCreateButton("demi-tour droite",460, 360,125)
$boutondtd16 = GUICtrlCreateButton("demi-tour droite",460, 385,125)
$boutondtd17 = GUICtrlCreateButton("demi-tour droite",460, 410,125)
$boutondtd18 = GUICtrlCreateButton("demi-tour droite",460, 435,125)
$boutondtd19 = GUICtrlCreateButton("demi-tour droite",460, 460,125)
$boutondtd20 = GUICtrlCreateButton("demi-tour droite",460, 485,125)
$boutondtd21 = GUICtrlCreateButton("demi-tour droite",460, 510,125)
$boutondtd22 = GUICtrlCreateButton("demi-tour droite",460, 535,125)
$boutondtd23 = GUICtrlCreateButton("demi-tour droite",460, 560,125)
$boutondtd24 = GUICtrlCreateButton("demi-tour droite",460, 585,125)
$boutondtd25 = GUICtrlCreateButton("demi-tour droite",460, 610,125)

GUICtrlCreateLabel ( "1", 600 , 15 )
GUICtrlCreateLabel ( "2", 600 , 40 )
GUICtrlCreateLabel ( "3", 600 , 65 )
GUICtrlCreateLabel ( "4", 600 , 90 )
GUICtrlCreateLabel ( "5", 600 , 115 )
GUICtrlCreateLabel ( "6", 600 , 140 )
GUICtrlCreateLabel ( "7", 600 , 165 )
GUICtrlCreateLabel ( "8", 600 , 190 )
GUICtrlCreateLabel ( "9", 600 , 215 )
GUICtrlCreateLabel ( "10", 600 , 240 )
GUICtrlCreateLabel ( "11", 600 , 265 )
GUICtrlCreateLabel ( "12", 600 , 290 )
GUICtrlCreateLabel ( "13", 600 , 315 )
GUICtrlCreateLabel ( "14", 600 , 340 )
GUICtrlCreateLabel ( "15", 600 , 365 )
GUICtrlCreateLabel ( "16", 600 , 390 )
GUICtrlCreateLabel ( "17", 600 , 415 )
GUICtrlCreateLabel ( "18", 600 , 440 )
GUICtrlCreateLabel ( "19", 600 , 465 )
GUICtrlCreateLabel ( "20", 600 , 490 )
GUICtrlCreateLabel ( "21", 600 , 515 )
GUICtrlCreateLabel ( "22", 600 , 540 )
GUICtrlCreateLabel ( "23", 600 , 565 )
GUICtrlCreateLabel ( "24", 600 , 590 )
GUICtrlCreateLabel ( "25", 600 , 615 )

GUICtrlCreateLabel ( "$resultat1", 620 , 15 )
GUICtrlCreateLabel ( "$resultat2", 620 , 40 )
GUICtrlCreateLabel ( "$resultat3", 620 , 65 )
GUICtrlCreateLabel ( "$resultat4", 620 , 90 )
GUICtrlCreateLabel ( "$resultat5", 620 , 115 )
GUICtrlCreateLabel ( "$resultat6", 620 , 140 )
GUICtrlCreateLabel ( "$resultat7", 620 , 165 )
GUICtrlCreateLabel ( "$resultat8", 620 , 190 )
GUICtrlCreateLabel ( "$resultat9", 620 , 215 )
GUICtrlCreateLabel ( "$resultat10", 620 , 240 )
GUICtrlCreateLabel ( "$resultat11", 620 , 265 )
GUICtrlCreateLabel ( "$resultat12", 620 , 290 )
GUICtrlCreateLabel ( "$resultat13", 620 , 315 )
GUICtrlCreateLabel ( "$resultat14", 620 , 340 )
GUICtrlCreateLabel ( "$resultat15", 620 , 365 )
GUICtrlCreateLabel ( "$resultat16", 620 , 390 )
GUICtrlCreateLabel ( "$resultat17", 620 , 415 )
GUICtrlCreateLabel ( "$resultat18", 620 , 440 )
GUICtrlCreateLabel ( "$resultat19", 620 , 465 )
GUICtrlCreateLabel ( "$resultat20", 620 , 490 )
GUICtrlCreateLabel ( "$resultat21", 620 , 515 )
GUICtrlCreateLabel ( "$resultat22", 620 , 540 )
GUICtrlCreateLabel ( "$resultat23", 620 , 565 )
GUICtrlCreateLabel ( "$resultat24", 620 , 590 )
GUICtrlCreateLabel ( "$resultat25", 620 , 615 )

GUISetState(@SW_SHOW)

;ci dessou les commandes des boutons: suite, annuler et help

While 1
        $msg = GUIGetMsg()
        Select
			Case $msg = $boutonsuite  ;à changer pour la suite
			     Sleep(400)
				 Exit
			Case $msg = $boutonanuler
			     Exit
			Case $msg = $boutonhelp
				 $presentation2 = FileRead ( "presentationscript.txt" )
				 MsgBox ( 0 , "générateurXD", $presentation2 )				;Vous pouvez voir qu'en tant qu'ammateur je réutilise le même script pour le bouton Help qu'en haut  
				
			EndSelect	
		WEnd

;C'est beau
;A+


Fichier joint  presentationcodez.txt   660 octets   145 téléchargement(s)
Fichier joint  presentationscript.txt   404 octets   124 téléchargement(s)




0 utilisateur(s) li(sen)t ce sujet

0 members, 0 guests, 0 anonymous users