Hi,
I am facing the problem in visual basic. My quesion is how to convert the below pascal in vb.
procedure coordinates(x, y:real; var sx, sy:integer; var OnScreen:boolea n);
begin
sx:= round((getmaxx / Rx) * x + ((-getmaxx/Rx) * X_max + getmaxx));
sy:= round((-getmaxy / Ry) * y + ((getmaxy/Ry) * Y_min + getmaxy));
onscreen:= not ((sx < 0) or (sy < 0) or (sx > getmaxx) or (sy > getmaxy));
end;
thanks
Reader
I am facing the problem in visual basic. My quesion is how to convert the below pascal in vb.
procedure coordinates(x, y:real; var sx, sy:integer; var OnScreen:boolea n);
begin
sx:= round((getmaxx / Rx) * x + ((-getmaxx/Rx) * X_max + getmaxx));
sy:= round((-getmaxy / Ry) * y + ((getmaxy/Ry) * Y_min + getmaxy));
onscreen:= not ((sx < 0) or (sy < 0) or (sx > getmaxx) or (sy > getmaxy));
end;
thanks
Reader