Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: lawsonm1 on February 19, 2020, 12:27:48 pm

Title: Wiki - Template:Parameter?
Post by: lawsonm1 on February 19, 2020, 12:27:48 pm
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.
Title: Re: Wiki - Template:Parameter?
Post by: FellippeHeitor on February 19, 2020, 12:51:31 pm
In the process of upgrading the wiki software. Issues galore until everything’s sorted.
Title: Re: Wiki - Template:Parameter?
Post by: lawsonm1 on February 19, 2020, 02:06:58 pm
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
Title: Re: Wiki - Template:Parameter?
Post by: FellippeHeitor on February 19, 2020, 02:43:38 pm
Your offline copy of the wiki is still available in the IDE, just hit Shift+F1.
Title: Re: Wiki - Template:Parameter?
Post by: lawsonm1 on February 19, 2020, 03:34:51 pm
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
Title: Re: Wiki - Template:Parameter?
Post by: OldMoses on February 19, 2020, 05:37:48 pm
Quote from: lawsonm1 on February 19, 2020, 02:06:58 pm
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.
Title: Re: Wiki - Template:Parameter?
Post by: TerryRitchie on February 19, 2020, 07:48:20 pm
Quote from: OldMoses on February 19, 2020, 05:37:48 pm
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

Title: Re: Wiki - Template:Parameter?
Post by: youreperfect on February 19, 2020, 09:42:09 pm
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.
Title: Re: Wiki - Template:Parameter?
Post by: bplus on February 19, 2020, 10:13:51 pm
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

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

Hey youreperfect where are you from?
Title: Re: Wiki - Template:Parameter?
Post by: bplus on February 20, 2020, 12:58:32 am
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.
Title: Re: Wiki - Template:Parameter?
Post by: RhoSigma on February 20, 2020, 01:38:11 am
Hi b+,

are you speaking about something like this? https://www.qb64.org/forum/index.php?topic=890.msg100880#msg100880
Title: Re: Wiki - Template:Parameter?
Post by: bplus on February 20, 2020, 01:49:43 am
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!
Title: Re: Wiki - Template:Parameter?
Post by: bplus on February 21, 2020, 02:49:18 pm
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
  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$
  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$
  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$
  105.  
  106.  
Title: Re: Wiki - Template:Parameter?
Post by: FellippeHeitor on February 21, 2020, 03:06:03 pm
Quote from: bplus on February 21, 2020, 02:49:18 pm
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.
Title: Re: Wiki - Template:Parameter?
Post by: bplus on February 21, 2020, 03:10:32 pm
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)
Text Only | Text with Attachments