Transformer des chiffres en lettres... avec de l'ancien code
Publié : mar. 27/mai/2008 21:36
Suis nouveau en PB. 
J'utilise une ancienne "sub" de QB comme moteur de conversion et l'éditeur visuel pour la fenêtre graphique. Mon expérience était comment en faire un minimum pour convertir le code !
Code: Puis le common.lib qui va avec, et crée presque tout seul avec ViualDesigner !
C'est tout... Mais au fait, vous pouvez vous exercer à l'optimiser... Ou encore que la traduction dépasse le Milliard, tout est là pour le faire 
J'utilise une ancienne "sub" de QB comme moteur de conversion et l'éditeur visuel pour la fenêtre graphique. Mon expérience était comment en faire un minimum pour convertir le code !Code:
Code : Tout sélectionner
; *********************************************************************************************************
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;
; et <<<< GeBonet >>>> présentent...
;
; Un code toujours utile :
;
; Une conversion de chiffre en lettre en respectant des règles de français !
;
; L'intérêt de ce "code", c'est qu'il est une intégration simplifié d'un "code récupéré" de QB...
;
; ----------< et ADAPTE avec un MINIMUM de changement par rapport à l'original... >-------------------------
;
; Il ne s'agit donc pas d'une optimisation PB, mais de vérifier la facilité d'utiliser
; de "l'ancien code" et aussi d'apprendre rapidement les différences essentielles
; pour être plus vite opérationnel en PB..
; 09-05-2008
; Conseil aux nouveaux en PB comme moi !!!
;
; C'est de bien respecter les définitions de variable et donc de passer par des déclaration
; pour que LES choses soient claires... PB aime le clair ! (stricte) et pas comme ici !
;
; Attention : Au moment de créer l'EXE... ou de tester avec des versions successives...
; ********** Il m'est alors arrivé de travailler sur une version et de compiller
; la précédente...
;
; Et je m'étonnais que ce que je changeais n'avais aucun effet !!! Vous imaginez, c'est bête, hein :)
;
; Donc bien verifier que dans "Option compilateur" vous ayez bien comme fichier principal
; la bonne Version.... :-) ------------------
;**************************************************************************************************************
;
IncludeFile "Common.pb" ; Ici fenêtre de base crée avec Visual Designer...
;
Dim U$(16)
Dim D$(9)
;
U$(1) = "un": U$(2) = "deux": U$(3) = "trois": U$(4) = "quatre"
U$(5) = "cinq": U$(6) = "six": U$(7) = "sept": U$(8) = "huit"
U$(9) = "neuf": U$(10) = "dix ": U$(11) = "onze ": U$(12) = "douze"
U$(13) = "treize": U$(14) = "quatorze": U$(15) = "quinze" : U$(16) = "seize"
D$(1) = "dix": D$(2) = "vingt": D$(3) = "trente": D$(4) = "quanrante" : D$(5) = "cinquante"
D$(6) = "soixante": D$(7) = "septante" : D$(8) = "quatre-vingt": D$(9) = "nonante"
MILLE$ = "mille":MILLION$ = "million":MILLIARD$ = "milliard": CENT$ = "cent"
;***********************************************************************************************************
Open_Window_0()
Sortie$="N"
Repeat
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
; *******************************************************************************************************************
If Event = #PB_Event_Gadget
If GadgetID = #Valeur ; Une Valeur à convertir est-elle là ?...
Valeur.d=ValD(GetGadgetText(#Valeur)); OUI alors c'est placé dans la Variale chaine Premier$
EndIf
;
If GadgetID = #Button_1 ; Demande t-on le calcul ???
If Valeur.d=0 ; OUI mais de valeur Nulle on efface
StringGadget(#Valeur, 155, 65, 300, 25, "", #PB_Sort_Double)
Else ; sinon on Continue, ça vaut p'être la peine !
NBR.d=Valeur.d ; C'est combien au fait ?
Comp.d=1000*1000*1000 ; Pour pas devoir compter les zéro :-)
If NBR.d < Comp.d ; Puis-je le converir ?
;==============================================================================
Gosub RoutineCodageChiffreLettre ; On traduit NBR.d en lettres et en français ?
;===============================;==============================================
Resultat$="= "+P1$ ; Affiche le résultat dans la zone
TextGadget(#Text_3, 80, 105, 400, 50, Resultat$) ; Ajoute une case pour montrer
SetGadgetFont(#Text_3, FontID6) ; Même police
SetGadgetColor(#Text_3, #PB_Gadget_FrontColor, $0000FA) ; Mais en rouge pour être certain d'être lu
Else ; NON ON PEUX PAS -------
Resultat$="Opps... Déjà que je fait une effort jusque :" ;
Resultat$=Resultat$+" Un Milliard moins 1"
TextGadget(#Text_3, 80, 105, 400, 50, Resultat$) ; Ajoute une case pour montrer
SetGadgetFont(#Text_3, FontID6) ; Même police
SetGadgetColor(#Text_3, #PB_Gadget_FrontColor, $0000FA) ; Mais en rouge pour être certain d'être lu
EndIf
EndIf
EtatBouton0=GetGadgetState(#Button_1) ; on le mémorise AU cas ou
Sortie$="N" ; Non j'veux pas sortir !!
ElseIf GadgetID = #Button_2 ; On recommence... Bon, on y va !
EtatBouton0=GetGadgetState(#Button_1) ; Oui on recommence....
Sortie$="N" : Deja=0
StringGadget(#Valeur, 155, 65, 300, 25, "", #PB_Sort_Double) ; Efface les zones Valeur et Résulat
TextGadget(#Text_3, 80, 105, 400, 50, Space(Len(Resultat$)))
SetGadgetFont(#Text_3, FontID6)
ElseIf GadgetID = #Button_3
Sortie$="O" ; On en à marre on sort, alors Sortie OK
EndIf
EndIf
Until Sortie$="O" ;Event = #PB_Event_CloseWindow ; Fin de la boucle d'attente
End
;*******************************************************************************************
; CONVERSION DE CHIFFRES EN LETTRES ANCIEN CODE ADAPTE !!!
;
; Corps du programme ===> Transformer "NBR.d" en sa forme exprimé en "lettres"
;********************************************************************************************
; Ancien nom... de la SUB
RoutineCodageChiffreLettre:
; (CHIF.LETR (NBR.d, ER.d, P1$, U$(), D$()) Static OU Ancienne forme d'appel de la SUB...
ET = 0: J.d = L.d: CAS = 1:P1$ = "0"
If NBR.d <>0
; Vrai début....
Decim = Val(Str((NBR.d-Int(NBR.d))*100))
If Decim>49
NBO$ = Str(NBR.d-1)
Else
NBO$ = Str(NBR.d)
EndIf
L.d = Len(NBO$): P1$ = ""
; Ici un Case serait bienvenus.... ET !
If L.d < 3
NBR$ = NBO$: Gosub Unit:: Goto Arret:: ; DIZAINES Goto à prohiber... Mais des fois ... :-)
EndIf
If L.d < 4
NBC$ = NBO$: Gosub Cent:: Goto Arret : ; CENTAINES
EndIf
If L.d < 7
NBM$ = NBO$: Gosub Millier:: Goto Arret ; MILLIERS
EndIf
If L.d < 13
NBT$ = NBO$: Gosub Million: Goto Arret ; c'est dans MILLIONS, Milliards puis termine
EndIf
EndIf
Return
; *******************************************************************************************
Arret: If Decim<>0
Gosub Decima:: P1$ = P1$ + " "
Else
Gosub CentS
EndIf
Return ; Sortie de retour
; ********************************************************************************************
;
Million: ;' -- MILLIONS -- ENTREE = NBM$ (0 -> 999999999)
;
NBM$ = Right(NBT$, 6): K.w = Len(NBT$): CAS=8
If Val(NBM$) <> 0
Gosub Millier
P3$ = P1$
EndIf
NBC$ = Left(NBT$, K.w - 6): P1$ = ""
If Val(NBC$) = 0
P1$ = P3$: Return
EndIf
L.d = Len(NBC$)
If Val(NBC$) = 1 :
P1$ = "Un " + MILLION$ + " " + P3$: Return
Else
MILLION$ = MILLION$ + "s"
EndIf
If L.d < 3
NBR$ = NBC$: Gosub Unit
Else
Gosub Cent
EndIf
If Right(P1$, 1) <> " " : P1$ = P1$ + " ":EndIf
P1$ = P1$ + MILLION$ + " " + P3$: P3$ = "": Return
;-------------------------------------------------------------------------
Millier: ; -- MILLIERS -- ENTREE = NBM$ (0 -> 999999)
;
NBC$ = Right(NBM$, 3): J.d = Len(NBM$)
If Val(NBC$) <> 0 : Gosub Cent:: P3$ = P1$ : EndIf
NBC$ = Left(NBM$, J.d - 3): P1$ = ""
If Val(NBC$) = 0 : P1$ = P3$: Return : Else : EndIf
L.d = Len(NBC$)
If Val(NBC$) = 1
P1$ = "" : Goto FMillier
EndIf
If L.d < 3
NBR$ = NBC$: Gosub Unit
Else
Gosub Cent
EndIf
If Right(P1$, 1) <> " " : P1$ = P1$ + " " :EndIf
FMillier: P1$ = P1$ + MILLE$ + " " + P3$: P3$ = "": Return
; ----------------------------------------------------------------------
Cent: ; -- CENTAINES -- ENTREE = NBC$ (0 -> 999)
;
UC$ = Left(NBC$, 1): NBR$ = Right(NBC$, 2): u = Val(UC$): P2$ = ""
If u = 1
P2$ = CENT$
ElseIf u <> 0
P2$ = U$(u) + " " + CENT$
EndIf
If Val(NBR$) <> 0
Gosub Unit
EndIf
P1$ = P2$ + " " + P1$
Return
; -------------------------------------------------------------------------
Unit: ; -- UNITES ET DIZAINES -- ENTREE = NBR$ (0 -> 99)
;
ET = 1: M.d = Len(NBR$): If M.d < 2 : P1$ = U$(Val(NBR$)): Return : Else : EndIf
DZ$ = Right(NBR$, 2): If Val(DZ$) < 17 : P1$ = U$(Val(DZ$)): Return : Else : EndIf
U$ = Right(NBR$, 1): D$ = Mid(NBR$, M.d - 1, 1)
If U$ = "1"
T$ = " et "
Else ; Les IF Else imbriqué : On peut les écrires comme ceci ou comme ci dessous...
T$ = "-"
EndIf
If D$ = "8" And U$ = "1" : P1$ = D$(8) + "-" + U$(Val(U$)): Return : Else : EndIf
If D$ = "8" And U$ = "0" : P1$ = D$(8) + "s": Return : Else : EndIf
If Val(U$) = 0 : P1$ = D$(Val(D$)): Return : Else : EndIf
P1$ = D$(Val(D$)) + T$ + U$(Val(U$)): Return
; ------------------------------------------------------------------------------
CentS: GL.w = Len(P1$)
If GL.w < 4
Return
EndIf
If Right(P1$, 1) = " " ; Les THEN disparaissent...
P1$ = Left(P1$, GL.w - 1): GL.w = GL.w - 1
EndIf
KL = FindString(P1$, "cent", GL.w - 5) ; Et oui "Instr" devient "FindString"
If KL <> 0
P1$ = P1$ + "s" ; et les "End If" ==> "EndIf"
EndIf
Return
; ---------------------------------------------------------------------------
Decima:
NBR$=Str(Decim):M.d = Len(NBR$):PN$=P1$
ET = 1: Gosub Unit
P1$=PN$+" et "+P1$+" cents"
Return
;******************************************************************************************
; IDE Options = PureBasic 4.20 (Windows - x86)
; CursorPosition = 109
; Folding = -
; EnableAsm
; EnableXP
; UseMainFile = ProgChifLetr5.pb
; Executable = ProgChiLetr5.exe
; CurrentDirectory = C:\0 01 Pure Basic\PureBasic\
; CompileSourceDirectory
; Debugger = IDE
; EnableCompileCount = 19
; EnableBuildCount = 0
; EnableExeConstant
Code : Tout sélectionner
;---------------------------------------------------------------------------
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;-----------------------------------------------------------------------------
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Text_0
#Valeur
#Text_1
#Text_2
#Text_3
#Resultat
#Button_1
#Button_2
#Button_3
EndEnumeration
;- Fonts
Global FontID1
FontID1 = LoadFont(1, "@Arial Unicode MS", 12)
Global FontID2
FontID2 = LoadFont(2, "Times New Roman", 20, #PB_Font_Bold)
Global FontID3
FontID3 = LoadFont(3, "Arial", 12)
Global FontID4
FontID4 = LoadFont(4, "Times New Roman", 22)
Global FontID5
FontID5 = LoadFont(5, "Times New Roman", 20)
Global FontID6
FontID6 = LoadFont(6, "Times New Roman", 12)
Global FontID7
FontID7 = LoadFont(7, "Times New Roman", 12)
Global FontID8
FontID8 = LoadFont(8, "Arial", 11)
Procedure Open_Window_0()
If OpenWindow(#Window_0, 251, 165, 510, 236, "Convertion de chiffre en lettre ", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
TextGadget(#Text_0, 10, 65, 140, 30, "Valeur à convertir :")
SetGadgetFont(#Text_0, FontID6)
StringGadget(#Valeur, 155, 65, 300, 25, "", #PB_Sort_Double)
SetGadgetFont(#Valeur, FontID8)
TextGadget(#Text_1, 40, 15, 450, 25, "Transformation de chiffres en lettres", #PB_Text_Center)
SetGadgetFont(#Text_1, FontID2)
;
TextGadget(#Text_2, 15, 105, 85, 25, "Résultat : ")
SetGadgetFont(#Text_2, FontID6)
ButtonGadget(#Button_1, 230, 190, 80, 25, "Résultat")
ButtonGadget(#Button_2, 130, 190, 80, 25, "Autre Essai")
ButtonGadget(#Button_3, 330, 190, 80, 25, "Quitter")
EndIf
EndIf
EndProcedure
; IDE Options = PureBasic 4.20 (Windows - x86)
; CursorPosition = 1
; Folding = -
; EnableAsm
; EnableXP
; CurrentDirectory = C:\0 01 Pure Basic\PureBasic\
; CompileSourceDirectory
; EnableCompileCount = 2
; EnableBuildCount = 0
; EnableExeConstant
... Mais, oui ? Mais c'est bien sur et que je suis bête etc... Parce le naze du coin, viens avec son idée génial 
Sur ce merci Olivier du coup de sirop "remonte moral"...