How To Limit Text Input ? - GameCreators Forum

Author

Message

g 0 t H F r 3 a K

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location: USA

Posted: 27th Sep 2004 04:07

Link

I've been using the INPUT command to let users type a username for a program account, but the bug surfaces when they decide to type in like a 200 character username and it stretches way off the screen. I found one work around this but that is to save the massive username$ to a file then read in only the first 22 characters of it, dropping the rest, but this does not solve the bug of text running all over the GUI while they're typing it in.

Does anybody have a good method of limiting user input?

AMD Athlon XP 2700 (2.17GHz @ 333FSB) 1GB DDR333 RAM & 256MB ATI Radeon 9600 & 2x120GB HDDs one EIDE 133 and one SATA 150 on Gigabyte 7VT600 with MS Windows XP Pro

Back to top

Profile PM Email Website

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 27th Sep 2004 04:49

Link

About the best way to do that is to build your own input system, one that limits the number of characters that may be entered;

name$=""
loop0:
a$=inkey$()
if a$="" then goto loop0
if a$=chr$(13) then goto loop1
name$ = name$ + a$
print a$;
if a$=chr$(8) then name$=left$(a$,len(a$)-1)
if len(name$) > 19
name$=left$(a$,len(a$)-1)
print chr$(8);
endif
goto loop0
loop1:

or something similar. (You might have to play with that code a bit to get it working right.)
good luck,
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Lukas W

21

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 27th Sep 2004 17:47

Link

or this:

+ Code Snippet

sync on : sync rate 0
clear entry buffer

max = 15


do:cls

   a$ = entry$()

   if current < max and entry$()<>""
      b$ = b$ + a$
      current = current + 1
      clear entry buffer
   endif


   print b$
   print
   print "maximum = "+str$(max)
   print "current = "+str$(current)
   print "left = "+str$(max-current)

sync:loop

I am not cool anymore... or am I?
http://n0id.proboards28.com/index.cgi - please join

Back to top

Profile PM Email

g 0 t H F r 3 a K

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location: USA

Posted: 28th Sep 2004 20:42

Link

thanx guys. i had my algorythm written before you posted n0id but your code still teaches me something

very clean snippit. in case anyone is interested, here is what i came up with on this:

text 11,546,"---> Please type your desired user name:"
	ink rgb(255,0,0),0
	set text opaque
` -------------------------------------
	get_key:
	if scancode()=28 then goto name_complete
	if scancode()=156 then goto name_complete
	a$=inkey$()
	do
	if mousex()>485&mousey()>573&mousex()<513&mousey()<585&mouseclick()=1 then goto name_complete
	if scancode()=28 then goto name_complete
	if scancode()=156 then goto name_complete
	if scancode()=14
		if username$="" then goto get_key
		username$=left$(username$,len(username$)-1)
		text x,546," "
		x=x-8
		a$=""
		sleep 150
	endif
	sync
	if a$=""
		goto get_key
	else
		if scancode()=28 then goto name_complete
		if scancode()=156 then goto name_complete
		x=x+8
		if len(username$)>21 then goto name_complete
		username$=username$+a$
		text x,546,""+a$
		sleep 125
	endif
	if mousex()>485&mousey()>573&mousex()<513&mousey()<585&mouseclick()=1 then goto name_complete
	if scancode()=28 then goto name_complete
	if scancode()=156 then goto name_complete
	goto get_key
	sync
	loop
` -------------------------------------
	name_complete:
	if username$="" then goto get_key
	x=366
	ink rgb(255,0,255),0
	sleep 100
	text 11,559,"---> Please type a password for this account:"
	sleep 100
	ink rgb(255,0,0),0

+ Code Snippet

	text 11,546,"---> Please type your desired user name:"
	ink rgb(255,0,0),0
	set text opaque
` -------------------------------------
	get_key:
	if scancode()=28 then goto name_complete
	if scancode()=156 then goto name_complete
	a$=inkey$()
	do
	if mousex()>485&mousey()>573&mousex()<513&mousey()<585&mouseclick()=1 then goto name_complete
	if scancode()=28 then goto name_complete
	if scancode()=156 then goto name_complete
	if scancode()=14
		if username$="" then goto get_key
		username$=left$(username$,len(username$)-1)
		text x,546," "
		x=x-8
		a$=""
		sleep 150
	endif
	sync
	if a$=""
		goto get_key
	else
		if scancode()=28 then goto name_complete
		if scancode()=156 then goto name_complete
		x=x+8
		if len(username$)>21 then goto name_complete
		username$=username$+a$
		text x,546,""+a$
		sleep 125
	endif
	if mousex()>485&mousey()>573&mousex()<513&mousey()<585&mouseclick()=1 then goto name_complete
	if scancode()=28 then goto name_complete
	if scancode()=156 then goto name_complete
	goto get_key
	sync
	loop
` -------------------------------------
	name_complete:
	if username$="" then goto get_key
	x=366
	ink rgb(255,0,255),0
	sleep 100
	text 11,559,"---> Please type a password for this account:"
	sleep 100
	ink rgb(255,0,0),0

thanx again you two!

AMD Athlon XP 2700 (2.17GHz @ 333FSB) 1GB DDR333 RAM & 256MB ATI Radeon 9600 & 2x120GB HDDs one EIDE 133 and one SATA 150 on Gigabyte 7VT600 with MS Windows XP Pro

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / How To Limit Text Input ?