PureBasic

Code : Tout sélectionner

;Simulation de Print Using
;Auteur Good07
;Pure Basic version 3.94
;Octobre 2005

Procedure Using(PosX,PosY,masque.s,nombre.s)
  PosDeciMasque=FindString(masque,".",1); position du point décimal du masque
  PosDeciNombre=FindString(nombre,".",1); position du point décimal du nombre (si pas de décimale renvoi zéro)
  MasqueDroite=Len(masque)-PosDeciMasque ; récupère le nombre de chiffre à droite du point décimal du masque
  MasqueGauche=Len(masque)-(MasqueDroite+1); idem à gauche
  PartieEntiere.s=Mid(nombre,1,PosDeciNombre-1); récupère la partie entière du nombre
  PartieDecimale.s=Right(nombre,Len(nombre)-PosDeciNombre); idem pour la partie décimale
  If PosDeciNombre=0
    drnombre.s=LSet(".",MasqueDroite+1,"0"); si le nombre n'est pas décimal, rajoute un point + le nombre de zéro correspondants au masque
  Else 
    drnombre.s="."+Left(PartieDecimale,MasqueDroite); si décimal coupe la partie décimale à afficher en fonction du masque
  EndIf
  Format$=RSet(Right(PartieEntiere,MasqueGauche),MasqueGauche," ")+drnombre; met le nombre au format
  StartDrawing(WindowOutput())
  DrawingMode(1)
  LongMasque=TextLength(masque); On récupère la longueur du masque en pixels
  PosChaine=LongMasque-TextLength(Format$); modifie la position d'affichage qui est différente suivant la police utilisée.
  Locate(PosX+PosChaine,PosY)
  DrawText(Format$)
  StopDrawing()
EndProcedure

If OpenWindow(0, 0, 0, 600, 400, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test Print Using") = 0 Or CreateGadgetList(WindowID()) = 0
  End
EndIf
;-------------------------------------Exemple d'affichage
StartDrawing(WindowOutput())
DrawingMode(1)
Restore nombre
Locate(10,10)
DrawText("Affichage sans Print Using")
For i=1 To 10
  Read n.f
  res.s=StrF(n)
  Locate(10,30+pasy)
  DrawText(res)
  pasy+20
Next i
Locate(300,10)
DrawText("Affichage avec Print Using")
StopDrawing()
Restore nombre
For yy=30 To 210 Step 20
  Read n.f
  res.s=StrF(n)
  Using(300,yy,"######.##",res); appel de la procedure: on donne le masque de formatage et le nombre à formater.
Next yy


Repeat
  Event = WaitWindowEvent() 
Until Event = #PB_EventCloseWindow

End

DataSection
nombre:
Data.f 12.56364,1456.23,243676.12,789,18.475,145.89,3.14159265,45,4561,478
; IDE Options = PureBasic v3.94 (Windows - x86) 

Code : Tout sélectionner

a.f = 36.48
b.s = LSet(StrF(a, 2), 17, "0")
Debug b

Code : Tout sélectionner

Debug StrF(35.287, 2)

Code : Tout sélectionner

b.s=StrF(36.48 , 2)
Debug b.s

; ok il est arrondi

a.f=ValF(b.s)
Debug a.f

; la valeur interne de la variable est toujours imprecise !!
; et perd l'arrondi !!!

Code : Tout sélectionner

Declare.s multiply(st1$,st2$)
Declare.s addition(st1$,st2$)
Declare.s soustraction(st1$,st2$)


Debug multiply("20.5","35.0")
Debug addition("20.2","35.58")

Procedure.s multiply(st1$,st2$)
	V1=Len(st1$)-FindString(st1$,".",1) ; nombre de decimales
	V2=Len(st2$)-FindString(st2$,".",1) ; nombre de decimale
	If v1=Len(st1$):v1=0:EndIf
	If v2=Len(st2$):v2=0:EndIf
	st1$=RemoveString(st1$,".")
	st2$=RemoveString(st2$,".")
	;multiplication
	result$=Str(Val(st1$)*Val(st2$))
	result$=(Left(result$,Len(result$)-(V1+V2))+"."+Right(result$,(v1+v2)))	
	ProcedureReturn result$
EndProcedure
Procedure.s addition(st1$,st2$)
	V1=Len(st1$)-FindString(st1$,".",1) ; nombre de decimales
	V2=Len(st2$)-FindString(st2$,".",1) ; nombre de decimale
	;
	If v1=Len(st1$):v1=0:EndIf
	If v2=Len(st2$):v2=0:EndIf
	If v2<>V1
		If v1>V2
			If v2=0 ; pas de virgule
				st2$=st2$+"."+Space(V1-v2)
			Else
				st2$=st2$+"."+Space(V1-v2)
			EndIf
		EndIf
		If v2>v1
			If v1=0 ; pas de virgule
				st1$=st1$+Space(V2-v1)
			Else
				st1$=st1$+Space(V2-v1)
			EndIf
		EndIf
	EndIf
	If Len(st1$)>Len(st2$)
		st2$=Space(Len(st1$)-Len(st2$))+st2$
	EndIf
	If Len(st2$)>Len(st1$)
		st1$=Space(Len(st2$)-Len(st1$))+st1$
	EndIf
	ret=0
	For a=Len(st1$) To 1 Step -1
		If Mid(st1$,a,1)<>"."
			ad=Val(Mid(st1$,a,1))+Val(Mid(st2$,a,1))
			If ad>10
				ad=ad-10
				ret=1
			Else
				ret=0	
			EndIf
			result$=Str(ad)+result$
		Else
			result$="."+result$
		EndIf
	Next
	
If v2=0 And v1=0 ; pas de virgule on enleve les zero au debut
	result$=ReplaceString(LTrim(ReplaceString(result$,"0"," "))," ","0")
Else ; on enleve les zero des deux cotes
	result$=ReplaceString(LTrim(RTrim(ReplaceString(result$,"0"," ")))," ","0")
EndIf
	ProcedureReturn result$
EndProcedure