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: AustraliaPosts: 5923 |
Sorry about the missing link http://www.thebackshed.com/forum/forum_posts.asp?TID=9676&KW=vt100 Jim VK7JH MMedit MMBasic Help |
||||
plover Guru Joined: 18/04/2013 Location: AustraliaPosts: 302 |
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. |
||||
Page 5 of 5 |
Print this page |