Problème de décimales

Salut à tous,

d'abord le code et ensuite la question

Code:

dim n,n$

combo 1:top 1,50:left 1,50

for n=1 to 25 step 0.1
n$=str$(n)
item_add 1,n$
next n

Je ne comprends pas pourquoi a partir de 6 j'ai plein de décimales, puis retour à la normale à 10, et remerdouille plus loin.(est-ce un Bug).Pour mon programme, je n'ai besoin que d'une décimale après la virgule

Sauf erreur, je n'ai pas trouvé d'instruction pour limiter le nombre de décimales (en arrondissant)

Question: existe t-il une instruction ou comment je peus gérer le problème sans être obligé de remplir le COMBO sans utiliser la boucle FOR/NEXT

Merci d'avance pour votre aide.

A+

Avec les différents basics, quels qu'ils soient, j'ai toujours eu des problèmes de décimal. Aussi si j'ai un nombre fixe de décimal dans tout mon programme, depuis longtemps, je travail en nombre entier:
exemple: input "nb à entrer:";n:n=n*100 pour 2 décimals, et tous les calculs sont multiplié par 100. Lors du résultat, je divise par 100 pour avoir la valeur final. Pour ton programme:

Code:

dim n,i,n$

combo 1:top 1,50:left 1,50

for n=1 to 25 step 0.1
i=int(n*10)/10
n$=str$(i)  :rem ou n$=str$( int(n*10)/10 )
item_add 1,n$
next n

Cela donne le résultat demandé.
A+

Je te remercis Georges, c'est exactement ce qu'il me faut.
Ta solution est très simple et éfficace.

A+

Je n'ai pas vu hier, mais il y a une petite erreur. Je viens de vérifier parce la formule n'était pas conforme à mes habitudes. Effectivement, on a comme résultat: 6 6.1 6.1 6.2, ce qui n'ai pas correct. Reprends le code suivant:

Code:

dim n,i,n$

combo 1:top 1,50:left 1,50

for n=1 to 25 step 0.1
i=int(n*10+.5)/10
n$=str$(i)  :rem ou n$=str$( int(n*10+.5)/10 )
item_add 1,n$
next n

A+

salut jean-claude

ce code à l'air de fonctionner.

Code:

dim n,n$
combo 1:top 1,50:left 1,50
for n=1 to 25 step 0.1
n$=str$(int (n*10)/10)
item_add 1,n$
next n

georges
@+

salut Jean-Claude

ce deuxième code me parait meilleur. Tu as une décimale quelque que soit le cas.

Code:

dim n,n$,nb,nb2
combo 1:top 1,50:left 1,50
for n=10 to 250
nb = n/10
nb2 = int (nb)
if nb = nb2 then n$ = str$(nb)+".0"
if nb <> nb2 then n$ = str$(nb)
item_add 1,n$
next n

georges
@+

Merci à tous les deux,

éffectivement Cosmos70, je n'avais pas remarqué dans ton premier code que 6.1 apparaissait 2 fois, c'est le cas aussi dans le premier code de Georges (que j'avais remercié avant même qu'il réponde).

Chacuns de vos 2ème essai son utilisables (suivant que l'on souhaite ou non avoir une décimale même pour un entier)

A+

J'avais évité de faire du formatage, mais Georges ma donné l'idée de le faire, aussi parce que ce post n'est pas prévu pour, j'ai fait un programme pour formater les nombres, qui pourra à mon avis servir à d'autre, et je l'ai mis dans les programmes à publier. Mais il est évidemment qu'il peut-être perfectionné. Ce programme est très bien pour moi, mais il y a plus simple, je n'hésitais pas à le prendre pour moi.
Je n'ai pu répondre plus tôt à cause de l'orage, et je n'arrivais pas à me connecter au site, je me suis retrouver en 2003 sur mon horloge.
A+