[..] animation bulles roses et bleues annonce sexe bébé

[corrs78]

Bonjour,

vous allez peut-être trouver cette demande de script curieuse, mais j'ai l'intention d'annoncer à mes proches le sexe de mon futur bébé d'une façon originale. J'ai plus l'intention de transformer cette annonce comme un jeu.

C'est pourquoi j'ai besoin de votre aide, car jusqu'à maintenant, les scripts que j'ai développés n'ont rien à voir avec ce que je souhaite faire : (plutôt animation graphique)

Je souhaiterais que des bulles (type bulles de savon colorées) se promènent aléatoirement sur le bureau de l'ordinateur. Selon le nombre et la couleur des bulles, la personne qui aura réussi à compter toutes les bulles pourra découvrir si nous attendons une petite fille ou un petit garçon.

Amélioration possible:
inscription du totale de bulle roses et bleues dans une inputbox -> si resultat ok -> sexe révélé

si vous avez d'autres idées originales, n'hésitez pas à vous manifester.


Pour commencer je vais, par moi même, commencer à faire bouger un objet type image dans une fenêtre simple.

Merci à tous pour votre contribution

Le Futur Papa, Steeve.


edit :

voilà, un bon début, pour mon petit niveau en "Autoit" -> j'ai réussi à animer une bulle en transparence sur l'écran. Maintenant il faut que je réflechisse à la manière de multiplier ces petites bulles et gérer le nombre et la couleur (plusieurs instances ?! simple, mais pas judicieux je pense).

► Afficher le textecode

Code : Tout sélectionner

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

HotKeySet("{ESC}", "Terminate")

Opt('MustDeclareVars', 1)

Global $gui, $guiPos, $pic, $picPos, $y , $x


bulles_roses()

Func bulles_roses()
    Local $msg

    $gui = GUICreate("test transparentpic", 1024, 768)
    $pic = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui)
    GUICtrlCreatePic("bulle_rose.gif", 0, 0, 0, 0)

    GUISetState(@SW_SHOW, $pic)



    $picPos = WinGetPos($pic)
    $guiPos = WinGetPos($gui)

    Do
        $msg = GUIGetMsg()
        sleep(250)
        $x = Random(0,1024)
        $y = Random(0,768)

        $picPos = WinGetPos($pic)
    WinMove($pic, "",$x , $y)

    Until $msg = $GUI_EVENT_CLOSE
EndFunc

Func Terminate()
    Exit 0
EndFunc
 

vous trouverez les fichiers bulle_rose et bulle_bleue ici :
http://www.hiboox.fr/go/images/smiley-i ... b.gif.html
http://www.hiboox.fr/go/images/bebe/bul ... 4.gif.html

[corrs78]

up

[TommyDDR]

Bon, je ne pensais pas que ça aurai pris autant de temps ^^.

Voici votre programme, vous pouvez améliorer la fenêtre qui annonce le sexe de l'enfant, j'ai simplement mis un "C'est une fille !" ou un "C'est un garçon !".

Je met aussi en pièce jointe les images, je les ai retouchées pour qu'elles aient la bonne taille.

Au début du programme se trouvent des

Code : Tout sélectionner

; Variables de configuration

vous pouvez les modifier pour ajuster la difficulté du jeu (nombre de bulles, vitesse) et choisir le sexe de l'enfant.

J'ai inclu un exemple compilé avec 20 bulles et sexe féminin.

Une fois le code compilé, vous devez juste envoyer l'exe à vos amis, les images seront incluses dedent (FileInstall).

En esperant avoir répondu à votre demande.

[TommyDDR]

Annonce_Sexe_Bebe.rar
[ 305.24 Kio | Téléchargé 5 fois ]

4 5 fois, et aucun remerciment...

J'espere juste que corrs78 ne fait pas encore parti des téléchargeurs...

Sinon je serai vraiment déçu de ne pas avoir de réponse après le travail fourni.

[ricky]

Hello,

je vois que tu t'es bien amusé. Bravo pour le code.

[bloodwolff]

Annonce_Sexe_Bebe.rar
[ 305.24 Kio | Téléchargé 5 fois ]

4 fois, et aucun remerciment...

J'espere juste que corrs78 ne fait pas encore parti des téléchargeurs...

