Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: bartok on June 11, 2021, 02:42:41 am

Title: How to leave an input line.
Post by: bartok on June 11, 2021, 02:42:41 am
I have a problem. My program (I have attached an image as example) is almost finished, but at the moment is a flow. I have to introduce the possibility to navigate through it and then write the results to files.

The problem is this.
The program at the start asks some input:

1) Enter input 1:      B
2) Enter input 2:      B
3) Enter input 3:      C
4) Enter input 4:      _


Suppose that the program is now asking input 4 and that we have just realized that input 1 is wrong, because is not B, but A.

I want to do this: just pressing up arrow (without enter), the program must leaves the input line corresponding to input 4 and go up, to line asking input 3, and so on (possibly preserving input 2 and 3).
Title: Re: How to leave an input line.
Post by: euklides on June 11, 2021, 05:39:17 am

Not very elegant, but for example you could imagine something like that:


1000 Input "blabla A (or -1 to cancel)", a1$: If a1$ = "-1" Then Stop
1001 Input "blabla B (or -1 -> asking A)", b1$: If b1$ = "-1" Then GoTo 1000
1002 Input "blabla C (or -1 -> asking B)", c1$: If c1$ = "-1" Then GoTo 1001
1003 Input "blabla D (or -1 -> asking C)", d1$: If d1$ = "-1" Then GoTo 1002
Title: Re: How to leave an input line.
Post by: bplus on June 11, 2021, 09:28:42 am
EDIT missed this part:
Quote
I want to do this: just pressing up arrow (without enter), the program must leaves the input line corresponding to input 4 and go up, to line asking input 3, and so on (possibly preserving input 2 and 3).
Title: Re: How to leave an input line.
Post by: bplus on June 11, 2021, 11:36:33 am
EDIT missed this part:
Quote
I want to do this: just pressing up arrow (without enter), the program must leaves the input line corresponding to input 4 and go up, to line asking input 3, and so on (possibly preserving input 2 and 3).
Title: Re: How to leave an input line.
Post by: bplus on June 11, 2021, 11:54:21 am
EDIT missed this part:
Quote
I want to do this: just pressing up arrow (without enter), the program must leaves the input line corresponding to input 4 and go up, to line asking input 3, and so on (possibly preserving input 2 and 3).
Title: Re: How to leave an input line.
Post by: SMcNeill on June 11, 2021, 12:57:07 pm
Terry Ritchie’s GLInput Library does what you’re looking for, and is well documented, if you have a copy of it.
Title: Re: How to leave an input line.
Post by: NOVARSEG on June 11, 2021, 09:58:52 pm
@bartok


Here is a basic program that shows what you want. It takes a lot more coding to make it work properly.


Code: QB64: [Select]
  1. DIM msg(1) AS STRING
  4.  
  5. msg(0) = "Enter name "
  6. msg(1) = "Enter date "
  7.  
  8. LL1:
  9. FOR X = 0 TO 1
  10.     IF INKEY$ = CHR$(27) THEN END
  11.     LOCATE 10 + X, 2 + LEN(msg(X)): PRINT SPACE$(10)
  12.     LOCATE 10 + X, 2: PRINT msg(X);: INPUT S(X)
  13.  
  15.  
  17.     i$ = INKEY$
  18.     IF i$ = CHR$(27) THEN END
  19.     IF i$ = CHR$(13) THEN GOTO LL1
  21.  

Title: Re: How to leave an input line.
Post by: Cobalt on June 11, 2021, 10:23:10 pm
A custom input routine would probably be your best bet for that kind of flexibility.
Based around a DO:LOOP structure without GOTO. It will take me a bit to write you up an example but if your willing to wait.....
Title: Re: How to leave an input line.
Post by: Cobalt on June 11, 2021, 11:59:49 pm
Not super refined but is something like this what you want?

Code: QB64: [Select]
  1. 'Editable input example
  2. 'lets start with some base constants
  3. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
  4. CONST TRUE = -1, FALSE = NOT TRUE
  5.  
  6. DIM Inputs(10) AS STRING 'for this example we will allow up to 10 inputs
  7.  
  8. 'some prep work
  9. Opt%% = 1 'start on the first input line
  10.  
  11. 'start our loop up
  13.  KBD& = _KEYHIT 'keyboard input
  14.  IF KBD& < 0 THEN KBD& = 0 'negate any negative keyhit values
  15.  FOR I%% = 1 TO 10 'loop through all our input options
  16.   'double space the input lines for readability
  17.   LOCATE I%% * 2, 1: PRINT "INPUT VALUE #"; I%%; "  -"; Inputs(I%%);
  18.   'print a "cursor" to show which input user is on, use space$ to clear other lines
  19.   IF I%% = Opt%% THEN PRINT CHR$(176) ELSE PRINT SPACE$(2)
  20.  NEXT I%%
  21.  
  22.  'let us process which line the user is inputing
  23.  SELECT CASE KBD&
  24.   CASE 13 'enter to accept inputs
  25.    ExitFlag%% = TRUE
  26.   CASE 8 'backspace to clear this input
  27.    Inputs(Opt%%) = ""
  28.   CASE Key_Up
  29.    Opt%% = Opt%% - 1
  30.    'for this example we will stop on 1, we could always cycle to 10 though
  31.    IF Opt%% = 0 THEN Opt%% = 1
  32.   CASE Key_Down
  33.    Opt%% = Opt%% + 1
  34.    'we will cap off at 10, though we could cycle back to 1
  35.    IF Opt%% = 11 THEN Opt%% = 10
  36.   CASE 32 TO 122
  37.    'now we are only going to allow 1 character inputs for this example
  38.    Inputs(Opt%%) = CHR$(KBD&)
  39.   CASE NOT 0 ' any other input(0 is no input)
  40.    BEEP 'invalid input
  42.  '-----------------------------------------------
  43.  
  44.  _LIMIT 30 'up date 30times a sec to save CPU use
  45.  IF KBD& = 27 THEN ExitFlag%% = TRUE 'exit this example
  46. LOOP UNTIL ExitFlag%%
