Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cursor avec typewriter effect
#1
Big Grin 
Hello world, hm, my name is Alain, i'm French (sorry if my english can be weird), so i would like to make the same display like this with a cursor :

[Image: AncientHonorableHog-size_restricted.gif]

And i can do this "bas" file, now :

Code:
_FULLSCREEN: SCREEN 9

DIM Text AS STRING
DIM Count AS INTEGER
DIM Start AS SINGLE

Text$ = "GREATINGS PROFESSOR FALKEN."
Curs$ = "Û"

COLOR 11, 0
CLS

gogo:
COLOR 11, 0
PRINT: PRINT
PRINT "";: INPUT "", A$

hop:
TIMER ON
FOR Count = 1 TO LEN(Text$)
    Start = TIMER
    COLOR 11, 0: PRINT MID$(Text$, Count, 1);
    DO
    LOOP UNTIL TIMER > Start + .01
NEXT Count
TIMER OFF
GOTO gogo


But, i don't know, how to diplay 'Curs$', after each letter of 'Text$', that the program display. And disappear at the end, to let the place for the cursor of the user...

Any idea to do that, please?

Thanks for your advice, and have a nice week Wink

Alain.
Reply


Messages In This Thread
Cursor avec typewriter effect - by vegetalain - 12-08-2020, 12:10 AM
RE: Cursor avec typewriter effect - by jofers_ - 01-21-2021, 05:20 PM

Forum Jump:


Users browsing this thread: 1 Guest(s)