QB64.org Forum

Active Forums => Programs => Topic started by: carloscordeiro on January 31, 2021, 09:11:06 pm

Title: Mr. McNeill's extended entrance
Post by: carloscordeiro on January 31, 2021, 09:11:06 pm

Good evening Mr. SMcNeill
The Extended Entry you created is an excellent code.
I had asked bplus about it at: https://www.qb64.org/forum/index.php?topic=3209.msg124899#msg124899.

Very attentive, you showed the post.

Just now, I had time to insert a code of dozens of combinations.

In your post, you mention that the extended entry can be useful.

For me it is being very useful, I can risk saying necessary.

This code resolve the stresses that I had.
1 - exhaustion in entering 44 digits.
2 - Always running the risk of typos.
3 - the duration of registration.

Just as I ask Bplus for a lot of help.

I would very much like you to analyze if my inserted lines comply with your code.
If I made a mistake, I ask you to show me where the error is and how to fix it.

The amount of numbers entered will always be these:
010204060809111316171819202122

Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6. 'Moldura...
7. LINE (0, 0)-(599, 599), 11, B 'Moldura inteira
8. LINE (1, 1)-(598, 598), 11, B
9. LINE (2, 2)-(597, 597), 11, B
10. LINE (3, 3)-(596, 596), 11, B
11. LINE (4, 4)-(595, 595), 11, B
12.  
13. LINE (599, 43)-(2, 43), 11, B 'Linha Horizontal
14. LINE (599, 44)-(2, 44), 11, B
15.  
16. 'Mostra Data
17. d$ = MID$(DATE$, 1, 3)
18. c$ = MID$(DATE$, 4, 3)
19. e$ = MID$(DATE$, 7, 4)
20. f$ = c$ + d$ + e$
21.  
22. COLOR 11: LOCATE 2, 28: PRINT "* * * LOTOFACIL * * *"
23. LOCATE 2, 65: PRINT TIME$
24. LOCATE 2, 4: PRINT f$
25. '--------------------------------------------------------------------------------
26. DIM registration AS LONG
27.  
28. _CONTROLCHR OFF
29.  
30. IF _FILEEXISTS("loto.txt") THEN
31.     OPEN "loto.txt" FOR INPUT AS #1
32.     registration = LOF(1) \ 46
33.     SEEK #1, LOF(1) - 45
34.     LINE INPUT #1, nt$
35.     CLOSE
36. END IF
37.  
38. COLOR 30
39. LOCATE 25, 3: PRINT "Press [ESC] to exit."
40. LOCATE 4, 3: PRINT "N" + CHR$(163); "mere contests =>"; registration
41.  
42. OPEN "loto.txt" FOR APPEND AS #1
43.  
44. 'PRINT ExtendedInput$
45.  
46. DO
47.     LOCATE 6, 14: PRINT "_______________________________"
48.     LOCATE 6, 3: PRINT "Dozens => ";
49.     a$ = ExtendedInput$
50.  
51.     FOR i = 1 TO 30 STEP 2
52.         x$ = x$ + MID$(a$, i, 2) + " "
53.     NEXT
54.  
55.     x$ = _TRIM$(x$)
56.  
57.     LOCATE 8, 3: PRINT "Dozens => "; x$
58.     LOCATE 10, 3: PRINT "N" + CHR$(163); "mere digits ="; LEN(x$)
59.  
60.     IF LEN(x$) = 44 THEN
61.         PRINT #1, x$
62.         LOCATE 12, 3: PRINT "Dozens successfully saved !!!"
63.     ELSE
64.         BEEP
65.     END IF
66.     x$ = ""
67.     Scrn$ = INKEY$
68. LOOP UNTIL Scrn$ = CHR$(27)
69. END
70.  
71. '--------------------------------------------------------------------------------
72.  
73. FUNCTION ExtendedInput$
74.     PCOPY 0, 1
75.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
76.     CP = 0: OldCP = 0 'Cursor Position
77.     _KEYCLEAR
78.     DO
79.         PCOPY 1, 0
80.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
81.         k = _KEYHIT
82.         IF AltDown THEN
83.             SELECT CASE k 'ignore all keypresses except ALT-number presses
84.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
85.             END SELECT
86.         ELSE
87.             SELECT CASE k 'without alt, add any keypresses to our input
88.                 CASE 8
89.                     oldin$ = in$
90.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
91.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
92.                 CASE 9
93.                     oldin$ = in$
94.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
95.                     OldCP = CP
96.                     CP = CP + 4
97.                 CASE 32 TO 128
98.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
99.                         IF k = 118 OR k = 86 THEN
100.                             oldin$ = in$
101.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
102.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
103.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
104.                         END IF
105.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
106.                     ELSE
107.                         oldin$ = in$
108.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
109.                         OldCP = CP
110.                         CP = CP + 1
111.                     END IF
112.                 CASE 18176 'Home
113.                     CP = 0
114.                 CASE 20224 'End
115.                     CP = LEN(in$)
116.                 CASE 21248 'Delete
117.                     oldin$ = in$
118.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
119.                 CASE 19200 'Left
120.                     CP = CP - 1
121.                     IF CP < 0 THEN CP = 0
122.                 CASE 19712 'Right
123.                     CP = CP + 1
124.                     IF CP > LEN(in$) THEN CP = LEN(in$)
125.             END SELECT
126.         END IF
127.         alt$ = RIGHT$(alt$, 3)
128.         IF AltWasDown = -1 AND AltDown = 0 THEN
129.             v = VAL(alt$)
130.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
131.             alt$ = "": AltWasDown = 0
132.         END IF
133.         blink = (blink + 1) MOD 30
134.         LOCATE Y, X
135.         PRINT LEFT$(in$, CP);
136.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
137.         PRINT MID$(in$, CP + 1)
138.  
139.         _DISPLAY
140.         _LIMIT 30
141.     LOOP UNTIL k = 13
142.  
143.     PCOPY 1, 0
144.     LOCATE Y, X: PRINT in$
145.     ExtendedInput$ = in$
146.     IF A THEN _AUTODISPLAY
147. END FUNCTION]

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 01, 2021, 12:56:56 am

Hi @carloscordeiro

I can't tell if you are asking a question or thanking Mr SMcNeill.

I would be thanking him because I copy & pasted that set of numbers from forum with Ctrl + V into the code you had and got same results as you show. That's good because I'd sure hate to type all that stuff! :) As you say, a time saver and stress relief.

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 01, 2021, 01:11:50 am

Looks to me like it’s working as intended. 

I’m happy to see it suit your needs.  Just let me know if there’s any unexpected glitches with it.  :)

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 01, 2021, 05:01:52 pm

Hi Bplus,

I am very grateful to Mr. SMcNeill for his contributions to this forum.

thankful yet but for the excellent extended entry code.

Você sabe que serei sempre grato a todo deste forum.

I believe that I did not make my gratitude very clear, due to the question.

I'll do it more clearly.
On line 49 "a $ = ExtendedInput $".

I was unable to separate the variable "A $" from "ExtendedInput $"

That's why I asked Mr. SMcNeill to analyze if there is any error on my part.

I was not careful to explain which line was my mistake.

Thank you in advance, Mr. SMcNeill for the excellent code.

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 01, 2021, 05:19:19 pm

Quote from: carloscordeiro on February 01, 2021, 05:01:52 pm

Hi Bplus,

I am very grateful to Mr. SMcNeill for his contributions to this forum.

thankful yet but for the excellent extended entry code.

Você sabe que serei sempre grato a todo deste forum.

I believe that I did not make my gratitude very clear, due to the question.

I'll do it more clearly.
On line 49 "a $ = ExtendedInput $".

I was unable to separate the variable "A $" from "ExtendedInput $"

That's why I asked Mr. SMcNeill to analyze if there is any error on my part.

I was not careful to explain which line was my mistake.

Thank you in advance, Mr. SMcNeill for the excellent code.

Carlos

So the screen shots you showed were from doing the ExtendedInput$ the hard way by hand typing all those numbers?

OK Steve may have more to add but let's cover the basic's
1. I assume you want to enter the contents of a clipboard copy and you have the number copied for a paste.
2. You have the code loaded and running.
3. You clicked that window with your code running AGAIN
      + after loading the copy to paste you click the code screen again so that screen now has the focus.
4. I may of clicked the blank line again just to be sure the paste was going where I intended
5. You pressed the Key combination Ctrl + V
6 Oh press enter just like a normal input enter, maybe that's what you are missing? need to press enter to signal when you are done inputting.
7. the paste should now magically appear?

Quote

'CTRL+V leaves cursor in position before the paste, without moving it after.

I just checked 2 more times and your code made this in loto.txt file:

Quote

01 02 04 06 08 09 11 13 16 17 18 19 20 21 22
01 02 04 06 08 09 11 13 16 17 18 19 20 21 22

EDIT: sorry I missed the last step press enter!

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 01, 2021, 05:34:21 pm

Bplus, the code is perfect, The question I asked, it doesn't aggravate.

I just thought that I had done something wrong so that "A$" could not be separated.

Image shows what I am trying to express.

I am happy even using the semicolon.

Once again, thank you very much Mr. SMcNeill.

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 01, 2021, 05:50:05 pm

"I just checked 2 more times and your code made this in loto.txt file:"

"EDIT: sorry I missed the last step press enter!"


I didn't understand, Bplus

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 01, 2021, 05:54:29 pm

Quote

I'll do it more clearly.
On line 49 "a $ = ExtendedInput $".

I was unable to separate the variable "A $" from "ExtendedInput $"

I'm not entirely certain what you're asking here.  ExtendedInput is a FUNCTION, so it's going to always behave like a function.  Think of it like the math command for absolute values -- it can't just sit in your code by itself, doing nothing.

You can:

PRINT ABS(-2)

OR

