Compétition PurePunch Numéro 2

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

ben non puisque c'est ecrit ! :roll: :lol: :)
Anonyme

Message par Anonyme »

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 :D ?


@Dobro , en traduisant ton Franglais :

Sortir blanc bouton droit

:D


With , pas white , ta sniffé de la white spirit ? ( esprit blanc :D )
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

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

vais pas faire des efforts, pour des mecs, qui n'en font pas pour parler et ecrire en français !! :)
tonton
Messages : 315
Inscription : mar. 26/avr./2005 15:19

Message par tonton »

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

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 :D
Tres fort !
GG
Messages : 239
Inscription : jeu. 09/déc./2004 12:23

Message par GG »

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é ! :D
PureBasic 6.03 - Windows 11 22H2 (64 bits)
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Message par Ar-S »

"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 :)
~~~~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
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Message par djes »

Les résultats ont été publiés dans le 1er post : http://www.purebasic.fr/french/viewtopic.php?t=9439
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Message par Ar-S »

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
~~~~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
Répondre