ecco il nuovo sorgente
-adesso riesce a leggere i numeri con la virgola
-riesce a dirci se dopo la virgola c'e 5 o no
problema,
se metto la condizione
misteriosamente mi dice sempre che il risultato della divisione viene con ",5"
if virgolo=5;
binario=1;
else
binario=0;
end
edit: anzi il risultato è giusto, la variabile "virgolo" è sbagliata
ecco il sorgente se qualche anima pia (un RZZ di turno ) mi dice che cavolo ha sto coso ne sarei grato
source:
Code: Select all
//CONVERTITORE v.0.2
global
float numero;
float risultato;
int virgolo;
int binario;
begin
set_mode(320,240,16);
write(0,10,5,0,"dec2bin v.1 push S o D");
write(0,10,15,0,"S=9 D=8");
write_var(0,210,5,0,numero);
write_var(0,240,5,0,risultato);
write_int(0,210,30,0,&virgolo);
write_int(0,210,40,0,&binario);
loop
if (key(_s));
numero=9;
converti();
end
if (key(_d));
numero=8;
converti();
end
frame;
end
let_me_alone();
end
process converti()
begin
risultato=numero/2;
virgolo=substr(risultato,2,2); //legge la parte di float di "risultato" dopo la ","
//punto dove doveva essere messa la condizione
end