PureBasic

ben non puisque c'est ecrit !

TazNormand a écrit :

Code : Tout sélectionner

"Notes : -exit white mouse right button"

Ah zut, j'ai une logitech MX1000 noire, et j'ai pas de bouton blanc, ça va pas marcher alors ?

@Dobro , en traduisant ton Franglais :

Sortir blanc bouton droit




With , pas white , ta sniffé de la white spirit ? ( esprit blanc )

je sais, je fais des fautes en français, alors, je te laisse imaginer en anglais
mais je m'en fou ...

vais pas faire des efforts, pour des mecs, qui n'en font pas pour parler et ecrire en français !!

Ollivier a écrit :Ouais, mais en grattant encore un peu, Tonton pouvait faire 5 lignes !!!!

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

Je sors...

[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

Quel gratteur cet Olivier
Tres fort !

Dobro a écrit : vais pas faire des efforts, pour des mecs, qui n'en font pas pour parler et ecrire en français !!

Belle mentalité !

"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

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