[SOLVED] get cursor location

[xra7en]

Not sure if it was QB, but is there a fuction for the following on a 80x25 text screen

clearEol (clears text at cur position to the end of the line)
wherex, wherey: returns location of cursor (not mouse)

[Pete]

clearEOL, not in traditional QB. You need to locate the cursor and use something like this: PRINT STRING$(80 - POS(0), 32);

wherex, wherey: Yes, CSRLIN returns the text cursor row position while POS(0) returns the text cursor column position.

Pete

[xra7en]

oh man yer soooo fast. I was still looking while I posted that (I am very impatient LOL).. here is what I came up with

Code: [Select]

    x = CSRLIN
    y = POS(0)
    LOCATE x, y: PRINT "some cool text: "
Hope that helps some one.

ps
I just recently found _printstring. Will have to look into that

[Ashish]

Do you want something like this from clearEol()?

Code: QB64: [Select]

1.  
2. PRINT "QB64!"
3. SLEEP
4. PRINT "Forever!!"
5. SLEEP
6. clearEol
7. SLEEP
8.  
9.  
10. SUB clearEol ()
11.     row% = CSRLIN
12.     column% = POS(0)
13.     LOCATE row% - 1, column%
14.     PRINT SPACE$(80 - column%)
15. END SUB
16.  

[Pete]

Or...

Code: QB64: [Select]

1. PRINT
2. PRINT
3. PRINT
4. PRINT "Who are better, Conservatives";
5. x = CSRLIN: y = POS(0)
6. PRINT " or Liberals?"
7. PRINT
8. PRINT "Press any key for answer..."
9. SLEEP
10. LOCATE x, y: PRINT STRING$(80 - y, 32);
11. END

Pete 😁

[xra7en]

I did this :-)

Code: QB64: [Select]

1. SUB clrEol (thisRow)
2.     PRINT STRING$(80 - thisRow, 32);
3. END SUB
4.  

your second one is good too, but the "L" is not capitalized :P


actually, now that I think about it, i might expand this to include row and col and len of string[/code]

[Pete]

Another one you might like for clearing just a portion of the SCREEN, CLS 2, when combined with VIEW PRINT...

Code: QB64: [Select]

1. COLOR 15, 1: CLS
2. msg$ = "This is the Title of the Program Window"
3. LOCATE 1, 40 - LEN(msg$) / 2: PRINT msg$
4. PRINT STRING$(80, 196)
5. LOCATE 24, 1
6. PRINT STRING$(80, 196);
7. LOCATE 25, 1
8. msg$ = "Press a key to continue this demo..."
9. PRINT msg$;
10.  
11. VIEW PRINT 3 TO 23
12. COLOR 7, 0: CLS 2 ' Change only the viewable area to black background with white text.
13. FOR i = 1 TO 21
14.     LOCATE i + 2, 1: PRINT i;
15. NEXT
16. SLEEP
17.  
18. CLS 2
19.  
20. PRINT "See? CLS 2 only cleared the VIEW PRINT area, and left the skin intact!";
21. SLEEP
22. SYSTEM
23.  

Pete