Ti80.Online

Pour avoir plus de programmes, rendez-vous sur
http://www.ti80.online.fr
ti80@citeweb.net


CE PROGRAMME PERMET DE CALCULER LE COMPTE DE COURANT D'UN BATIMENT
ÉTANT BRANCHER PAR HYDRO-QUÉBEC. IL SUFFIT DE LIRE LES CADRANS ET D'
ENTRER LES LECTURES DANS LA CALCULATRICE POUR ENSUITE ENTRER L'INTERVAL
DE TEMPS ENTRE LES DEUX LECTURES ET LE TARIF DES KILOWATTHEURES.
-----------------------------------------------------------------------
SI VOUS ÉPROUVEZ DES PROBLÊMES VOUS POUVEZ ME CONTACTER PAR E-MAIL
OU PAR ICQ.
NOTEZ QUE PAR "ICQ" JE NE SUIS PAS LE SEUL UTILISATEUR DE MA FAMILLE
DEMANDEZ DONC SI C'EST MOI QUI EST PRÉSENT!
-----------------------------------------------------------------------
FAIT PAR DAVID GAGNON
adjudant.gagnon@caramail.com
FACTURE VERSION 1.01
ICQ:77754519
21:53 00-05-18


PROGRAME ADAPTÉ POUR LA TI-80
-----------------------------------------------------------------------
CLÉ DE SIGNIFICATION
* EST LA TOUCHE MULTIPLIÉ
/ EST LA TOUCHE DIVISÉ
~ EST LA TOUCHE "STO>"
<= EST LA TOUCHE "PLUS PETIT OU ÉGAL" DANS LE MENU [TEST]
>= EST LA TOUCHE "PLUS GRAND OU ÉGAL" DANS LE MENU [TEST]
-----------------------------------------------------------------------
TAILLE:445 BYTES
BOGUE CONNU: N'AFFICHE PAS LA BONNE SOMME QUAND LE COMPTEUR EST
RÉINITIALISÉ
-----------------------------------------------------------------------
CLRHOME 
DISP "FAIT PAR:"
DISP "DAVID GAGNON"
DISP "FACTURE V1.01"
PAUSE 
LBL X
CLRHOME 
DISP "PREMIER COMPTE"
INPUT A
IF A>=10000
GOTO X
DISP " "
LBL 9
DISP "SECOND COMPTE"
INPUT B
IF B<=0999
GOTO F
IF B>=10000
GOTO 9
IF B>=1000 
GOTO 0
LBL F
B+10000~B
GOTO 0
LBL 0
B-A~C
C*10~C
DISP "NOMBRE DE JOUR"
INPUT J
J*30~Y
IF C<=Y
GOTO @
IF C>Y 
GOTO W
LBL @
CLRHOME
DISP "TARIF DES 30"
DISP "PREMIER KWH"
DISP "PAR JOUR"
INPUT D
D*C~T
T/100~T
DISP "SOUS TOTAL",T
GOTO 1
STOP
LBL W
CLRHOME 
DISP "TERIF DES 30"
DISP "PREMIER KWH"
DISP "PAR JOUR"
INPUT O
DISP "TARIF DES"
DISP "AUTRES KWH"
DISP "PAR JOUR"
INPUT P
Y*O~L
C-Y~I
I*P~V
L+V~T
T/100~T
DISP "SOUS TOTAL",T
GOTO 1
STOP 
LBL 1
J*.39~Q
Q+T~T
T*.07~S
S+T~T
T*.075~S
S+T~T
DISP "TOTAL APRES"
DISP "LES TAXES","ET REDEVANCE",T
STOP