Sinon je serai vraiment déçu de ne pas avoir de réponse après le travail fourni.

Euh Dans ta citation c'est écrit 5 ! Et je faisais partis des premiers à l'avoir téléchargé et franchement je m'attendais moins Bravo t'as monté dans mon estime personnel avec ce script

[TommyDDR]

Oups, j'avais MAJ la citation mais pas le commentaire

Merci Bloodwolff & ricky , vous me réchauffez le cœur ^^

[corrs78]

Bon, je ne pensais pas que ça aurai pris autant de temps ^^.

Voici votre programme, vous pouvez améliorer la fenêtre qui annonce le sexe de l'enfant, j'ai simplement mis un "C'est une fille !" ou un "C'est un garçon !".

Je met aussi en pièce jointe les images, je les ai retouchées pour qu'elles aient la bonne taille.

Au début du programme se trouvent des

Code : Tout sélectionner

; Variables de configuration

vous pouvez les modifier pour ajuster la difficulté du jeu (nombre de bulles, vitesse) et choisir le sexe de l'enfant.

J'ai inclu un exemple compilé avec 20 bulles et sexe féminin.

Une fois le code compilé, vous devez juste envoyer l'exe à vos amis, les images seront incluses dedent (FileInstall).

En esperant avoir répondu à votre demande.

Je tiens vraiment à m'excuser de ne pas avoir répondu, seulement l'alerte mail est arrivée sur un mail que je consulte très rarement. C'est corrigé, rassurez vous !

D'ailleurs pour ce script je m'etais finalement debrouillé tout seul avec mon peu de connaissances. Et je sais que c'est loin d'être joli et optimisé niveau code :
D'ailleurs pour vous prouver que je n'ai pas utilisé votre code (au combien de fois beaucoup mieux) je vous met le mien : On ne se moque pas !

► Afficher le textecode

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>


;interdire le clavier
;boite de dialogue
;bouton quitter avec la souris

HotKeySet("{ESC}", "Terminate")

Opt('MustDeclareVars', 1)

Global $font, $Button_exit, $gui, $gui2,$gui3,$gui4,$gui5,$gui6,$gui7,$gui8,$gui9,$gui10,$guI11,$gui12,$gui13, $guiPos,$guiPos2,$guiPos3,$guiPos4,$guiPos5,$guiPos6,$guiPos7,$guipos8,$guipos9,$guipos10,$guipos11,$guipos12,$guiPos13, $pic, $pic2, $pic3, $pic4, $pic5, $pic6, $pic7, $pic8,$pic9,$pic10,$pic11,$pic12,$pic13, $picPos, $picPos2, $picPos3,$picPos4,$picPos5,$picPos6,$picPos7,$picPos8,$picPos9,$picPos10,$picPos11,$picPos12,$picPos13, $y , $x, $x2, $y2, $x3, $y3, $x4, $y4, $x5, $y5, $x6, $y6, $x7, $y7, $x8, $y8, $x9, $y9, $x10, $y10, $x11, $y11, $x12, $y12, $x13,$y13

FileInstall("E:\Annonce Sexe Bébé\bulle_rose.gif",@TempDir & "\bulle_rose.gif")
FileInstall("E:\Annonce Sexe Bébé\bulle_bleue.gif",@TempDir & "\bulle_bleue.gif")

bulles_roses()

