Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Christo92 on August 02, 2018, 12:57:47 pm

Title: question by a total beginner print number with two number after comma
Post by: Christo92 on August 02, 2018, 12:57:47 pm
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
Title: Re: question by a total beginner print number with two number after comma
Post by: Juanjogomez on August 02, 2018, 01:23:09 pm
You can print with then command:

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

Title: Re: question by a total beginner print number with two number after comma
Post by: SMcNeill on August 02, 2018, 02:35:05 pm
PRINT INT(nombre * 100 ) / 100
Title: Re: question by a total beginner print number with two number after comma
Post by: Christo92 on August 03, 2018, 05:08:15 pm
Thank you very much for your help

Title: Re: question by a total beginner print number with two number after comma
Post by: Fifi on August 14, 2018, 01:04:59 pm
Hi Juanjogomez,

Quote from: Juanjogomez on August 02, 2018, 01:23:09 pm
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. '
  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#
  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#)
  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$
  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$
  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.

Title: Re: question by a total beginner print number with two number after comma
Post by: Fifi on August 14, 2018, 04:24:49 pm
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.
Text Only | Text with Attachments