Discussion :

[dv-2008]

bjr tt le monde je voudrai juste que quelqu'un d'entre vous m'aide a resoudre ce probléme
on me demande d'entrer un nombre et en suite afficher sa description en lettre ,puisque je suis encore debutant je n'ai pas encore les bons reflexe pour resoudre ce genre de probléme et merci .
NB:0=>Nombre<100

[bidou]

tu peux t'inspirer de cette source VB6
http://vb.developpez.com/sources/?pa...ffresenlettres

[dv-2008]

je n'ai pas trouver la methodes dans la page que tu m'as donner j'ai juste trouver le programme .exe

[dv-2008]

voici un code que j'ai utiliser mais je ne sais pas pourquoi il ne marche pas est ce que quelqu'un peut me le corriger

Code vb :

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
Public Class Form1
    Private Function descriptionsup16(ByVal N As Integer) As String
        Dim D As String
        d = "dix" + descriptioninf16(N Mod 10)
        descriptionsup16 = D
    End Function
    Private Function descriptioninf16(ByVal N As Integer) As String
        Dim D As String
        Select Case N
            Case 1 : D = "un"
            Case 2 : D = "deux"
            Case 3 : D = "trois"
            Case 4 : D = "quatre"
            Case 5 : D = "cinq"
            Case 6 : D = "six"
            Case 7 : D = "sept"
            Case 8 : D = "huit"
            Case 9 : D = "neuf"
            Case 10 : D = "dix"
            Case 11 : D = "onze"
            Case 12 : D = "douze"
            Case 13 : D = "treize"
            Case 14 : D = "quatorze"
            Case 15 : D = "quinze"
            Case 16 : D = "seize"
            Case Else : D = ""
        End Select
        descriptioninf16 = D
    End Function
    Private Function Descritpion10(ByVal N As Integer) As String
        Dim D As String
        Select Case N
            Case 0 : D = "zéro"
            Case 1 : D = "dix"
            Case 2 : D = "vingt"
            Case 3 : D = "tronte"
            Case 4 : D = "quaronte"
            Case 5 : D = "cinqante"
            Case 6, 7 : D = "soixante"
            Case 8, 9 : D = "quatre-vingt"
            Case Else : D = ""
        End Select
        Descritpion10 = D
    End Function
 
    Private Sub Cmdafficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdafficher.Click
        Dim Ndiv As Integer
        Dim nmod As Integer
        Dim DL As String
        Dim N As Integer
        Ndiv = N \ 10
        nmod = N Mod 10
        N = CInt(TxtN.Text)
        If N <= 16 Then
            DL = descriptioninf16()
        ElseIf Ndiv = 7 Or Ndiv = 9 Or (Ndiv = 1 And nmod > 6) Then
            nmod += 10
            DL = descriptionsup16(Ndiv) + IIf(nmod = 1, "et", "") + IIf(nmod <= 16, descriptioninf16(nmod), descriptionsup16(nmod))
        End If
        TxtDL.Text = DL
    End Sub
End Class

[Fred_35]

Désolé je n'ai pas beaucoup le temps de regarder, ceci dit e viens de remarquer ceci :
tu appelles le calcul de Ndiv et nmod avant meme de récupérer la valeur de N
ne crois-tu pas qu'il vaudrait mieux ceci :

Code vb :

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

1
2
3
N = CInt(TxtN.Text)
Ndiv = N \ 10
nmod = N Mod 10

au lieu de

Code vb :

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

1
2
3
Ndiv = N \ 10
nmod = N Mod 10
N = CInt(TxtN.Text)

??

P.S :
on ne dit pas tronte, quaronte, et cinqante, mais bien
"trente", "quarante", et "cinquante" ;-)