[Help] Get Statements

[tjmoore1993]

What is it you are trying to achieve?
I am trying to get a reply from a user but only limiting them to entering a max of 8 characters.

Describe what you have tried to solve this problem
Honestly, I was not able to try things because I had no clue where to start.

Please specify what version of Turing you are using
I am using version 4.xx


To summarize this, If it is possible to stop input after a certain ammount of characters. Please share what you know.

Example:
Rodney buttface < This is 15 characters long
I want this
Rodney b < 8 characters long

[Tony]

read up documentation on get

code:

get foo:8

Although that will not prevent them from typing more than 8 characters, just the reading part (and the rest will be left over in a buffer).

Alternatively you could write your own read-buffer loop with getch

[tjmoore1993]

Problem solved thanks to Tony's excellent resourcing skills.

Turing:

setscreen ("graphics") var name : string := "" var x : int := 0 procedure getKey     var ch : string (1)     getch (ch)     name += ch     cls end getKey for i : 1 .. 8     x := x + 1     locate (1, x)     getKey     put name end for

[Tony]

bonus Tonys-approval points will be given out for implementing the use of backspace

[tjmoore1993]

I will work on it a bit more. That was just a simple fix

[Euphoracle]

Problem now is that people can't back-space errors, right?

[Tony]

and that one would have to type out a bunch of spaces, to enter a word less than 8 characters.

[Dusk Eagle]

How about this Tony?

Turing:

var name : string := "" var x : int := 0 const BACKSPACE := 8 fcn getKey (word:string):string     var ch : string (1)     getch (ch)     cls     if ord(ch) = BACKSPACE then         result word (1..length(word)-1) %returns all letters in word except the last one.     else         result word+ch     end if end getKey loop     exit when length(name) = 8     locate (1, length(name)+1)     name := getKey(name)     put name end loop put name

[Tony]

Crashes the program if you try to backspace on an empty string.

[Dusk Eagle]

Well that's not hard to fix:

Turing:

var name : string := "" var x : int := 0 const BACKSPACE := 8 fcn getKey (word : string) : string     var ch : string (1)     getch (ch)     cls     if ord (ch) = BACKSPACE then         if length (word) = 0 then             result word         else             result word (1 .. length (word) - 1) %returns all letters in word except the last one.         end if     else         result word + ch     end if end getKey loop     exit when length (name) = 8     locate (1, length (name) + 1)     name := getKey (name)     put name end loop

Are there any other errors with this program? Because I can't find any.

[Tony]

I think that takes care of the backspace.

[tjmoore1993]

Dusk Eagle @ Mon Apr 27, 2009 11:01 pm wrote:

Well that's not hard to fix:

Turing:

var name : string := "" var x : int := 0 const BACKSPACE := 8 fcn getKey (word : string) : string     var ch : string (1)     getch (ch)     cls     if ord (ch) = BACKSPACE then         if length (word) = 0 then             result word         else             result word (1 .. length (word) - 1) %returns all letters in word except the last one.         end if     else         result word + ch     end if end getKey loop     exit when length (name) = 8     locate (1, length (name) + 1)     name := getKey (name)     put name end loop

Are there any other errors with this program? Because I can't find any.

Error:
You can not backspace when max characters are entered.

Request:
If possible could you make it work so if the key enter is pushed it will do an action but still maintain that 8 char limit.

This really means a lot!