回 帖 发 新 帖 刷新版面

主题:求助~一个关于QB生成的EXE文件的问题

我写的这个鼠标响应在QB45下按F5可以正常运行(/L 启动的QB)
为什么在生成可以独立运行的EXE时出现错,提示如下:
Overflow in moudle MOUSE at address 058B:04A5
Hit any key to return to system
而且我无法删除这个EXE,为什么,哪位大大能给我说说啊~
下面是源码:
'$include:'qb.bi'
screen 12
mouse 0,0,0,0
mouse 1,0,0,0
a%=0:b%=0
mouse a%,b%,0,0
print a%,b%
aa=0:bb=0
x=0:y=0
do
    color 10
    locate 3,10
    if aa<>x or bb<>y then
        drawmouse x,y,0
        x=aa
        y=bb
    end if
    aa=mouse.x
    bb=mouse.y
    print aa;bb
    drawmouse aa,bb,10
loop while inkey$<> chr$(27)
end
sub drawmouse(xm,ym,col)
    line (xm,ym)-(xm+5,ym),col
    line (xm,ym)-(xm,ym+5),col
    line (xm+5,ym)-(xm,ym+5),col
    paint (xm+1,ym+1),col
    line (xm,ym)-(xm+10,ym+10),col
end sub
sub mouse(a%,b%,c%,d%)
    dim inr as regtype,outr as regtype
    inr.ax=a%
    inr.bx=b%
    inr.cx=c%
    inr.dx=d%
    interrupt &h33,inr,outr
    a%=outr.ax
    b%=outr.bx
    c%=outr.cx
    d%=outr.dx
end sub
function mouse.x
    mouse 3,0,x%,y%
    mouse.x=x%
end function
function mouse.y
    mouse 3,0,x%,y%
    mouse.y=y%
end function



[flash]http://photo.gznet.com/photos/1565766/small-1565766-Gz2f4qlSq7.JPG[/flash]

回复列表 (共3个回复)

沙发

上面的错误图:
[img]http://photo.gznet.com/photos/1565766/1565766-Gz2f4qlSq7.JPG[/img]

板凳

来个大大帮帮忙啊
来个大大帮帮忙啊
来个大大帮帮忙啊
斑竹在吗,帮帮我~~~~~~~~~~~

3 楼

不好意思,
我因为不太在行,
所以不太敢哼声.

既然说的是 mouse 模块溢出,
就改一改吧,
会不会是短整形溢出?
把百分号% 去掉看看喽.

或者是不是该把AX改成AH,AL什么的.

我来回复

您尚未登录,请登录后再回复。点此登录或注册