question by a total beginner print number with two number after comma

[Christo92]

question by a total beginner
i'm trying to learn QB64
my question can being stupid
but i would like print  nombre  with two number after comma
thank for your help

10 PRINT " TOP JS   par christophe lamadon"
20 INPUT " BILAN "; a
30 INPUT " COTE GAGNANTE "; b
40 INPUT "COTE PLACE"; c
50 CGP = b + c
60 M = b / CGP
70 N = (b - 1)
80 Z = a * N
90 E = M / Z
100 nombre = E

[Juanjogomez]

You can print with then command:

PRINT USING "#,###,###.##";nombre

[SMcNeill]

PRINT INT(nombre * 100 ) / 100

[Christo92]

Thank you very much for your help

[Fifi]

Hi Juanjogomez,

You can print with then command:
PRINT USING "#,###,###.##";nombre

The problem with the command PRINT USING "mask";number is:
a) this prints spaces in front of the integer part of the number if the value is smaller than the mask,
b) and prints the sign % in front of the integer part of the number if its value is larger than the mask.

I turned arround this problem writing a small but inelegant small program that formats a float without the leading spaces.

The code is below:

Code: QB64: [Select]

1. '
2. ' program name: Print_Using.bas
3. '
4. ' This small program formats a float with two separate blocks.
5. ' The first block is the interger part of the float separated
6. ' in groups of three didits by a comma, the second group is
7. ' the decimal part of the float rounded to 2 digits after the
8. ' decimal point.
9. ' The main purpose of this program is to format a float without
10. ' using the PRINT USING command with a mask that places spaces
11. ' in front of the number when the float is smaller than the mask
12. ' and that puts the % character in front of the number when the float
13. ' is larger than the mask.
14. '
15. $SCREENHIDE
16. $CONSOLE
17. _DEST _CONSOLE
18. '
19. ' title of the windows when used in a console
20. '
21. _TITLE "Print_Using"
22. '
23. ' variable initialisation
24. '
25. Number# = 1.00
26. '
27. ' main program
28. '
29. WHILE Number# <> 0
30.     PRINT "Please enter a float: ";
31.     INPUT (Number#)
32.     PRINT "Using this function will print:" + Print_Using$(Number#)
33.     PRINT "PRINT USING command will print:";
34.     PRINT USING "#,###,###,###.##"; Number#
35. WEND
36. '
37. ' function to format the integer part of a float and round its decimal part at 2 digits.
38. '
39. FUNCTION Print_Using$ (nb#)
40.     Print_Using$ = intPart(nb#) + decPart(nb#)
41. END FUNCTION
42. '
43. ' function to format and round the decimal part of a float at 2 digits.
44. '
45. FUNCTION decPart$ (nb#)
46.     dot$ = "."
47.     dotPos% = INSTR(LTRIM$(STR$(nb#)), dot$)
48.     IF dotPos% = 0 THEN
49.         partdec$ = ".00"
50.     ELSE
51.         partdec$ = MID$(LTRIM$(STR$(nb#)), dotPos%)
52.         strlen% = LEN(partdec$)
53.     END IF
54.     IF strlen% = 1 THEN
55.         partdec$ = ".00"
56.     ELSE
57.         SELECT CASE strlen%
58.             CASE 2
59.                 partdec$ = partdec$ + "0"
60.             CASE IS > 3
61.                 IF VAL(MID$(partdec$, 4, 1)) >= 5 THEN
62.                     MID$(partdec$, 3, 1) = LTRIM$(STR$(VAL(MID$(partdec$, 3, 1)) + 1))
63.                 END IF
64.                 partdec$ = LEFT$(partdec$, 3)
65.         END SELECT
66.     END IF
67.     decPart$ = partdec$
68. END FUNCTION
69. '
70. ' function to format the integer part of a float with groups of 3 digits.
71. '
72. FUNCTION intPart$ (nb#)
73.     i$ = LTRIM$(RTRIM$(STR$(FIX(nb#))))
74.     IF nb# < 0 THEN
75.         i$ = MID$(i$, 2)
76.     END IF
77.     lenI = LEN(i$)
78.     IF lenI > 3 THEN
79.         m3 = lenI MOD 3
80.         IF m3 <> 0 THEN
81.             i$ = LEFT$(i$, m3) + "," + MID$(i$, m3 + 1)
82.         END IF
83.         idx = m3 + 4 + (m3 = 0)
84.         WHILE idx < LEN(i$)
85.             i$ = LEFT$(i$, idx) + "," + MID$(i$, idx + 1)
86.             idx = idx + 4
87.         WEND
88.     ELSEIF lenI = 0 THEN
89.         i$ = "0"
90.     END IF
91.     IF nb# < 0 AND lenI > 0 THEN
92.         i$ = "-" + i$
93.     END IF
94.     intPart$ = i$
95. END FUNCTION
96.  

A better solution would be:

1) to modifiy the PRINT USING command in the way ANSI C or PHP printf() commands behave i.e.: printf("%.2f", float).

2) or to use the standard stdio.h library to be able to use the printf() and sprintf() and other commands of the standard C library.

However, I don't know how to use such an external C library with QB64.

Any idea?

Best regards.

[Fifi]

Hi All,

I'd appreciate your help to customise the small Print_Using.bas sample provided in the post above to be able to pass to the main function Print_Using(nb#) two new parameters that would be used by the two other functions IntPart(nb#) and DecPart(nb#) :

1) the character to be used as the decimal separator of the decimal part of a float (that could be a point "." or a comma ",")

2) the character to be used as the interger group separator (that could be empty if you don't want a group separator).

The goal is to use something like this:

nb# = 12345.678
IntSeparator$ = ","
DecSeparator$ = "."

Print_Using(nb#, IntSeparator$, DecSeparator$)

DecPart(nb#, DecSeparator$)

InnPart(nb#, IntSeparator$)

I've tried different solutions but I can't get the result I'm expecting since I'm not QB64 fluent enough.

Any help would be appreciated.

Best regards.