Title: Re: How to leave an input line.
Post by: NOVARSEG on June 12, 2021, 02:36:14 am
@Cobalt
I like the way you combined  a FOR NEXT  inside a DO LOOP

Here are a few mods.  Can enter text . Backspace works

up / down keys rotate now.

Code: QB64: [Select]
  1. 'Editable input example
  2. 'lets start with some base constants
  3. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
  4. CONST TRUE = -1, FALSE = NOT TRUE
  5.  
  6. DIM Inputs(9) AS STRING 'for this example we will allow up to 10 inputs
  10.  
  11.  
  12. 'some prep work
  13. OPT = 0 'start on the first input line
  14.  
  15. 'start our loop up
  17.     KH = _KEYHIT 'keyboard input
  18.     IF KH < 0 THEN KH = 0 'negate any negative keyhit values
  19.  
  20.     FOR I = 0 TO 9 'loop through all our input options
  21.  
  22.         'double space the input lines for readability
  23.         LOCATE 1 + (I * 2), 1: PRINT "INPUT VALUE #"; I; "  -"; Inputs(I);
  24.  
  25.         'print a "cursor" to show which input user is on, use space$ to clear other lines
  26.         IF I = OPT THEN PRINT CHR$(176) + " " ELSE PRINT SPACE$(2)
  27.  
  28.     NEXT I
  29.  
  30.     'let us process which line the user is inputing
  31.     SELECT CASE KH
  32.         CASE 13 'enter to accept inputs
  33.             ExitFlag%% = TRUE
  34.         CASE 8 'backspace to clear this input
  35.  
  36.             Inputs(OPT) = LEFT$(Inputs(OPT), LEN(Inputs(OPT)) - 1)
  37.  
  38.         CASE Key_Up
  39.             IF OPT = 0 THEN OPT = 10
  40.             IF OPT > 0 THEN OPT = OPT - 1
  41.  
  42.         CASE Key_Down
  43.  
  44.             IF OPT < 10 THEN OPT = OPT + 1
  45.             IF OPT = 10 THEN OPT = 0
  46.  
  47.         CASE 32 TO 122
  48.             'now we are only going to allow 1 character inputs for this example
  49.             Inputs(OPT) = Inputs(OPT) + CHR$(KH)
  50.         CASE NOT 0 ' any other input(0 is no input)
  51.             BEEP 'invalid input
  52.     END SELECT
  53.     '-----------------------------------------------
  54.  
  55.     _LIMIT 30 'up date 30times a sec to save CPU use
  56.     IF KH = 27 THEN ExitFlag%% = TRUE 'exit this example
  57. LOOP UNTIL ExitFlag%%
  58.  

Added blinking cursor


Code: QB64: [Select]
  1. 'Editable input example
  2. 'lets start with some base constants
  3. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
  4. CONST TRUE = -1, FALSE = NOT TRUE
  5.  
  6. DIM Inputs(9) AS STRING 'for this example we will allow up to 10 inputs
  10. DIM cp(30)
  12.  
  13.  
  14. 'some prep work
  15. OPT = 0 'start on the first input line
  16.  
  17. 'start our loop up
  19.     KH = _KEYHIT 'keyboard input
  20.     IF KH < 0 THEN KH = 0 'negate any negative keyhit values
  21.  
  22.     FOR I = 0 TO 9 'loop through all our input options
  23.  
  24.         'double space the input lines for readability
  25.         LOCATE 1 + (I * 2), 1: PRINT "INPUT VALUE #"; I; Inputs(I)
  26.  
  27.         IF I = OPT THEN
  28.             LOCATE 1 + (OPT * 2), cp(OPT) + 17: PRINT " "
  29.         END IF
  30.  
  31.     NEXT I
  32.     LOCATE 1 + (OPT * 2), cp(OPT) + 17, 1, 31, 31
  33.  
  34.  
  35.     'let us process which line the user is inputing
  36.     SELECT CASE KH
  37.  
  38.         CASE 13 'enter to accept inputs
  39.             ExitFlag%% = TRUE
  40.  
  41.         CASE 8 'backspace to clear this input
  42.             IF cp(OPT) > 0 THEN
  43.                 Inputs(OPT) = LEFT$(Inputs(OPT), LEN(Inputs(OPT)) - 1)
  44.                 cp(OPT) = cp(OPT) - 1
  45.             END IF
  46.  
  47.         CASE Key_Up
  48.             IF OPT = 0 THEN OPT = 10
  49.             IF OPT > 0 THEN OPT = OPT - 1
  50.  
  51.         CASE Key_Down
  52.  
  53.             IF OPT < 10 THEN OPT = OPT + 1
  54.             IF OPT = 10 THEN OPT = 0
  55.  
  56.         CASE 32 TO 122
  57.             'now we are only going to allow 1 character inputs for this example
  58.             Inputs(OPT) = Inputs(OPT) + CHR$(KH)
  59.             cp(OPT) = cp(OPT) + 1
  60.         CASE NOT 0 ' any other input(0 is no input)
  61.             BEEP 'invalid input
  62.     END SELECT
  63.     '-----------------------------------------------
  64.  
  65.     _LIMIT 30 'up date 30times a sec to save CPU use
  66.     IF KH = 27 THEN ExitFlag%% = TRUE 'exit this example
  67. LOOP UNTIL ExitFlag%%
  68.  
