Mr. McNeill's extended entrance

[carloscordeiro]

Okay, I'll try again tomorrow.

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

Tomorrow I'll be back again :)

Carlos

[bplus]

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.

[SMcNeill]

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.

[bplus]

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

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

[SMcNeill]

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.

[bplus]

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.  

[carloscordeiro]

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

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

[bplus]

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

[NOVARSEG]

carloscordeiro

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

[carloscordeiro]

'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.

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