X = X + ABS(-2)

But you can't just toss in a stray:

ABS(-2)

---

FUNCTIONS aren't stand alone commands.  They require something to interact with and to receive their value.

SUBS, on the other hand, can be stand-alone commands, like CLS, PRINT, or END. 

Since ExtendedInput is a function, it has to have a variable to send its information to, thus the A$ = ExtendedInput is required.  (Or at least some string variable is.  You can change A$ to Whatever$ if you like, and it'd suit your needs better.)

If you're looking for a way to turn A$ into A (as a number), then you'd want to take the VAL of the ExtendedInput.

A = VAL(ExtendedInput)

Though, with the way you're entering and adding spaces to the values, I really don't think that's what you're wanting to do...

Are you trying to turn that long string into an array of 15 Numbers?  If so, you'd just use VAL of the MID$, like you did on line 52 when you inserted the spaces for readability, and assign the values then to your array.

Like I say, I'm not completely certain what you're asking, or what you're trying to do.  What's the purpose in "separating the variable a$ from ExtendedInput?  What are you trying to Accomplish?

---

Could the solution be as simple as:

DIM A AS STRING 'Place at top of code.

A = ExtendedInput 'no need for $

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 01, 2021, 06:03:37 pm

Quote from: carloscordeiro on February 01, 2021, 05:50:05 pm

"I just checked 2 more times and your code made this in loto.txt file:"

"EDIT: sorry I missed the last step press enter!"


I didn't understand, Bplus

OK I copy number to clipboard.
I click the the screen with your running program.
I then press Ctrl and V at the same time
the copy of the unseparated numbers cover the blank line
I press the enter button sometimes called the return button
the blank line is back but the numbers are now 2 lines down all separated as shown in the loto.txt file.

Looks good to me, I did a couple more times and the file is loading up with copies of that separated number.

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 01, 2021, 06:12:44 pm

As I already said, Mr. SMcNeill. I am very satisfied with your code.

I always express myself badly.

I'll try again:
This is what I did to show the cursor after "=> '
     LOCATE 6, 3: PRINT "Dozens =>";
     a $ = ExtendedInput $

I tried to do this:
  a $ = ExtendedInput $
LOCATE 6, 3: PRINT "Dozens =>"; a $
  Did not work

Now I know that ExtendedInput is a FUNCTION.

Always grateful to you.

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 01, 2021, 06:20:00 pm

Quote from: carloscordeiro on February 01, 2021, 06:12:44 pm

As I already said, Mr. SMcNeill. I am very satisfied with your code.

I always express myself badly.

I'll try again:
This is what I did to make the cursor look after "=> '
     LOCATE 6, 3: PRINT "Dozens =>";
     a $ = ExtendedInput $

I tried to do this:
  a $ = ExtendedInput $
LOCATE 6, 3: PRINT "Dozens =>"; a $
  Did not work

Now I know that ExtendedInput is a FUNCTION.

Always grateful to you.

Carlos

Well you are throwing me off with the $ separated from variable or function

But if you want to see the pasted text after Ctrl V do so BEFORE you press enter, you will see it on line 6 in it's raw form before the rest of the code gets to it, separates it and then loops around and redraws the line for the next thing to input.

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 01, 2021, 06:34:19 pm

Bplus, is the translator who is separating the $ from the variable.

I am not able to express it correctly.

But it's all right.

"It looks good to me, I did it a few more times and the file is carrying copies of that separate number."

Here's saving without a copy.

Two images so that there is no question left.

As Mr. SMcNeill said, ExtendedInput should be constantly reading ...

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 01, 2021, 07:31:50 pm

Quote

Curses foiled again ;(

Translation, it seems if you start typing something after you paste in the number and before you press enter, that text ends up before the pasted in number or text. That's not good. The curser should appear after the pasted in text.

Is that it Carlos? The curser is in the wrong place after the paste.

Title: Re: Mr. McNeill's extended entrance
Post by: FellippeHeitor on February 01, 2021, 07:38:28 pm

Oi, Carlos. Às vezes a gente se perde mesmo na tradução. Não sei se sua pergunta já foi respondida, mas posso te ajudar com algo? Já que falamos a mesma língua, podemos nos ser mutuamente úteis.

Abraço!

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 01, 2021, 07:47:31 pm

Quote

Curses foiled again ;(

Translation, it seems if you start typing something after you paste in the number and before you press enter, that text ends up before the pasted in number or text. That's not good. The curser should appear after the pasted in text.

Is that it Carlos? The curser is in the wrong place after the paste.

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 01, 2021, 07:49:07 pm

What you're probably look for is more of this:

Code: [Select]


SUB ExtendedInput (prompt$, result$)
    PCOPY 0, 1
    A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
    CP = 0: OldCP = 0 'Cursor Position
    _KEYCLEAR
    DO
        PCOPY 1, 0
        IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
        k = _KEYHIT
        IF AltDown THEN
            SELECT CASE k 'ignore all keypresses except ALT-number presses
                CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
            END SELECT
        ELSE
            SELECT CASE k 'without alt, add any keypresses to our input
                CASE 8
                    oldin$ = in$
                    IF CP > 0 THEN OldCP = CP: CP = CP - 1
                    in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
                CASE 9
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
                    OldCP = CP
                    CP = CP + 4
                CASE 32 TO 128
                    IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
                        IF k = 118 OR k = 86 THEN
                            oldin$ = in$
                            in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
                            'CTRL-V leaves cursor in position before the paste, without moving it after.
                            'Feel free to modify that behavior here, if you want it to move to after the paste.
                        END IF
                        IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
                    ELSE
                        oldin$ = in$
                        in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
                        OldCP = CP
                        CP = CP + 1
                    END IF
                CASE 18176 'Home
                    CP = 0
                CASE 20224 'End
                    CP = LEN(in$)
                CASE 21248 'Delete
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
                CASE 19200 'Left
                    CP = CP - 1
                    IF CP < 0 THEN CP = 0
                CASE 19712 'Right
                    CP = CP + 1
                    IF CP > LEN(in$) THEN CP = LEN(in$)
            END SELECT
        END IF
        alt$ = RIGHT$(alt$, 3)
        IF AltWasDown = -1 AND AltDown = 0 THEN
            v = VAL(alt$)
            IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
            alt$ = "": AltWasDown = 0
        END IF
        blink = (blink + 1) MOD 30
        LOCATE Y, X
        PRINT prompt$; LEFT$(in$, CP);
        IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
        PRINT MID$(in$, CP + 1)
 
        _DISPLAY
        _LIMIT 30
    LOOP UNTIL k = 13
 
    PCOPY 1, 0
    LOCATE Y, X: PRINT prompt$, in$
    Result$ = in$
    IF A THEN _AUTODISPLAY
END FUNCTION


Tweaked on my iPad and untested, so if it doesn't work 100% on the first try, maybe someone can correct whatever my glitch might be.  If not, I'll correct it tomorrow when I'm back at the PC.  (That's IF there's a glitch at all.  I think it'll work with no issues, with these simple changes.

Usage here would then become:

LOCATE 6,3: ExtendedInput "Dozens =>", a$

It would eliminate the need for that PRINT statement and the semicolon after it.

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 01, 2021, 08:47:59 pm

Thank you Fellippe Heitor for offering to help. But Mr. SMcNeill understood. I believe after I posted the two images.

"Translation, it looks like if you start typing something after pasting the number and before pressing enter, that text ends up being pasted into the number or text. This is not good. The cursor should appear after the pasted text."
Is that Carlos? The cursor is in the wrong place after pasting.

Bplus, I did this test, but as I only intend to insert the 30 digits, I cannot charge a code that is already meeting my needs.

Correction image that Mr. SMcNeill on line 48.

Thank you Bplus, Feliipe  and the creator of the excellent code. Mr. SMcNeill.

Thank you very much.

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: _vince on February 01, 2021, 09:15:11 pm

Nice, I remember it was the cool thing in QBasic to write your own INPUT routine for greater flexibility.  Especially for finite length strings or *s for passwords.

Here's a very old McINPUT of similar sort https://www.tapatalk.com/groups/qbasic/programlist-mac-t30409-s30.html#p64871 (https://www.tapatalk.com/groups/qbasic/programlist-mac-t30409-s30.html#p64871)

Mr. McNeill's is the gold standard for QB64

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 01, 2021, 09:24:39 pm

I am very satisfied with the code.

But if Mr. SMcNeill considers that he should place the cursor after the pasted text.
Would be nice.
Bplus, this happens, if you type something after pasting the text.

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 01, 2021, 09:31:49 pm

CTRL-V to paste, then hit the END key to move to the end of the text.  ;)

Or, modify the code where the comment is about CTRL-V not moving the cursor.  Just add:

CP = CP + LEN(_CLIPBOARD$)

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 01, 2021, 10:43:23 pm

Oh ha! just wanted a FUNCTION turned into a SUB. I always thought INPUT would be more correct as a FUNCTON because you expect it to return a value.

Well Steve nice try but you cant sneak in anything new with all these old traditionalists hanging about ;-))

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 01, 2021, 11:24:49 pm

Quote from: bplus on February 01, 2021, 10:43:23 pm

Oh ha! just wanted a FUNCTION turned into a SUB. I always thought INPUT would be more correct as a FUNCTON because you expect it to return a value.

Well Steve nice try but you cant sneak in anything new with all these old traditionalists hanging about ;-))

The problem was the semicolon after the PRINT statement.  Carlos wanted a 1 line solution, rather than having it on two lines.

This was bad:
PRINT “Dozens => “;
a$ = ExtendedInput$

This is good:
ExtendedInput “Dozens => “, a$

See?  There’s no annoying, dangling semicolon at the end of the second version.

Carlos just wanted it all on a single line to suit his coding style.  ;D

