Pure Punch

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

Pure Punch

Message par Backup »

voila donc créé le topic Pure punch
a definir le nombres de lignes maximum, et eventuellement l'utilisation des ":" acceptés ou pas .... 8O :)
Haut
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Message par djes »

Dix lignes, et tout est permis! :lol:
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

djes a écrit :Dix lignes, et tout est permis! :lol:
Stmag avait fini par Créé les 20 lignes !!

parceque 10 c'est limite ! :)
Haut
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Message par djes »

On fera comme à motus, quand on aura épuisé les possibilités :) Par contre il faudrait dire 10 lignes de 256 caractères, ou 2560 caractères max ;)
Allez, je me lance!

Code : Tout sélectionner

Procedure tcl(t1.s, t2.s, t3.s, t4.s, t5.s, t6.s, t7.s, t8.s, t9.s) : ConsoleColor(15, 0) : Print(t1) : ConsoleColor(14, 0) : Print(t2) : ConsoleColor(13, 0) : Print(t3) : ConsoleColor(12, 0) : Print(t4) : ConsoleColor(11, 0) : Print(t5) : ConsoleColor(10, 0) : Print(t6) : ConsoleColor(9, 0) : Print(t7) : ConsoleColor(8, 0) : Print(t8) : ConsoleColor(15, 0) : PrintN(t9) : EndProcedure
If OpenConsole()
tcl("PPPP    ","UU  UU  ","RRRR    ","EEEEE   ","BBBB    "," AAAA   "," SSSSS  ","IIII  "," CCCCC")  
tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  B   ","AA  AA  ","SS      "," II   ","CC    ")
tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  BB  ","AA  AA  ","SS      "," II   ","CC    ")
tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  B   ","AA  AA  ","SS      "," II   ","CC    ")
tcl("PPPP    ","UU  UU  ","RRRR    ","EEEE    ","BBBB    ","AAAAAA  "," SSSS   "," II   ","CC    ")
tcl("PP      ","UU  UU  ","RR  RR  ","EE      ","BB  BB  ","AA  AA  ","    SS  "," II   ","CC    ")
tcl("PP      ","  UUUU  ","RR  RR  ","EEEEEE  ","BBBBB   ","AA  AA  ","SSSSS   ","IIII  "," CCCCC")
ConsoleColor(0,15) :PrintN("Press enter to quit") : Input() : CloseConsole() : EndIf
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

lol, bon début Djes :)
Allez un gros plagia avec un affichage animé :)

Code : Tout sélectionner

Procedure tcl(t1.s, t2.s, t3.s, t4.s, t5.s, t6.s, t7.s, t8.s, t9.s) :  For i=1 To 3 : ConsoleColor(7, 0) : Print(t1) : ConsoleColor(10, 0) : Print(t2) : ConsoleColor(9, 0) : Print(t3) : ConsoleColor(12, 0) : Print(t4) : ConsoleColor(11, 0) : Print(t5) : ConsoleColor(13, 0) : Print(t6) : ConsoleColor(6, 0) : Print(t7) : ConsoleColor(7, 0) : Print(t8) : ConsoleColor(11, 0) : PrintN(t9) : Delay (50) : Next i : EndProcedure
If OpenConsole() 
  tcl("PPPP    ","UU  UU  ","RRRR    ","EEEEE   ","BBBB    "," AAAA   "," SSSSS  ","IIII  "," CCCCC") 
  tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  B   ","AA  AA  ","SS      "," II   ","CC    ")
  tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  BB  ","AA  AA  ","SS      "," II   ","CC    ")
  tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  B   ","AA  AA  ","SS      "," II   ","CC    ")
  tcl("PPPP    ","UU  UU  ","RRRR    ","EEEE    ","BBBB    ","AAAAAA  "," SSSS   "," II   ","CC    ")
  tcl("PP      ","UU  UU  ","RR  RR  ","EE      ","BB  BB  ","AA  AA  ","    SS  "," II   ","CC    ")
  tcl("PP      ","  UUUU  ","RR  RR  ","EEEEEE  ","BBBBB   ","AA  AA  ","SSSSS   ","IIII  "," CCCCC")
ConsoleColor(0,15) : Delay (500) :  PrintN("Press enter to quit") : Input() :  CloseConsole() : EndIf
Haut
Anonyme

Message par Anonyme »

Code : Tout sélectionner


