Text Input Issue - GameCreators Forum

Author

Message

Bankzy10

15

Years of Service

User Offline

Joined: 29th Jan 2009

Location: Planet DarkBasic - Learning the tricks

Posted: 29th May 2009 23:19

Link

I am having a little problem with a text entry issue. Can anyone help and tell me how to limit the number of characters the user can enter. I have experiemented with a few things but can't get it to work. Heres the code:

+ Code Snippet

sync on
sync rate 0

`The input string
InpStr$ = ""

do

    `Handle input
    char$ = entry$()
    select asc(char$)
        case 8 : `Backspace
            InpStr$ = left$(InpStr$, len(InpStr$) - 1)
        endcase
        case 14 : `Carriage return
            `In this case, we do nothing. It's just to prevent that a carriage return
            `is added to InpStr$
        endcase
        case default
            InpStr$ = InpStr$ + char$
        endcase
    endselect
    clear entry buffer

    `Display the text
    cls
    text 5, 5, "Input: " + InpStr$

    sync
loop

Thanks in advance, Bankzy10

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

18

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 30th May 2009 01:31

Link

You make a variable to store the max number of characters you want and check the current length of the string with the LEN command to the max before you add the new character.

+ Code Snippet

sync on
sync rate 0

`The input string
InpStr$ = ""
` Set the max number of characters in the string
MaxLength=20
do

    `Handle input
    char$ = entry$()
    select asc(char$)
        case 8 : `Backspace
            InpStr$ = left$(InpStr$, len(InpStr$) - 1)
        endcase
        case 14 : `Carriage return
            `In this case, we do nothing. It's just to prevent that a carriage return
            `is added to InpStr$
        endcase
        case default
            ` Check if the length of InpStr$ is less than the max length
            if len(InpStr$)<MaxLength
             InpStr$ = InpStr$ + char$
            endif
        endcase
    endselect
    clear entry buffer

    `Display the text
    cls
    text 5, 5, "Input: " + InpStr$

    sync
loop

Back to top

Profile PM Email

Bankzy10

15

Years of Service

User Offline

Joined: 29th Jan 2009

Location: Planet DarkBasic - Learning the tricks

Posted: 31st May 2009 18:12

Link

Thanks mate, what I was doing was just using Max=20 instead of MaxLength=20 and sticking it further down.

Once again, thanks!

Back to top

Profile PM Email

Sorry your browser is not supported!

2D All the way! / Text Input Issue