(Though I do wonder why a colon wouldn’t have worked just as well?  PRINT “Dozens => “;: a$ = ExtendedInput)

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 02, 2021, 04:38:24 pm

Quote

The problem was the semicolon after the PRINT statement.  Carlos wanted a 1 line solution, rather than having it on two lines.

This was bad:
PRINT “Dozens => “;
a$ = ExtendedInput$

This is good:
ExtendedInput “Dozens => “, a$

See?  There’s no annoying, dangling semicolon at the end of the second version.

Carlos just wanted it all on a single line to suit his coding style.  ;D

(Though I do wonder why a colon wouldn’t have worked just as well?  PRINT “Dozens => “;: a$ = ExtendedInput)

I don't want to get a bad impression here on the forum.

I just thought I was using the wrong code, because A $ as in the pictures, it erases the line LOCATE 6, 3: PRINT "Dezenas =>" aS
What made you think that, was the fact that I realized that there is no way to leave A $ alone.
I was happy to know and thanked.
I apologize for making you interpret this.

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 02, 2021, 05:00:03 pm

As I already said, Mr. SMcNeill. I am very satisfied with your code.

I always express myself poorly.

I'll try again:
This is what I did to show the cursor after "=> '
      LOCATE 6, 3: PRINT "Dozens =>";
      a $ = ExtendedInput $

I tried to do this:
   a $ = ExtendedInput $
LOCATE 6, 3: PRINT "Tens =>"; a $
   Did not work

Now I know that ExtendedInput is a FUNCTION.

Always grateful to you.

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 02, 2021, 05:17:58 pm

Well now I know what language to translate from:

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 02, 2021, 06:02:01 pm

Quote from: SMcNeill on February 01, 2021, 09:31:49 pm

CTRL-V to paste, then hit the END key to move to the end of the text.  ;)

Or, modify the code where the comment is about CTRL-V not moving the cursor.  Just add:

CP = CP + LEN(_CLIPBOARD$)

Ok, Bplus, I no longer wanted to disturb Mr. SMcNeill.

Do you know which line of Mr. SMcNeill's code I should add:

All right, I added line 121

CP = CP + LEN (_CLIPBOARD $)?

Quote from: bplus on February 02, 2021, 05:17:58 pm

Well now I know what language to translate from:

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 02, 2021, 06:35:53 pm

Quote

All right, I added line 121

Okey

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 03, 2021, 07:20:27 pm

Quote

And, if folks need something else added to this, feel free to speak up while I'm still at home and have a few days where I don't have to take care of mom.  (Which gives you the next 3 days, or so, to make requests for additions/alterations.)

Good evening Mr. SMcNeill

I created another scenario for your code, which made me very happy.

In this scenario, I noticed that the keyboard buffer has the character “22”, in addition to the 30 tens.

He's doing the loop two laps before he stops.

It continues to ignore the line if h> 10 So stop.

Sample image and code.


Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6.  
7. _CONTROLCHR OFF
8. 'PRINT ExtendedInput$
9.  
10. LOCATE 2, 14: PRINT "_______________________________"
11. LOCATE 2, 3: PRINT "Dozens => ";
12. a$ = ExtendedInput$
13.  
14. h = 4
15. j = 2
16. K$ = INKEY$
17. DO
18.     FOR e = 1 TO 100
19.         h = h + 1
20.         IF h > 10 THEN
21.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
22.             DO
23.                 _LIMIT 30
24.             LOOP UNTIL INKEY$ = CHR$(13)
25.             h = 5: j = 25
26.         END IF
27.  
28.         FOR i = 1 TO 30 STEP 2
29.             x$ = x$ + MID$(a$, i, 2) + " "
30.         NEXT
31.  
32.         x$ = _TRIM$(x$)
33.  
34.         _LIMIT 60
35.  
36.         LOCATE h, j: PRINT "test"; e; " k$ = "; K$; ASC(K$)
37.     NEXT
38.     Scrn$ = INKEY$
39. LOOP UNTIL Scrn$ = CHR$(27)
40.  
41. END
42.  
43. FUNCTION ExtendedInput$
44.     PCOPY 0, 1
45.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
46.     CP = 0: OldCP = 0 'Cursor Position
47.     _KEYCLEAR
48.     DO
49.         PCOPY 1, 0
50.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
51.         k = _KEYHIT
52.         IF AltDown THEN
53.             SELECT CASE k 'ignore all keypresses except ALT-number presses
54.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
55.             END SELECT
56.         ELSE
57.             SELECT CASE k 'without alt, add any keypresses to our input
58.                 CASE 8
59.                     oldin$ = in$
60.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
61.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
62.                 CASE 9
63.                     oldin$ = in$
64.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
65.                     OldCP = CP
66.                     CP = CP + 4
67.                 CASE 32 TO 128
68.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
69.                         IF k = 118 OR k = 86 THEN
70.                             oldin$ = in$
71.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
72.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
73.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
74.                             CP = CP + LEN(_CLIPBOARD$)
75.                         END IF
76.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
77.                     ELSE
78.                         oldin$ = in$
79.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
80.                         OldCP = CP
81.                         CP = CP + 1
82.                     END IF
83.                 CASE 18176 'Home
84.                     CP = 0
85.                 CASE 20224 'End
86.                     CP = LEN(in$)
87.                 CASE 21248 'Delete
88.                     oldin$ = in$
89.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
90.                 CASE 19200 'Left
91.                     CP = CP - 1
92.                     IF CP < 0 THEN CP = 0
93.                 CASE 19712 'Right
94.                     CP = CP + 1
95.                     IF CP > LEN(in$) THEN CP = LEN(in$)
96.             END SELECT
97.         END IF
98.         alt$ = RIGHT$(alt$, 3)
99.         IF AltWasDown = -1 AND AltDown = 0 THEN
100.             v = VAL(alt$)
101.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
102.             alt$ = "": AltWasDown = 0
103.         END IF
104.         blink = (blink + 1) MOD 30
105.         LOCATE Y, X
106.         PRINT LEFT$(in$, CP);
107.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
108.         PRINT MID$(in$, CP + 1)
109.  
110.         _DISPLAY
111.         _LIMIT 30
112.     LOOP UNTIL k = 13
113.  
114.     PCOPY 1, 0
115.     LOCATE Y, X: PRINT in$
116.     ExtendedInput$ = in$
117.     IF A THEN _AUTODISPLAY
118. END FUNCTION
119.  
120.  
121.  

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 04, 2021, 06:11:22 pm

I will not give up.

I am asking for help.

Bplus if you know what is causing this ASC code (22) to appear.

It is causing the loop to take two turns before stopping.

He skip the line 78. IF h> 41 THEN stop.

Don't abandon me.

My search code, plus Mr. McNeill's extended entry code.

