Mr. McNeill's extended entrance

[SMcNeill]

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.

[carloscordeiro]

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

[_vince]

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

Mr. McNeill's is the gold standard for QB64

[carloscordeiro]

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.

[SMcNeill]

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$)

[bplus]

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 ;-))

[SMcNeill]

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)

[carloscordeiro]

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

[carloscordeiro]

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.

[bplus]

Well now I know what language to translate from:

[carloscordeiro]

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 $)?

Well now I know what language to translate from:

[bplus]

All right, I added line 121

Okey

[carloscordeiro]

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.  

[carloscordeiro]

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

[bplus]

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.