Console Multi_prompt Input - Printable Version

Code: (Select All)

'Console multi_input

'

'an example program for a routine to use the console window for multi-line input prompts

$Console

_Console Off 'turn off the console for now

_Delay 0.1

Print "Press any key when ready."

Sleep

Cls

Dim p$(5), aa$(5)

'setup the input prompts

p$(1) = "First Name : "

p$(2) = "Middle     : "

p$(3) = "Last Name  : "

p$(4) = "Street     : "

p$(5) = "City/Town  : "

multi_input "Multi_Input Sample", p$(), aa$()

Print aa$(3); ", "; aa$(1); " "; aa$(2)

Print aa$(4); ", "; aa$(5)

End



Sub multi_input (cptitle$, prompt$(), ia$())

    'cptitle$ is the console prompt title

    'prompt$() array of prompts

    'ia$() array of input data

    ind& = _Dest 'get the screen

    _Console On 'turn the console back on

    If cptitle$ = "" Then _ConsoleTitle "Prompt" Else _ConsoleTitle cptitle$ 'set the console title

    _ScreenHide 'hide the mainscreen

    _Dest _Console

    Cls 'clear the console

    mi = UBound(prompt$) 'check how many entries are being asked for

    For n = 1 To mi 'print the prompts

        Print prompt$(n)

    Next n

    Locate 1, 1 'reset cursor to top left corner

    For n = 1 To mi 'reprint prompts and get the input

        Print prompt$(n);

        Input ia$(n)

    Next n

    _ScreenShow

    _Dest ind&

    _Console Off

End Sub

Code: (Select All)

_Title "Multiple Input Menu demo" 'b+ 2021-06-11



Type InputItem

    As String promptName, SValue

End Type



ReDim Shared nItems

nItems = 12 ' number of inputs plus 2 for quit and goto for processing inputs



' initial item names (like variables)

ReDim inps(1 To nItems) As InputItem

For i = 1 To nItems - 2

    inps(i).promptName = "Demo Input Item #" + _Trim$(Str$(i))

Next

inps(nItems - 1).promptName = "Process Inputs"

inps(nItems).promptName = "Quit"

Do

    Cls

    For i = 1 To nItems

        Print "#" + _Trim$(Str$(i)), inps(i).promptName;

        If inps(i).SValue <> "" Then Print " = "; inps(i).SValue Else Print

    Next

    Print: Input "Enter choice # "; choice

    If choice < nItems - 1 Then

        Print "Please enter, " + inps(choice).promptName + " ";

        Input inps(choice).SValue

    End If

Loop Until choice >= nItems - 1 And choice <= nItems

Select Case choice

    Case nItems: Print "You quit, goodbye!": End

    Case nItems - 1

        ' <<< could check inputs here and handle errors

        GoTo processInputs

End Select



processInputs:

' doit  remember SValues are strings!

Print "Processing Inputs now..."