Wiki - Template:Parameter?

[lawsonm1]

Ummm, did something change? There are all of these 'Template:Parameter' links that do not seem to go anywhere. And the code examples have 'Template:Cl' all throughout. Bizarre.

[FellippeHeitor]

In the process of upgrading the wiki software. Issues galore until everything’s sorted.

[lawsonm1]

Okay. Sure wish I had that hard copy QB64 book! I guess in the meantime I can use my trusty 'GW-BASIC Reference' book from 1990. On a serious note, I had been thinking of capturing the various webpages, put them in a document, and printing them out. I think I will do that when the issues get sorted out. Thanks, Mike

[FellippeHeitor]

Your offline copy of the wiki is still available in the IDE, just hit Shift+F1.

[lawsonm1]

Yeah, I know. I'm just old and kinda set in my ways I guess. If I come across a programming problem, I find myself grabbing a related book and digging through it for an answer or suggestion, and then go back to see if it works. I will say this, I do LOVE QB64 though. And I'm slowly getting out of my BASIC 'shell' and using some of the '_' commands more. Or even looking at those for suggestions. Some of them seem a bit daunting though. But hey, type in the command and see if it spits an error! It certainly isn't going to destroy the computer!. Thanks again, to you and all of whoever works on this language, and the site, Mike

[OldMoses]

Okay. Sure wish I had that hard copy QB64 book!

That would be an awesome thing. For all the stuff I do on computer, even reading books, I still like a hardcopy book for things of this nature.

[TerryRitchie]

That would be an awesome thing. For all the stuff I do on computer, even reading books, I still like a hardcopy book for things of this nature.

The Waite Group put out a book called "The Microsoft QuickBasic Bible" in the early 90's. I still use that book to this day as it is so well written and informative. I would be the first in line to purchase "The QuickBasic64 Bible" if it were offered in the same format.

It's still available used on Amazon:

https://www.amazon.com/Waite-Groups-Microsoft-QuickBASIC-Bible/dp/1556152620/ref=sr_1_1?keywords=1556152620&qid=1582159654&sr=8-1

[youreperfect]

There are a couple books listed here: https://kit.co/YourePerfect/qbasic-programming
Ordering them via the links on that page also helps donate to the QB64 project.

[bplus]

  [ You are not allowed to view this attachment ]  

Hey that's a link to Terry's tutorial.

Hey youreperfect where are you from?

[bplus]

Speaking of templates, I remember QB something had a Format$ statement that I have missed on occasion.

Has someone worked on that? perfect compliment to PRINT USING.

[RhoSigma]

Hi b+,

are you speaking about something like this? https://www.qb64.org/forum/index.php?topic=890.msg100880#msg100880

[bplus]

Hey Rho,

Do you know I was thinking it might be you, I even started to type in your name... couldn't remember why though.

I will check it out after sleeping off all this dang coffee I drank. Thank you!

[bplus]

OK I am checking out both Steve's and RhoSigma's Format functions and the % is showing up in the output for 2nd demo example:

Code: QB64: [Select]

1. PRINT Format1$("###,.##", "123456789.987654321", 1)
2.  

Wiki says when see a % in output then the template isn't adding enough # places for numbers but doesn't this part of template, "###,." kind of write a blank check for amount of numbers places?

ref: Format functions

Code: QB64: [Select]

