how make a box using text mode,mine doesn't work please help

[bilal]

%this is my program i can anyone fix because mine doesn't work, also the user has to output the numbers for the box and his is to be done in text mode
var x1, x2, y1, y2 : int
var c : string
put "Enter width of the box for :"
get x1
put "Enter height of the box in pixels:"
get x2
put "Enter x-coordinate of the lower-left corner of the box in pixels:"
get y1
put "Enter y-coordinate of the lower-left corner of the box in pixels:"
get y2
put "enter the character "
get c
cls
for horiz : 1 .. 80
locate (horiz,x2)
put c ..
locate (horiz,x1)
put c..
end for
for width : 1 .. 25
locate (y1, width)
put c ..
locate (y2, width)
put c..
end for

[ssr]

One suggestion first
use

code:

This

[ssr]

Do u really want the "for"?
ummm...
So u r making a program that draws boxes in chars eh?
is it?

[Neo]

Use the font commands instead as locate is not the same on every computer.
Here is some code to get you started:

code:

var width, x, y : int var widthChar, character : string := ("") var font : int := Font.New ("ROCKWELL:9:BOLD") put "Enter width of the box for :" get width put "Enter x-coordinate:" get x put "Enter y-coordinate:" get y put "Enter Character:" get character for i : 1 .. width     widthChar += character end for Font.Draw (widthChar, x, y, font, black)

[Neo]

EDIT: Double posted by accident... someone delete this one.

[ssr]

Is it something like that, get the user's input and draw boes?
8)
hope to be helpful

code:

setscreen ("graphics:1024;768") var w1, h2, x2, y1 : int var c : string put "Enter width of the box for :" get w1 put "Enter height of the box in pixels:" get h2 put "Enter x-coordinate of the lower-left corner of the box in pixels:" get x2 put "Enter y-coordinate of the lower-left corner of the box in pixels:" get y1 put "enter the character " get c cls for i : 0 .. w1-1     locate (y1, x2+i)     put c     locate (y1 + h2-1, x2+i)     put c end for for i : 1 .. h2-2     locate (y1+i, x2)     put c     locate (y1+i, x2+w1-1)     put c end for

[Cervantes]

bilal wrote:

to be done in text mode

If you actually mean that, that would mean using View.Set ("text"). None of the code posted so far is in text mode; none of the code posted so far works when put into text mode.
Is that actually what you mean, or do you just mean without using graphics?

[bilal]

this time it real makes a box but their still some errors, so if you find any errors can you fix it or tell me about it. enter these numbers to make a box "5,10,5,10" in order.

var x1, x2, y1, y2 : int
var c : string
put "Enter width of the box for :"
get x1
put "Enter height of the box in pixels:"
get x2
put "Enter x-coordinate of the lower-left corner of the box in pixels (0-",maxcol,")"
get y1
put "Enter y-coordinate of the lower-left corner of the box in pixels:"
get y2
put "enter the character "
get c
cls
for horiz : x1 .. x2
locate (x2,horiz)
put c..
locate (x1,horiz)
put c..
end for
for width : y1 .. y2
locate (width,y2)
put c..
locate (width,y1)
put c..
end for

[ssr]

try 4,2,5,6,c it wont really work
and try my code, not in teh text mode, I know, but thats what he meant, I guess, draw boxes in text. 8)

[ste_louis26]

u could also use locatexy to do it in pixels and errortrap the range