Dozens to test
010204080910121314151617182023

Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(700, 740, 256)
3. _DELAY .25
4. _SCREENMOVE 20, 30
5.  
6. 'Moldura...
7. LINE (0, 0)-(699, 739), 11, B 'Moldura inteira
8. LINE (1, 1)-(698, 738), 11, B
9. LINE (2, 2)-(697, 737), 11, B
10. LINE (3, 3)-(696, 736), 11, B
11. LINE (4, 4)-(695, 735), 11, B
12.  
13. LINE (699, 43)-(2, 43), 11, B 'Linha Horizontal
14. LINE (699, 44)-(2, 44), 11, B
15.  
16. LINE (536, 737)-(536, 44), 11, B 'Linha Vertical
17. LINE (535, 737)-(535, 44), 11, B
18.  
19. 'Mostra Data
20. d$ = MID$(DATE$, 1, 3)
21. c$ = MID$(DATE$, 4, 3)
22. e$ = MID$(DATE$, 7, 4)
23. f$ = c$ + d$ + e$
24.  
25. COLOR 11: LOCATE 2, 35: PRINT "* * * LOTOFACIL * * *"
26. LOCATE 2, 78: PRINT TIME$
27. LOCATE 2, 4: PRINT f$: COLOR 7
28.  
29. '------------------------------------------------------------------------
30. DIM cor1(80) AS _INTEGER64
31. DIM nt(1 TO 3000) AS STRING
32. DIM pesquisa AS LONG
33.  
34. _CONTROLCHR OFF
35.  
36. OPEN "loto.txt" FOR INPUT AS #1
37. pesquisa = LOF(1) \ 46
38. FOR t = 1 TO pesquisa
39.     LINE INPUT #1, nt$(t)
40. NEXT
41. CLOSE
42.  
43. COLOR 15: LOCATE 4, 3: PRINT "N" + CHR$(163); "meros de concursos =>"; pesquisa
44.  
45. DO
46.     COLOR 30
47.     'PRINT ExtendedInput$
48.     LOCATE 6, 14: PRINT "_______________________________"
49.     LOCATE 6, 3: PRINT "Dezenas => ";
50.     a$ = ExtendedInput$
51.  
52.     K$ = INKEY$ ' ASCII code number
53.  
54.     FOR i = 1 TO 30 STEP 2
55.         x$ = x$ + MID$(a$, i, 2) + " "
56.     NEXT
57.     Pes$ = _TRIM$(x$)
58.  
59.     IF LEN(Pes$) = 44 THEN
60.         LOCATE 8, 3: PRINT "Dezenas => "; Pes$; " ="; LEN(Pes$)
61.         g = 0
62.         h = 9
63.         onze = 0
64.         doze = 0
65.         trez = 0
66.         quat = 0
67.  
68.         'COLOR 13: LOCATE 44, 3: PRINT "Digite [ S ] para SAIR..."
69.         ' COLOR 15
70.         'LOCATE 44, 34: PRINT "                                 "
71.         'LOCATE 6, 14: PRINT "____________________________________________"
72.         ' LOCATE 6, 3: INPUT "Dezenas => ", pes$
73.         'COLOR 13: LOCATE 44, 3: PRINT "                         "
74.  
75.         '---------------------------------------------------------------------------
76.  
77.         FOR rs = 1 TO pesquisa
78.             IF h > 41 THEN
79.                 COLOR 13: LOCATE 44, 34: PRINT "Pressione Enter para continuar..."
80.                 DO
81.                     _LIMIT 30
82.                 LOOP UNTIL INKEY$ = CHR$(13)
83.                 FOR S = 9 TO 43
84.                     LOCATE S, 2: PRINT "                                                                 "
85.                     LOCATE S, 70: PRINT "                "
86.                 NEXT S
87.                 h = 9
88.             END IF
89.             h = h + 1
90.             x = 3
91.             COLOR 15: LOCATE h, x: PRINT RIGHT$("0000" + LTRIM$(STR$(rs)), 4); " => "
92.  
93.             FOR i = 1 TO 44 STEP 3
94.                 x = x + 3
95.                 tt$ = MID$(nt$(rs), i, 2)
96.                 FOR r = 1 TO LEN(Pes$) STEP 3
97.                     O$ = MID$(Pes$, r, 2)
98.                     IF tt$ = O$ THEN
99.                         g = g + 1
100.                         cor1(g) = i
101.                         EXIT FOR
102.                     ELSE
103.                         COLOR 7: LOCATE h, x + 5: PRINT tt$
104.                     END IF
105.                 NEXT r
106.             NEXT i
107.  
108.             IF g <= 10 THEN
109.                 LOCATE h, 2: PRINT "                                                        "
110.                 h = h - 1
111.                 g = 0
112.             END IF
113.  
114.             IF g = 11 THEN
115.                 onze = onze + 1
116.                 COLOR 48
117.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Onze"
118.                 FOR ag = 1 TO 11
119.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
120.                 NEXT ag
121.                 COLOR 7
122.             END IF
123.  
124.             IF g = 12 THEN
125.                 doze = doze + 1
126.                 COLOR 52
127.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Doze"
128.                 FOR ag = 1 TO 12
129.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
130.                 NEXT ag
131.                 COLOR 7
132.             END IF
133.  
134.             IF g = 13 THEN
135.                 trez = trez + 1
136.                 COLOR 36
137.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Treze"
138.                 FOR ag = 1 TO 13
139.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
140.                 NEXT ag
141.                 COLOR 7
142.             END IF
143.  
144.             IF g = 14 THEN
145.                 quat = quat + 1
146.                 COLOR 40
147.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Quatorze"
148.                 FOR ag = 1 TO 14
149.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
150.                 NEXT ag
151.                 COLOR 7
152.             END IF
153.  
154.             IF g = 15 THEN
155.                 COLOR 68
156.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Quinze"
157.                 FOR ag = 1 TO 15
158.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
159.                 NEXT ag
160.                 COLOR 7
161.             END IF
162.  
163.             g = 0
164.  
165.  
166.             LOCATE 18, 69: PRINT "k$ ASCII code "; K$ 'ASCII code
167.             LOCATE 20, 69: PRINT "k$ ASCII code "; ASC(K$) 'Shows ASCII code number
168.  
169.  
170.             COLOR 48
171.             LOCATE 8, 70: PRINT "N11:"; RIGHT$("000" + LTRIM$(STR$(onze)), 3); " - Vezes"
172.             COLOR 52
173.             LOCATE 10, 70: PRINT "N12:"; RIGHT$("000" + LTRIM$(STR$(doze)), 3); " - Vezes"
174.             COLOR 36
175.             LOCATE 12, 70: PRINT "N13:"; RIGHT$("000" + LTRIM$(STR$(trez)), 3); " - Vezes"
176.             COLOR 40
177.             LOCATE 14, 70: PRINT "N13:"; RIGHT$("000" + LTRIM$(STR$(quat)), 3); " - Vezes"
178.         NEXT
179.     ELSE
180.         BEEP
181.     END IF
182.     x$ = ""
183.     'Scrn$ = INKEY$
184. LOOP UNTIL Scrn$ = CHR$(27)
185.  
186.  
187. '--------------------------------------------------------------------------------
188.  
189. FUNCTION ExtendedInput$
190.     PCOPY 0, 1
191.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
192.     CP = 0: OldCP = 0 'Cursor Position
193.     _KEYCLEAR
194.     DO
195.         PCOPY 1, 0
196.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
197.         k = _KEYHIT
198.         IF AltDown THEN
199.             SELECT CASE k 'ignore all keypresses except ALT-number presses
200.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
201.             END SELECT
202.         ELSE
203.             SELECT CASE k 'without alt, add any keypresses to our input
204.                 CASE 8
205.                     oldin$ = in$
206.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
207.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
208.                 CASE 9
209.                     oldin$ = in$
210.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
211.                     OldCP = CP
212.                     CP = CP + 4
213.                 CASE 32 TO 128
214.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
215.                         IF k = 118 OR k = 86 THEN
216.                             oldin$ = in$
217.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
218.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
219.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
220.                             CP = CP + LEN(_CLIPBOARD$)
221.                         END IF
222.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
223.                     ELSE
224.                         oldin$ = in$
225.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
226.                         OldCP = CP
227.                         CP = CP + 1
228.                     END IF
229.                 CASE 18176 'Home
230.                     CP = 0
231.                 CASE 20224 'End
232.                     CP = LEN(in$)
233.                 CASE 21248 'Delete
234.                     oldin$ = in$
235.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
236.                 CASE 19200 'Left
237.                     CP = CP - 1
238.                     IF CP < 0 THEN CP = 0
239.                 CASE 19712 'Right
240.                     CP = CP + 1
241.                     IF CP > LEN(in$) THEN CP = LEN(in$)
242.             END SELECT
243.         END IF
244.         alt$ = RIGHT$(alt$, 3)
245.         IF AltWasDown = -1 AND AltDown = 0 THEN
246.             v = VAL(alt$)
247.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
248.             alt$ = "": AltWasDown = 0
249.         END IF
250.         blink = (blink + 1) MOD 30
251.         LOCATE Y, X
252.         PRINT LEFT$(in$, CP);
253.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
254.         PRINT MID$(in$, CP + 1)
255.  
256.         _DISPLAY
257.         _LIMIT 30
258.     LOOP UNTIL k = 13
259.  
260.     PCOPY 1, 0
261.     LOCATE Y, X: PRINT in$
262.     ExtendedInput$ = in$
263.     IF A THEN _AUTODISPLAY
264. END FUNCTION

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 04, 2021, 07:42:53 pm

Quote from: carloscordeiro on February 03, 2021, 07:20:27 pm

Quote

E, se as pessoas precisarem de algo mais adicionado a isso, fique à vontade para falar enquanto ainda estou em casa e ter alguns dias sem ter que cuidar da mãe. (O que dá a você os próximos 3 dias, ou mais, para fazer solicitações de acréscimos / alterações.)

Boa noite Sr. SMcNeill

Criei outro cenário para o seu código, o que me deixou muito feliz.

Nesse cenário, notei que o buffer do teclado possui o caractere “22”, além das 30 dezenas.

Ele está fazendo o loop dar duas voltas antes de parar.

Ele continua a ignorar a linha se h> 10 Então pare.

Imagem e código de exemplo.

Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6.  
7. _CONTROLCHR OFF
8. 'PRINT ExtendedInput$
9.  
10. LOCATE 2, 14: PRINT "_______________________________"
11. LOCATE 2, 3: PRINT "Dozens => ";
12. a$ = ExtendedInput$
13.  
14. h = 4
15. j = 2
16. K$ = INKEY$
17. DO
18.     FOR e = 1 TO 100
19.         h = h + 1
20.         IF h > 10 THEN
21.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
22.             DO
23.                 _LIMIT 30
24.             LOOP UNTIL INKEY$ = CHR$(13)
25.             h = 5: j = 25
26.         END IF
27.  
28.         FOR i = 1 TO 30 STEP 2
29.             x$ = x$ + MID$(a$, i, 2) + " "
30.         NEXT
31.  
32.         x$ = _TRIM$(x$)
33.  
34.         _LIMIT 60
35.  
36.         LOCATE h, j: PRINT "test"; e; " k$ = "; K$; ASC(K$)
37.     NEXT
38.     Scrn$ = INKEY$
39. LOOP UNTIL Scrn$ = CHR$(27)
40.  
41. END
42.  
43. FUNCTION ExtendedInput$
44.     PCOPY 0, 1
45.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
46.     CP = 0: OldCP = 0 'Cursor Position
47.     _KEYCLEAR
48.     DO
49.         PCOPY 1, 0
50.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
51.         k = _KEYHIT
52.         IF AltDown THEN
53.             SELECT CASE k 'ignore all keypresses except ALT-number presses
54.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
55.             END SELECT
56.         ELSE
57.             SELECT CASE k 'without alt, add any keypresses to our input
58.                 CASE 8
59.                     oldin$ = in$
60.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
61.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
62.                 CASE 9
63.                     oldin$ = in$
64.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
65.                     OldCP = CP
66.                     CP = CP + 4
67.                 CASE 32 TO 128
68.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
69.                         IF k = 118 OR k = 86 THEN
70.                             oldin$ = in$
71.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
72.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
73.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
74.                             CP = CP + LEN(_CLIPBOARD$)
75.                         END IF
76.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
77.                     ELSE
78.                         oldin$ = in$
79.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
80.                         OldCP = CP
81.                         CP = CP + 1
82.                     END IF
83.                 CASE 18176 'Home
84.                     CP = 0
85.                 CASE 20224 'End
86.                     CP = LEN(in$)
87.                 CASE 21248 'Delete
88.                     oldin$ = in$
89.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
90.                 CASE 19200 'Left
91.                     CP = CP - 1
92.                     IF CP < 0 THEN CP = 0
93.                 CASE 19712 'Right
94.                     CP = CP + 1
95.                     IF CP > LEN(in$) THEN CP = LEN(in$)
96.             END SELECT
97.         END IF
98.         alt$ = RIGHT$(alt$, 3)
99.         IF AltWasDown = -1 AND AltDown = 0 THEN
100.             v = VAL(alt$)
101.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
102.             alt$ = "": AltWasDown = 0
103.         END IF
104.         blink = (blink + 1) MOD 30
105.         LOCATE Y, X
106.         PRINT LEFT$(in$, CP);
107.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
108.         PRINT MID$(in$, CP + 1)
109.  
110.         _DISPLAY
111.         _LIMIT 30
112.     LOOP UNTIL k = 13
113.  
114.     PCOPY 1, 0
115.     LOCATE Y, X: PRINT in$
116.     ExtendedInput$ = in$
117.     IF A THEN _AUTODISPLAY
118. END FUNCTION
119.  
120.  
121.  

