[HP-Prime] Simple Game (Bugs)



#3

In spanish =(

EXPORT Deducir_Numero2()
// port (version 0.0.3) to HP-Prime by compSystems, source code original by PABLO. coder ZINJAI, PSEINT : http://pseint.sourceforge.net
begin
print();
print( "*** Ejecución Iniciada. ***");
freeze; wait;
local num_ingresado:=0;
local total_intentos:=8;
local num_secreto:= ( rand() mod 100 ) + 1;

print("Adivine el numero (de 1 a 100)");
print("Ingrese el # de intentos");
freeze; wait(2);
if NOT(input(total_intentos,"Total de Intentos","Intentos=","Digite un # como total de intentos")) then kill; end;
print(">"+total_intentos);
local intentos:=total_intentos;
print("Debug: "+num_secreto);

if NOT(input(num_ingresado,"Deducir_Numero","Num Ingresado=","Digite un #")) then kill; end;
print(">"+num_ingresado);
while num_secreto <> num_ingresado and intentos>1 do

if num_secreto>num_ingresado then
print("Muy bajo");
else
print("Muy alto");
end;
intentos:=intentos-1;
print("Le quedan "+intentos+" intento(s):");
freeze; wait;
if NOT(input(num_ingresado,"Deducir_Numero","Num Ingresado=","Digite un #")) then kill; end;
print(">"+num_ingresado);
end;

if num_secreto <> num_ingresado then
print("El numero era: "+num_secreto);
else
print("Exacto! Usted adivino en: "+ ((total_intentos+1)-intentos) +" intento(s.)");
end;
print("*** Ejecución Finalizada. ***");

freeze;
return "Done";

end;

tengo un problema con la siguiente sentencia :(


if not( input(num_ingresado,": num_ingresado")) then kill; end; // si usuario oprime cancel termina del programa pero no lo reconoce, donde estoy fallando?

realice el siguiente parche

if input(num_ingresado,": num_ingresado") then 0; else kill; end;

encontré otro problema y este si no puedo parchar, cada ves que se imprime con print() y si se llena la ventana o vista terminal la ULTIMA LINEA no se visualiza, :(

Edited: 1 Nov 2013, 1:09 p.m. after one or more responses were posted


#4

Quote:
if not( input(num_ingresado,": num_ingresado")) then kill; end; // si usuario oprime cancel termina del programa pero no lo reconoce, donde estoy fallando?

not() - CAS command; NOT() - non-CAS command

if NOT(input(...)) then kill end;

Quote:
encontré otro problema y este si no puedo parchar, cada ves que se imprime con print() y si se llena la ventana o vista terminal la ultima linea no se visualiza, :(

It is printed but you must scroll the screen. This probably needs to be looked at, though, so that the scrolling is properly automated.


Possibly Related Threads…
Thread Author Replies Views Last Post
  HP Prime: Baker's Game Mark Power 0 1,501 12-11-2013, 06:25 PM
Last Post: Mark Power
  Simple Tetris. free for you to improve on cyrille de Brébisson 3 1,973 11-20-2013, 05:43 PM
Last Post: Erwin Ried
  Digging for bugs Stefan Dröge (Germany) 2 1,583 11-13-2013, 04:39 PM
Last Post: Stefan Dröge (Germany)
  HP-35s Cos[x] and Tan[x] bugs resolved? Thomas Windisch 2 1,580 10-31-2013, 01:12 PM
Last Post: Dieter
  RPN bugs both present in Prime Calc and emulator Eelco Rouw 9 2,845 10-16-2013, 12:22 PM
Last Post: Eelco Rouw
  [HP-Prime] AND, OR BUGs? CompSystems 0 950 10-04-2013, 04:03 PM
Last Post: CompSystems
  HP 50g: question about bugs Miguel Toro 2 1,474 09-26-2013, 01:27 PM
Last Post: Miguel Toro
  [HP-Prime xcas] operations with complex numbers + BUGs + Request CompSystems 9 3,554 09-08-2013, 10:40 PM
Last Post: CompSystems
  [HP_Prime] definition of functions, APPLY command and BUGs CompSystems 1 1,359 09-05-2013, 03:59 PM
Last Post: CompSystems
  [HP-Prime xCAS] Review Polynomial Tools + BUGs + Request CompSystems 0 1,006 09-05-2013, 12:53 PM
Last Post: CompSystems

Forum Jump: