PureBasic

Salut le forum,

voila je cherche a faire des graphiques dans une console,
style un cadre avec une couleur de fond etc..., quelqu'un pourrais me dire comment faire car je ne trouve rien dans l'aide de Pure Basic. Merci.

a une epoque j'ai fait un jeux qui est inscrit au livre des records
comme etant le plus beau casse brique du mond

a vois ici , l'annalyse du code te donnera quelques truc pour faire du "Graphisme en console "

le code etait pour la version 3.93
alors il y a peu etre des ajustement a faire

(faut que j'le fasse d'ailleurs)

http://purebasic.forum-gratuit.com/view ... se+briques

[REEDIT]

Je viens de le mettre en version Purebasic 4.00

[/REEDIT]

bonjour,

a ouai je me souvien de ce casse brique mais je n'est pas asser de puissance pour y jouer malhereusement

@++

[REEDIT]

Je viens de le mettre en version Purebasic 4.00

[/REEDIT]

Ca marche impec, mais c'est pas pour moi, je dépasse pas 10 points

Je suis un peu lent

Je connaissais le plus petit site du monde

http://www.guimp.com/home.html trop fort!

http://www.guimp.com/breakout_flash.html le casse brique, mais y a plein d'autres trucs

mais maintenant je connais aussi le plus beau casse brique du monde

il est minuscule ton casse brique frenchy pilou exelent

Ca marche impec, mais c'est pas pour moi, je dépasse pas 10 points
Je suis un peu lent

moi 470

ps: dobro tu la mi en v4 impec, mais ta pas changer les phrases du menu de demarrage.

@++

venom a écrit :
ps: dobro tu la mi en v4 impec, mais ta pas changer les phrases du menu de demarrage.

ben ya pas de raisons, j'ai adapté le code pour la V4
mais ce prg a bien ete cree sous 3.93 !!

..... sur un Cray !!

c'est vrai tu a raison dobro autant pour moi

Je c que je suis chiant, mais quelqu'un pourrait me donner un exemple de code ou dans une console g un fond vert avec un simple cadre dessiner à l'interieur. Merci beaucoup.

essaye ca

Code : Tout sélectionner

Enumeration
  #Console_Border_Vertical    = 186
  #Console_Border_TopRight    = 187
  #Console_Border_BottomRight = 188
  #Console_Border_Horizontal  = 205
  #Console_Border_TopLeft     = 201
  #Console_Border_BottomLeft  = 200
EndEnumeration

Procedure ConsoleBorder(x, y, Width, Height, Color = 7, BackColor = 15)
  ConsoleColor(Color, BackColor)
  
  s.s
  
  s = Chr(#Console_Border_TopLeft) + Space(Width - 2) + Chr(#Console_Border_TopRight)
  ReplaceString(s, " ", Chr(#Console_Border_Horizontal), 2)
  
  ConsoleLocate(x, y)
  Print(s)
  
  s = Chr(#Console_Border_Vertical) + Space(Width - 2) + Chr(#Console_Border_Vertical)
  
  For i = y + 1 To y + Height - 2
    ConsoleLocate(x, i)
    Print(s)
  Next i
  
  s = Chr(#Console_Border_BottomLeft) + Space(Width - 2) + Chr(#Console_Border_BottomRight)
  ReplaceString(s, " ", Chr(#Console_Border_Horizontal), 2)
  
  ConsoleLocate(x, y + Height - 1)
  Print(s)
  
  
EndProcedure

If OpenConsole()
  EnableGraphicalConsole(#True)
  
  ConsoleBorder(41, 1, 38, 23, 14, 1)
  
  ConsoleLocate(50, 10)
  
  Print("Enter to quit")
  Input()
EndIf

Dri

Heu! Dri

pourquoi tu fais

Code : Tout sélectionner

Enumeration
  #Console_Border_Vertical    = 186
  #Console_Border_TopRight    = 187
  #Console_Border_BottomRight = 188
  #Console_Border_Horizontal  = 205
  #Console_Border_TopLeft     = 201
  #Console_Border_BottomLeft  = 200
EndEnumeration

la fonction Enumeration a ete cré pour eviter d'affecter a la main des constantes

juste :

Code : Tout sélectionner

 #Console_Border_Vertical    = 186
  #Console_Border_TopRight    = 187
  #Console_Border_BottomRight = 188
  #Console_Border_Horizontal  = 205
  #Console_Border_TopLeft     = 201
  #Console_Border_BottomLeft  = 200

Suffit

t'es fatigué ?

au départ j'en avais 3 qui s'enchaînaient alors j'ia énuméré sans me prendre la tête et quand je suis repassé dessus j'ai pas pensé à virer l'enum ^^

Dri

Merci Dr.Dri et Dobro c justement ce que je cherchais. Un grand merci à vous.

PureBasic

Du graphique dans une console.

Du graphique dans une console.