j'ai Donc fait :Trouvez le mois de votre naissance et prenez la phrase à côté :
Janvier : Je suis parti avec
Février : J'ai couché avec
Mars : J'ai tué
Avril : J'ai chatouillé
Mai : J'ai giflé
Juin : J'ai volé
Juillet : J'ai mangé
Août : Je me suis marié avec
Septembre : J'ai battu
Octobre : Je me suis habillé comme
Novembre : J'ai enflammé
Décembre : J'ai dormi avec
Ensuite, trouvez le jour de votre anniversaire :
1 : moi-même
2 : un citoyen
3 : un singe
4 : mon meilleur ami
5 : un éléphant
6 : un petit gros
7 : un poilu
8 : une chaise
9 : un chat
10 : une souris
11 : une truie
12 : un gorille
13 : ilona
14 : Lorie
15 : Alizée
16 : M.Pokora
17 : Britney Spears
18 : Mozart
19 : une banane
20 : Bob l'éponge
21 : Dora
22 : OUI-OUI
23 : une baleine
24 : un ouistiti
25 : un marsupilami
26 : un bisounours
27 : Jenifer
28 : Amel bent
29 : Mr Bean
30 : un mec
31 : une fille
Et enfin, la première lettre de votre prénom :
A : pour sauver le futur
B : car je te déteste
C : et j'aime ça
D : pour un biscuit
E : car je n'aime pas ça
F : et je me trouve beau
G : pour être roi/reine
H : et c'est nul
I : pour la popularité
J : et je trouve ça drôle
K : pour aucune raison
L : et je me suis fais engueuler par ma maman
M : pour être un héros
N : car j'aime les ringards
O : car j'aime la vie
P : pour l'argent
Q : et ça pue
R : car je suis une tapette
S : pour mon copain/ma copine
T : et un rhinocéros m'a fonçé dessus
U : car je suis fou
V : et je me suis fais taper par un petit de 10 ans
W : car je n'ai pas d'amis
X : et je sens une odeur bizarre venant de mes pieds
Y : et ça me soule
Z : pour une patate
Code : Tout sélectionner
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
un$="moi-même"
deux$ = " un citoyen "
trois$ = " un singe "
quatre$ = " mon meilleur ami "
cinq$ = " un éléphant "
six$ = " un petit gros "
sept$ = " un poilu "
huit$ = " une chaise "
neuf$ = " un chat "
dix$ = " une souris "
onze$ = " une truie "
douze$ = " un gorille "
treize$ = " ilona "
quatorze$ = " Lorie "
quinze$ = " Alizée "
seize$ = " M.Pokora "
dixsept$ = " Britney Spears "
dixhuit$ = " Mozart "
dixneuf$ = " une banane "
vingt$ = " Bob l'éponge "
vingtetun$ = " Dora "
vingtdeux$ = " OUI-OUI "
vingttrois$ = " une baleine "
vingtquatre$ = " un ouistiti "
vingtcinque$ = " un marsupilami "
vingtsix$ = " un bisounours "
vingtsept$ = " Jenifer "
vingthuit$ = " Amel bent "
vingtneuf$ = " Mr Bean "
trente$ = " un mec "
trenteetun$ = " une fille "
Janvier$ ="Je suis parti avec"
Fevrier$ = "J'ai couché avec"
Mars$ = "J'ai tué"
Avril$ = "J'ai chatouillé"
Mai$ = "J'ai giflé"
Juin$ = "J'ai volé"
Juillet$ = "J'ai mangé"
Aout$ = "Je me suis marié avec"
Septembre$ = "J'ai battu"
Octobre$ = "Je me suis habillé comme"
Novembre$ = "J'ai enflammé"
Decembre$ = "J'ai dormi avec"
A$= "pour sauver le futur"
B$= "car je te déteste"
C$= "et j'aime ça"
D$= "pour un biscuit"
E$= "car je n'aime pas ça"
F$= "et je me trouve beau"
G$= "pour être roi/reine"
H$= "et c'est nul"
I$= "pour la popularité"
J$= "et je trouve ça drôle"
K$= "pour aucune raison"
L$= "et je me suis fais engueuler par ma maman"
M$= "pour être un héros"
N$= "car j'aime les ringards"
O$= "car j'aime la vie"
P$= "pour l'argent"
Q$= "et ça pue"
R$= "car je suis une tapette"
S$= "pour mon copain/ma copine"
T$= "et un rhinocéros m'a fonçé dessus"
U$= "car je suis fou"
V$= "et je me suis fais taper par un petit de 10 ans"
W$= "car je n'ai pas d'amis"
X$= "et je sens une odeur bizarre venant de mes pieds"
Y$= "et ça me soule"
Z$= "pour une patate"
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#String_0
#Text_1
#String_2
#String_4
#Text_4
#Text_6
#Button_0
#Text_7
#Text_8
#Text_9
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 332, 197, "Mypace : Mais...", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
StringGadget(#String_0, 30, 70, 60, 30, "",#PB_String_Numeric)
TextGadget(#Text_1, 90, 80, 10, 20, "/")
StringGadget(#String_2, 100, 70, 60, 30, "",#PB_String_Numeric)
StringGadget(#String_4, 170, 70, 150, 30, "")
TextGadget(#Text_4, 160, 80, 10, 20, "/")
TextGadget(#Text_6, 70, 30, 130, 20, "Date De naissance...", #PB_Text_Center)
ButtonGadget(#Button_0, 55, 130, 210, 50, "Mais Qu'est-ce que j'ai fait ?? =O")
TextGadget(#Text_7, 50, 100, 30, 20, "Jours")
TextGadget(#Text_8, 120, 100, 30, 20, "Mois")
TextGadget(#Text_9, 180, 100, 400, 20, "Premiere lettre Du prenom...")
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
jours.s = GetGadgetText(0)
mois.s = GetGadgetText(2)
annee.s = GetGadgetText(4)
event = WaitWindowEvent()
Repeat
Event = WindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case #button_0
;----------LETS GO--------------
If jours.s = "1"
TextGadget(#Text_6, 70, 30, 130, 20, un$, #PB_Text_Center)
EndIf
;------------THE END---------------
EndSelect
EndIf
Until event = #PB_Event_CloseWindow
Until event = #PB_Event_CloseWindow
, sa marche très bien 
, J'ai pris compte de mes erreurs =D
)
