repeat: Mouse; Teclado; until salir
Publicado por ruben (8 intervenciones) el 26/11/2012 19:58:10
Quisiera saber porque no logro leer el teclado inmediatamente tras la pulsación de cualquier tecla. El teclado reacciona con un gran retardo. Ocurre que recién luego de varios segundos de tener pulsada una tecla el programa la captura con readkey.
En el programita estoy tratando de controlar el mouse y el teclado a la vez. Uso Free Pascal.
Le agregué un contador para ver los ciclos.
El mouse responde bien, pero el teclado parece dormido.
Gracias por tu atención.
En el programita estoy tratando de controlar el mouse y el teclado a la vez. Uso Free Pascal.
Le agregué un contador para ver los ciclos.
El mouse responde bien, pero el teclado parece dormido.
Gracias por tu atención.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program testKbdMouse;
Uses mouse, crt;function hayMouse:boolean;Var
Buttons : Byte ;begin
InitMouse ;
Buttons := DetectMouse ;
hayMouse := Buttons <> 0;
DoneMouse
end;
Var
Event : TMouseEvent ; r: real; salir: boolean;tec1, tec2: char;
begin
if hayMouse() then
begin
clrscr;
InitMouse;
ShowMouse;
cursoroff;
r := 0;
salir := false;
Repeat
if PollMouseEvent(event) then
GetMouseEvent(Event);
gotoxy(10,10); write(r:0:3); r := r + 0.001;
gotoxy(10,12); write(event.x,':',event.y,' ');
gotoxy(10,14); write('btns:',event.buttons,' ');
gotoxy(10,16); write('actn:',event.action,' ');
if keypressed then
begin
tec1 := readkey;
gotoxy(10,2); write('tec1:',ord(tec1),' ');
if tec1 = #27 then
salir := true
else if tec1 = #0 then
begin
tec2 := readkey;
gotoxy(10,3); write('tec2:',ord(tec2),' ');
end
end
until salir;
cursoron;
DoneMouse
end;
end.Valora esta pregunta
0