主题:求助~一个关于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]
为什么在生成可以独立运行的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]