1. ' Fellippe's link to wiki for PRINT USING table http://www.qb64.org/wiki/PRINT_USING
2. ' Steve McNeill formats$   https://www.qb64.org/forum/index.php?topic=890.msg100887#msg100887
3. PRINT Format1$("###.###", "123.456789", 1)
4. PRINT Format1$("###,.##", "123456789.987654321", 1)
5.  
6.  
7. FUNCTION format$ (template AS STRING, text AS STRING)
8.     d = _DEST: s = _SOURCE
9.     n = _NEWIMAGE(80, 80, 0)
10.     _DEST n: _SOURCE n
11.     PRINT USING template; VAL(text)
12.     FOR i = 1 TO 79
13.         t$ = t$ + CHR$(SCREEN(1, i))
14.     NEXT
15.     format$ = t$
16.     _DEST d: _SOURCE s
17.     _FREEIMAGE n
18. END FUNCTION
19.  
20.  
21.  
22. ' RhoSigma's format$  https://www.qb64.org/forum/index.php?topic=890.msg100880#msg100880
23. '---------------------------------------------------------------------
24. 'Function:  Can return a PRINT USING formatted string for assignment to
25. '           any string variable. This is a multiple name function for
26. '           use of upto three arguments (Format$, Format2$, Format3$).
27. '
28. 'Synopsis:  res$ = Format$  (fmt$, arg$, typ%)
29. '           res$ = Format2$ (fmt$, arg$, typ%, arg2$, typ2%)
30. '           res$ = Format3$ (fmt$, arg$, typ%, arg2$, typ2% arg3$, typ3%)
31. '
32. 'Result:    res$ --> the resulting formatted string
33. '
34. 'Inputs:    fmt$ --> the string with format options for PRINT USING
35. '           arg$ --> the argument(s) to format into the fmt$ string,
36. '                    use STR$(num) to pass in a number
37. '           typ% --> the type(s) of the respective argument(s),
38. '                     0 = argument is a real (alphanumeric) string
39. '                     1 = argument is a STR$() number string
40. '
41. 'Notes:     This function is adapted and slightly altered from an idea
42. '           posted in the QB64 Forum by Fellippe Heitor,
43. '           see http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14219.0
44. '---------------------------------------------------------------------
45. FUNCTION Format1$ (fmt$, arg$, typ%)
46.     shan& = _SOURCE: dhan& = _DEST: than& = _NEWIMAGE(256, 1, 0) 'if results may get longer, then raise the 256 value
47.     _SOURCE than&: _DEST than&
48.     IF typ% THEN
49.         PRINT USING fmt$; VAL(arg$);
50.     ELSE
51.         PRINT USING fmt$; arg$;
52.     END IF
53.     FOR i% = 1 TO POS(0) - 1
54.         res$ = res$ + CHR$(SCREEN(1, i%))
55.     NEXT i%
56.     _SOURCE shan&: _DEST dhan&: _FREEIMAGE than&
57.     Format1$ = res$
58. END FUNCTION
59. '-----
60. FUNCTION Format2$ (fmt$, arg$, typ%, arg2$, typ2%)
61.     shan& = _SOURCE: dhan& = _DEST: than& = _NEWIMAGE(256, 1, 0) 'if results may get longer, then raise the 256 value
62.     _SOURCE than&: _DEST than&
63.     IF typ% AND typ2% THEN
64.         PRINT USING fmt$; VAL(arg$); VAL(arg2$);
65.     ELSEIF typ% THEN
66.         PRINT USING fmt$; VAL(arg$); arg2$;
67.     ELSEIF typ2% THEN
68.         PRINT USING fmt$; arg$; VAL(arg2$);
69.     ELSE
70.         PRINT USING fmt$; arg$; arg2$;
71.     END IF
72.     FOR i% = 1 TO POS(0) - 1
73.         res$ = res$ + CHR$(SCREEN(1, i%))
74.     NEXT i%
75.     _SOURCE shan&: _DEST dhan&: _FREEIMAGE than&
76.     Format2$ = res$
77. END FUNCTION
78. '-----
79. FUNCTION Format3$ (fmt$, arg$, typ%, arg2$, typ2%, arg3$, typ3%)
80.     shan& = _SOURCE: dhan& = _DEST: than& = _NEWIMAGE(256, 1, 0) 'if results may get longer, then raise the 256 value
81.     _SOURCE than&: _DEST than&
82.     IF typ% AND typ2% AND typ3% THEN
83.         PRINT USING fmt$; VAL(arg$); VAL(arg2$); VAL(arg3$);
84.     ELSEIF typ% AND typ2% THEN
85.         PRINT USING fmt$; VAL(arg$); VAL(arg2$); arg3$;
86.     ELSEIF typ% AND typ3% THEN
87.         PRINT USING fmt$; VAL(arg$); arg2$; VAL(arg3$);
88.     ELSEIF typ2% AND typ3% THEN
89.         PRINT USING fmt$; arg$; VAL(arg2$); VAL(arg3$);
90.     ELSEIF typ% THEN
91.         PRINT USING fmt$; VAL(arg$); arg2$; arg3$;
92.     ELSEIF typ2% THEN
93.         PRINT USING fmt$; arg$; VAL(arg2$); arg3$;
94.     ELSEIF typ3% THEN
95.         PRINT USING fmt$; arg$; arg2$; VAL(arg3$);
96.     ELSE
97.         PRINT USING fmt$; arg$; arg2$; arg3$;
98.     END IF
99.     FOR i% = 1 TO POS(0) - 1
100.         res$ = res$ + CHR$(SCREEN(1, i%))
101.     NEXT i%
102.     _SOURCE shan&: _DEST dhan&: _FREEIMAGE than&
103.     Format3$ = res$
104. END FUNCTION
105.  
106.  

[FellippeHeitor]

Wiki says when see a % in output then the template isn't adding enough # places for numbers but doesn't this part of template, "###,." kind of write a blank check for amount of numbers places?

Up to three digits. If you make it ####, then it's up to four digits. If I pass 1000 to your format string, with only ### before the ".", then you'll see %1000, to show you you didn't prepare well enough for your program's results.

[bplus]

Code: QB64: [Select]

1. PRINT Format1$("############,.##", "123456789.987654321", 1)  

OK and you need places for commas too! :)

But it does count a place for the one comma in template ( 9 numbers + 2 commas = 11, but 10 #'s does it):

Code: QB64: [Select]

1. PRINT Format1$(STRING$(10, "#") + ",.##", "123456789.987654321", 1)