Casio FX-850P... du temps presque parfait !

Thierry Loiseau · Message par **Thierry Loiseau** » 31 mars 2016 13:12

Bonjour,

J'ai réalisé un programme, presque superbe, que dis-je, sublime , pour ma Casio FX-850P.
C'était il y a bien longtemps, fait pour des raisons de contrôle d'une plaquette équatoriale made in home.

http://astrophoto.free.fr/plaquette/

Code : Tout sélectionner

 10 REM =TRANCHE 0'45"=
 20 CLS:INPUT "COMBIEN TOUR ",NTOUR
 30 LOCATE 0,0:PRINT "Chrono:";:
    LOCATE 0,1:PRINT "Timer :";:
    LOCATE 20,0:PRINT "TOUR:";
 40 S=0:TI=NTOUR*0.75*60
 50 FOR C=1 TO NTOUR
 60 BEEP 0 'beep grave
 70 GOSUB 120:BEEP 1:GOSUB 120:
    BEEP 1:GOSUB 120:BEEP 0
 80 GOSUB 120:BEEP 1:GOSUB 120:
    BEEP 1:GOSUB 120:BEEP 0
 90 GOSUB 120:BEEP 1:GOSUB 120:
    BEEP 1:GOSUB 120:BEEP 0:BEEP 1 
100 NEXT C:BEEP 1:BEEP
110 BEEP 1:LOCATE 0,0:END
120 FOR I=1 TO 1685:NEXT I:S=S+5:
    LOCATE 7,0:PRINT " ";INT(S/60);".";
    S-INT(S/60)*60;" ";
130 TI=TI-5:LOCATE 26,0:PRINT INT(S/45);
140 LOCATE 26,1:PRINT INT((TI-5)/45)+1;
150 LOCATE 7,1:PRINT " ";INT(TI/60);".";
    TI-INT(TI/60)*60;" ";:RETURN

... et cela se vérifie : la précision est presque au top selon Audacity (1/4 de seconde d'avance sur une durée d'une minute et demie.

Pour les oreilles sensibles, s'abstenir d'écouter cela !