Pourriez-vous le regarder et le corriger si erreur, je pense que j'en est fait qu'ellque une
Sinon dite moi ce que vous en penssez

Pour ne pas te vexer, peut-être.dayvid a écrit :Pourquoi personne ne répond
on te répond et :dayvid a écrit :Pourquoi personne ne répond
voila pourquoi tu n'aura jamais mon aide directdayvid a écrit :Super, je suis bien avencer la
SPH a écrit :J'ai appris que la console devenait graphique; bien que je ne l'utiliserais probably jamais
Code : Tout sélectionner
; Prg réalisé par Dobro le 24/05/2005
debut:
Resultat = OpenConsole ()
EnableGraphicalConsole(1)
ConsoleCursor (0)
ConsoleTitle ( " le plus beau casse brique de tout les temps " )
;{; Preambule :
ConsoleColor (12,0 )
ConsoleLocate (17,1)
Print ( " le plus beau casse brique de tout les temps " )
ConsoleColor (15,0 )
ConsoleLocate (3,2)
Print ( " ce programme necessite un pentium4 a 8 Ghz pour tourner correctement " )
ConsoleColor (14,0 )
ConsoleLocate (22,5)
Print ( " Votre Score est de: " + Str (point)+ " points" )
point=0
ConsoleColor (10,0 )
ConsoleLocate (10,10)
Print ( " pour jouer" )
ConsoleLocate (10,11)
Print ( " puis appuis sur la touche [espace] pour lancer la balle " )
ConsoleLocate (10,12)
Print ( " les fleches dirigent la raquette " )
ConsoleColor (15,0 )
ConsoleLocate (1,25)
Print ( " Programme realise par Dobro en purebasic v3.93 sur un Cray !! " )
yy:
Chaine$ = Inkey ()
Resultat = RawKey()
If Str(Resultat)<> "32" ;
Chaine$= ""
Goto yy
EndIf
;}
ClearConsole ()
Chaine$= ""
xr=35
yr=20
ybal=19
xbal=35
sensy=-1
sensx=1
bord$= "bas"
Dim brique(60,15)
Dim couleur(15)
; initialise le tableau
For yb=5 To 15 Step 2
For xb=15 To 59 Step 2
brique(xb,yb)=1
Next xb
Next yb
; initialise les couleurs des briques
For coul=1 To 15
couleur(coul)= Random (10)+5
Next coul
; **********************************
Gosub affiche
Repeat
; ********** position de la balle ****************************
Gosub position_balle
; ****************************************************************
Delay (50)
;{; ************ le clavier ******************
Chaine$ = Inkey ()
Resultat = RawKey()
If Str(Resultat)= "39" ; fleche droite
xr=xr+4 : If xr>58: xr=58: EndIf ; ceci determine le blocage de la raquette
EndIf
If Str(Resultat)= "37" ; fleche gauche
xr=xr-4: If xr<4: xr=4: EndIf
EndIf
If Str(Resultat)= "32" ; espace
start=1
EndIf
; ****************************************
;}
If start=1 ; la balle est lancé (gachette)
ybal=ybal+sensy
xbal=xbal+sensx
EndIf
;{ ; *************** collision bord ****************
If xbal >66 ; (touche bord droit)
Gosub position_balle
sensx=-sensx
bord$= "droit"
EndIf
If xbal <8 ; (touche bord gauche)
Gosub position_balle
sensx=-sensx
bord$= "gauche"
EndIf
If ybal >22 ; (touche bord bas)
Gosub position_balle
sensy=-sensy
bord$= "bas"
EndIf
If ybal <2 ; (touche bord haut)
Gosub position_balle
sensy=-sensy
bord$= "haut"
EndIf
; ******************************************
; ************ si collision entre ball et raquette ***********
If start=1
If ( xbal=xr+4 Or xbal=xr+5 Or xbal=xr+6 Or xbal=xr+7 ) And ybal=20
raquette=1
EndIf
If ( xbal=xr+3 Or xbal=xr+8 ) And ybal=20
raquette=2
EndIf
EndIf
; *****************************************************************
;}
Gosub affiche
ForEver
;{ ; AFFICHE
affiche:
; ClearConsole()
; ************* les briques *******************************
For yb=5 To 15 Step 2
For xb=15 To 59 Step 2
ConsoleColor (couleur(yb), 0)
ConsoleLocate (xb,yb)
If ybal>20 ; partie perdu
Chaine$= ""
CloseConsole ()
Goto debut
EndIf
; ************* si collision entre balle et brique *************
If (xbal=xb And ybal=yb) And start=1 And brique(xb,yb)=1
brique(xb,yb)=0 ; la brique disparait
point=point+10 ; le score
Gosub position_balle
If bord$= "gauche" Or bord$= "droit" :sensx=-sensx: EndIf
If bord$= "bas" Or bord$= "haut" : sensy=-sensy : EndIf
EndIf
; ****************************************************************
If raquette=1
raquette=0
sensy=-sensy
EndIf
If raquette=2
raquette=0
sensy=-sensy
sensx=-sensx
EndIf
If brique(xb,yb)=1
Print ( "=" )
Else
Print ( " " )
EndIf
Next xb
Next yb
; **************************************************
; ********* affiche la raquette **********************
ConsoleLocate (xr,yr) ; position la raquette
ConsoleColor (15, 0)
Print ( Chr(32)+" ===== "+Chr(32)) ; la raquette
ConsoleLocate (0,yr-1)
Print ( Space (66)) ; efface les résidus
ConsoleLocate (0,yr+1)
Print ( Space (66)) ; efface les résidus
; ****************************************************
; ************** les bords *******************
For Y=0 To 24
ConsoleLocate (7,Y)
Print ( "|" )
ConsoleLocate (67,Y)
Print ( "|" )
Next Y
For x=0 To 79
ConsoleLocate (x,1)
Print ( "-" )
ConsoleLocate (x,23)
Print ( "-" )
Next x
; ********** LE SCORE ********************
ConsoleLocate (70,3)
ConsoleColor (11, 0)
Print ( "points" )
ConsoleLocate (72,4)
ConsoleColor (11, 0)
Print ( Str (point))
; *********************************************
Return
;}
;{;POSITION BALLE
position_balle:
If sensy<0 And sensx>0 ; va a droite ; ça monte
ConsoleColor (14, 0)
ConsoleLocate (xbal,ybal) ; position la balle
Print ( "o" ) ; la balle
ConsoleLocate (xbal-1,ybal+1) ; position la balle
Print ( " " ) ; la balle
Goto su2
EndIf
If sensy<0 And sensx<0 ; va a gauche ; ça monte
ConsoleColor (14, 0)
ConsoleLocate (xbal,ybal) ; position la balle
Print ( "o" ) ; la balle
ConsoleLocate (xbal+1,ybal+1) ; position la balle
Print ( " " ) ; la balle
Goto su2
EndIf
If sensy>0 And sensx>0 ; va a droite ça descend
ConsoleColor (14, 0)
ConsoleLocate (xbal,ybal) ; position la balle
Print ( "o" ) ; la balle
ConsoleLocate (xbal-1,ybal-1) ; position la balle
Print ( " " ) ; la balle
Goto su2
EndIf
If sensy>0 And sensx<0 ; va a gauche ça descend
ConsoleColor (14, 0)
ConsoleLocate (xbal,ybal) ; position la balle
Print ( "o" ) ; la balle
ConsoleLocate (xbal+1,ybal-1) ; position la balle
Print ( " " ) ; la balle
Goto su2
EndIf
su2:
Return
;}
Entre la lecture de dayvid et l'aide, je crois que je préfère nettement l'aideWarkering a écrit :Je suis d'accord sur le fait qu'un correcteur orthographique, ce serait du luxe! Mais c'est vrai que c'est plus élaboré et agréable qu'une documentation. Ça possède un bon potentiel!
Consultes l'aide officiel sur ce lien http://purebasic.com/french/documentati ... index.htmlkelebrindae a écrit :Je ne suis pas tout-à-fait d'accord.
Perso, je n'utilise pas la console, donc je ne peux pas me prononcer sur le fond. Mais en lisant ce tuto, j'ai appris des choses; il y a un tas de commandes console que je ne connaissais pas.
Merci, sa sa me fait plaisir au moinsJe ne suis pas tout-à-fait d'accord.
Perso, je n'utilise pas la console, donc je ne peux pas me prononcer sur le fond. Mais en lisant ce tuto, j'ai appris des choses; il y a un tas de commandes console que je ne connaissais pas.
Et, à mon avis, lire un seul texte qui explique successivement chaque commande dans un ordre logique et dans un langage naturel, c'est plus agréable que se taper chaque entrée de l'aide par ordre alphabétique.
C'est un peu le principe du tuto: là, Davyid part de l'ouverture de la console, aborde la configuration de la console que l'on vient d'ouvrir, explique comment interagir avec, et termine par la fermeture de la console. Logique. Un débutant (comme moi en ce qui concerne la console) y trouvera mieux son compte.
Bref: je crois que ce tuto est intéressant et pas inutile du tout. Un initiative à encourager, en tout cas.
Oui mais pourtant il me semble que j'avais corriger avec open officeJe suis d'accord sur le fait qu'un correcteur orthographique, ce serait du luxe! Mais c'est vrai que c'est plus élaboré et agréable qu'une documentation. Ça possède un bon potentiel!
Dobro, certe je réagie pas toujours très bien c'est sure et je le reconnaisfaut vraiment etre trop c** pour avoir envie d'aider un mec qui réagit comme toi !
@SPH, j'ai commencer par la moi et ont peut déjà faire pas mal de chose avec la consoleJ'ai appris que la console devenait graphique; bien que je ne l'utiliserais probably jamais