Pascal/Turbo Pascal - Urgente

   
Vista:

Urgente

Publicado por Darvin (3 intervenciones) el 03/06/2010 18:48:35
Necesito programar juegos en pascal en los cuales pueda utilizar el mouse y teclado, ademàs necesito que tengan una interfaz gràfica bastante atractiva; podrian proporcionarme informacion....gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente

Publicado por martin (74 intervenciones) el 05/06/2010 11:15:01
Hola Darvin:
No concretas lo que precisas. Yo te puedo pasar el código fuente de la Unit Mouse para T/P, y la web de un manual básico para programar en modo gráfico.
Tu dirás.
Un saludo.
antonio
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente

Publicado por Darvin (3 intervenciones) el 05/06/2010 18:37:54
Te agradezco por la ayuda y me parece perfecto si me `pasas la informacion que tengas.
Gracias.
Saludos
darvin
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente

Publicado por martin (74 intervenciones) el 06/06/2010 00:36:09
http://www.fortunecity.com/skyscraper/seagate/1072/indice.htm

Unit mouse;
interface
var
Mouse_Enable,
MousePtr_Active : Boolean;
Buttons : byte;

procedure Initmouse;
procedure ShowCursorMouse;
procedure HideCursorMouse;
procedure GetStatus_Position(var Status,Xpos,Ypos : word);

implementation
uses dos;
const
MouseInt = 51;

var
Regs : Registers;

procedure InitMouse;
begin
Regs.Ax := 0;
Intr(MouseInt,regs);

if Regs.Ax <> 0 then
begin
mouse_Enable := true;
Buttons := Regs.Bx
end

else
Mouse_Enable := False
end;

procedure ShowCursorMouse;
begin
Regs.Ax := 1;
Intr(MouseInt,regs);
MousePtr_Active := true
end;

procedure HideCursorMouse;
begin
Regs.Ax := 2;
Intr(Mouseint, regs);
MousePtr_Active := false
end;

procedure GetStatus_Position(Var Status, Xpos,Ypos : word);
begin
regs.ax := 3;
Intr(mouseint,regs);
with regs do
begin
Status := BX;
Xpos := CX;
Ypos := DX
end
end;

begin {programa principal}
Mouse_Enable := false;
MousePtr_Active := false;
Buttons := 0
end.

Hola: Como puedes comprobar, en principio está la web del manual y lo siguiente es el código fuente para el ratón.
Espero te sean útil.
Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente

Publicado por martin (74 intervenciones) el 06/06/2010 00:41:42
http://www.fortunecity.com/skyscraper/seagate/1072/indice.htm

Unit mouse;
interface
var
Mouse_Enable,
MousePtr_Active : Boolean;
Buttons : byte;

procedure Initmouse;
procedure ShowCursorMouse;
procedure HideCursorMouse;
procedure GetStatus_Position(var Status,Xpos,Ypos : word);

implementation
uses dos;
const
MouseInt = 51;

var
Regs : Registers;

procedure InitMouse;
begin
Regs.Ax := 0;
Intr(MouseInt,regs);

if Regs.Ax <> 0 then
begin
mouse_Enable := true;
Buttons := Regs.Bx
end

else
Mouse_Enable := False
end;

procedure ShowCursorMouse;
begin
Regs.Ax := 1;
Intr(MouseInt,regs);
MousePtr_Active := true
end;

procedure HideCursorMouse;
begin
Regs.Ax := 2;
Intr(Mouseint, regs);
MousePtr_Active := false
end;

procedure GetStatus_Position(Var Status, Xpos,Ypos : word);
begin
regs.ax := 3;
Intr(mouseint,regs);
with regs do
begin
Status := BX;
Xpos := CX;
Ypos := DX
end
end;

begin {programa principal}
Mouse_Enable := false;
MousePtr_Active := false;
Buttons := 0
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente

Publicado por Darvin (3 intervenciones) el 07/06/2010 18:44:42
gracias por tu ayuda me ha servido mucho.
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar