Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SMcNeill on November 01, 2019, 11:12:17 am

Title: Terry Ritchie's GLInput Library
Post by: SMcNeill on November 01, 2019, 11:12:17 am
A lot of our newer members have asked about how to get input from a graphical position here recently, so I wanted to bring Terry's GLInput library back to folks attention.

Inside the attached ZIP folder is all the necessary components to add Terry's library to your work, as well as several demos which he wrote to showcase how things perform.  Heck, there's even a PDF file documenting everything, to make it easy to learn and use...   

Normally, I'd post some example code to showcase how everything works when sharing a library like this, but Terry has did such a good job writing and documenting his, that I don't feel like doing such is necessary.  Just download the library, run the demos, read the PDF, and follow the instructions to add GLINPUT to your own projects.  :)
Title: Re: Terry Ritchie's GLInput Library
Post by: TempodiBasic on November 01, 2019, 11:34:41 am
Thanks to share Steve, I don't know if I have in one of the folders named QB64Store that are in different notebooks!
Title: Re: Terry Ritchie's GLInput Library
Post by: TempodiBasic on November 02, 2019, 01:36:07 pm
Hi
very fine this library, just follow the PDF and you manage it easily!
here a code example adding something to the last example in the PDF
Code: QB64: [Select]
  1. '$INCLUDE:'glinputtop.bi'
  2. CONST FALSE = 0, TRUE = NOT FALSE
  3. DIM helloworld%
  4. DIM helloworld$
  5. DIM wallpaper&
  6. DIM x%, y%
  7. wallpaper& = _NEWIMAGE(640, 528, 32) ' create image to use as background
  8. _DEST wallpaper&
  9. LINE (0, 0)-(639, 527), _RGB32(0, 0, 127), BF
  10. FOR y% = 1 TO 11
  11.     FOR x% = 1 TO 13
  12.         CIRCLE (x% * 48 - 17, y% * 48 - 24), 24, _RGB32(0, 0, 0)
  13.         PAINT (x% * 48 - 17, y% * 48 - 24), _RGB32(0, 0, 96), _RGB32(0, 0, 0)
  14.     NEXT x%
  15. NEXT y%
  16. SCREEN _NEWIMAGE(640, 480, 32)
  17. _PUTIMAGE (0, 0), wallpaper&
  18. ' show background image
  19. helloworld% = GLIINPUT(100, 100, GLIALPHA, "Hello World: ", TRUE)
  21.     GLICLEAR
  22.     ' must be first line in any loop
  23.  
  24.     _LIMIT 32
  25.     y% = y% - 1
  26.     IF y% = -48 THEN y% = 0
  27.     _PUTIMAGE (0, y%), wallpaper&
  28.     LOCATE 1, 1: PRINT "Real time: "; GLIOUTPUT$(helloworld%); " "
  29.  
  30.     GLIUPDATE ' must be the second to last command in any loop
  31.     LOCATE 1, 50: PRINT "Focus on GLinput "; GLICURRENT
  32.     _DISPLAY ' must be the last command in any loop to display results
  33. LOOP UNTIL GLIENTERED(helloworld%)
  34. helloworld$ = GLIOUTPUT$(helloworld%)
  35. LOCATE 2, 1: PRINT "Final : "; helloworld$
  36. GLICLOSE helloworld%, TRUE
  37. '$INCLUDE:'glinput.bi'

this my input function that manage
1. input range of character
2. graphic cohordinates
3. number max of character to take from input
4. waiting Enter to end the input
5. using key arrow to navigate into the string input
6. using key Backspace and Delete to change string input
7. using _LIMIT to no stuck the program in polling for input keys
https://www.qb64.org/forum/index.php?topic=1822.msg110648#msg110648 (https://www.qb64.org/forum/index.php?topic=1822.msg110648#msg110648)
is just an one piece version without
 1. manager of multiple istances of Input field
 2. and manager of background restoring
 3. and CONST for identify the set of character to get as input
 4. auto-managing more input fields by using dedicated functions and subs
Text Only | Text with Attachments