Edition d'un chéque

Télécharger le projet
Commenter

Description

ce code traduit un montant numérique en montant scriptural (en lettre...)
J'ai fait un copier coller, il y a sur l'interface les objets
2 textbox ==> n / text1
2 boutons ==> command1 / command2
5 label ==> label1 / 2 / 3 / 4 / 5

Source / Exemple : 


Dim chaine As String
Private Sub Command1_Click()
If (n = "Montant du chéque") Or (n = "") Or (Text1 = "") Or (Text1 = "Entrez ici le destinataire du chéque") Then
    MsgBox "Vous n'avez correctement remplis les champs"
Else
    Label5 = Text1
    Label2 = Date
    Label1 = n
    chaine = ""
    m = n \ 1000
    u = n Mod 10
    d = (n \ 10) Mod 10
    c = (n \ 100) Mod 10
    
    If (m >= 1) Then
        millier (m)
    End If
    
    If ((c > 1) And (d + u = 0)) Then
        centaine (c)
        chaine = chaine & "s"
    Else
        If (c >= 1) Then
            centaine (c)
        End If
    End If
    
    dizaine (d)
    
    If ((u = 1) And (d > 1) And (d < 8)) Then
        chaine = chaine & " et"
    End If
    
    If ((d = 8) And (u = 0)) Then
        chaine = chaine & "s"
    End If
    
    If ((d = 1) Or (d = 7) Or (d = 9)) Then
        unite (10 + u)
    Else
        unite (u)
    End If
    
    Label3 = chaine
End If
End Sub
Sub unite(n As Integer)
    Select Case n
        Case 1: chaine = chaine & " un"
        Case 2: chaine = chaine & " deux"
        Case 3: chaine = chaine & " trois"
        Case 4: chaine = chaine & " quatre"
        Case 5: chaine = chaine & " cinq"
        Case 6: chaine = chaine & " six"
        Case 7: chaine = chaine & " sept"
        Case 8: chaine = chaine & " huit"
        Case 9: chaine = chaine & " neuf"
        Case 10: chaine = chaine & " dix"
        Case 11: chaine = chaine & " onze"
        Case 12: chaine = chaine & " douze"
        Case 13: chaine = chaine & " treize"
        Case 14: chaine = chaine & " quatorze"
        Case 15: chaine = chaine & " quinze"
        Case 16: chaine = chaine & " seize"
        Case 17: chaine = chaine & " dix-sept"
        Case 18: chaine = chaine & " dix-huit"
        Case 19: chaine = chaine & " dix-neuf"
    End Select
End Sub

Sub dizaine(n As Integer)
    Select Case n
        Case 2: chaine = chaine & " vingt"
        Case 3: chaine = chaine & " trente"
        Case 4: chaine = chaine & " quarante"
        Case 5: chaine = chaine & " cinquante"
        Case 6: chaine = chaine & " soixante"
        Case 7: chaine = chaine & " soixante"
        Case 8: chaine = chaine & " quatre-vingt"
        Case 9: chaine = chaine & " quatre-vingt"
    End Select
End Sub

Sub centaine(n As Integer)
    If (n = 1) Then
        chaine = chaine & " cent"
    Else
        unite (n)
        chaine = chaine & " cent"
    End If
End Sub

Sub millier(n As Integer)
    If (n = 1) Then
        chaine = chaine & " mille"
    Else
        unite (n)
        chaine = chaine & " mille"
    End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub n_Click()
n = ""
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

Conclusion :


code simpas pour apprendre l'utilisation fonctions

A+ Moussetique
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Moussetique)