PureBasic

voila donc créé le topic Pure punch
a definir le nombres de lignes maximum, et eventuellement l'utilisation des ":" acceptés ou pas ....

Dix lignes, et tout est permis!

djes a écrit :Dix lignes, et tout est permis!

Stmag avait fini par Créé les 20 lignes !!

parceque 10 c'est limite !

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

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

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

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

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 !!

Super vos prg !!

Bizarre , ca compile ici sans soucis...

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!

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 !!

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()

..........................

........................

Très sympa le sinusscroll

PureBasic

Pure Punch

Pure Punch