Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: NOVARSEG on February 06, 2021, 11:36:44 pm

Title: working with LOCATE cursor
Post by: NOVARSEG on February 06, 2021, 11:36:44 pm
Trying to get the LOCATE cursor working with larger screen

LOCATE 26, 27: PRINT "A"
LOCATE 26, 27, 1, 31, 31
see the cursor blinking under the A but I want to make the screen larger and still see the cursor
*****
This works but what about other screen modes / sizes?
_FULLSCREEN
LOCATE 26, 27: PRINT "A"
LOCATE 26, 27, 1, 31, 3

*****
For example
Quote
SCREEN _NEWIMAGE(1024, 768, 32)
LOCATE 26, 27: PRINT "A"
LOCATE 26, 27, 1, 31, 31

shows the letter but not the cursor

****
Whoops sorry this works

Quote
_FULLSCREEN

LOCATE 26, 27, 0
PRINT "A"
LOCATE 26, 27, 1, 31, 31


DO
    IF INKEY$ <> "" THEN EXIT DO
LOOP




Title: Re: working with LOCATE cursor
Post by: NOVARSEG on February 07, 2021, 01:11:35 am
some code to try

Code: QB64: [Select]
  1. _TITLE "Move cursor with LOCATE.  Press ESC to exit"
  2.  
  4.  
  5. LOCATE 26, 27, 0
  6. PRINT "A"
  7. LOCATE 26, 27, 1, 31, 31
  8.  
  10.  
  11. LOCATE 26, 28, 0
  12. PRINT "A"
  13. LOCATE 26, 28, 1, 31, 31
  14.  
  16.  
  18.     IF INKEY$ <> "" THEN EXIT DO
  19.  
  20.     _DELAY 1
  21.     LOCATE 26, 27, 1, 31, 31
  22.     _DELAY 1
  23.     LOCATE 26, 28, 1, 31, 31
  24.     _DELAY 1
  25.     LOCATE 26, 29, 1, 31, 31
  26.  
  28.  
Title: Re: working with LOCATE cursor
Post by: Pete on February 07, 2021, 02:38:55 am
I use...

Cursor hide: LOCATE , , 0
Cursor show: LOCATE , , 1

Also I use use LOCATE , , 1, 7, 0 (hide) LOCATE , , 1, 7, 7 (underline) or LOCATE , , 1, 7, 30 (block) or LOCATE , , 1, 7, 2 (rectangle).

There are other end values that affect the cursor height. 8 is double of 7 and 9 is triple of 7, a fairly thick underscore. 10 is the same as 30. 2 is a tall block. Since some of the numbers produce the same results like 30 and 31, I suppose it's just up to the user to pick a preference.

Pete
Pete
Title: Re: working with LOCATE cursor
Post by: NOVARSEG on February 07, 2021, 03:50:11 am
Code: QB64: [Select]
  1. _TITLE "Move cursor with LOCATE.  Press ESC to exit"
  3.  
  5.  
  6. n$ = "1357364"
  7.  
  8. FOR x = 1 TO LEN(n$)
  9.  
  10.     LOCATE 26, 27 + x, 1, 31, 31
  11.     _DELAY 1
  12.  
  13.     PRINT MID$(n$, x, 1)
  14.     LOCATE 26, 28 + x, 1, 31, 31
  16.  
  18.  
  19. FOR x = LEN(n$) TO 1 STEP -1
  20.     LOCATE 26, 27 + x, 1, 31, 31
  21.     _DELAY 1
  23.  
  24.  
Text Only | Text with Attachments