[mono-vb] unhandled exception in sub locate()
jdashiel at shellworld.net
Mon Mar 1 21:31:46 EST 2010
What I'm trying to do with this program is to have the alphabet written on
line 3 starting at column 0 then have the set of counting numbers written
on line 2 starting at column 13. The stuff to do this is in the locate()
subroutine and ought to be proper ansi.sys code. The locate command was
in qbasic and since no console-based equivalent exists I figured to
experiment and see if one could be written that uses ansi code. An
alternative I have working now is to fill a 2,000 character array and have
basic write it to the screen for me then clear that array and reload that
array before writing again.
-------------- next part --------------
Option Strict On
Public ws As String=""
public ro as ushort =0
public co as ushort =0
public ls As String =chr(27)+chr(84)
public ms as string =";"
public rs as string ="H"
dim astring As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
dim nstring As String ="0123456789"
ws = ls
ws = ws + ltrim(tostring(ro))
ws = ws + ms
ws = ws + ltrim(tostring(co))
ws = ws + rs
More information about the Mono-vb