Empêcher la notation scientifique [RESOLU]

dim a
a=0.08
print right_pos$(str$(1+a),2)
a=0.00008
print right_pos$(str$(1+a),2)
a=0.000008
print right_pos$(str$(1+a),2)
a=0.000000008567
print right_pos$(str$(1+a),2)

dim v, s$

font_size 0,16
v = 0
v = 0.00008
s$ = format$(v,8)
print s$
end


fnc format$(valeur,ndec%)
  dim_local s$, r$, p%
  s$ = str$(valeur*1000)
  if instr(s$,".")=0 then s$ = s$ + ".0"
  s$ = "0000000" + s$ + "0000000"
  p% = instr(s$,".")
  r$ = left$(s$,p%-4)+"."+mid$(s$,p%-3,3)+mid$(s$,p%+1,len(s$))
  p% = instr(r$,".")
  result left$(r$,p%+8)
end_fnc

#include "vbcompat.bi"

extern "Windows-MS"

function print_format(byref x as double, byref format_str as zstring ptr, byref x_str as zstring ptr) as integer export
  
  dim as integer p
  dim as string  s
  
  ' Convertir le nombre x en chaine de caracteres
  s = format(x, *format_str)
  
  ' Chercher si la chaine contient une virgule
  p = instr(s, ",")
  
  ' Si oui, la remplacer par un point
  if p > 0 then mid(s, p) = "."
 
  ' Retourner la chaine
  *x_str = s
  
  return 0
end function

end extern

fbc format.bas –dll

rem ============================================================================
rem                       Test de FORMAT.DLL
rem ============================================================================
rem FORMAT.DLL exporte une fonction et une seule pour formater un nombre comme
rem le faisait PRINT USING du BASIC ancien
rem L’appel de la fonction se fait comme suit :
rem  _________________________________________________________________________
rem |                                                                         |
rem | ret% = dll_call3("print_format", adr(nombre), adr(format$), adr(xstr$)) |
rem |_________________________________________________________________________|

rem nombre est le nombre à formater
rem format$ est la chaine de caractères décrivant le format : voir les exemples
rem ci-après :
rem Le résultat de la fonction est retourné dans la variable xstr$ qui doit être
rem initialisée avant l’appel comme ceci : xstr$ = format$
rem ============================================================================
rem Dans la chaine format$ :
rem un zéro (0) indique la position d’un chiffre
rem un point indique la position du point décimal
rem une virgule indique la position d’un espace (voir l’exemple  Tunisian Dinar)
rem un espace donne un espace (utile pour alligner des sorties)
rem autre caractère (comme une étoile en début) donne ce même caratère)
rem un symbole monétaire (ou un texte) à la fin du FORMAT s’affiche comme tel
rem ============================================================================
rem Exemples de FORMAT$
rem
rem format$ = "***000 000.000 $"
rem format$ = "***000000.000***"
rem format$ = "*** 000 000.000 £"
rem format$ = "*** 000 000.000 Dollars"
rem format$ = "000 000 000.000"
rem format$ = "+++ 000 000.000 +++"
rem ============================================================================

dim nombre,format$,i
font_bold 0
for i = 1 to 10
   nombre = rnd(1)/1000000 : format$ = "0.0000000000"  
   print nombre ; " = " + Format_Nombre$(nombre,format$)
next i
print : print
nombre = 0.0000008 : format$ = "0.0000000"
print nombre ; " = " + Format_Nombre$(nombre,format$)
print : print
nombre = 123456.789 : format$ = "*** 000,000.000 TD" : ' <--- Tunisian Dinar
print nombre ; " = " + Format_Nombre$(nombre,format$)

print : print
nombre = 12345678.99 : format$ = " 00 000 000.00 €"
print nombre ; " = " + Format_Nombre$(nombre,format$)

print : print
nombre = 12345678.99 : format$ = " 00 000 000.00 $"
print nombre ; " = " + Format_Nombre$(nombre,format$)

END
rem ============================================================================
' Définition de la fonction Format_Nombre$()
FNC Format_Nombre$(nombre,format$)
   dim_local ret%,xstr$
   dll_on "format.dll"
   xstr$ = format$ : ' initialisation de la chaine du résultat de la fonction
   ret% = dll_call3("print_format", adr(nombre), adr(format$), adr(xstr$))
   result xstr$
   dll_off
END_FNC
rem ============================================================================