P'tit soft Androïd en cas de plantage TripMaster

ceif2001

Expert
Prius Touring Club
Inscrit
23 Oct. 2006
messages
299
Score de réaction
337
Localisation
Angerville
Véhicule
Prius 2 Plug-In (Kit Bientôt électrique)
Voici une petite appli qui tourne avec RFO-BASIC sous Androïd et qui permet de connaître la distance normalement parcourue toutes les secondes.

Avant le départ :
1) On lance rfo-basic (icône BASIC!)
2) On charge rally.bas (Menu/Load/rally.bas)
3) On lance l'application (Menu/Run)
4) RAZ du TripA (ou TripB pas de jaloux)
5) On entre la vitesse moyenne (sans appuyer sur OK)

Au top départ :
1) On appui sur OK

Toutes les secondes on a la distance (en km) à comparer avec le Trip de la Prius

Il n'y a rien d'automatique, c'est moche mais cela peut éventuellement dépanner (et c'est très facile à modifier directement sur le téléphone) ...

Voici le code de "rally.bas" (si besoin je peux vous l'envoyer par mail



REM Start of BASIC! Program
REM PTC_RALLY

fn.def xtime()
time Y$, Q$, D$, H$, M$, S$
if D$ <> Jour_Depart$ then
nb_jour = nb_jour + 1
Jour_Depart$ = D$
endif
fn.rtn nb_jour*24*3600 + val(H$) * 3600 + val(M$)*60 + val(S$)
fn.end



File.exists b, "PTC_RALLY.TXT"
if b then
Text.open r, numero_fichier, "PTC_RALLY.TXT"
Text.readln numero_fichier, line$
Text.close numero_fichier
Vitesse_defaut = val(line$)
else
Vitesse_defaut = 49.9
endif
nb_jour = 0

CLS


Print ""
PRINT "PTC_RALLY for BASIC!"
PRINT ""
input "Vitesse Moyenne demandée" , Vitesse , Vitesse_defaut

Text.open w, numero_fichier, "PTC_RALLY.TXT"
Text.writeln numero_fichier, str$(Vitesse)
Text.close numero_fichier

let Depart = xTime()
time Yd$, Qd$, Dd$, Hd$, Md$, Sd$
Jour_Depart$ = Dd$


do
let rtime = xTime()
time Y$, Q$, D$, H$, M$, S$
temps = rtime - Depart
distance = Vitesse * temps / 3600
cls
PRINT "PTC_RALLY for BASIC!"
print "Heure Départ : le ";Dd$;"/";Qd$;"/";Yd$;" à ";Hd$;"H";Md$;"M";Sd$;"S"
print "Heure Actuelle : le ";D$;"/";Q$;"/";Y$;" à ";H$;"H";M$;"M";S$;"S"
print "Pour une vitesse moyenne de " ; Vitesse ; "KM/H"
print "Temps(S) Distance(KM)"
print format$("#######", temps) ; format$("####.##", distance)
pause 1000
until 1 < 0


end




A+
 
Pages vues depuis le 20 Oct 2005: 278,053,571
Haut Bas