Hola,buenas....tengo un error en programacion y no encuentro como arreglarlo....
Lo que quiero es que cuando pulse la tecla _a acceda al proceso sube() si pulso la tecla _up entonces el valor=valor+1 ,es decir, si pulso por primera
vez la tecla _up deberia valer 1...si pulsara dos veces la tecla _up deberia valer 2....
/*
* teclado.PRG by o
* (c) 2016 o
*/
PROGRAM teclado;
global
valor=0;
valor2=0;
BEGIN
write_int(0, 30, 24, 4, OFFSET valor); // A variable is displayed.
write_int(0, 40, 24, 4, OFFSET valor2); // A variable is displayed.
teclados();
sube();
loop
frame;
end
END
process sube()
private pa;
BEGIn
loop
if (key(_up)==1)
if (pa!=1)
valor2=valor2+1;
pa=1;
end
else
pa=0;
end
frame;
end
END
process teclados()
private pa;
BEGIn
loop
if (key(_a)==1)
if (pa!=1)
valor=valor+1;
pa=1;
end
sube();
I think your logic is a bit strange but I can try to help you
Code:
/*
* up.prg by MikeDX
* (c) 2016 DX Games
*/
PROGRAM up;
GLOBAL
value2;
BEGIN
//Write your code here, make something amazing!
write_int(0,0,0,0,&value2);
doup();
loop
frame;
end
END
process doup()
private
oldup;
BEGIN
LOOP
// check up pressed
if(key(_up))
value2=1;
if(oldup>0) // if we pressed up twice within 10 frames
value2=2;
end
oldup=10; // 10 frames to press up again
end
while(key(_up)) // wait for up to be released
if(oldup>0)
oldup--;
end
frame;
end
oldup--;
frame;
value2=0;
end // end loop
end // end process
![[*]](images/davis/default_icon.gif){kind=icon}