Title: Re: How to leave an input line.
Post by: bartok on June 15, 2021, 02:39:05 am
Cobalt and NOVARSEG,
thank you very much to both! It almost seems what I am searching. The idea to create a custom input routine is sharp. I have to study it in ordet to apply it to the program. Why I has a bouble %%? I know as variable definition $, %, &, !, but %%?
Title: Re: How to leave an input line.
Post by: Richard on June 15, 2021, 05:31:06 am
@bartok

From the QB64  IDE Help > Alphabetical  (a few "pages" back from the very end)




    Variable Name Type Suffixes
þ $ STRING text character type: 1 byte
þ ! SINGLE floating decimal point numerical type (4 bytes)
þ # DOUBLE floating decimal point numerical type (8 bytes)
þ ## _FLOAT QB64 decimal point numerical type (32 bytes)
þ ~ _UNSIGNED QB64 whole positive numerical type when it precedes the 6 numerical
  suffixes below:
þ % INTEGER whole numerical type (2 bytes)
þ & LONG whole numerical type (4 bytes}
þ && _INTEGER64 QB64 whole numerical type (8 bytes)
þ ` _BIT QB64 whole numerical type (1 bit) (Key below tilde (~) or CHR$(96))
þ %% _BYTE QB64 whole numerical type (1 byte)
þ %& _OFFSET QB64 whole numerical pointer address type (any byte size required)

Hope this helps
Title: Re: How to leave an input line.
Post by: bplus on June 15, 2021, 07:45:54 am
Nice @Cobalt and @NOVARSEG

I made some mods for how I would like to use:
Code: QB64: [Select]
  1. Option _Explicit ' to remind what I haven't dim'd
  2. Dim As Long cursor, nInputs, i
  3. Dim k$
  4. 'setups
  5. nInputs = 6 'for this example we will allow up to nInputs inputs
  6. Dim Inputs$(1 To nInputs)
  7. Dim prompts$(1 To nInputs)
  8. prompts$(1) = "First Name: "
  9. prompts$(2) = " Last Name: "
  10. prompts$(3) = "Home Phone: "
  11. prompts$(4) = "Cell Phone: "
  12. prompts$(5) = "Birth date: "
  13. prompts$(6) = "     State: "
  14. cursor = 1 'start on the first input line
  15. 'start our loop up
  17.     k$ = InKey$ 'keyboard input
  18.     For i = 1 To nInputs 'loop through all our input options
  19.         Locate i, 1: Print prompts$(i); Inputs$(i);
  20.         'print a "cursor" to show which input user is on, use space$ to clear other lines
  21.         If i = cursor Then Print "_" + " " Else Print Space$(2)
  22.     Next
  23.     If Len(k$) Then 'let us process which line the user is inputing
  24.         Select Case Asc(Right$(k$, 1))
  25.             Case 13: If cursor = nInputs Then Exit Do Else cursor = cursor + 1 ' no exit unless on last line
  26.             Case 8: Inputs$(cursor) = Left$(Inputs$(cursor), Len(Inputs$(cursor)) - 1) 'backspace to clear this input
  27.             Case 27: Exit Do
  28.             Case 72: If cursor > 1 Then cursor = cursor - 1 ' up
  29.             Case 80: If cursor < nInputs Then cursor = cursor + 1 'down
  30.             Case 32 TO 122: Inputs$(cursor) = Inputs$(cursor) + k$
  31.         End Select
  32.     End If
  33.     _Limit 30 'up date 30 times a sec to save CPU use
  35. 'show results of inputs
  36. For i = 1 To nInputs
  37.     Print i, prompts$(i); "= "; Inputs$(i)
  39.  
  40.  
Title: Re: How to leave an input line.
Post by: Dav on June 15, 2021, 09:01:10 am
Nice little snippet, @bplus.  Saving it for future use.  I added CASE 73, 75, 77, 81: 'don't print these to the SELECT CASE ASC(RIGHT$(k$, 1)) area to not show those keys.

- Dav
Title: Re: How to leave an input line.
Post by: bplus on June 15, 2021, 09:46:09 am
Hi @Dav

Yeah, the working in of the cursor was simple but genius, NOVARSEG or Cobalt?, in the display update loop,

75, 77 left and right arrow? more up and down? or are we really getting into editing :)

73, 81 pgUp and pgDn make sense, you could start thinking of over a screen full of inputs!

Update:
Code: QB64: [Select]
  1. Option _Explicit ' to remind what I haven't dim'd  B+ mod Cobalt and NOVARSEG and Dav 2021-06-15
  2. Dim As Long cursor, nInputs, i
  3. Dim k$
  4. 'setups
  5. nInputs = 6 'for this example we will allow up to nInputs inputs
  6. Dim Inputs$(1 To nInputs)
  7. Dim prompts$(1 To nInputs)
  8. prompts$(1) = "First Name: "
  9. prompts$(2) = " Last Name: "
  10. prompts$(3) = "Home Phone: "
  11. prompts$(4) = "Cell Phone: "
  12. prompts$(5) = "Birth date: "
  13. prompts$(6) = "     State: "
  14. cursor = 1 'start on the first input line
  15. 'start our loop up
  17.     k$ = InKey$ 'keyboard input
  18.     For i = 1 To nInputs 'loop through all our input options
  19.         Locate i, 1: Print prompts$(i); Inputs$(i);
  20.         'print a "cursor" to show which input user is on, use space$ to clear other lines
  21.         If i = cursor Then Print "_" + " " Else Print Space$(2)
  22.     Next
  23.     If Len(k$) Then 'let us process which line the user is inputing
  24.         Select Case Asc(Right$(k$, 1))
  25.             Case 13: If cursor = nInputs Then Exit Do Else cursor = cursor + 1 ' no exit unless on last line
  26.             Case 8: Inputs$(cursor) = Left$(Inputs$(cursor), Len(Inputs$(cursor)) - 1) 'backspace to clear this input
  27.             Case 27: Exit Do
  28.             Case 72, 75: If cursor > 1 Then cursor = cursor - 1 ' up
  29.             Case 73: cursor = 1 'pgUp
  30.             Case 80, 77: If cursor < nInputs Then cursor = cursor + 1 'down
  31.             Case 81: cursor = nInputs ' pgDn
  32.             Case 32 TO 122: Inputs$(cursor) = Inputs$(cursor) + k$
  33.         End Select
  34.     End If
  35.     _Limit 30 'up date 30times a sec to save CPU use
  37. 'show results of inputs
  38. For i = 1 To nInputs
  39.     Print i, prompts$(i); "= "; Inputs$(i)
  41.  
  42.  
Title: Re: How to leave an input line.
Post by: TempodiBasic on June 15, 2021, 05:30:32 pm
Hi
it is so fine to see how different and similar approaches have been showed here for a customized input routine.

@bartok
as our friends have said it is no possible navigation trough the input lines if you use old standard INPUT/ LINE INPUT / INPUT$()  keywords. Please forgot them because you will not want a DOS  interface with black screen.
Title: Re: How to leave an input line.
Post by: bartok on June 16, 2021, 08:48:21 am
Quote from: NOVARSEG on June 12, 2021, 02:36:14 am
@Cobalt
I like the way you combined  a FOR NEXT  inside a DO LOOP

Here are a few mods.  Can enter text . Backspace works

up / down keys rotate now.

Code: QB64: [Select]
  1. 'Editable input example
  2. 'lets start with some base constants
  3. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
  4. CONST TRUE = -1, FALSE = NOT TRUE
  5.  
  6. DIM Inputs(9) AS STRING 'for this example we will allow up to 10 inputs
  10.  
  11.  
  12. 'some prep work
  13. OPT = 0 'start on the first input line
  14.  
  15. 'start our loop up
  17.     KH = _KEYHIT 'keyboard input
  18.     IF KH < 0 THEN KH = 0 'negate any negative keyhit values
  19.  
  20.     FOR I = 0 TO 9 'loop through all our input options
  21.  
  22.         'double space the input lines for readability
  23.         LOCATE 1 + (I * 2), 1: PRINT "INPUT VALUE #"; I; "  -"; Inputs(I);
  24.  
  25.         'print a "cursor" to show which input user is on, use space$ to clear other lines
  26.         IF I = OPT THEN PRINT CHR$(176) + " " ELSE PRINT SPACE$(2)
  27.  
  28.     NEXT I
  29.  
  30.     'let us process which line the user is inputing
  31.     SELECT CASE KH
  32.         CASE 13 'enter to accept inputs
  33.             ExitFlag%% = TRUE
  34.         CASE 8 'backspace to clear this input
  35.  
  36.             Inputs(OPT) = LEFT$(Inputs(OPT), LEN(Inputs(OPT)) - 1)
  37.  
  38.         CASE Key_Up
  39.             IF OPT = 0 THEN OPT = 10
  40.             IF OPT > 0 THEN OPT = OPT - 1
  41.  
  42.         CASE Key_Down
  43.  
  44.             IF OPT < 10 THEN OPT = OPT + 1
  45.             IF OPT = 10 THEN OPT = 0
  46.  
  47.         CASE 32 TO 122
  48.             'now we are only going to allow 1 character inputs for this example
  49.             Inputs(OPT) = Inputs(OPT) + CHR$(KH)
  50.         CASE NOT 0 ' any other input(0 is no input)
  51.             BEEP 'invalid input
  52.     END SELECT
  53.     '-----------------------------------------------
  54.  
  55.     _LIMIT 30 'up date 30times a sec to save CPU use
  56.     IF KH = 27 THEN ExitFlag%% = TRUE 'exit this example
  57. LOOP UNTIL ExitFlag%%
  58.  

Added blinking cursor


Code: QB64: [Select]
  1. 'Editable input example
  2. 'lets start with some base constants
  3. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
  4. CONST TRUE = -1, FALSE = NOT TRUE
  5.  
  6. DIM Inputs(9) AS STRING 'for this example we will allow up to 10 inputs
  10. DIM cp(30)
  12.  
  13.  
  14. 'some prep work
  15. OPT = 0 'start on the first input line
  16.  
  17. 'start our loop up
  19.     KH = _KEYHIT 'keyboard input
  20.     IF KH < 0 THEN KH = 0 'negate any negative keyhit values
  21.  
  22.     FOR I = 0 TO 9 'loop through all our input options
  23.  
  24.         'double space the input lines for readability
  25.         LOCATE 1 + (I * 2), 1: PRINT "INPUT VALUE #"; I; Inputs(I)
  26.  
  27.         IF I = OPT THEN
  28.             LOCATE 1 + (OPT * 2), cp(OPT) + 17: PRINT " "
  29.         END IF
  30.  
  31.     NEXT I
  32.     LOCATE 1 + (OPT * 2), cp(OPT) + 17, 1, 31, 31
  33.  
  34.  
  35.     'let us process which line the user is inputing
  36.     SELECT CASE KH
  37.  
  38.         CASE 13 'enter to accept inputs
  39.             ExitFlag%% = TRUE
  40.  
  41.         CASE 8 'backspace to clear this input
  42.             IF cp(OPT) > 0 THEN
  43.                 Inputs(OPT) = LEFT$(Inputs(OPT), LEN(Inputs(OPT)) - 1)
  44.                 cp(OPT) = cp(OPT) - 1
  45.             END IF
  46.  
  47.         CASE Key_Up
  48.             IF OPT = 0 THEN OPT = 10
  49.             IF OPT > 0 THEN OPT = OPT - 1
  50.  
  51.         CASE Key_Down
  52.  
  53.             IF OPT < 10 THEN OPT = OPT + 1
  54.             IF OPT = 10 THEN OPT = 0
  55.  
  56.         CASE 32 TO 122
  57.             'now we are only going to allow 1 character inputs for this example
  58.             Inputs(OPT) = Inputs(OPT) + CHR$(KH)
  59.             cp(OPT) = cp(OPT) + 1
  60.         CASE NOT 0 ' any other input(0 is no input)
  61.             BEEP 'invalid input
  62.     END SELECT
  63.     '-----------------------------------------------
  64.  
  65.     _LIMIT 30 'up date 30times a sec to save CPU use
  66.     IF KH = 27 THEN ExitFlag%% = TRUE 'exit this example
  67. LOOP UNTIL ExitFlag%%
  68.  

Why, if I add on the top of your code,

test& = _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT, 32)
_DEST test&
SCREEN test&

the cursor is not blincking? A part from that, with _NEWIMAGE graphic screen, LOCATE in your program continues to work fine without changes. So it seems that cursorstart and cursorstop may have problems.
Title: Re: How to leave an input line.
Post by: bplus on June 16, 2021, 11:30:54 am
Quote
So it seems that cursorstart and cursorstop may have problems.

In graphics screens.
Title: Re: How to leave an input line.
Post by: bartok on June 16, 2021, 12:08:45 pm
Quote from: bplus on June 16, 2021, 11:30:54 am
In graphics screens.

yes, but adding \16 and \8 nothing changes. In my program, SCREEN test& (that is called SCREEN schermo&), is the screen where all the images are put, after they have been collected between them.
For example, the attached image of the first post, is the result of an image put 2 times (the 2 graphs) inside a larger image (with datas) finally put in turn on schermo&. I use schermo& to ask inputs to the user or to write some information, but it has to contain also images.

So, is there a way in order to have blinking cursor on test&(schermo&)?

I thounght that implementing navigability was easier and that the worst was over!

However, thanks you all, I have understood the examples and I have done what I wanted. A part from blinking cursor...

Quote from: TempodiBasic on June 15, 2021, 05:30:32 pm
Hi
it is so fine to see how different and similar approaches have been showed here for a customized input routine.

@bartok
as our friends have said it is no possible navigation trough the input lines if you use old standard INPUT/ LINE INPUT / INPUT$()  keywords. Please forgot them because you will not want a DOS  interface with black screen.

apart from the fact that I adore DOS inferface with black screen...:D
apart from the fact that, even having implemented this new standar of input, my interface still seems a DOS interface with back screen...

but: implementing this flexible kind of input, is absolutely not a joke, above all if the real case requires well defined kind of inputs! So, if it is not necessary such a flexibility, I think "normal" INPUT is preferable.
Title: Re: How to leave an input line.
Post by: bplus on June 16, 2021, 12:26:49 pm
Well, when you have a graphics screen you can replace a blinking cursor with a B&W blinking BF box option for Line.
If cursor box is not in a cls screen loop that updates in fractions of seconds then use a timer to blink the box.
Title: Re: How to leave an input line.
Post by: SMcNeill on June 16, 2021, 10:01:37 pm
This concept isn't that complex.  Let me strip it down to the very basics for you guys:

Code: QB64: [Select]
  1. Dim result(1 To 3) As String
  2.  
  3. V = 1: T! = Timer
  5.     If V < 1 Then V = 3 Else If V > 3 Then V = 1 'stay in bounds of our array
  6.     If Timer > T! + 0.5 Then blink = Not blink: T! = Timer 'blink on and off timer
  7.     Cls
  8.     Print "Enter your name: "; result(1);: If V = 1 And blink Then Print "Û" Else Print
  9.     Print "Enter your age : "; result(2);: If V = 2 And blink Then Print "Û" Else Print
  10.     Print "Enter your sex : "; result(3);: If V = 3 And blink Then Print "Û" Else Print
  11.     Print "Esc to Accept Data and exit"
  12.     k = _KeyHit
  13.     Select Case k
  14.         Case 18432: V = V - 1 'up
  15.         Case 20480: V = V + 1 'down
  16.         Case 13: V = V + 1 'enter
  17.         Case 8: result(V) = Left$(result(V), Len(result(V)) - 1) 'backspace
  18.         Case 32 TO 255: result(V) = result(V) + Chr$(k) 'add character
  19.     End Select
  20.     _Limit 30
  21.     _Display
  22. Loop Until k = 27
  23. Print: Print "Your final data was:", result(1), result(2), result(3)
  24.  
Title: Re: How to leave an input line.
Post by: bartok on June 17, 2021, 08:47:47 am
Quote from: SMcNeill on June 16, 2021, 10:01:37 pm
This concept isn't that complex.  Let me strip it down to the very basics for you guys:

Code: QB64: [Select]
  1. Dim result(1 To 3) As String
  2.  
  3. V = 1: T! = Timer
  5.     If V < 1 Then V = 3 Else If V > 3 Then V = 1 'stay in bounds of our array
  6.     If Timer > T! + 0.5 Then blink = Not blink: T! = Timer 'blink on and off timer
  7.     Cls
  8.     Print "Enter your name: "; result(1);: If V = 1 And blink Then Print "Û" Else Print
  9.     Print "Enter your age : "; result(2);: If V = 2 And blink Then Print "Û" Else Print
  10.     Print "Enter your sex : "; result(3);: If V = 3 And blink Then Print "Û" Else Print
  11.     Print "Esc to Accept Data and exit"
  12.     k = _KeyHit
  13.     Select Case k
  14.         Case 18432: V = V - 1 'up
  15.         Case 20480: V = V + 1 'down
  16.         Case 13: V = V + 1 'enter
  17.         Case 8: result(V) = Left$(result(V), Len(result(V)) - 1) 'backspace
  18.         Case 32 TO 255: result(V) = result(V) + Chr$(k) 'add character
  19.     End Select
  20.     _Limit 30
  21.     _Display
  22. Loop Until k = 27
  23. Print: Print "Your final data was:", result(1), result(2), result(3)
  24.  

done! thank's!

Code: QB64: [Select]
  1. '[...]
  3. esci$ = "I dati forniti non determinao pioggia efficace, quindi non vi Š portata. Premere un tasto per uscire."
  4. SCREEN schermo&
  6. PRINT "Questo programma serve a calcolare l'idrogramma di progetto (e relativa portata di picco) per"
  7. PRINT "un  dato  tempo  di  ritorno,  utilizzando  l'idrogramma  unitario  adimensionale di Mockus e"
  8. PRINT "ietrogrammi tipo "; CHR$(34); "Chicago"; CHR$(34); " o "; CHR$(34); "costanti"; CHR$(34); "."
  10. PRINT "Di seguito si dovranno inserire i valori della curva di possibilit… climatica "; CHR$(34); "h = Ktúaúd^n"; CHR$(34); "."
  11. PRINT "Se  si dispone  dei valori  del Centro  Funzionale, digitare il valore "; CHR$(34); "Kt"; CHR$(34); " relativo al tempo"
  12. PRINT "di ritorno "; CHR$(34); "T"; CHR$(34); " d'interesse, con i relativi valori "; CHR$(34); "a"; CHR$(34); " e "; CHR$(34); "n"; CHR$(34); "."
  13. PRINT "Se invece si ha una  propria curva di possibilit… climatica, quando verr… chiesto di inserire"
  14. PRINT CHR$(34); "Kt"; CHR$(34); ", digitare "; CHR$(34); "INVIO"; CHR$(34); ", o "; CHR$(34); "1"; CHR$(34); "."
  15. PRINT "In tal caso "; CHR$(34); "Kt"; CHR$(34); " sar… considerato pari a "; CHR$(34); "1"; CHR$(34); " e "; CHR$(34); "T"; CHR$(34); " come "; CHR$(34); "definito dall'utente"; CHR$(34); "."
  17. PRINT "- Kt [-] (INVIO per 1)                                           = "
  18. PRINT "- a [mm/d^n]                                                     = "
  19. PRINT "- n [-] (0ö1)                                                    = "
  20. PRINT "- Area del bacino idrografico [mý]                               = "
  21. PRINT "- Lunghezza dell'asta principale del bacino idrografico [m]      = "
  22. PRINT "- Altitudine s.l.m. del punto pi— alto dell'asta principale [m]  = "
  23. PRINT "- Altitudine s.l.m. del punto pi— basso dell'asta principale [m] = "
  24. PRINT "- Pendenza media del bacino idrografico [%] (1ö100)              = "
  25. PRINT "- CN(II) [-] (1ö100)                                             = "
  26. PRINT "- Coefficiente delle perdite inziali [-] (0ö0.2 - INVIO per 0.1) = "
  27. CALL InserimentoDati(k!, a1!, n1, A2!, L!, HmaxL!, HminL!, s1!, CNII!, CoeffPerditeIniziali!)
  28. LOCATE PosizioneCursore% + 10, 1
  29. PRINT "- Visualizzare i risultati utilizzando lo ietogramma Chicago [1] o costante [2]?"
  31. '[...]
  32. SUB InserimentoDati (k!, a1!, n1, A2!, L!, HmaxL!, HminL!, s1!, CNII!, CoeffPerditeIniziali!)
  33.  
  34.     SHARED PosizioneCursore%
  35.  
  36.     DIM inputs$(10)
  37.     DIM richiesta%
  38.     DIM test%(10)
  39.     DIM debug%
  40.     DIM carattere$
  41.     DIM punti%
  42.     DIM T!
  43.     DIM cursore%
  44.     DIM esci%
  45.  
  46.     PosizioneCursore% = CSRLIN - 10
  47.     richiesta% = 1
  48.     T! = TIMER
  49.     DO
  50.         _LIMIT 30
  51.         KeyPress$ = INKEY$
  52.         IF TIMER > T! + 0.5 THEN
  53.             cursore% = NOT cursore%
  54.             T! = TIMER
  55.         END IF
  56.         FOR i% = 1 TO 10
  57.             LOCATE PosizioneCursore% - 1 + i%, 68: PRINT inputs$(i%) + SPACE$(30)
  58.         NEXT i%
  59.         IF esci% = 1 THEN EXIT DO
  60.         LOCATE PosizioneCursore% - 1 + richiesta%, 68 + LEN(inputs$(richiesta%))
  61.         IF cursore% THEN PRINT "_"
  62.         SELECT CASE KeyPress$
  63.             CASE CHR$(44), CHR$(46) ',e.
  64.                 punti% = 0
  65.                 IF KeyPress$ = CHR$(44) THEN KeyPress$ = CHR$(46)
  66.                 FOR n% = 1 TO LEN(inputs$(richiesta%))
  67.                     carattere$ = MID$(inputs$(richiesta%), n%, 1)
  68.                     IF carattere$ = CHR$(46) THEN punti% = 1
  69.                 NEXT n%
  70.                 SELECT CASE punti%
  71.                     CASE IS = 0
  72.                         inputs$(richiesta%) = inputs$(richiesta%) + KeyPress$
  73.                     CASE IS = 1
  74.                         inputs$(richiesta%) = inputs$(richiesta%)
  75.                 END SELECT
  76.             CASE CHR$(48) TO CHR$(57) '0-9
  77.                 inputs$(richiesta%) = inputs$(richiesta%) + KeyPress$
  78.             CASE CHR$(8) 'del
  79.                 SELECT CASE LEN(inputs$(richiesta%))
  80.                     CASE IS = 0
  81.                         EXIT SELECT
  82.                     CASE IS = 1
  83.                         inputs$(richiesta%) = ""
  84.                         LOCATE , 68: PRINT " "
  85.                     CASE ELSE
  86.                         inputs$(richiesta%) = LEFT$(inputs$(richiesta%), LEN(inputs$(richiesta%)) - 1)
  87.                         LOCATE , 68 + LEN(inputs$(richiesta%)): PRINT " "
  88.                 END SELECT
  89.             CASE CHR$(0) + "H" 'su
  90.                 GOSUB Valutavalore
  91.                 SELECT CASE test%(richiesta%)
  92.                     CASE IS = 0
  93.                         inputs$(richiesta%) = ""
  94.                     CASE IS = 1
  95.                         IF richiesta% = 1 THEN
  96.                             EXIT SELECT
  97.                         ELSEIF richiesta <= 10 THEN
  98.                             richiesta% = richiesta% - 1
  99.                         END IF
  100.                 END SELECT
  101.             CASE CHR$(0) + "P" 'giu'
  102.                 GOSUB Valutavalore
  103.                 SELECT CASE test%(richiesta%)
  104.                     CASE IS = 0
  105.                         inputs$(richiesta%) = ""
  106.                     CASE IS = 1
  107.                         IF richiesta% < 10 THEN
  108.                             IF inputs$(richiesta% + 1) <> "" THEN richiesta% = richiesta% + 1
  109.                         ELSE
  110.                             EXIT SELECT
  111.                         END IF
  112.                 END SELECT
  113.             CASE CHR$(13) 'invio
  114.                 GOSUB Valutavalore
  115.                 IF debug% = 1 THEN
  116.                     _AUTODISPLAY
  117.                     EXIT SUB
  118.                 END IF
  119.                 IF richiesta% <> 1 THEN
  120.                     IF LEN(inputs$(richiesta%)) = 0 THEN test%(richiesta%) = 0
  121.                 END IF
  122.                 SELECT CASE test%(richiesta%)
  123.                     CASE IS = 0
  124.                         richiesta% = richiesta%
  125.                         inputs$(richiesta%) = ""
  126.                     CASE IS = 1
  127.                         IF richiesta% = 10 THEN
  128.                             esci% = 1
  129.                         ELSE
  130.                             richiesta% = richiesta% + 1
  131.                         END IF
  132.                 END SELECT
  133.         END SELECT
  134.         _DISPLAY
  135.     LOOP
  136.     k! = VAL(inputs$(1))
  137.     a1! = VAL(inputs$(2))
  138.     n1! = VAL(inputs$(3))
  139.     A2! = VAL(inputs$(4))
  140.     L! = VAL(inputs$(5))
  141.     HmaxL! = VAL(inputs$(6))
  142.     HminL! = VAL(inputs$(7))
  143.     s1! = VAL(inputs$(8))
  144.     CNII! = VAL(inputs$(9))
  145.     CoeffPerditeIniziali! = VAL(inputs$(10))
  146.     IF k! = 1 THEN
  147.         T$ = "Definito dall'utente."
  148.     ELSE
  149.         GOSUB TrovaT
  150.     END IF
  152.     EXIT SUB
  153.     '-----------------------------------------------------------------------------------------------------------------------------------------------------------
  154.     Valutavalore:
  155.     test%(richiesta%) = 0 ' se 0 rimane nella richiesta in corso, se 1, cambia.
  156.  
  157.     SELECT CASE richiesta%
  158.         CASE 1
  159.             IF inputs$(1) = "123" THEN 'avvia debug
  160.                 'Cillian:
  161.                 'k! = 1: a1! = 1: n1! = 0.45596: A2! = 2641902: L! = 3300: HmaxL! = 1981: HminL! = 1062: s1! = 41.5: CNII! = 70:CoeffPerditeIniziali!=0.1
  162.                 k! = 2.34: a1! = 14.6653: n1! = 0.45596: A2! = 2641902: L! = 3300: HmaxL! = 1981: HminL! = 1062: s1! = 41.5: CNII! = 70: CoeffPerditeIniziali! = 0.1
  163.                 'pialong:
  164.                 'k! = 2.34:'a1! = 17.097811:'n1! = 0.497753:'A2! = 2509318:'L! = 2919:'HmaxL! = 1654:'HminL! = 388:'s1! = 0.663:'CNII! = 66:CoeffPerditeIniziali!=0.1
  165.                 GOSUB TrovaT
  166.                 debug% = 1
  167.                 RETURN
  168.             END IF
  169.             IF LEN(inputs$(richiesta%)) = 0 THEN
  170.                 IF KeyPress$ = CHR$(13) THEN inputs$(richiesta%) = "1"
  171.             END IF
  172.             test%(richiesta%) = 1
  173.         CASE 2, 4, 5, 6, 7
  174.             test%(richiesta%) = 1
  175.         CASE 3
  176.             IF VAL(inputs$(richiesta%)) <= 1 THEN
  177.                 test%(richiesta%) = 1
  178.             ELSE
  179.                 test%(richiesta%) = 0
  180.             END IF
  181.         CASE 8, 9
  182.             IF VAL(inputs$(richiesta%)) >= 1 THEN
  183.                 IF VAL(inputs$(richiesta%)) <= 100 THEN test%(richiesta%) = 1
  184.             ELSEIF inputs$(richiesta%) = "" THEN test%(richiesta%) = 1
  185.             ELSE
  186.                 test%(richiesta%) = 0
  187.             END IF
  188.         CASE IS = 10
  189.             IF LEN(inputs$(richiesta%)) = 0 THEN
  190.                 IF KeyPress$ = CHR$(13) THEN inputs$(richiesta%) = "0.1"
  191.                 test%(richiesta%) = 1
  192.             ELSE
  193.                 IF VAL(inputs$(richiesta%)) >= 0 THEN
  194.                     IF VAL(inputs$(richiesta%)) <= 0.2 THEN test%(richiesta%) = 1
  195.                 ELSE
  196.                     test%(richiesta%) = 0
  197.                 END IF
  198.             END IF
  199.     END SELECT
  200.     '-----------------------------------------------------------------------------------------------------------------------------------------------------------
  201.     TrovaT:
  202.     i% = 1
  203.     '[...]
  204.     RETURN
  206. '-----------------------------------------------------------------------------------------------------------------------------------------------------------
  207.  

I have implemented also the blinking cursor. But all of that is a very complecated stuff, in oder to do things likes these:
- transforms "," in "."
- not allow double "."
- not go DOWN if down the field is empty
- automatic cancel not allowed data
- etc

to do that, more then 200 lines of code!
Title: Re: How to leave an input line.
Post by: SMcNeill on June 17, 2021, 04:33:12 pm
Here's a little something which I tossed together in about 20 minutes this afternoon, which you might be able to use:

Code: QB64: [Select]
  1. Screen _NewImage(1280, 720, 32)
  2. Dim As String prompt(3), results(3)
  3. prompt(0) = "Name": prompt(1) = "Age": prompt(2) = "Sex": prompt(3) = "Phone Number"
  4. For i = 1 To 100 'Draw some stuff on the screen for a background
  5.     Line (Rnd * 1280, Rnd * 720)-(Rnd * 1280, Rnd * 720), _RGB32(Rnd * 255, Rnd * 255, Rnd * 255), BF
  7. Print "SLEEPING SO YOU CAN SEE OUR BACKGROUND"
  9. MultiInput 100, 100, prompt(), results(), 20
  10. Print: Print "As you can see, when finished, our pop up restored our background..."
  11. Print "And your answers were the following:"
  12. For i = 0 To UBound(results): Print results(i): Next
  13. Sub MultiInput (xPos, yPos, prompt() As String, results() As String, maxLength As Integer)
  14.     backupImage = _CopyImage(0) 'copy our screen
  15.     B = _Blend: _DontBlend: A = _AutoDisplay: u = UBound(prompt)
  16.     For i = 0 To u 'get box size
  17.         p = _PrintWidth(prompt(i)): If p > maxWidth Then maxWidth = p
  18.     Next
  19.     boxWidth = maxWidth + maxLength * _FontWidth + 10: boxheight = (u + 1) * (_FontHeight + 3)
  20.     Do
  21.         If Timer > t# + .5 Then blink = Not blink: t# = Timer
  22.         k = _KeyHit 'get input
  23.         Select Case k
  24.             Case 18432: selection = selection - 1: If selection < 0 Then selection = u 'up
  25.             Case 20480, 13: selection = selection + 1: If selection > u Then selection = 0 'down
  26.             Case 27: Exit Do 'esc is the exit/finish code
  27.             Case 8: results(selection) = Left$(results(selection), Len(results(selection)) - 1) 'backspace
  28.             Case 32 TO 255: results(selection) = results(selection) + Chr$(k) 'all else
  29.         End Select
  30.  
  31.         _PutImage , backupImage 'restore background
  32.         Line (xPos, yPos)-Step(boxWidth, boxheight), 0, BF: Line (x + xPos + maxWidth + 1, y + yPos)-Step(0, boxheight), -1 'draw box
  33.         For i = 0 To u
  34.             Line (x + xPos, y + i * (_FontHeight + 3) + yPos)-Step(boxWidth, _FontHeight + 3), -1, B
  35.             _PrintString (x + xPos + 2, y + i * (_FontHeight + 3) + yPos + 2), prompt(i)
  36.             If i = selection And blink Then out$ = results(i) + Chr$(219) Else out$ = results(i)
  37.             _PrintString (x + xPos + maxWidth + 3, y + i * (_FontHeight + 3) + yPos + 2), out$
  38.         Next
  39.         _Limit 30: _Display
  40.     Loop
  41.     _PutImage , backupImage
  42.     If B Then _Blend
  44.     _FreeImage backupImage

45 lines total, and  only 33 lines for our SUB, which does all the real work for us.

And what's this do, you ask?

It creates a simple, stand-alone, multi-line, POP-UP input box which we can use the arrow keys to move up and down between. 

Usage is rather simple:
1) Dim 2 arrays to hold your prompts and the results.
2) Set your prompts.
3) Call the function, get the results.

Can't be much simpler than that!
Text Only | Text with Attachments