Func bulles_roses()
    Local $msg

    $gui = GUICreate("test transparentpic", 1024, 768)
    $gui2 = GUICreate("test transparentpic", 1024, 768)
    $gui3 = GUICreate("test transparentpic", 1024, 768)
    $gui4 = GUICreate("test transparentpic", 1024, 768)
    $gui5 = GUICreate("test transparentpic", 1024, 768)
    $gui6 = GUICreate("test transparentpic", 1024, 768)
    $gui7 = GUICreate("test transparentpic", 1024, 768)
    $gui8 = GUICreate("test transparentpic", 1024, 768)
    $gui9 = GUICreate("test transparentpic", 1024, 768)
    $gui10 = GUICreate("test transparentpic", 1024, 768)
    $gui11 = GUICreate("test transparentpic", 1024, 768)
    $gui12 = GUICreate("test transparentpic", 1024, 768)
    $gui13 = GUICreate("test transparentpic", 1024, 768)
    
    $pic = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui)
    GUICtrlCreatePic(@TempDir & "\bulle_rose.gif", 0, 0, 0, 0)
    $pic2 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui2)
    GUICtrlCreatePic(@TempDir & "\bulle_rose.gif", 0, 0, 0, 0)
    $pic3 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui3)
    GUICtrlCreatePic(@TempDir & "\bulle_rose.gif", 0, 0, 0, 0)
    $pic4 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui4)
    GUICtrlCreatePic(@TempDir & "\bulle_rose.gif", 0, 0, 0, 0)
    $pic5 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui5)
    GUICtrlCreatePic(@TempDir & "\bulle_rose.gif", 0, 0, 0, 0)
    $pic6 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui6)
    GUICtrlCreatePic(@TempDir & "\bulle_rose.gif", 0, 0, 0, 0)
    $pic7 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui7)
    GUICtrlCreatePic(@TempDir & "\bulle_bleue.gif", 0, 0, 0, 0)
    $pic8 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui8)
    GUICtrlCreatePic(@TempDir & "\bulle_bleue.gif", 0, 0, 0, 0)
    $pic9 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui9)
    GUICtrlCreatePic(@TempDir & "\bulle_bleue.gif", 0, 0, 0, 0)
    $pic10 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui10)
    GUICtrlCreatePic(@TempDir & "\bulle_bleue.gif", 0, 0, 0, 0)
    $pic11 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui11)
    GUICtrlCreatePic(@TempDir & "\bulle_bleue.gif", 0, 0, 0, 0)
    $pic12 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui12)
    GUICtrlCreatePic(@TempDir & "\bulle_bleue.gif", 0, 0, 0, 0)
    $pic13 = GUICreate("", 96, 95, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui13)
    GUICtrlCreatePic(@TempDir & "\bulle_rose.gif", 0, 0, 0, 0)

    GUISetState(@SW_SHOW, $pic)
    GUISetState(@SW_SHOW, $pic2)
    GUISetState(@SW_SHOW, $pic3)
    GUISetState(@SW_SHOW, $pic4)
    GUISetState(@SW_SHOW, $pic5)
    GUISetState(@SW_SHOW, $pic6)
    GUISetState(@SW_SHOW, $pic7)
    GUISetState(@SW_SHOW, $pic8)
    GUISetState(@SW_SHOW, $pic9)
    GUISetState(@SW_SHOW, $pic10)
    GUISetState(@SW_SHOW, $pic11)
    GUISetState(@SW_SHOW, $pic12)
    GUISetState(@SW_SHOW, $pic13)
    
    $gui = GUICreate("Quel est le sexe du futur bébé by Steeve", 350, 60,800,0)
    GUISetState()
     $font = "Comic Sans MS"
    GUISetFont(16, 400, 4, $font)
    GUICtrlCreateLabel("Appuyez sur Echap pour quitter", 0,0,350, 40)
    GUISetFont(10, 400, 1, $font)
    GUICtrlCreateLabel("Si vous arrivez à compter, vous saurez !", 0,35,350, 40)
    

    $picPos = WinGetPos($pic)
    $guiPos = WinGetPos($gui)
    $picPos2 = WinGetPos($pic2)
    $guiPos2 = WinGetPos($gui2)
    $picPos3 = WinGetPos($pic3)
    $guiPos3 = WinGetPos($gui3)
    $picPos4 = WinGetPos($pic4)
    $guiPos4 = WinGetPos($gui4)
    $picPos5 = WinGetPos($pic5)
    $guiPos5 = WinGetPos($gui5)
    $picPos6 = WinGetPos($pic6)
    $guiPos6 = WinGetPos($gui6)
    $picPos7 = WinGetPos($pic7)
    $guiPos7 = WinGetPos($gui7)
    $picPos8 = WinGetPos($pic8)
    $guiPos8 = WinGetPos($gui8)
    $picPos9 = WinGetPos($pic9)
    $guiPos9 = WinGetPos($gui9)
    $picPos10 = WinGetPos($pic10)
    $guiPos10 = WinGetPos($gui10)
    $picPos11 = WinGetPos($pic11)
    $guiPos11 = WinGetPos($gui11)
    $picPos12 = WinGetPos($pic12)
    $guiPos12 = WinGetPos($gui12)
    $picPos13 = WinGetPos($pic13)
    $guiPos13 = WinGetPos($gui13)


    Do
        $msg = GUIGetMsg()
        sleep(900)
        $x = Random(0,800)
        $y = Random(0,600)
        $x2 = Random(0,800)
        $y2 = Random(0,600)
        $x3 = Random(0,800)
        $y3 = Random(0,600)
        $x4 = Random(0,800)
        $y4 = Random(0,600)
        $x5 = Random(0,800)
        $y5 = Random(0,600)
        $x6 = Random(0,800)
        $y6 = Random(0,600)
        $x7 = Random(0,800)
        $y7 = Random(0,600)
        $x8 = Random(0,800)
        $y8 = Random(0,600)
        $x9 = Random(0,800)
        $y9 = Random(0,600)
        $x10 = Random(0,800)
        $y10 = Random(0,600)
        $x11 = Random(0,800)
        $y11 = Random(0,600)
        $x12 = Random(0,800)
        $y12 = Random(0,600)
        $x13 = Random(0,800)
        $y13 = Random(0,600)

        $picPos = WinGetPos($pic)
        $picPos2 = WinGetPos($pic2)
        $picPos3 = WinGetPos($pic3)
        $picPos4 = WinGetPos($pic4)
        $picPos5 = WinGetPos($pic5)
        $picPos6 = WinGetPos($pic6)
        $picPos7 = WinGetPos($pic7)
        $picPos8 = WinGetPos($pic8)
        $picPos8 = WinGetPos($pic9)
        $picPos8 = WinGetPos($pic10)
        $picPos8 = WinGetPos($pic11)
        $picPos8 = WinGetPos($pic12)
        $picPos8 = WinGetPos($pic13)
        
    WinMove($pic, "",$x , $y)
    WinMove($pic2, "",$x2 , $y2)
    WinMove($pic3, "",$x3 , $y3)
    WinMove($pic4, "",$x4 , $y4)
    WinMove($pic5, "",$x5 , $y5)
    WinMove($pic6, "",$x6 , $y6)
    WinMove($pic7, "",$x7 , $y7)
    WinMove($pic8, "",$x8 , $y8)
    WinMove($pic9, "",$x9 , $y9)
    WinMove($pic10, "",$x10 , $y10)
    WinMove($pic11, "",$x11 , $y11)
    WinMove($pic12, "",$x12 , $y12)
    WinMove($pic13, "",$x13 , $y13)
    
    Until $msg = $GUI_EVENT_CLOSE
