Forum TI-Planet.org

azerpogba a écrit:il y a l'écran qui fait n importe quoi et je comprend r

UnCurieux a écrit:J'ai testé le code :

non.png

Code: Tout sélectionner

EffEcran
affHeure→L₁
L₁(1)3600+L₁(2)60+L₁(3→A
While codetouch(≠105
   affHeure→L₂
   L₂(1)3600+L₂(2)60+L₂(3→B
   partEnt((B-A)⁄3600→H
   Output(3,4,H
   Output(3,6,":
   remainder(partEnt((B-A)⁄60),60→M
   If M<10
   Then
      Output(3,8,0
      Output(3,9,M
   Else
      Output(3,8,M
   End
   Output(3,10,":
   remainder((B-A),60→S
   If S<10
   Then
      Output(3,11,0
      Output(3,12,S
   Else
      Output(3,11,S
   End
End