Ooops
November 25, 2020, 05:26:59 AM

Author Topic: [bb] Simple input function by DougUK [ 1+ years ago ]  (Read 542 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] Simple input function by DougUK [ 1+ years ago ]
« on: June 29, 2017, 12:28:42 AM »
Title : Simple input function
Author : DougUK
Posted : 1+ years ago

Description : To call the function just add:
inputText$=string_input$(aString$,20,100,150)  ; string,numberOfLetters,x,y

Handy for name input, text chat etc!


Code :
Code: BlitzBasic
  1. Function string_input$(aString$,n,x,y)
  2. Repeat
  3.  If value=0 Then
  4.         length=Len (aString$)
  5.         If length>n-1 Then             
  6.                 Return aString$        
  7.                 Exit
  8.         EndIf
  9.         While Not value
  10.                 value=GetKey()
  11.         Wend
  12.         If value=13 Then ; enter key
  13.         Return aString$
  14.         Exit
  15.         EndIf
  16.         If KeyDown (29) And value>0 Or KeyDown(157) And value>0 Then ; catch control keys
  17.         value=0
  18.         Else
  19.                 If value>0 And value<7 Or value>26 And value<32 Or value=9 Then ;catch unwanted keys
  20.                         value=0
  21.                 Else
  22.                 If value=8 Then ;backspace key
  23.                         If length>0 Then
  24.                                 aString$=Left$ (aString$, length-1)
  25.                         EndIf
  26.                 Cls
  27.                 Text x,y, aString$
  28.                 value=0
  29.                 Else
  30.                         aString$=aString$+Chr$ (value)
  31.                         Cls
  32.                         Text x,y, aString$
  33.                         value=0
  34.                 EndIf
  35.                 EndIf
  36.         EndIf
  37. EndIf
  38. Forever
  39. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal