Come chat with me!
#6
Thanks for chatting with me, Steve.  It will be fun building on this little messenger.  Hi mnrvovrfc, I wondered who that was.

I changed a couple lines to suit my taste, added a blinking cursor showing where I am typing, and also added a CLS in the view print area because long messages just didn't clear right for me.  Here it is in case others want to add it.  In the SendMessage SUB I edited the VIEW PRINT area code to this:

Code: (Select All)
VIEW PRINT 22 TO 24: CLS '<<< Added CLS to clear all
'LOCATE 22, 1: PRINT SPACE$(80); ' erase previous message displayed  '<<< not needed now
LOCATE 22, 1: PRINT myname$ + ": "; mymessage$;
IF INT(RND * 2) = 1 THEN PRINT "_"; ELSE PRINT " "; '<<< show a blinking cursor

- Dav

Find my programs here in Dav's QB64 Corner
Reply


Messages In This Thread
Come chat with me! - by SMcNeill - 12-10-2022, 12:06 PM
RE: Come chat with me! - by mnrvovrfc - 12-10-2022, 03:06 PM
RE: Come chat with me! - by SMcNeill - 12-10-2022, 05:13 PM
RE: Come chat with me! - by Pete - 12-10-2022, 05:29 PM
RE: Come chat with me! - by mnrvovrfc - 12-11-2022, 03:01 AM
RE: Come chat with me! - by Dav - 12-11-2022, 03:35 AM
RE: Come chat with me! - by mnrvovrfc - 12-11-2022, 08:29 AM



Users browsing this thread: 3 Guest(s)