TheBackShed.com

Home	JAQForum Ver 24.01
Log In or Join
Active Topics
Local Time 16:55 02 Aug 2025	Privacy Policy
Jump to

Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.

Forum Index : Microcontroller and PC projects : Killed microprosessor

Page 5 of 5

Author

Message

TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6283

Posted: 09:22pm 14 Aug 2017

Copy link to clipboard

Print this post

Sorry about the missing link
http://www.thebackshed.com/forum/forum_posts.asp?TID=9676&KW=vt100

Jim

VK7JH
MMedit

plover

Guru

Joined: 18/04/2013
Location: Australia
Posts: 306

Posted: 03:12am 15 Aug 2017

Copy link to clipboard

Print this post

The link explains what you were trying to tell me. I could not help having a go, though a little bit premature for me to jump into Function at this stage.

[code]
Function at$(x,y)
[/code]

Above seemed perfect so I added this to my little program

Function at$(x,y)
at$=Chr$(27)+"["+Str$(Y)+";"+Str$(X)+"H"
End Function

Timer = 0
p=1
DO WHILE Timer < 4000
PRINT at$(10,10) "Hello ", p
p=p+1
pause 200
LOOP

First I used following robert.rozee program it works fine in MME VT. I copied and pasted from the link referred above into MME and loaded into Micro. Then took just the at$(x,y) function and added to my code.

Originally I added the function at the bottom of my code but I had made a mistake and got an error when running. Thinking I perhaps should have added function first, as above, but still got the error when running.

Soon after I spotted the error and made correction and my program worked as I was looking for, Counting "on the spot"

clrscr

For X = 1 To 10
For Y = 1 To 5
Print at$((X*5)+10,(Y*2)+2) X*Y
Next Y
Next X

Print at$(1, 20) "press enter to exit ";
Line Input S$
End

Function at$(x,y)
at$=Chr$(27)+"["+Str$(Y)+";"+Str$(X)+"H"
End Function

Sub clrscr
Print Chr$(27)+"[2J";
End Sub

One more little bit learned.Edited by plover 2017-08-16

Page 5 of 5

Print this page

To reply to this topic, you need to log in.