Discussion :

[iMech]

bonsoir
je cherche à résoudre se problème

Saisir un nombre compris entre 0 et 999.
Afficher les chiffres de ce nombre en toute lettre, toute en utilisant la structure case
Afficher le résultat dans une boite de dialogue et dans un label.
Exemple : 456 sera affiché : Quatre Cinq Six

de 1 à 9 sa fonctionne mais je veux une piste pour les dizaines et centaines

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
Public Function afficheL(value As Integer)
 
        value = nbs1.Text
 
        Select Case value
            Case 0
                MessageBox.Show("zero")
 
            Case 1
                MessageBox.Show("un")
            Case 2
                MessageBox.Show("deux")
            Case 3
                MessageBox.Show("trois")
            Case 4
                MessageBox.Show("quatre")
            Case 5
                MessageBox.Show("cinq")
            Case 6
                MessageBox.Show("six")
            Case 7
                MessageBox.Show("sept")
            Case 8
                MessageBox.Show("huit")
            Case 9
                MessageBox.Show("neuf")
 
        End Select
 
        Return value
 
    End Function
 
 
 
    Private Sub Bt_lettre_Click(sender As Object, e As EventArgs) Handles Bt_lettre.Click
        MessageBox.Show(afficheL(nbs1.Text))
    End Sub

[shayw]

Salut

D'abord active option explicite et option strict de ton projet
tu cliques sur l'onglet projet -> en bas du menu propriété -> onglet compile et mets option strict ON et option explicit ON
cela t'empêchera de faire des conversions illégales comme
value = nbs1.Text

pour la saisi d'un nombre tu as le numericupdown control

ta demande n'est pas clair tu dis 456 sera affiché quatre cinq six

mais je veux une piste pour les dizaines et centaines

que veux tu afficher ?
quatre cent cinquante six ?

[iMech]

j'écris par exemple le chiffre 123


dans une boite de dialogue( MessageBox) on affiche "un" "deux" "trois"

[Invité]

Bonjour,

Code :

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

1
2
Dim t() as string ={"Zéro","Un","Deux"}
MessageBox.Show(t(0))

[iMech]

merci pour votre réponse
mais dans le cas ou j'ai un chiffre par exemple 123 il faut que je le découpe on centaine et dizaine ?
et je traite chaque chiffre de part ?
comment faire ?

[shayw]

Code :

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

1
2
3
4
5
6
7
8
Private Function GetDigit(nombre As Integer) As List(Of String)
        Dim listnumber As New List(Of String)
        Do
            listnumber.Add((nombre Mod 10).ToString)
            nombre \= 10
        Loop Until nombre = 0
        Return listnumber
    End Function

pour afficher

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim str As String = String.Empty
        For Each item In GetDigit(123)
            Select Case item
                Case "1" : str = "un"
                Case "2" : str = "deux"
                et ainsi de suite 
            End Select
 
            MessageBox.Show(str)
        Next

[iMech]

je suis vraiment reconnaissant

mais toujours je n'arrive pas à atteindre mon but

voilà une image du résultat souhaité

[Invité]

Code :

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

1
2
3
4
5
6
7
 Dim t() As String = {"Zéro", "Un", "Deux", "Trois", "Quatre","Cinq","Six","Sept","Huit","Neuf"}
        Dim NB As Integer = 12340
        Dim Txt As String = ""
        For i As Integer = 0 To NB.ToString.Count - 1
            Txt += t(NB.ToString.Substring(i, 1)) + " "
        Next
        MessageBox.Show(Txt)

[iMech]

Code :

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

1
2
3
4
5
6
7
 Dim t() As String = {"Zéro", "Un", "Deux", "Trois", "Quatre","Cinq","Six","Sept","Huit","Neuf"}
        Dim NB As Integer = 12340
        Dim Txt As String = ""
        For i As Integer = 0 To NB.ToString.Count - 1
            Txt += t(NB.ToString.Substring(i, 1)) + " "
        Next
        MessageBox.Show(Txt)

je vous remercie sa fonctionne parfaitement

merci pour vous tous

[shayw]

Quand tu réponds tu n'as besoin de citer à chaque fois

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
Dim str As String = String.Empty
        For Each item In GetDigit(123)
            Select Case item
                Case "1" : str &= "un "
                Case "2" : str &= "deux "
                Case "3" : str &= "trois "
                Case "4" : str &= "quatre "
                Case "5" : str &= "cinq"
                Case "6" : str &= "six "
                Case "7" : str &= "sept "
                Case "8" : str &= "huit "
                Case "9" : str &= "neuf "
                Case "0" : str &= "zéro "
            End Select
        Next
        MessageBox.Show(str)