Board logo

标题: Convert Pascal to Visual Basic [打印本页]

作者: Joe    时间: 2006-8-1 00:35     标题: Convert Pascal to Visual Basic

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:boolean);
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
Joe

作者: 风雨声中    时间: 2006-8-1 09:54

Sub coordinates(x As Single, y As Single, sx As Integer, sy As Integer, OnScreen As Boolean)
    sx = Round((getmaxx / Rx) * x + ((-getmaxx / Rx) * X_max + getmaxx))
    sy = Round((-getmaxxy / Ry) * y + ((getmaxy / Ry) * Y_min + getmaxy))
    OnScreen = Not ((sx < 0) Or (sy < 0) Or (sx > getmaxx) Or sy > (getmaxy))
End Sub
作者: Joe    时间: 2006-8-1 10:38

Thanks a lot




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0