Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Backspace Key
#8
Is the inkey example useful? I don't remember Smile  Here's an example that makes sense.

Code:
set window "test", 640, 480
set redraw off

' input text with 'inkey'.

' allowed characters.
charFilter = []
for i = 32 to 126  charFilter[i] = true
inputString = ""
blinkTimer = 0
while not keydown(KEY_RETURN)
    blinkTimer = (blinkTimer + 1)%60
    c = inkey()
    while c
        if key(charFilter, c)  inputString = inputString + chr(c)
        elseif c = 8  inputString = left(inputString, len(inputString) - 1)
        c = inkey()
    wend
    set color 0, 0, 0
    cls
    set color 255, 255, 255
    set caret 0, 0
    write "Enter something: " + inputString
    if blinkTimer%60 < 30  write "_"
    redraw
    fwait 60
wend

' or just use 'rln'
wln
write "Enter something else: "
otherInputString = rln()
Reply


Messages In This Thread
Backspace Key - by 1micha.elok - 04-23-2025, 03:22 AM
RE: Backspace Key - by johnno56 - 04-23-2025, 06:32 AM
RE: Backspace Key - by Marcus - 04-23-2025, 07:56 PM
RE: Backspace Key - by Marcus - 04-24-2025, 01:37 PM
RE: Backspace Key - by 1micha.elok - Yesterday, 12:57 AM
RE: Backspace Key - by johnno56 - Yesterday, 08:58 AM
RE: Backspace Key - by 1micha.elok - Yesterday, 11:37 AM
RE: Backspace Key - by Marcus - 10 hours ago
RE: Backspace Key - by 1micha.elok - 1 hour ago

Forum Jump:


Users browsing this thread: 3 Guest(s)