Page 1 sur 1

Comment redimensionner une console?

Publié : mer. 15/févr./2006 20:55
par Huitbit
Hi!
Je travaille souvent avec des matrices(Wargame, Pure_Guitare...).
Avant de passer à l'étape graphique j'utilise openconsole() pour vérifier mes données.

Problème: dès que la matrice est trop grande, son affichage est partiel, limité par la taille de l'écran :mad: .
Ce qui m'oblige à travailler avec des bouts de matrice!

Exemple:

Code : Tout sélectionner

;on crée un matrice 10*100
Dim matrice.s (9,99)

;on remplit une matrice 10*100
For ligne =  0 To 99
  For colonne= 0 To 9
    matrice(colonne,ligne)="("+Str(colonne)+","+Str(ligne)+")|"
  Next colonne
Next ligne

;on l'affiche
OpenConsole()
For ligne =  0 To 99
  For colonne= 0 To 9
   Print(matrice(colonne,ligne))
Next colonne
PrintN("")
Next ligne

;fermeture de la console
PrintN("Appuyez sur entree pour finir!")
Input()
CloseConsole()
End


J'ai rien trouvé dans l'aide de PB
Si quelqu'un a une idée!

Merci d'avance!

Publié : mer. 15/févr./2006 21:05
par comtois
ça ne répond pas vraiment à ta question , mais ça peut dépanner :

Code : Tout sélectionner

;on crée un matrice 10*100
Dim matrice.s (9,99)

;on remplit une matrice 10*100
For ligne =  0 To 99
  For colonne= 0 To 9
    matrice(colonne,ligne)="("+Str(colonne)+","+Str(ligne)+")|"
  Next colonne
Next ligne

;on l'affiche

For ligne =  0 To 99
  For colonne= 0 To 9
    T$ + matrice(colonne,ligne)
  Next colonne
  T$ + #LFCR$
Next ligne
SetClipboardText(T$)
End
C'est un peu plus lourd à utiliser car il faut ensuite ouvrir notepad et faire un coller , mais bon en attendant que les pros de l'api passent pas là ...

[EDIT]

Et pour un alignement correct tu peux ajouter un petit RSet()

Code : Tout sélectionner

;on crée un matrice 100*100
Dim matrice.s (99,99)

;on remplit une matrice 10*100
For ligne =  0 To 99
  For colonne= 0 To 99
    matrice(colonne,ligne)="("+RSet(Str(colonne),2,"0")+","+RSet(Str(ligne),2,"0")+")|"
  Next colonne
Next ligne

;on l'affiche

For ligne =  0 To 99
  For colonne= 0 To 99
    T$ + matrice(colonne,ligne)
  Next colonne
  T$ + #LFCR$
Next ligne
SetClipboardText(T$)
End

Cool!

Publié : mer. 15/févr./2006 21:10
par Huitbit
Impeccable, merci Comtois! :D