Hi Carlos,

I'm still here but this looks to me a note addressed to Steve, so I let it alone.
 

I thought you had things working or corrected with Steve's SUB version of ExtendedInput but in code from quote you are back to the earlier Function version???  That's the one takes a prompt.

Now I will review up to this post before the last and see what I can find out about this 22 thing.

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 04, 2021, 08:10:07 pm

Here is where the 22 is coming from but I haven't a clue what you are trying to do with this new code.

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6.  
7. _CONTROLCHR OFF
8. 'PRINT ExtendedInput$
9.  
10. LOCATE 2, 14: PRINT "_______________________________"
11. LOCATE 2, 3: PRINT "Dozens => ";
12. a$ = ExtendedInput$
13.  
14. h = 4
15. j = 2
16. 'K$ = INKEY$   '<<<<<<<<<<<<<<<<<<<<<<<<<< what is this for?
17. K$ = "Ola Mundo"  ' >>>> see how it effects your code?
18. DO
19.     FOR e = 1 TO 100
20.         h = h + 1
21.         IF h > 10 THEN
22.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
23.             DO
24.                 _LIMIT 30
25.             LOOP UNTIL INKEY$ = CHR$(13)
26.             h = 5: j = 25
27.         END IF
28.  
29.         FOR i = 1 TO 30 STEP 2
30.             x$ = x$ + MID$(a$, i, 2) + " "
31.         NEXT
32.  
33.         x$ = _TRIM$(x$)
34.  
35.         _LIMIT 60
36.  
37.         LOCATE h, j: PRINT "test"; e; " k$ = "; k$; ASC(k$)
38.     NEXT
39.     Scrn$ = INKEY$
40. LOOP UNTIL Scrn$ = CHR$(27)
41.  
42. END
43.  
44. FUNCTION ExtendedInput$
45.     PCOPY 0, 1
46.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
47.     CP = 0: OldCP = 0 'Cursor Position
48.     _KEYCLEAR
49.     DO
50.         PCOPY 1, 0
51.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
52.         k = _KEYHIT
53.         IF AltDown THEN
54.             SELECT CASE k 'ignore all keypresses except ALT-number presses
55.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
56.             END SELECT
57.         ELSE
58.             SELECT CASE k 'without alt, add any keypresses to our input
59.                 CASE 8
60.                     oldin$ = in$
61.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
62.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
63.                 CASE 9
64.                     oldin$ = in$
65.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
66.                     OldCP = CP
67.                     CP = CP + 4
68.                 CASE 32 TO 128
69.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
70.                         IF k = 118 OR k = 86 THEN
71.                             oldin$ = in$
72.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
73.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
74.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
75.                             CP = CP + LEN(_CLIPBOARD$)
76.                         END IF
77.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
78.                     ELSE
79.                         oldin$ = in$
80.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
81.                         OldCP = CP
82.                         CP = CP + 1
83.                     END IF
84.                 CASE 18176 'Home
85.                     CP = 0
86.                 CASE 20224 'End
87.                     CP = LEN(in$)
88.                 CASE 21248 'Delete
89.                     oldin$ = in$
90.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
91.                 CASE 19200 'Left
92.                     CP = CP - 1
93.                     IF CP < 0 THEN CP = 0
94.                 CASE 19712 'Right
95.                     CP = CP + 1
96.                     IF CP > LEN(in$) THEN CP = LEN(in$)
97.             END SELECT
98.         END IF
99.         alt$ = RIGHT$(alt$, 3)
100.         IF AltWasDown = -1 AND AltDown = 0 THEN
101.             v = VAL(alt$)
102.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
103.             alt$ = "": AltWasDown = 0
104.         END IF
105.         blink = (blink + 1) MOD 30
106.         LOCATE Y, X
107.         PRINT LEFT$(in$, CP);
108.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
109.         PRINT MID$(in$, CP + 1)
110.  
111.         _DISPLAY
112.         _LIMIT 30
113.     LOOP UNTIL k = 13
114.  
115.     PCOPY 1, 0
116.     LOCATE Y, X: PRINT in$
117.     ExtendedInput$ = in$
118.     IF A THEN _AUTODISPLAY
119. END FUNCTION
120.  

Why aren't you printing x$ or something that makes more sense? Why the repeating K$?

What's this suppose to look like when correct?

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 04, 2021, 09:00:27 pm

Quote

Hi Carlos,

I'm still here but this looks to me a note addressed to Steve, so I let it alone.
 .

Yes, it was addressed to Steve.
But I think I bothered him.
I didn't get an answer even though it was within the 3 days he gave.

I put the K $ to print the 22.

K $ is not part of the code

Bplus, see the complete code so as not to confuse you.

I will delete the k $. He will still skip line 78. IF h> 41 THEN stop.

The loop takes two turns before stopping.