EndFunc

Func Terminate()
    Exit 0
EndFunc

 

Je m'en vais de suite analyser votre code pour "en prendre de la graine".

Encore merci, je l'utiliserais surement pour mon prochain enfant

[mikell]

Janvier ==> Octobre : 9 mois
Félicitations

@TommyDDR
sympa ton script, je vais le garder pour essayer de me faire en autoit un jeu de tir aux ballons (comme dans les foires)

[TommyDDR]

Oo Mon rêve s'est réalisé !!!
corrs78 a répondu ! Alléluia !

Cool que tu réutilises mon code mikell ^^

[mikell]

Cool que tu réutilises mon code mikell ^^

Heu, je vais essayer...
en fait j'aimerais "randomiser" un peu le déplacement des bulles (après, je pense que la partie tir sera facile)

[TommyDDR]

pour le random, au lieu de faire du +1 +1, jouez avec les angles cosinus et sinus seront vos tes amis pour les coordonnées ^^

[mikell]

Exact... 2 remarques
1- http://www.autoitscript.fr/forum/viewto ... 717#p54717, alors quoi ?
2- si je commence à rentrer là-dedans le script à la sortie n'aura plus grand-chose à voir avec le tien
on peut aussi randomiser la vitesse, voire (soyons fous) la couleur des bulles si on le fait en GDI+ en laissant tomber les gif

[corrs78]

pour le random, au lieu de faire du +1 +1, jouez avec les angles cosinus et sinus seront vos tes amis pour les coordonnées ^^

Oui, c'est le seul point négatif que je vois. Les bulles suivent toujours la meme trajectoires. Mais en effet, les math peuvent solutionner ça