Mr. McNeill's extended entrance

[carloscordeiro]

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]

[bplus]

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.

[SMcNeill]

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.  :)

[carloscordeiro]

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

[bplus]

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?

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

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!

[carloscordeiro]

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

[carloscordeiro]

"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

[SMcNeill]

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 $

[bplus]

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

[carloscordeiro]

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

[bplus]

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.

[carloscordeiro]

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

[bplus]

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.

[FellippeHeitor]

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!

[bplus]

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.