Dezenas para testar
010204080910121314151617182023

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(700, 740, 256)
3. _DELAY .25
4. _SCREENMOVE 20, 30
5.  
6. 'Moldura...
7. LINE (0, 0)-(699, 739), 11, B 'Moldura inteira
8. LINE (1, 1)-(698, 738), 11, B
9. LINE (2, 2)-(697, 737), 11, B
10. LINE (3, 3)-(696, 736), 11, B
11. LINE (4, 4)-(695, 735), 11, B
12.  
13. LINE (699, 43)-(2, 43), 11, B 'Linha Horizontal
14. LINE (699, 44)-(2, 44), 11, B
15.  
16. LINE (536, 737)-(536, 44), 11, B 'Linha Vertical
17. LINE (535, 737)-(535, 44), 11, B
18.  
19. 'Mostra Data
20. d$ = MID$(DATE$, 1, 3)
21. c$ = MID$(DATE$, 4, 3)
22. e$ = MID$(DATE$, 7, 4)
23. f$ = c$ + d$ + e$
24.  
25. COLOR 11: LOCATE 2, 35: PRINT "* * * LOTOFACIL * * *"
26. LOCATE 2, 78: PRINT TIME$
27. LOCATE 2, 4: PRINT f$: COLOR 7
28.  
29. '------------------------------------------------------------------------
30. DIM cor1(80) AS _INTEGER64
31. DIM nt(1 TO 3000) AS STRING
32. DIM pesquisa AS LONG
33.  
34. _CONTROLCHR OFF
35.  
36. OPEN "loto.txt" FOR INPUT AS #1
37. pesquisa = LOF(1) \ 46
38. FOR t = 1 TO pesquisa
39.     LINE INPUT #1, nt$(t)
40. NEXT
41. CLOSE
42.  
43. COLOR 15: LOCATE 4, 3: PRINT "N" + CHR$(163); "meros de concursos =>"; pesquisa
44.  
45. DO
46.     COLOR 30
47.     'PRINT ExtendedInput$
48.     LOCATE 6, 14: PRINT "_______________________________"
49.     LOCATE 6, 3: PRINT "Dezenas => ";
50.     a$ = ExtendedInput$
51.  
52.     'K$ = INKEY$ ' ASCII code number
53.  
54.     FOR i = 1 TO 30 STEP 2
55.         x$ = x$ + MID$(a$, i, 2) + " "
56.     NEXT
57.     Pes$ = _TRIM$(x$)
58.  
59.     IF LEN(Pes$) = 44 THEN
60.         LOCATE 8, 3: PRINT "Dezenas => "; Pes$; " ="; LEN(Pes$)
61.         g = 0
62.         h = 9
63.         onze = 0
64.         doze = 0
65.         trez = 0
66.         quat = 0
67.  
68.         'COLOR 13: LOCATE 44, 3: PRINT "Digite [ S ] para SAIR..."
69.         ' COLOR 15
70.         'LOCATE 44, 34: PRINT "                                 "
71.         'LOCATE 6, 14: PRINT "____________________________________________"
72.         ' LOCATE 6, 3: INPUT "Dezenas => ", pes$
73.         'COLOR 13: LOCATE 44, 3: PRINT "                         "
74.  
75.         '---------------------------------------------------------------------------
76.  
77.         FOR rs = 1 TO pesquisa
78.             IF h > 41 THEN
79.                 COLOR 13: LOCATE 44, 34: PRINT "Pressione Enter para continuar..."
80.                 DO
81.                     _LIMIT 30
82.                 LOOP UNTIL INKEY$ = CHR$(13)
83.                 FOR S = 9 TO 43
84.                     LOCATE S, 2: PRINT "                                                                 "
85.                     LOCATE S, 70: PRINT "                "
86.                 NEXT S
87.                 h = 9
88.             END IF
89.             h = h + 1
90.             x = 3
91.             COLOR 15: LOCATE h, x: PRINT RIGHT$("0000" + LTRIM$(STR$(rs)), 4); " => "
92.  
93.             FOR i = 1 TO 44 STEP 3
94.                 x = x + 3
95.                 tt$ = MID$(nt$(rs), i, 2)
96.                 FOR r = 1 TO LEN(Pes$) STEP 3
97.                     O$ = MID$(Pes$, r, 2)
98.                     IF tt$ = O$ THEN
99.                         g = g + 1
100.                         cor1(g) = i
101.                         EXIT FOR
102.                     ELSE
103.                         COLOR 7: LOCATE h, x + 5: PRINT tt$
104.                     END IF
105.                 NEXT r
106.             NEXT i
107.  
108.             IF g <= 10 THEN
109.                 LOCATE h, 2: PRINT "                                                        "
110.                 h = h - 1
111.                 g = 0
112.             END IF
113.  
114.             IF g = 11 THEN
115.                 onze = onze + 1
116.                 COLOR 48
117.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Onze"
118.                 FOR ag = 1 TO 11
119.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
120.                 NEXT ag
121.                 COLOR 7
122.             END IF
123.  
124.             IF g = 12 THEN
125.                 doze = doze + 1
126.                 COLOR 52
127.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Doze"
128.                 FOR ag = 1 TO 12
129.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
130.                 NEXT ag
131.                 COLOR 7
132.             END IF
133.  
134.             IF g = 13 THEN
135.                 trez = trez + 1
136.                 COLOR 36
137.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Treze"
138.                 FOR ag = 1 TO 13
139.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
140.                 NEXT ag
141.                 COLOR 7
142.             END IF
143.  
144.             IF g = 14 THEN
145.                 quat = quat + 1
146.                 COLOR 40
147.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Quatorze"
148.                 FOR ag = 1 TO 14
149.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
150.                 NEXT ag
151.                 COLOR 7
152.             END IF
153.  
154.             IF g = 15 THEN
155.                 COLOR 68
156.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Quinze"
157.                 FOR ag = 1 TO 15
158.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
159.                 NEXT ag
160.                 COLOR 7
161.             END IF
162.  
163.             g = 0
164.  
165.  
166.             'LOCATE 18, 69: PRINT "k$ ASCII code "; K$ 'ASCII code
167.             ' LOCATE 20, 69: PRINT "k$ ASCII code "; ASC(K$) 'Shows ASCII code number
168.  
169.  
170.             COLOR 48
171.             LOCATE 8, 70: PRINT "N11:"; RIGHT$("000" + LTRIM$(STR$(onze)), 3); " - Vezes"
172.             COLOR 52
173.             LOCATE 10, 70: PRINT "N12:"; RIGHT$("000" + LTRIM$(STR$(doze)), 3); " - Vezes"
174.             COLOR 36
175.             LOCATE 12, 70: PRINT "N13:"; RIGHT$("000" + LTRIM$(STR$(trez)), 3); " - Vezes"
176.             COLOR 40
177.             LOCATE 14, 70: PRINT "N13:"; RIGHT$("000" + LTRIM$(STR$(quat)), 3); " - Vezes"
178.         NEXT
179.     ELSE
180.         BEEP
181.     END IF
182.     x$ = ""
183.     Scrn$ = INKEY$
184. LOOP UNTIL Scrn$ = CHR$(27)
185.  
186.  
187. '--------------------------------------------------------------------------------
188.  
189. FUNCTION ExtendedInput$
190.     PCOPY 0, 1
191.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
192.     CP = 0: OldCP = 0 'Cursor Position
193.     _KEYCLEAR
194.     DO
195.         PCOPY 1, 0
196.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
197.         k = _KEYHIT
198.         IF AltDown THEN
199.             SELECT CASE k 'ignore all keypresses except ALT-number presses
200.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
201.             END SELECT
202.         ELSE
203.             SELECT CASE k 'without alt, add any keypresses to our input
204.                 CASE 8
205.                     oldin$ = in$
206.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
207.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
208.                 CASE 9
209.                     oldin$ = in$
210.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
211.                     OldCP = CP
212.                     CP = CP + 4
213.                 CASE 32 TO 128
214.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
215.                         IF k = 118 OR k = 86 THEN
216.                             oldin$ = in$
217.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
218.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
219.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
220.                             CP = CP + LEN(_CLIPBOARD$)
221.                         END IF
222.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
223.                     ELSE
224.                         oldin$ = in$
225.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
226.                         OldCP = CP
227.                         CP = CP + 1
228.                     END IF
229.                 CASE 18176 'Home
230.                     CP = 0
231.                 CASE 20224 'End
232.                     CP = LEN(in$)
233.                 CASE 21248 'Delete
234.                     oldin$ = in$
235.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
236.                 CASE 19200 'Left
237.                     CP = CP - 1
238.                     IF CP < 0 THEN CP = 0
239.                 CASE 19712 'Right
240.                     CP = CP + 1
241.                     IF CP > LEN(in$) THEN CP = LEN(in$)
242.             END SELECT
243.         END IF
244.         alt$ = RIGHT$(alt$, 3)
245.         IF AltWasDown = -1 AND AltDown = 0 THEN
246.             v = VAL(alt$)
247.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
248.             alt$ = "": AltWasDown = 0
249.         END IF
250.         blink = (blink + 1) MOD 30
251.         LOCATE Y, X
252.         PRINT LEFT$(in$, CP);
253.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
254.         PRINT MID$(in$, CP + 1)
255.  
256.         _DISPLAY
257.         _LIMIT 30
258.     LOOP UNTIL k = 13
259.  
260.     PCOPY 1, 0
261.     LOCATE Y, X: PRINT in$
262.     ExtendedInput$ = in$
263.     IF A THEN _AUTODISPLAY
264. END FUNCTION

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 04, 2021, 09:35:14 pm

Try h > 40

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 04, 2021, 10:19:35 pm

First, and most obvious question to ask, is it a CHR$ that you’re copying when you copy the contents into the clipboard?  Check length of  _clipboard$ And only take the LEFT$(_CLIPBOARD$,desired_number_of_digits) and see if that gets rid of any stray, extra input.

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 04, 2021, 11:08:38 pm

Quote

Verifique o comprimento do _clipboard $ E apenas pegue o LEFT $ (_ CLIPBOARD $, needed_number_of_digits) e veja se isso se livra de qualquer entrada extra perdida.

Good evening, Mr. SMcNeill.

This is exactly what may be happening

This time I'm taking great care not to confuse you.

I didn't enter my code, just leave the space for the 30 digits.

I did what you asked for, but always keep the character 22 which I don't know where it is being copied from.

 typed the 30 tens, no extra lost characters.

Only when I copy.

I followed your suggestion with an image.

010203050708091112141516212325

Thank you for responding.

Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6. _CONTROLCHR OFF
7. 'PRINT ExtendedInput$
8.  
9. LOCATE 2, 14: PRINT "_______________________________"
10. LOCATE 2, 3: PRINT "Dozens => ";
11. a$ = ExtendedInput$
12.  
13. PRINT
14. K$ = INKEY$
15.  
16. PRINT
17. PRINT LEN(_CLIPBOARD$)
18.  
19.  
20.  
21. PRINT
22. PRINT LEFT$(_CLIPBOARD$, 30)
23.  
24.  
25. PRINT
26. PRINT K$
27.  
28. PRINT
29. PRINT ASC(K$)
30.  
31. END
32.  
33.  
34. FUNCTION ExtendedInput$
35.     PCOPY 0, 1
36.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
37.     CP = 0: OldCP = 0 'Cursor Position
38.     _KEYCLEAR
39.     DO
40.         PCOPY 1, 0
41.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
42.         k = _KEYHIT
43.         IF AltDown THEN
44.             SELECT CASE k 'ignore all keypresses except ALT-number presses
45.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
46.             END SELECT
47.         ELSE
48.             SELECT CASE k 'without alt, add any keypresses to our input
49.                 CASE 8
50.                     oldin$ = in$
51.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
52.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
53.                 CASE 9
54.                     oldin$ = in$
55.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
56.                     OldCP = CP
57.                     CP = CP + 4
58.                 CASE 32 TO 128
59.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
60.                         IF k = 118 OR k = 86 THEN
61.                             oldin$ = in$
62.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
63.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
64.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
65.                             CP = CP + LEN(_CLIPBOARD$)
66.                         END IF
67.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
68.                     ELSE
69.                         oldin$ = in$
70.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
71.                         OldCP = CP
72.                         CP = CP + 1
73.                     END IF
74.                 CASE 18176 'Home
75.                     CP = 0
76.                 CASE 20224 'End
77.                     CP = LEN(in$)
78.                 CASE 21248 'Delete
79.                     oldin$ = in$
80.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
81.                 CASE 19200 'Left
82.                     CP = CP - 1
83.                     IF CP < 0 THEN CP = 0
84.                 CASE 19712 'Right
85.                     CP = CP + 1
86.                     IF CP > LEN(in$) THEN CP = LEN(in$)
87.             END SELECT
88.         END IF
89.         alt$ = RIGHT$(alt$, 3)
90.         IF AltWasDown = -1 AND AltDown = 0 THEN
91.             v = VAL(alt$)
92.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
93.             alt$ = "": AltWasDown = 0
94.         END IF
95.         blink = (blink + 1) MOD 30
96.         LOCATE Y, X
97.         PRINT LEFT$(in$, CP);
98.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
99.         PRINT MID$(in$, CP + 1)
100.  
101.         _DISPLAY
102.         _LIMIT 30
103.     LOOP UNTIL k = 13
104.  
105.     PCOPY 1, 0
106.     LOCATE Y, X: PRINT in$
107.     ExtendedInput$ = in$
108.     IF A THEN _AUTODISPLAY
109. END FUNCTION

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 04, 2021, 11:28:20 pm

Well I know where 22 is coming from :) I showed.

Why line 14 and why all the printing of K$ ?  22 is coming from INKEY$ you can clear INKEY$ if you want with _KEYCLEAR but then ASC(K$) will error.

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 05, 2021, 05:17:58 pm

