convertir des chiffres en lettres

**bicha_27** · 25/07/2012, 15h32

salut;
je veux réaliser une application pour mon petit projet je dois convertir des chiffres en lettres c'est a dire 1 on un, 2 on deux ect.....
voila avec un button un edit et un label
merci de m'aidez

**blondelle** · 25/07/2012, 22h27

Salut bicha_27
Voici un code
CONVERSION DES CHIFFRES EN LETTRES
l'auteur du code original est gagah1
j'ai un peu retravailler le code il semble fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "SysUtils.hpp" // <----- ne pas oublier
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
/*
La valeur de chiffre ne doit pas dépasser la plage de valeur
pour unsigned int càd 4 294 967 295 , sinon il y a erreur de
conversion !!!
*/
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int chiffre;
chiffre = StrToInt(Edit1->Text);
char lettre[256];
unsigned int centaine, dizaine, unite, reste, y;
bool dix = false;
reste = chiffre;
for(int i=1000000000; i>=1; i/=1000)
{
        y = reste/i;
        if(y!=0)
        {
        centaine = y/100;
        dizaine  = (y - centaine*100)/10;
        unite = y-(centaine*100)-(dizaine*10);
        switch(centaine)
        {
                case 0:
                    break;
                case 1:
                    StrCat(lettre,"cent ");
                    break;
                case 2:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"deux cents ");
                    else StrCat(lettre,"deux cent ");
                    break;
                case 3:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"trois cents ");
                    else StrCat(lettre,"trois cent ");
                    break;
                case 4:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"quatre cents ");
                    else StrCat(lettre,"quatre cent ");
                    break;
                case 5:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"cinq cents ");
                    else StrCat(lettre,"cinq cent ");
                    break;
                case 6:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"six cents ");
                    else StrCat(lettre,"six cent ");
                    break;
                case 7:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"sept cents ");
                    else StrCat(lettre,"sept cent ");
                    break;
                case 8:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"huit cents ");
                    else StrCat(lettre,"huit cent ");
                    break;
                case 9:
                    if((dizaine == 0)&&(unite == 0)) StrCat(lettre,"neuf cents ");
                    else StrCat(lettre,"neuf cent ");
            }// endSwitch(centaine)
            switch(dizaine)
            {
                case 0:
                    break;
                case 1:
                    dix = true;
                    break;
                case 2:
                    StrCat(lettre,"vingt ");
                    break;
                case 3:
                    StrCat(lettre,"trente ");
                    break;
                case 4:
                    StrCat(lettre,"quarante ");
                    break;
                case 5:
                    StrCat(lettre,"cinquante ");
                    break;
                case 6:
                    StrCat(lettre,"soixante ");
                    break;
                case 7:
                    dix = true;
                    StrCat(lettre,"soixante ");
                    break;
                case 8:
                    StrCat(lettre,"quatre-vingt ");
                    break;
                case 9:
                    dix = true;
                    StrCat(lettre,"quatre-vingt ");
            } // endSwitch(dizaine)
            switch(unite)
            {
                case 0:
                    if(dix)
                    {
                    StrCat(lettre,"dix ");
                    }
                    break;
                case 1:
                    if(dix)
                    {
                    StrCat(lettre,"onze ");
                    }
                    else
                    {
                    StrCat(lettre,"un ");
                    }
                    break;
                case 2:
                    if(dix)
                    {
                    StrCat(lettre,"douze ");
                    }
                    else
                    {
                    StrCat(lettre,"deux ");
                    }
                    break;
                case 3:
                    if(dix)
                    {
                    StrCat(lettre,"treize ");
                    }
                    else
                    {
                    StrCat(lettre,"trois ");
                    }
                    break;
                case 4:
                    if(dix)
                    {
                    StrCat(lettre,"quatorze ");
                    }
                    else
                    {
                    StrCat(lettre,"quatre ");
                    }
                    break;
                case 5:
                    if(dix) StrCat(lettre,"quinze ");
                    else    StrCat(lettre,"cinq ");
                    break;
                case 6:
                    if(dix) StrCat(lettre,"seize ");
                    else    StrCat(lettre,"six ");
                    break;
                case 7:
                    if(dix) StrCat(lettre,"dix-sept ");
                    else    StrCat(lettre,"sept ");
                    break;
                case 8:
                    if(dix) StrCat(lettre,"dix-huit ");
                    else    StrCat(lettre,"huit ");
                    break;
                case 9:
                    if(dix) StrCat(lettre,"dix-neuf ");
                    else    StrCat(lettre,"neuf ");
            } // endSwitch(unite)
            switch (i)
            {
                case 1000000000:
                    if(y>1) StrCat(lettre,"milliards ");
                    else StrCat(lettre,"milliard ");
                    break;
                case 1000000:
                    if(y>1) StrCat(lettre,"millions ");
                    else StrCat(lettre,"million ");
                    break;
                case 1000:
                    StrCat(lettre,"mille ");
            }
        } // end if(y!=0)
        reste -= y*i;
        dix = false;
    } // end for
if(strlen(lettre)==0) strcpy(lettre,"zero");
Label1->Caption = lettre;
}
//---------------------------------------------------------------------------

Attention le TEdit doit recevoir uniquement des chiffres et ces chiffres doivent etre des entiers

**ShaiLeTroll** · 26/07/2012, 10h21

Un sujet de 2006 : convertir un chiffre en lettre avec builder ?

**10_GOTO_10** · 26/07/2012, 19h51

Envoyé par blondelle

Voici un code
CONVERSION DES CHIFFRES EN LETTRES
l'auteur du code original est gagah1
j'ai un peu retravailler le code il semble fonctionner

A quelques fautes d'orthographe près:

20 et 100 s'accordent quand ils sont multipliés par un nombre sans être suivis par un autre nombre.

* quatre-vingts
* quatre-vingt-trois
* quatre cents
* quatre cent vingt et un

81 et 91 sont écrits avec un trait d'union:

* quatre-vingt-un
* quatre-vingt-onze

source : http://leconjugueur.lefigaro.fr/frlesnombres.php

Le français est une langue formidable, quand même

**blondelle** · 26/07/2012, 20h24

Salut 10_GOTO_10
Je sais qu'il y a des fautes d'orthographe dans le code, si il n'y a que cela a revoir c'est un moindre mal non?

Comme deux autres post on ete ouvert avec le meme sujet

http://www.developpez.net/forums/d12...ffres-lettres/
http://www.developpez.net/forums/d12...ffres-lettres/

J'aimerais que bicha_27 nous dit si son probleme est resolu car c'est le seul poste ou il y a des reponses

**bicha_27** · 29/07/2012, 13h36

salut, merci pour votre aide
j'ai tester le code il affiche des signe a coté des lettre

**blondelle** · 30/07/2012, 17h55

que donne tu comme valeur a convertir, quelle est ta version BCB

convertir des chiffres en lettres [Débutant]

C++Builder

Vue hybride

Discussions similaires

Partager

Partager