PureBasic Forums - English

Code: Select all

Global Dim Unites.s(19)
Unites(0) = "zéro"
Unites(1) = "un"
Unites(2) = "deux"
Unites(3) = "trois"
Unites(4) = "quatre"
Unites(5) = "cinq"
Unites(6) = "six"
Unites(7) = "sept"
Unites(8) = "huit"
Unites(9) = "neuf"
Unites(10) = "dix"
Unites(11) = "onze"
Unites(12) = "douze"
Unites(13) = "treize"
Unites(14) = "quatorze"
Unites(15) = "quinze"
Unites(16) = "seize"
Unites(17) = "dix-sept"
Unites(18) = "dix-huit"
Unites(19) = "dix-neuf"

Global Dim Dizaines.s(10)
Dizaines(2) = "vingt"
Dizaines(3) = "trente"
Dizaines(4) = "quarante"
Dizaines(5) = "cinquante"
Dizaines(6) = "soixante"
Dizaines(7) = "soixante-dix"
Dizaines(8) = "quatre-vingt"
Dizaines(9) = "quatre-vingt-dix"

Procedure.s ConvertirEntierEnMots(Nombre)
  Protected Texte.s = ""
  
  If Nombre < 20
    Texte = Unites(Nombre)
  ElseIf Nombre < 100
    Protected Dizaine = Nombre / 10
    Protected Unite = Nombre % 10
    
    If Dizaine = 7 Or Dizaine = 9
      Texte = Dizaines(Dizaine - 1) + "-" + Unites(10 + Unite)
    Else
      Texte = Dizaines(Dizaine)
      If Unite > 0
        Texte + "-" + Unites(Unite)
      EndIf
    EndIf
  ElseIf Nombre < 1000
    Protected Centaine = Nombre / 100
    Protected Reste = Nombre % 100
    
    If Centaine = 1
      Texte = "cent"
    Else
      Texte = Unites(Centaine) + " cent"
    EndIf
    
    If Reste > 0
      Texte + " " + ConvertirEntierEnMots(Reste)
    EndIf
  ElseIf Nombre < 1000000
    Protected Mille = Nombre / 1000
  Reste = Nombre % 1000
    
    If Mille = 1
      Texte = "mille"
    Else
      Texte = ConvertirEntierEnMots(Mille) + " mille"
    EndIf
    
    If Reste > 0
      Texte + " " + ConvertirEntierEnMots(Reste)
    EndIf
  ElseIf Nombre <= 1000000
    Protected Million = Nombre / 1000000
    Reste = Nombre % 1000000
    
    Texte = ConvertirEntierEnMots(Million) + " million"
    If Reste > 0
      Texte + " " + ConvertirEntierEnMots(Reste)
    EndIf
  EndIf
  
  ProcedureReturn Texte
EndProcedure

Procedure.s ConvertirNombreEnMots(Nombre.s)
  Protected PartieEntiere.i, PartieDecimale.i
  Protected Texte.s = ""
  
  PartieEntiere = Val(StringField(Nombre, 1, "."))
  PartieDecimale = Val(StringField(Nombre, 2, "."))
  
  Texte = ConvertirEntierEnMots(PartieEntiere)
  
  If PartieDecimale > 0
    Texte + " euros et " + ConvertirEntierEnMots(PartieDecimale) + " centimes"
  Else
    Texte + " euros "
  EndIf
  
  ProcedureReturn Texte
EndProcedure

Define Nombre.s
Nombre = InputRequester("Conversion de nombres", "Entrez un nombre (jusqu'à des millions):", "1234.56")
If Nombre <> ""
  MessageRequester("Résultat", ConvertirNombreEnMots(Nombre))
EndIf