Compétition PurePunch Numéro 2
-
Anonyme
TazNormand a écrit :Ah zut, j'ai une logitech MX1000 noire, et j'ai pas de bouton blanc, ça va pas marcher alorsCode : Tout sélectionner
"Notes : -exit white mouse right button"?
@Dobro , en traduisant ton Franglais :
Sortir blanc bouton droit
With , pas white , ta sniffé de la white spirit ? ( esprit blanc
Quel gratteur cet OlivierOllivier a écrit :Ouais, mais en grattant encore un peu, Tonton pouvait faire 5 lignes !!!!
Je sors...Code : Tout sélectionner
k=255:X=k*4:D=OpenWindow(1,0,0,X,X,"",$C80001):n=5*X:Dim f(n):Dim g(n):Dim h(n) w=2*X:g=WindowWidth(1)/2:h=g*3/4:StartDrawing(WindowOutput(1)):Box(0,0,X,X):u=n Macro Q:i)=Random:EndMacro:Macro C:Circle((f(i)*60)/h(i)+g,(-g(i)*60)/h(i)+h,1 EndMacro:u*2:While WindowEvent()<>16:For i=0 To n:If D:h(Q(w)+1:f(Q(u)-n:g(Q(u) g(i)-n:EndIf:C,0):h(i)-10:If h(i)<10:h(i)=w:EndIf:C,Random(1<<24)):Next:D!D:Wend
[Edit]Version avec moins d'étoiles parce que sinon sous Vista, ça rame...Code : Tout sélectionner
k=255:X=k*4:D=OpenWindow(1,0,0,X,X,"",$C80001):n=X:Dim f(n):Dim g(n):Dim h(n) w=2*X:g=WindowWidth(1)/2:h=g*3/4:StartDrawing(WindowOutput(1)):Box(0,0,X,X):u=n Macro Q:i)=Random:EndMacro:Macro C:Circle((f(i)*60)/h(i)+g,(-g(i)*60)/h(i)+h,1 EndMacro:u*2:While WindowEvent()<>16:For i=0 To n:If D:h(Q(w)+1:f(Q(u)-n:g(Q(u) g(i)-n:EndIf:C,0):h(i)-10:If h(i)<10:h(i)=w:EndIf:C,Random(1<<24)):Next:D!D:Wend
Tres fort !
"exit : Press Right Mouse Button, don't press left one, if you do it, your pc will be destroy"
comme ça on déballe sa science et ça fait sourire
comme ça on déballe sa science et ça fait sourire
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Les résultats ont été publiés dans le 1er post : http://www.purebasic.fr/french/viewtopic.php?t=9439
Bravo à tous quand même, vous assurez 
Pourriez vous ajouter les codes des gagnants sur le 1er post ?
j'ai trouvé celui d'hades (que c'est beau !) mais pas celui de mrVain
Pourriez vous ajouter les codes des gagnants sur le 1er post ?
j'ai trouvé celui d'hades (que c'est beau !) mais pas celui de mrVain
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels