make backspace work - GameCreators Forum

developer forums

Newcomers DBPro Corner / make backspace work

Author

Message

HowDo

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Apr 2005 01:19

Link

Hi All

Have taken this code from an old BBC micro book and it deals with key inputs, can't seem to get it to do what I wish.

Anyone out there think they can see how its works, try fixing it.

+ Code Snippet

rem Standard Setup Code
sync on : sync rate 0
set text font "arial" : set text size 14
global temp$ temp1$

do
cls
gosub _input
sync
loop

_input:
temp$=""
temp1$=""
repeat
if inkey$()<>"" and keypressed<>1
keypressed=1
`temp$=oldtemp$+inkey$()
temp$=entry$()
if right$(temp$,1)>="a" and right$(temp$,1)<="z"
temp$=upper$(temp$)
endif

if temp$=" " and temp$<="Z" and  len(temp1$)<15
temp1$=temp1$+temp$
set cursor 20,20
cls
print ":";temp$
print ":";temp1$
sync
endif

if temp$=chr$(127) and len(temp1$)>0
temp$=left$(temp1$,len(temp1$)-1)
set cursor 20,20
print ":"; temp$
print ":";temp1$
sync
endif
keypressed=0
endif
`oldtemp$=temp$
cls
set cursor 20,20
print ":";temp$

sync

until returnkey()=1 and len(temp1$)>0

return

In Space No One can Hear You Scream! (When your comm Line is cut?)

Profile PM

Gil Galvanti

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 3rd Apr 2005 12:19

Link

When you say "make backspace work" do you mean so it will delete the previous letter? if so that was in one of my threads here: http://forum.thegamecreators.com/?m=forum_view&t=44690&b=1&p=1
hope that helps!

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.

Profile PM Website

Server time is: 2024-09-23 17:17:56
Your offset time is: 2024-09-23 17:17:56

Sorry your browser is not supported!

Newcomers DBPro Corner / make backspace work