Quote

Why line 14 and why all the printing of K$ ?  22 is coming from INKEY$ you can clear INKEY$ if you want with _KEYCLEAR but then ASC(K$) will error.

The K $ impression is sybolic.

just to show the reason for the Loop to go twice.

_KEYCLEAR solved the problem of the intrusive ASCII code 22.

I didn't want to give up on Mr. SMcNeill's wonderful code.

Thanks again Bplus.

Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6.  
7. _CONTROLCHR OFF
8. 'PRINT ExtendedInput$
9.  
10. LOCATE 2, 14: PRINT "_______________________________"
11. LOCATE 2, 3: PRINT "Dozens => ";
12. a$ = ExtendedInput$
13.  
14. _KEYCLEAR '_KEYCLEAR solved the problem of the intrusive ASCII code 22.
15.  
16. h = 4
17. j = 2
18. K$ = INKEY$
19. DO
20.     FOR e = 1 TO 100
21.         h = h + 1
22.         IF h > 10 THEN
23.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
24.             DO
25.                 _LIMIT 30
26.             LOOP UNTIL INKEY$ = CHR$(13)
27.             h = 5: j = j + 20
28.         END IF
29.         FOR i = 1 TO 30 STEP 2
30.             x$ = x$ + MID$(a$, i, 2) + " "
31.         NEXT
32.         x$ = _TRIM$(x$)
33.         _LIMIT 60
34.         LOCATE h, j: PRINT e; "_KEYCLEAR" ' ASC(K$)
35.     NEXT
36.     Scrn$ = INKEY$
37. LOOP UNTIL Scrn$ = CHR$(27)
38.  
39. END
40.  
41. FUNCTION ExtendedInput$
42.     PCOPY 0, 1
43.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
44.     CP = 0: OldCP = 0 'Cursor Position
45.     _KEYCLEAR
46.     DO
47.         PCOPY 1, 0
48.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
49.         k = _KEYHIT
50.         IF AltDown THEN
51.             SELECT CASE k 'ignore all keypresses except ALT-number presses
52.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
53.             END SELECT
54.         ELSE
55.             SELECT CASE k 'without alt, add any keypresses to our input
56.                 CASE 8
57.                     oldin$ = in$
58.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
59.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
60.                 CASE 9
61.                     oldin$ = in$
62.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
63.                     OldCP = CP
64.                     CP = CP + 4
65.                 CASE 32 TO 128
66.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
67.                         IF k = 118 OR k = 86 THEN
68.                             oldin$ = in$
69.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
70.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
71.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
72.                             CP = CP + LEN(_CLIPBOARD$)
73.                         END IF
74.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
75.                     ELSE
76.                         oldin$ = in$
77.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
78.                         OldCP = CP
79.                         CP = CP + 1
80.                     END IF
81.                 CASE 18176 'Home
82.                     CP = 0
83.                 CASE 20224 'End
84.                     CP = LEN(in$)
85.                 CASE 21248 'Delete
86.                     oldin$ = in$
87.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
88.                 CASE 19200 'Left
89.                     CP = CP - 1
90.                     IF CP < 0 THEN CP = 0
91.                 CASE 19712 'Right
92.                     CP = CP + 1
93.                     IF CP > LEN(in$) THEN CP = LEN(in$)
94.             END SELECT
95.         END IF
96.         alt$ = RIGHT$(alt$, 3)
97.         IF AltWasDown = -1 AND AltDown = 0 THEN
98.             v = VAL(alt$)
99.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
100.             alt$ = "": AltWasDown = 0
101.         END IF
102.         blink = (blink + 1) MOD 30
103.         LOCATE Y, X
104.         PRINT LEFT$(in$, CP);
105.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
106.         PRINT MID$(in$, CP + 1)
107.  
108.         _DISPLAY
109.         _LIMIT 30
110.     LOOP UNTIL k = 13
111.  
112.     PCOPY 1, 0
113.     LOCATE Y, X: PRINT in$
114.     ExtendedInput$ = in$
115.     IF A THEN _AUTODISPLAY
116. END FUNCTION

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 05, 2021, 07:43:08 pm

Quote

First, and most obvious question to ask, is it a CHR$ that you’re copying when you copy the contents into the clipboard?  Check length of  _clipboard$ And only take the LEFT$(_CLIPBOARD$,desired_number_of_digits) and see if that gets rid of any stray, extra input.

I understand now, Mr. SMcNeill.

I'm copying CHR $ from "Ctrl + V"

After searching the wiki, I found out what you meant.

According to the attached table

_KEYCLEAR solved CHR $.

however, it left me without CH $ (27) to leave.

Sc $ = INKEY $
LOOP UNTIL Sc $ = CHR $ (27) "press to exit"

As I understand it, the "LEFT $ (_ CLIPBOARD $, needed_number_of_digits)".

It would be here. "in $ = LEFT $ (in $, CP) + LEFT $ (_ CLIPBOARD $, 30) + MID $ (in $, CP + 1)"?

Mr. SMcNeill. how to eliminate CHR $ (22)?

I would very much like you to respond.

I believe I am at the limit of 3 days

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 05, 2021, 07:50:31 pm

Carlos man! you are pointing exactly where 22 is coming from!

That is what you press to copy / paste the clipboard!

That gets stuck in INKEY$ buffer and use _KEYCLEAR to remove it.

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 05, 2021, 07:56:53 pm

Quote

Carlos man! you are pointing exactly where 22 is coming from!

That is what you press to copy / paste the clipboard!

That gets stuck in INKEY$ buffer and use _KEYCLEAR to remove it.

I added _KEYCLEAR Bplus,

however, that left me without CH $ (27) to leave.

Sc $ = INKEY $
LOOP UNTIL Sc $ = CHR $ (27) "press to exit"

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 05, 2021, 07:58:30 pm

Quote from: carloscordeiro on February 05, 2021, 07:56:53 pm

I added _KEYCLEAR Bplus,

however, that left me without CH $ (27) to leave.

Sc $ = INKEY $
LOOP UNTIL Sc $ = CHR $ (27) "press to exit"

Use

Code: QB64: [Select]

1. Loop Until _Keydown(27)  ' then don't need INKEY$

Steve might tuck _Keyclear into his ExtendedInput Sub or Function. ;-)) or Carlos could :)

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 05, 2021, 08:11:50 pm

ExtendedInput has nothing to do with you being stuck in the loop, and neither does the CHR$(22).

That 22 is coming from you hitting CTRL-V, with INKEY$.  The ExtendedInput uses _KEYHIT exclusively and doesn't touch INKEY$ at all, so all those keypresses you type when using KEYHIT are still stored in the INKEY$ buffer -- which in this case is CHR$(22) or CTRL-V...

_KEYCLEAR clears those buffers, and eliminates that problem completely, but, as  you can see from the below, you're still stuck in an endless loop which you can't break out of:

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3.  
4. DO
5.     FOR e = 1 TO 100
6.         h = h + 1
7.         IF h > 10 THEN
8.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
9.             DO
10.                 _LIMIT 30
11.             LOOP UNTIL INKEY$ = CHR$(13)
12.             h = 5: j = j + 20
13.         END IF
14.         FOR i = 1 TO 30 STEP 2
15.             x$ = x$ + MID$(a$, i, 2) + " "
16.         NEXT
17.         x$ = _TRIM$(x$)
18.         _LIMIT 60
19.         LOCATE h, j: PRINT e; "_KEYCLEAR" ' ASC(K$)
20.     NEXT
21.     Scrn$ = INKEY$
22. LOOP UNTIL Scrn$ = CHR$(27)
23.  
24.  

Now the reason for this is really rather simple -- you're clearing your INKEY$ buffer here:

Code: [Select]

            DO
                _LIMIT 30
            LOOP UNTIL INKEY$ = CHR$(13)
So it's going to be impossible for that buffer to key any keypresses to read here:

Code: [Select]

    Scrn$ = INKEY$ 

---

Now, I don't know what you're trying to do with your example here, but that's the issue -- one INKEY$ call clearing the buffer so the other one can only read a blank nothing.

As bplus suggests, swap over to something independent to INKEY$ as your exit, or do something like this:

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3.  
4. j = 1
5. DO
6.     FOR e = 1 TO 100
7.         h = h + 1
8.         IF h > 10 THEN
9.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
10.             DO
11.                 _LIMIT 30
12.                 Scrn$ = INKEY$
13.                 IF Scrn$ = CHR$(27) THEN GOTO outside_loop
14.             LOOP UNTIL Scrn$ = CHR$(13)
15.             h = 5: j = j + 20
16.         END IF
17.         FOR i = 1 TO 30 STEP 2
18.             x$ = x$ + MID$(a$, i, 2) + " "
19.         NEXT
20.         x$ = _TRIM$(x$)
21.         _LIMIT 60
22.         LOCATE h, j: PRINT e; "_KEYCLEAR" ' ASC(K$)
23.     NEXT
24.     Scrn$ = INKEY$
25. LOOP UNTIL Scrn$ = CHR$(27)
26.  
27. outside_loop:
28. PRINT "I'm free!  I'm free!  I'm outta those loops!"
29.  

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 05, 2021, 08:15:59 pm

Steve recheck your line #24 & #25

I meant

Code: QB64: [Select]

1. Loop Until _Keydown(27)  'you don't need INKEY$
2.  

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 05, 2021, 08:21:57 pm

Quote

ou Carlos poderia :)

you are very funny, Bplus

the Loop until _Keydown (27) didn't work.

The code I'm using with your extended entry code

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 05, 2021, 08:26:02 pm

Quote from: carloscordeiro on February 05, 2021, 08:21:57 pm

you are very funny, Bplus

the Loop until _Keydown (27) didn't work.

