jesgarman
13 de Octubre del 2003

por favor si alguien sabe como inicializar el raton para poder trabajar con el en turboc++ 3.0 se lo agradeceria

el otro
13 de Octubre del 2003

nit Raton;
interface

function Zraton:boolean;
procedure ZMuestraraton;
procedure Zesconderaton;
procedure Zposicion(var x,y:word;var boton:byte);
procedure Zzonahorizontal(x1,x2:word);
procedure Zzonavertical(y1,y2:word);
procedure Zposicionacursor(x,y:integer);

implementation

function Zraton:boolean;
var bandera:integer;
begin
asm
mov ax,0
int $33
mov bandera,ax
end;
if bandera=0 then
Zraton:=false
else
Zraton:=true
end;
procedure ZMuestraraton;assembler;
asm
mov ax,1
int $33
end;
procedure Zesconderaton;assembler;
asm
mov ax,2
int $33
end;

procedure Zposicion(var x,y:word;var boton:byte);
var
posx,posy,edo:word;
begin
asm
mov edo,0
mov ax,3
int $33
mov posx,cx
mov posy,dx
mov edo,bx
end;
x:=posx; y:=posy;
boton:=edo;
end;

procedure ZModo13h;assembler;
asm
mov ah,0
mov al,13h
int 10h
end;

procedure Zzonahorizontal(x1,x2:word);assembler;
asm
mov ax,0007h
mov cx,x1
mov dx,x2
int 33h
end;

procedure Zzonavertical(y1,y2:word);assembler;
asm
mov ax,0008h
mov cx,y1
mov dx,y2
int 33h
end;
procedure Zposicionacursor(x,y:integer);assembler;
asm
mov ax,0004h
mov cx,x
mov dx,y
int 33h
end;


begin
end.



nomas pasalo a c nada te cuesta

fregon
13 de Octubre del 2003

Mira es muy facil.............................
te boy a decir de una manera muy facil para
que aprendas.....
Te puedes meter el raton por el Culoooo...................
pero tambien sufriras..... pero te gustara.... hasta luego puto...