InitSprite() : InitKeyboard() : OpenScreen(1024,768,32,"PurePunch")
CreateSprite(0,32,32) : TransparentSpriteColor(0,0) : StartDrawing(SpriteOutput(0)) : For i = 0 To 16 : DrawingMode(#PB_2DDrawing_Outlined ) :    Circle(16,16,16-i,255-(14*i)) : Next i :StopDrawing()
Repeat : ClearScreen(0) : ExamineKeyboard()
      Z.f = (16+16*Cos(ElapsedMilliseconds()/1000))+16
      Restore P: For y = 0 To 4 : For x = 0 To 3 : Read A:  If A = 1 : DisplayTransparentSprite(0,x*Z,y*Z): EndIf  : Next x  : Next y
      Restore u: For y = 0 To 4 : For x = 0 To 3 : Read A:  If A = 1 : DisplayTransparentSprite(0,16+(Z*4)+x*Z,y*Z): EndIf  : Next x  : Next y
      Restore R: For y = 0 To 4 : For x = 0 To 3 : Read A:  If A = 1 : DisplayTransparentSprite(0,32+(Z*8)+x*Z,y*Z): EndIf  : Next x  : Next y
      Restore E: For y = 0 To 4 : For x = 0 To 3 : Read A:  If A = 1 : DisplayTransparentSprite(0,64+(Z*12)+x*Z,y*Z): EndIf  : Next x  : Next y
FlipBuffers() : Until KeyboardPushed(#PB_Key_Escape):End
DataSection
      P:Data.l 1,1,1,0 : Data.l 1,0,0,1: Data.l 1,1,1,0:Data.l 1,0,0,0 : Data.l 1,0,0,0
      u:Data.l 1,0,0,1 : Data.l 1,0,0,1 : Data.l 1,0,0,1 : Data.l 1,0,0,1:Data.l 0,1,1,0
      R:Data.l 1,1,1,0 : Data.l 1,0,0,1 : Data.l 1,1,1,0 : Data.l 1,1,0,0 : Data.l 1,0,0,1
      E: Data.l 1,1,1,1 : Data.l 1,0,0,0 :  Data.l 1,1,0,0 :  Data.l 1,0,0,0: Data.l 1,1,1,1
EndDataSection
Haut
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Message par djes »

:lol:
Je m'auto-plagie avec un raster!

Code : Tout sélectionner

Procedure tcl(t1.s, t2.s, t3.s, t4.s, t5.s, t6.s, t7.s, t8.s, t9.s) : Static c : c+1 : ConsoleColor((c+15)%16, 0) : Print(t1) : ConsoleColor((c+14)%16, 0) : Print(t2) : ConsoleColor((c+13)%16, 0) : Print(t3) : ConsoleColor((c+12)%16, 0) : Print(t4) : ConsoleColor((c+11)%16, 0) : Print(t5) : ConsoleColor((c+10)%16, 0) : Print(t6) : ConsoleColor((c+9)%16, 0) : Print(t7) : ConsoleColor((c+8)%16, 0) : Print(t8) : ConsoleColor((c+15)%16, 0) : PrintN(t9) : EndProcedure
If OpenConsole() : EnableGraphicalConsole(1) : Repeat : ClearConsole() : ConsoleLocate(0, 0)
tcl("PPPP    ","UU  UU  ","RRRR    ","EEEEE   ","BBBB    "," AAAA   "," SSSSS  ","IIII  "," CCCCC")  
tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  B   ","AA  AA  ","SS      "," II   ","CC    ")
tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  BB  ","AA  AA  ","SS      "," II   ","CC    ")
tcl("PP  PP  ","UU  UU  ","RR  RR  ","EE      ","BB  B   ","AA  AA  ","SS      "," II   ","CC    ")
tcl("PPPP    ","UU  UU  ","RRRR    ","EEEE    ","BBBB    ","AAAAAA  "," SSSS   "," II   ","CC    ")
tcl("PP      ","UU  UU  ","RR  RR  ","EE      ","BB  BB  ","AA  AA  ","    SS  "," II   ","CC    ")
tcl("PP      ","  UUUU  ","RR  RR  ","EEEEEE  ","BBBBB   ","AA  AA  ","SSSSS   ","IIII  "," CCCCC")
Delay(125) : ForEver : CloseConsole() : EndIf
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

cpl.bator je vienbs de corriger ton source!!
parcequ'il generait une syntax error !!

lorsqu'on programme avec les ":"
il faut mettre les lettres au NEXT !! (next x, next y)

sinon "syntaxe error !!"

je vous le dit depuis longtemps en plus de mettre les lettres !!
bandes de sagouins !! :lol:


Super vos prg !! :)
Haut
Anonyme

Message par Anonyme »

Bizarre , ca compile ici sans soucis... :?
Haut
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Message par djes »

J'ai fait l'annonce sur le forum anglais : http://www.purebasic.fr/english/viewtop ... highlight=

Cpl.Bator> Avec PB 4.02 ça compile aussi sans souci!
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

Cpl.Bator a écrit :Bizarre , ca compile ici sans soucis... :?
purebasic v 4.20

voici ce qui se passe si je retire les X et y du premier Next !! :)

Image
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

Code : Tout sélectionner

Procedure cercle(x,y,R,c) :  xx = 0 : yy = R : d = 1 - R
  ConsoleColor(c,0) : p.s="x"
  ConsoleLocate(x+xx,y+yy):Print("o"): ConsoleLocate(x-xx,y+yy):Print(p): ConsoleLocate(x+xx,y-yy):Print(p): ConsoleLocate(x-xx,y-yy):Print(p)
  ConsoleLocate(x+yy,y+xx):Print("o"): ConsoleLocate(x-yy,y+xx):Print(p): ConsoleLocate(x+yy,y-xx):Print(p): ConsoleLocate(x-yy,y-xx):Print(p)
  While  yy > xx: If  d < 0:d + (2 * xx + 3):Else:d + (2 * (xx - yy) + 5):yy - 1:EndIf :xx + 1
    ConsoleLocate(x+yy,y+xx):Print(p): ConsoleLocate(x-yy,y+xx):Print(p): ConsoleLocate(x+yy,y-xx):Print(p): ConsoleLocate(x-yy,y-xx):Print(p)
    ConsoleLocate(x+xx,y+yy):Print(p): ConsoleLocate(x+xx,y-yy):Print(p): ConsoleLocate(x-xx,y+yy):Print(p): ConsoleLocate(x-xx,y-yy):Print(p)
 Wend  
EndProcedure 
OpenConsole() : EnableGraphicalConsole(1): For x=1 To 10 :cercle(40,11,x,x):Next x: Input() : CloseConsole()
http://purebasic.developpez.com/
Je ne réponds à aucune question technique en PV, utilisez le forum, il est fait pour ça, et la réponse peut profiter à tous.
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

..........................
Dernière modification par Backup le sam. 19/mars/2011 18:35, modifié 2 fois.
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

........................
Dernière modification par Backup le sam. 19/mars/2011 18:35, modifié 1 fois.
Haut
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Message par djes »

Très sympa le sinusscroll :)
Haut
Répondre

Revenir à « Trucs et astuces »