It's not working as it can't be triggered while within the INKEY$ loop...  You have to clear the INKEY$ loop and then hit 27 in the millisecond where you're between falling into it again.

You have to put your exit condition inside that central loop, if ENTER is going to be your only way to stop that manual pause.

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 05, 2021, 08:29:23 pm

Okay, I'll try again tomorrow.

Thank you for answering Mr. SMcNeill. Thank you Bplus.

Tomorrow I'll be back again :)

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 05, 2021, 09:13:52 pm

Sorry Carlos I should have checked with a run, I am not quite understanding why that change wouldn't have worked. I have to look it over again.

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 05, 2021, 09:23:23 pm

Quote from: bplus on February 05, 2021, 09:13:52 pm

Sorry Carlos I should have checked with a run, I am not quite understanding why that change wouldn't have worked. I have to look it over again.

You dont have time between loops to press ESC, before you’re stuck in the “Waiting for ENTER” loop.  That inner loop is trapping everything.

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 05, 2021, 09:27:53 pm

What if we stick a _Limit in there and give the CPU fan a break?

I've yet to run the dang thing! :(

Title: Re: Mr. McNeill's extended entrance
Post by: SMcNeill on February 05, 2021, 09:46:40 pm

It’s like this:


DO
    DO
         _LIMIT 30
    LOOP UNTIL INKEY$ = CHR$(13)
LOOP UNTIL _KEYDOWN(27)


You’d have to hold ESC while pressing ENTER to avoid falling directly back into that inner loop.

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 05, 2021, 09:54:26 pm

It's rigged to do 100 repeated things before even exiting and checking the outside loop,

_Keydown works just fine AFTER 100 silly loops! (press enter 100 x's now we finally check if escape pressed!)

Try this for an inner loop of 100 times:

Code: QB64: [Select]

1.  
2. _Title "Qbasic 64"
3. Screen _NewImage(600, 600, 256)
4. _Delay .25
5. _ScreenMove 50, 50
6.  
7.  
8. _ControlChr Off
9. 'PRINT ExtendedInput$
10.  
11. Locate 2, 14: Print "_______________________________"
12. Locate 2, 3: Print "Dozens => ";
13. a$ = ExtendedInput$
14.  
15. _KeyClear '_KEYCLEAR solved the problem of the intrusive ASCII code 22.
16.  
17. h = 4
18. j = 2
19. K$ = InKey$
20. Do
21.     e = 0
22.     While _KeyDown(27) = 0
23.         e = e + 1
24.         If e > 100 Then Exit While
25.         h = h + 1
26.         If h > 10 Then
27.             Color 30: Locate 30, 3: Print "Press Enter to continue ..."
28.             Do
29.                 _Limit 30
30.             Loop Until InKey$ = Chr$(13)
31.             h = 5: j = j + 20
32.         End If
33.         For i = 1 To 30 Step 2
34.             x$ = x$ + Mid$(a$, i, 2) + " "
35.         Next
36.         x$ = _Trim$(x$)
37.         _Limit 60
38.         Locate h, j: Print e; "_KEYCLEAR" ' ASC(K$)
39.     Wend
40. Loop Until _KeyDown(27)
41.  
42. End
43.  
44. Function ExtendedInput$
45.     PCopy 0, 1
46.     A = _AutoDisplay: X = Pos(0): Y = CsrLin
47.     CP = 0: OldCP = 0 'Cursor Position
48.     _KeyClear
49.     Do
50.         PCopy 1, 0
51.         If _KeyDown(100307) Or _KeyDown(100308) Then AltDown = -1 Else AltDown = 0
52.         k = _KeyHit
53.         If AltDown Then
54.             Select Case k 'ignore all keypresses except ALT-number presses
55.                 Case 48 TO 57: AltWasDown = -1: alt$ = alt$ + Chr$(k)
56.             End Select
57.         Else
58.             Select Case k 'without alt, add any keypresses to our input
59.                 Case 8
60.                     oldin$ = in$
61.                     If CP > 0 Then OldCP = CP: CP = CP - 1
62.                     in$ = Left$(in$, CP) + Mid$(in$, CP + 2) 'backspace to erase input
63.                 Case 9
64.                     oldin$ = in$
65.                     in$ = Left$(in$, CP) + Space$(4) + Mid$(in$, CP + 1) 'four spaces for any TAB entered
66.                     OldCP = CP
67.                     CP = CP + 4
68.                 Case 32 TO 128
69.                     If _KeyDown(100305) Or _KeyDown(100306) Then
70.                         If k = 118 Or k = 86 Then
71.                             oldin$ = in$
72.                             in$ = Left$(in$, CP) + _Clipboard$ + Mid$(in$, CP + 1) 'ctrl-v paste
73.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
74.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
75.                             CP = CP + Len(_Clipboard$)
76.                         End If
77.                         If k = 122 Or k = 90 Then Swap in$, oldin$: Swap OldCP, CP 'ctrl-z undo
78.                     Else
79.                         oldin$ = in$
80.                         in$ = Left$(in$, CP) + Chr$(k) + Mid$(in$, CP + 1) 'add input to our string
81.                         OldCP = CP
82.                         CP = CP + 1
83.                     End If
84.                 Case 18176 'Home
85.                     CP = 0
86.                 Case 20224 'End
87.                     CP = Len(in$)
88.                 Case 21248 'Delete
89.                     oldin$ = in$
90.                     in$ = Left$(in$, CP) + Mid$(in$, CP + 2)
91.                 Case 19200 'Left
92.                     CP = CP - 1
93.                     If CP < 0 Then CP = 0
94.                 Case 19712 'Right
95.                     CP = CP + 1
96.                     If CP > Len(in$) Then CP = Len(in$)
97.             End Select
98.         End If
99.         alt$ = Right$(alt$, 3)
100.         If AltWasDown = -1 And AltDown = 0 Then
101.             v = Val(alt$)
102.             If v >= 0 And v <= 255 Then in$ = in$ + Chr$(v)
103.             alt$ = "": AltWasDown = 0
104.         End If
105.         blink = (blink + 1) Mod 30
106.         Locate Y, X
107.         Print Left$(in$, CP);
108.         If blink \ 15 Then Print " "; Else Print "_";
109.         Print Mid$(in$, CP + 1)
110.  
111.         _Display
112.         _Limit 30
113.     Loop Until k = 13
114.  
115.     PCopy 1, 0
116.     Locate Y, X: Print in$
117.     ExtendedInput$ = in$
118.     If A Then _AutoDisplay
119. End Function
120.  
121.  

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 06, 2021, 07:01:03 pm

Mr. SMcNeill and Bplux

Since the beginning of this post, I was confused.

Asking me why chr $ (22) interferes in:

  OF
                _LIMIT 30
             LOOP UNTIL INKEY $ = CHR $ (13)

Today I found out that chr $ (22) is not the real problem with the loop going two laps before stopping.

The keyboard buffer also holds CHR $ (13).

This is what causes the loop to start, without me pressing the Enter key.

See image

Wouldn't it be better to clean only the CR $ (13)?

Quote

It's rigged to do 100 repeated things before even exiting and checking the outside loop,

_Keydown works just fine AFTER 100 silly loops! (press enter 100 x's now we finally check if escape pressed!)

Try this for an inner loop of 100 times:

Bplus, perform very well by holding the ESC key while pressing ENTER

A única solução que encontrei para limpar o buffer.

Repita o:
DO
                  _LIMIT 30
               LOOP ATÉ INKEY $ = CHR $ (13)

para limpar o CR $ (13).

Carlos

Title: Re: Mr. McNeill's extended entrance
Post by: bplus on February 06, 2021, 09:10:29 pm

Glad you have it worked out Carlos, beats me what you were up to!  :)

Title: Re: Mr. McNeill's extended entrance
Post by: NOVARSEG on February 06, 2021, 10:22:46 pm

carloscordeiro

Quote

'IF h > 41 THEN
COLOR 13: LOCATE 44, 34: PRINT "Pressione Enter para continuar..."

DO
    IF INKEY$ = "" THEN EXIT DO
LOOP

DO
    _LIMIT 30
LOOP UNTIL INKEY$ = CHR$(13)

Title: Re: Mr. McNeill's extended entrance
Post by: carloscordeiro on February 07, 2021, 05:06:34 pm

Quote

'IF h > 41 THEN
COLOR 13: LOCATE 44, 34: PRINT "Pressione Enter para continuar..."

DO
    IF INKEY$ = "" THEN EXIT DO
LOOP

DO
    _LIMIT 30
LOOP UNTIL INKEY$ = CHR$(13)

NOVARSEG so I will have to press the enter key twice. Thanks for another suggestion.

Quote

Glad you have it worked out Carlos, beats me what you were up to!  :)

I thought it would solve Bplus, not this time.

What I did was move the _KeyClear that you showed in your last example.

Dentro:

Code: QB64: [Select]

1.     COLOR 30
2.     'PRINT ExtendedInput$
3.     LOCATE 6, 14: PRINT "_______________________________"
4.     LOCATE 6, 3: PRINT "Dezenas => ";
5.     a$ = ExtendedInput$
6.  
7.     ' _KEYCLEAR
8.  
9.     FOR i = 1 TO 30 STEP 2
10.         x$ = x$ + MID$(a$, i, 2) + " "
11.     NEXT

For:

Code: QB64: [Select]

1.         FOR rs = 1 TO pesquisa
2.             IF h > 41 THEN
3.                 _KEYCLEAR
4.                 COLOR 13: LOCATE 44, 34: PRINT "Pressione Enter para continuar..."
5.                 DO
6.                     _LIMIT 30
7.                 LOOP UNTIL INKEY$ = CHR$(13)

So far everything is fine.

Thank you all, for all the suggestions and encouragement.

I keep learning here, in this forum.

Carlos

Text Only | Text with Attachments