text input - GameCreators Forum

Author

Message

Bob_42

19

Years of Service

User Offline

Joined: 15th Sep 2006

Location: Guernsey

Posted: 15th Oct 2006 02:00 Edited at: 15th Oct 2006 02:01

Link

i found this input function in the code snippets (the thread is now closed, thats why i'm posting here), and i changed it a bit for my needs, but it seems to have a major floor, whenever i try to delete(i.e. hit backspace) it comes up with weird straight line character similar to '|' but shorter, and whenever i run the function for a second time this character appears at the start, and i've looked through the function and i can't see anything that could be causing it, anyone see what the problem is?

+ Code Snippet

function _input(x,y)
sync on
text$=""
repeat
paste image 70,300,250
   text x, y, text$
   if scancode()=14
      paste image 70,300,250
      text$=left$(text$,len(text$)-1)
      wait 50
   endif
   text$=text$+entry$() : clear entry buffer
   if controlkey()=1 and keystate(47)=1
      text$=text$+get clipboard$()
      wait 200
   endif
   sync
until returnkey()=1
endfunction text$

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 15th Oct 2006 04:20

Link

I didn't see anything odd. The only changes i'd do is change "scancode" to "keystate" and add a timer to slow down backspacing. You should try compiling that and running the .exe on one of your friends computers.

Back to top

Profile PM Email

Bob_42

19

Years of Service

User Offline

Joined: 15th Sep 2006

Location: Guernsey

Posted: 15th Oct 2006 18:14

Link

i have solved the problem, thanks anyway

basically when you hit backspace it goes into the if statement and delets the right-most letter, however backspace is also counted in entry$() command, (the short vertical line), i found this out when got rid of the delete command, the line just kept comming up, so all you to do is put it in a if-else-endif statement:

+ Code Snippet

function _input(x,y)
sync on
text$=""
clear entry buffer
repeat
paste image 70,300,250
   text x, y, text$
   if keystate(14)=1
      paste image 70,300,250
      text$=left$(text$,len(text$)-1)
      wait 50
   else
   text$=text$+entry$() : clear entry buffer
   endif
   clear entry buffer
   if controlkey()=1 and keystate(47)=1
      text$=text$+get clipboard$()
      wait 200
   endif
   sync
until returnkey()=1
endfunction text$

similarly the line was coming up at the start the second time i used it because the last button i had pressed was enter, and the line must come up with the enter key as well

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 15th Oct 2006 20:04

Link

Ah. I should of noticed sorry about that. I usually do text input like this:

+ Code Snippet

clear entry buffer
tim=timer()
set text opaque

do
  text 0,0,"User Input: " + Com$+" "
  a$=entry$(1):clear entry buffer
  if keystate(14) and timer()>tim+100
   Com$ = left$(Com$,len(Com$)-1)
   a$="":tim=timer()
  endif
  if a$=chr$(13) then exit
  if a$<>"" then Com$ = Com$ + a$
loop

text 0,20,Com$
wait key

Before it goes out of backspace it makes a$="" so it's not added to the string.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / text input