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