Salutations.

Parfait, Freem.
As-tu essayé mon programme ? Si oui (ou non), réponds sur Application Cinéma. Merci.

Je ne sais pas encore si le programme que j'ai mis sur le Wall (Re[25]: nombres décimaux en qb4.5) a été testé par diemaker form et si cela lui convient.
Il faudrait peut-être mieux attendre sa réponse avant le marquage RESOLU

Salutations.

Bonjour à tous,
j'ai vu que vous étiez parti dans une confrontation de faire des subs ou des functions,
alors j'étais en attente.
SFLPMEA, je suis persuadé que ton code fonctionne bien car tu utilise un masque à l'écran que tu recapture, mais il fait quand même 135 lignes de commandes.
J'utilise la Function de Francesco que j'ai modifié qui répond a 3 chiffres après la virgule et qui fait 23 lignes seulement.
si Francesco peut regarder mes modifs par rapport à ça function d'origine et peut me dire quoi rajouter pour n'avoir que 2 chiffres après la virgule, le sujet serait résolu
avec les 2 procédures SFLPMEA et FRANCESCO modifiée.
Salutations,
DMF

Salutations.

Ce programme de 135 lignes fait 5.558 octets (je les ai comptés). J'en ai quelques uns qui font plus de 40.000 octets. Maintenant, nous avons de la place. Il fut un temps où, une fois le Qbasic chargé, il me restait en tout et pour tout 16 Ko (Ordinateur de bureau Sanyo à disquettes) pour le programme, les données, les tables, etc. Là, il fallait faire attention.
Le principal est d'obtenir des résultats exacts, avec une vitesse V
A toi de juger, tu es entièrement libre.

Salutations.

Bonjour,
Vu que Francesco n'a pas eu le temps de répondre sur une modif éventuelle de sa Function, je vais utiliser le prog de SFLPMEA et je confirme pour les "modos" que pour moi c'est résolu.
Merci à tous pour toutes ces infos précieuses.
Salutations,
DMF

oups, j'avais totalement zappé
Bon, je vais regardé vite fait...

Je ferais plutot quelques choses du genre :

FUNCTION Convert$ (Nombre$)
valeur! = VAL(Nombre$)
chaine$ = ""

IF INSTR(Nombre$, ".") = 0 THEN
m$ = ".00"
ELSE
pos% = INST(Nombre$, ".")
IF (pos% = LEN(Nombre$) THEN m$ = ".00"
IF (pos% = LEN(Nombre$) - 1 THEN m$ = "." + MID$(Nombre$, pos% + 1, 1) + "0"
IF (pos% <= LEN(Nombre$ - 2) THEN m$ ="." + MID$(Nombre$, pos%+1, 2)
END IF

IF valeur! < 0 THEN
chaine$ = "-"
valeur! = -valeur!
END IF

chaine$ = chaine$ + LTRIM$(RTRIM$(STR$(INT(valeur!)))) + m$
Convert$ = chaine$
END FUNCTION

Bon, je préviens, je n'ai pas testé (je n'ai pas QBasic sous la main.
Plusieurs choses :
- cette fonction tronque le nombre et donc ne l'arrondi pas.
- A vérifier que la fonction INT renvoie bien l'entier inférieur ou égal au nombre passé en paramètre.