Discussion :

[SteveWin]

J'aimerais faire une fonction en Delphi qui inscrit un texte, passé en paramètre, en gros

exemple : ecritGros('un texte');

donne

* * *** * *** * * * ***
* * * * *** ** * *** **
* * * * * * * * *
*** * * * *** * * * ***

en tout cas, vous voyer le genre

Si vous avez une référence où je pourrais trouver un algorithme qui fait
ça, ça m'aiderait beaucoup

Merci

[lil_jam63]

Qu'est ce que t'apelle en gros, j'ai pas du tout compris ce que tu veux faire??

[magic corp.]

Avec un peut de mise en page c'est plus facile a comprendre.

"un texte" donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
* * ***  *** *** * * *** ***
* * * *   *  *   * *  *  *
* * * *   *  **   *   *  **
* * * *   *  *   * *  *  *
*** * *   *  *** * *  *  ***

Bonne soirée
-Magic-

[Eric Sigoillot]

Ben soit tu stockes les "images" des lettres à afficher... Soit tu t'amuses à décortiquer les informations obtenues sur les polices TrueType par exemple.

Je pencherais plus pour la première solution si tu veux pas devenir fou avant la fin du mois

A+

[Smortex]

Solution intermediaire : tu te fais une petite image bitmap, ecrit le texte dessus avec une police genre courier new 10px et tu lis les valeurs des pixels de l'image : #00000000 -> '*', #00FFFFFF -> ' '

Bon dev'

[SteveWin]

à l'écran c'était beau, mais en apperçu ouf

Merci

[petitcoucou31]

va faire un tour sur le net , je suis sur que tu peux trouver une police qui correspondra a peut pres a tes besoins ( style ' DOT '), çà sera plus simple et surment plus esthetique.

[SteveWin]

Je vais faire comme John Fullspeed dit, ç'est la meilleure solution pour mes besoins.

Super merci!

[Clorish]

Une solution qui vaut ce qu'elle vaux ... mais qui est interessante pour son algo ;pp :

Tu creer sur papier une matrice NxN qui contien des 1 ou Des 0 en fonctions du fait que la case possede une etoile ou non.
Tu place les lignes de ta matrice les une a la suite des autres
Tu calcule la representation numerique en base 10 de ta suite de 1 et de 0
Tu obtient donc un chiffre par lettre.
Tu retrouve par l'algo inverse ta matrice sur laquelel tu t'appuie pour dessiner tes lettres.

Demo :

A =

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
*****
*   *
*****
*   *
*   *

Donc MAt(A) =
1 1 1 1 1
1 0 0 0 1
1 1 1 1 1
1 0 0 0 1
1 0 0 0 1

ce qui donne :
(11111 10001 11111 10001 10001)Base2 = (33095217)Base10

Etc....

Pour retrouver ta matrice :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
N := 33095217;
Col := 0; Row := 0;
For p := 24 downto 0 do
     Begin
     Mat[0,0] := N div Power(2,p);
     N := N Mod Power(2,p);
     dec(p);
     Inc(Col);
     If Col >= 5 Then Begin Inc(Row); Col := 0; end;
     End;

Reste plus qu'a afficher la matrice ....

Remarque : Dans ton cas, tu n'a qu'a trouver "a la main" le nombre decimal, le stoquer dans un fichier texte qu'il sera aisé a lire et modifier sans recompiler le prog ....

[SteveWin]

Sincèrement et sans sarcasme, je suis vraiment impressionné Clorish
bravo !

[Clorish]

J'y suis pour pas grand chose .... Notre 2e TP de C en Licence d'info (apres donc seulement 2 mois de prog) a ete de programmer un logiciel de compression de fichier text par la methode d'Huffman, utilisant une technique du genre.

J'ai trouve cette technique extra et je l'adapte a bon nombre de situations

... Et yen a ;p