text_input() - GameCreators Forum

Author

Message

someone namedlink

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: Dream Planet

Posted: 14th Aug 2004 23:25 Edited at: 14th Aug 2004 23:26

Link

I made an input function and it works, but there something strange about it. When you try to delete characters, he only delete one character and then you must type some text in order to do it again. Can someone find the problem please? Because I don't see it.

+ Code Snippet

function text_input(x,y)
   c=0
   userinput=""
   clear entry buffer
   while returnkey()=0
      if text width(right$(userinput,len(userinput)-c))>420
         c=len(userinput)
         y=y+20
      endif
      if keystate(14)=1
         userinput=left$(userinput,len(userinput)-1)
         paste image 2020,x+text width(right$(userinput,len(userinput)-c)),y
         if text width(right$(userinput,len(userinput)-c))<0 and text width(userinput)>0
            c=len(userinput)
            y=y-20
         endif
         while keystate(14)=1
         endwhile
      endif
      userinput=userinput+entry$()
      clear entry buffer
      text x,y,right$(userinput,len(userinput)-c)
      sync
   endwhile
   while returnkey()=1
   endwhile
endfunction

DIV/DBP-coder

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

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

Posted: 15th Aug 2004 06:13

Link

For myself, I'd use the inkey$() function instead of entry$() for this operation, because you could get rid of that 'clear entry buffer' stuff in that event. This also means you'd have to detect the backspace as a DEL code or control-h (ascii 8 or 127) but I think it would be easier.

Now, as for the problem you mentioned, it might be that within the backspace operation you have not cleared the entry buffer, thus the backspace code is being added to your user input string before it is cleared. Try putting a clear entry buffer before the endif in the backspace code, thus that a null entry will result when you read the buffer.

If that itself does not work, then nulls are being added to the input string, so you need to check for valid characters in the buffer before adding to the input string.
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 15th Aug 2004 07:54 Edited at: 15th Aug 2004 07:56

Link

this is courtesy of TeamTOPIA
(from DarkLINK, the dbp input version)

+ Code Snippet

type vars
    bKeyAllowed as Boolean
    sBuildMsg as String
endType

v as vars


v.bKeyAllowed=1
do
`...

        `//Build user's outbound text msg string
        if v.bKeyAllowed=1
            `not enter
            if inkey$() <> chr$(13)
                v.sBuildMsg=v.sBuildMsg + inkey$()
            endif
            
            `backspace
            if keystate(14)=1 then v.sBuildMsg=left$(v.sBuildMsg,len(v.sBuildMsg)-1)
            
            `enter
            if keystate(28)=1 and v.sBuildMsg <> ""
                `do whatever with v.sBuildMsg and then clear it
                v.sBuildMsg=""
            endif

            v.bKeyAllowed=0
        endif
      
        `make sure key up before allow next key
        if inkey$()="" then v.bKeyAllowed=1
`...
loop

DBP_NETLIB_v1.4.3 - 65 FREE Functions * Click Logo

Back to top

Profile PM

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 15th Aug 2004 08:22

Link

The problem is that entry$() will return the backspace character. So when you press backspace the first time it removes the last character and adds a backspace character. then when you press backspace again it deletes the backspace character and adds another. You don't see it happen as the test command ignores backspace characters.

Here is a snippit that gets arround the problem by removing all the backspace characters from the string when the backspace key is pressed then removes the last character.

+ Code Snippet

s$ = textbox(100,100)
cls

print s$
wait key


function textbox(x as integer,y as integer)
local out as string : local last_key as integer
clear entry buffer
repeat
  cls
  out = out + strip(entry$())
  clear entry buffer
  `backspace
  if scancode() = 14 and last_key <> 14
    if len(out) > 0
      out = left$(out,len(out)-1)
    endif
  else
  endif
  last_key = scancode()
  text x,y,out
  text 0,0,str$(len(out))
until returnkey()
repeat : until returnkey() = 0
endfunction out

function strip(in as string)
  `removes backspaces (chr$(8)) from in
  local out as string : local i as integer
  for i = 1 to len(in)
    if asc(mid$(in, i)) <> 8 then out = out + mid$(in, i)
  next i
endfunction out

PII 300 : 64mb ram : voodoo II 12mb : Win98

Back to top

Profile PM Website

someone namedlink

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: Dream Planet

Posted: 15th Aug 2004 17:17 Edited at: 15th Aug 2004 17:18

Link

I solved the problem, but I wrewrote the function and it is much better now. It lets you write text on different lines now. Here is it so everyone can benefit from it:

+ Code Snippet

function text_input(x,y)
   c=x
   dim plaatsx()
   userinput=""
   clear entry buffer
   while returnkey()=0
      if x>980
         add to stack plaatsx(0)
         plaatsx()=x
         x=c
         y=y+20
      endif
      if keystate(14)=1 and len(userinput)>0
         if x=c
            x=plaatsx()
            remove from stack plaatsx(0)
            y=y-20
         endif
         x=x-text width(right$(userinput,1))
         userinput=left$(userinput,len(userinput)-1)
         paste image 2020,x,y
         while keystate(14)=1
         endwhile
         clear entry buffer
      endif
      userinput=userinput+entry$()
      text x,y,entry$()
      x=x+text width(entry$())
      clear entry buffer
      sync
   endwhile
   while returnkey()=1
   endwhile
endfunction

DIV/DBP-coder

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / text_input()