SWEET! Thanks.
Here is the whole thing so far. A few bugs, but works. Just remove the do...loop, add the Dims and Function to your program, and you have a faster input system than the basic "Input" command. Working out the few bug right now. This helped a lot. =D
Rem Project: Type
Rem Created: 12/1/2008 6:44:36 PM
Rem ***** Main Source File *****
` Set up the Global variables.
DIM LastLetter$(1) : `Records the last letter pressed.
DIM Backspace(1) : `If backspace was pressed.
Do
Cls
VariableName$=Type_Input(VariableName$)
Text 1, 1, VariableName$
Sync
Loop
`The function, kinda self-explanitory, look at it a few seconds, and it is easy to figure out from there.
Function Type_Input(VariableName$)
If Keystate(2)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="!"
Else
Input$="1"
Endif
Endif
If Keystate(3)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="@"
Else
Input$="2"
Endif
Endif
If Keystate(4)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="#"
Else
Input$="3"
Endif
Endif
If Keystate(5)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="$"
Else
Input$="4"
Endif
Endif
If Keystate(6)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="%"
Else
Input$="5"
Endif
Endif
If Keystate(7)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="^"
Else
Input$="6"
Endif
Endif
If Keystate(8)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="&"
Else
Input$="7"
Endif
Endif
If Keystate(9)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="*"
Else
Input$="8"
Endif
Endif
If Keystate(10)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="("
Else
Input$="9"
Endif
Endif
If Keystate(11)=1
If Keystate(42)=1 or Keystate(54)=1
Input$=")"
Else
Input$="0"
Endif
Endif
If Keystate(12)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="_"
Else
Input$="-"
Endif
Endif
If Keystate(13)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="+"
Else
Input$="="
Endif
Endif
If Keystate(16)=1
Input$="q"
Endif
If Keystate(17)=1
Input$="w"
Endif
If Keystate(18)=1
Input$="e"
Endif
If Keystate(19)=1
Input$="r"
Endif
If Keystate(20)=1
Input$="t"
Endif
If Keystate(21)=1
Input$="y"
Endif
If Keystate(22)=1
Input$="u"
Endif
If Keystate(23)=1
Input$="i"
Endif
If Keystate(24)=1
Input$="o"
Endif
If Keystate(25)=1
Input$="p"
Endif
If Keystate(26)=1
Input$="["
Endif
If Keystate(27)=1
Input$="]"
Endif
If Keystate(43)=1
Input$="\"
Endif
If Keystate(30)=1
Input$="a"
Endif
If Keystate(31)=1
Input$="s"
Endif
If Keystate(32)=1
Input$="d"
Endif
If Keystate(33)=1
Input$="f"
Endif
If Keystate(34)=1
Input$="g"
Endif
If Keystate(35)=1
Input$="h"
Endif
If Keystate(36)=1
Input$="j"
Endif
If Keystate(37)=1
Input$="k"
Endif
If Keystate(38)=1
Input$="l"
Endif
If Keystate(40)=1
Input$="'"
Endif
If Keystate(39)=1
If Keystate(42)=1 or Keystate(54)=1
Input$=":"
Else
Input$=";"
Endif
Endif
If Keystate(40)=1
If Keystate(42)=1 or Keystate(54)=1
Input$=chr$(34)
Else
Input$="'"
Endif
Endif
If Keystate(44)=1
Input$="z"
Endif
If Keystate(45)=1
Input$="x"
Endif
If Keystate(46)=1
Input$="c"
Endif
If Keystate(47)=1
Input$="v"
Endif
If Keystate(48)=1
Input$="b"
Endif
If Keystate(49)=1
Input$="n"
Endif
If Keystate(50)=1
Input$="m"
Endif
If Keystate(51)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="<"
Else
Input$=","
Endif
Endif
If Keystate(52)=1
If Keystate(42)=1 or Keystate(54)=1
Input$=">"
Else
Input$="."
Endif
Endif
If Keystate(53)=1
If Keystate(42)=1 or Keystate(54)=1
Input$="?"
Else
Input$="/"
Endif
Endif
If Keystate(57)=1
Input$=" "
Endif
If Keystate(42)=1 or Keystate(54)=1
Input$=Upper$(Input$)
Endif
If LastLetter$(1)=Input$
Goto Skip:
Endif
VariableName$=VariableName$+Input$
Skip:
LastLetter$(1)=Input$
If Keystate(14)=1 and Backspace(1)=0
Number=Len(VariableName$)-1
VariableName$=Left$(VariableName$, Number)
Backspace(1)=1
Endif
If Keystate(14)=0
Backspace(1)=0
Endif
EndFunction VariableName$
What do you think? Feel free to use this in any one of your programs. I seen people say they wanna do this, but never did, so I did to practice DBPro. (I also have DBC, where I started, then I got this...) What do you think?
