MPO107 - Heure temporaire

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar du membre
Chris
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 256
Enregistré le : 20 oct. 2007 19:01

Re: MPO107 - Heure temporaire

Message par Chris »

C.Ret a écrit : 24 mars 2022 21:00 Où est Chris ? Il doit s'insérer avant le prochain sniper !
Il tente de comprendre le sujet (et y répondra ce WE si possible) :mrgreen:

Edit
Bon, pour montrer ma bonne volonté à résoudre ce problème (sachant que je n'ai pas touché au RPL depuis... 25 ans), j'ai commencé à traiter la partie jour.
Voici le résultat en RPL (bourrin et non optimisée) sur ma 28S.

Code : Tout sélectionner

« 3 PICK HMS→ SWAP HMS→ - 12 * ROT HMS→ ROT HMS→ - / →HMS »
'RT STO

3: 7.42
2: 16.51
1: 14
RT
1: 8.15442622951
Il me reste à traiter la partie nuit maintenant (qui portera peut-être conseil :mrgreen:) !

P.S. A la relecture, je me dis que le RPL, c'est vraiment un langage illisible... A moins de le pratiquer tous les jours, je ne vois pas comment on peut maintenir et reprendre des programmes sur le long terme.
HP : 11C 17BII 28S 48SX 50G 71B LX100
Sharp : PC-1403 PC-1600 PC-G850V
TI : TI-74
FLISZT
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 655
Enregistré le : 09 mars 2022 19:14

Re: MPO107 - Heure temporaire

Message par FLISZT »

Bonjour,

Trois tentatives (pour hp-28 et sup. ) dont une plus lisible :

Code : Tout sélectionner

<< 	HMS→   ROT  HMS→  ROT  HMS→  OVER  −
	ROT  ROT  −  24  MOD
	NEG  SWAP  NEG  DUP2
	≤
	<<	DUP
		24  +
		ROT  ROT  −
		SWAP
	>>  	IFT
	/  12  *  →HMS
>>

Code : Tout sélectionner

<<	HMS→   3 PICK  HMS→   −
	ROT  HMS→  ROT  HMS→  SWAP  −
	SWAP  24  MOD  SWAP  DUP2
	≥
	<<	DUP
	  	24  −  
	  	ROT  ROT  −  
	  	SWAP
	>>	IFT
	/  12  *  →HMS
>>

Code : Tout sélectionner

<<	→ ls  cs  hl					
	<<	cs  HMS→   ls  HMS→   −				
		hl  HMS→   ls  HMS→   −  24  MOD
		SWAP  DUP2
		≥  
		<<	DUP  
			24  −  
			ROT  ROT  −  SWAP  
		>>	IFT
		/  12  *  →HMS
	>>
>>
C.Ret a écrit : 24 mars 2022 21:00 Où est Chris ? Il doit s'insérer avant le prochain sniper !
… je suis juste après Chris ! Au lieu de ma 28S, j'aurais dû sortir mon Canon « 007 » ! :lol:
Bruno
Sanyo CZ-0124 ? TI-57 ? HP-15C ? Canon X-07 + XP-140 Monitor Card ? HP-41CX ? HP-28S ? HP-50G ? HP-50G
Avatar du membre
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO107 - Heure temporaire

Message par Schraf »

Version pour Texas Instruments GALAXY 67 (Vidéo Youtube sur cette machine)

Fonctionne avec les 5 cas : 14:00, 22:00, 5:00 et donne 0 en 7:42 et 16:51

Code : Tout sélectionner

MPO:U >dd→U:D >dd-U→D:24*fp(1+(H >dd-U)÷24→H:R=12*(H-D*(H≥D))÷(D-24*(H≥D
Démo en vidéo

Image

Remarques :

>dd (touches INV 2nd DMS) pour passer de HMS à un format décimal
fp : Partie fractionnaire
Les tests H≥D donnent 0 ou 1 ce qui permet de les utiliser dans des calculs
Pas besoin de INPUT avec cette machine, lorsqu'une variable n'est pas définie, elle l'a demande.
Seul inconvénient, il n'est pas possible d'obtenir directement un affichage en HMS à la fin, il faut donc faire 2nd DMS
Avatar du membre
zpalm
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2919
Enregistré le : 03 mai 2008 15:33
Localisation : Grenoble

Re: MPO107 - Heure temporaire

Message par zpalm »

Schraf a écrit : 26 mars 2022 15:45et donne 0 en 7:42 et 16:51
Donc on ne sait pas si l’on est au début du jour ou au début de la nuit. Mon programme pour 41C/42S retourne 0.0000 pour le début du jour et 12:0000 (à défaut de -0:0000) pour le début de la nuit ce qui enlève l’ambiguïté.
Avatar du membre
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO107 - Heure temporaire

Message par Schraf »

Version avec 0:00 pour 7h42 et 12:00 pour 16h51, c'est juste le ≥ qui devient un > 💁‍♂️

Code : Tout sélectionner

MPO:U >dd→U:D >dd-U→D:24*fp(1+(H >dd-U)÷24→H:R=12*(H-D*(H>D))÷(D-24*(H>D
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: MPO107 - Heure temporaire

Message par C.Ret »

Chris a écrit : 25 mars 2022 16:28P.S. A la relecture, je me dis que le RPL, c'est vraiment un langage illisible... A moins de le pratiquer tous les jours, je ne vois pas comment on peut maintenir et reprendre des programmes sur le long terme.
Je crois que même en pratiquant chaque jour, le RPL reste très difficile à décoder à la volée. Même parfois par l'auteur même du code ! :)

Et je n'ai pas trouver de solution simple pour convenablement présenter un code RPL et le rendre plus lisible:

Code : Tout sélectionner

5:	4:	3:	2:	1:		CODE:
------	------	------	------	------		---------------
		7.42	16.51	14		«
	7.42	16.51	14	7.7		  3 PICK  HMS→
	7.42	16.51	7.7	14		  SWAP  HMS→
		7.42	16.51	-75.6		  -  12 *
		16.51	-75.6	7.7		  ROT  HMS→
		-75.6	7.7	16.85		  ROT  HMS→
				8.1544		  - / →HMS
						»
Il faut donc faire un effort de documentation et commenter les lignes de code, sinon très vite, c'est à dire dès lundi prochain, plus personne ne comprendra ce que fait ce code:


Code : Tout sélectionner

3: heure lever
2: heure coucher
1: heure                       →       1: heure temporaire

« HMS→                               	// converti heure en heure décimale                                  
  ROT HMS→				// converti heure du lever
  IF SWAP DUP2 > THEN 24 + END       	// cas heure au petit matin
  ROT HMS→				// converti heure du coucher
  IF DUP2 ≤ THEN 12 4 ROLL 0 		// cas temporaire jour
            ELSE  0 4 ROLL 24 + -12 END // cas temporaire nuit
  { 2 2 } →ARRY STO∑ LR ROT * +         // construit abaque et calcul heure temporaire
  →HMS »    	                        // converti en hh.mmss
EDIT: désolé pour les multiples éditions du code, mais je me suis rendu compte en testant une dernière fois ce code lors de la composition de mon message que la solution initiale utilisant la séquence { 2 2 } →ARRY STO∑ PREDV →HMS ne fonctionne que la première fois. Les fois suivantes, la régression linéaire n'est pas recalculée même si l'on change ∑DAT, il faut alors aussi effacer ∑PAR car CLR∑ ne le fait pas :x LR remet tout dans l'ordre mais nécessite plus de code :(


Bon, comme je suis le seul (pour le moment) à présenter un code pour CASIO fx-602p, je m'assoie sur la spécification de ce MPO qui demande de mettre les heures dans la pile. D'ailleurs, elle est où la pile sur cette petite mais géniale CASIO ?
Alors, je fais comme j'aime, un code bien structuré avec des PROMPTs :

Code : Tout sélectionner

MODE .20   M00-M19 F-1F(512)
PO                                   (435)
        GSBP1 GSBP2                   002     // Input heure lever (R01) et coucher (R02)
   LBL0 "Heure" HLT MinF              012     // Input heure (F) noter la boucle LBL0
        MR01 x=F GOTO1 x≥F GSBP5      017     // Traite cas des heures matinales
   LBL1 MR02 - MR01 Min03 = Min04     024     // début (R03) et longueur (R04) de la journée
        MR02 x≥F GOTO2                027     // 
        Min03 24 M-04                 031     // cas nocturne
   LBL2 12 × ( MRF - MR03 ) ÷ MR04 =  043     // Calcul heure temporaire (sans économie de pas)
        °'"← HLT GOTO0                046     // Affichage Heure Temporaire et boucle 
P1     "H.lever"   HLT Min01          011     // SS-Prg: Input Heure Lever
P2     "H.coucher" HLT Min02          013     // SS-Prg: Input Heure Coucher
P5     24 M+F                         003     // SS-Prg: Traitement heures matinales
Usage:
Lancer en pressant P0
Aux invites saisir les heures du lever, du coucher et l'heure à convertir.
Entrer toutes les heures au format hh°mm'ss.s" à l'aide de la touche [ ° ' " ] comme prévu sur cette machine. L'heure décimale s'affiche au fur et à mesure de la saisie. Presser sur EXE pour valider ou sur [ C ] pour recommencer.
Une fois l'heure temporaire affichée, presser sur EXE permet de convertir une nouvelle heure sans avoir à redonner les heures de lever ou coucher.
Si l'on veut convertir une heure pour une journée différente, presser sur P0 pour reprendre depuis le début.

Le mode de saisie est intéressant, il n'y a donc jamais de valeurs sexa-décimales dans les registres de la fx-602p; ce qui fait que l'on utilise les fonction habituelles pour additionner , soustraire ou multiplier les heures ou les angles; malin !
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO107 - Heure temporaire

Message par Schraf »

Quelques explications sur la méthode que j'ai utilisée :

Image
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: MPO107 - Heure temporaire

Message par C.Ret »

Bon algorithme pour mon SHARP PC-1211:

Code : Tout sélectionner

1:INPUT U,D
2:INPUT H:A=DEG H-DEG U+24*(U>H,B=DEG D-DEG U:IF A>BLET A=A-B,B=B-24
3:PRINT H,DMS (12A/B:GOTO 2

Code : Tout sélectionner

>                          RUN [ENTER]
?                          7.42 [ENTER]
?                          16.51 [ENTER]
?                          14 [ENTER]
         14. 8.154426229   [ENTER] 22 [ENTER]
         22.-4.094181818   [ENTER]  5 [ENTER]
          5.-9.490545454   [ENTER] 7.42 [ENTER]
        7.42          0.   [ENTER] 16.51 [ENTER]
       16.51         12.   [CL]
>
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: MPO107 - Heure temporaire

Message par C.Ret »

Bon algorithme pour Texas Instruments d'avant la TI-83:

Code : Tout sélectionner

000 76 11              Lbl A                    032 76 23              Lbl lnx                  070 76 15              Lbl E 
002 88 42 01             D.DMS  STO 01          034 19 75 02 04 54       D'  -  24  )           072 88 75 43 01 95       D.DMS  -  RCL 01  = 
005 61 95              GTO =                    039 85 43 02 95 18       +  RCL 02  =  C'       077 18 42 03 32          C'  STO 03  x≷t 
                                                044 61 95              GTO  =                   081 19 54 42 04          D'  )  STO 04
007 76 12              Lbl B                                                                    085 77 52                x≥t ?→ EE 
009 88 42 02             D.DMS  STO 02          046 76 18              Lbl C'                   087 22 44 03             SUB 03
012 61 95              GTO =                    048 55 02 04 85 01 95    ÷  24  +  1  =         090 02 04 22 44 04       24  SUB 04
                                                054 22 59 65 02 04 95    Frac  ×  24  =         095 76 52              Lbl EE 
014 76 14              Lbl D                    060 92                 RTS                      097 01 02 65 43 03       12  ×  RCL 03
016 88 55 01 02 65       D.DMS  ÷  12  ×                                                        102 55 43 04             ÷  RCL 04
021 29 22 77 23          C.t  x<t ?→ lnx        061 76 19              Lbl D'                   105 76 95              Lbl  = 
025 19 54 85 43 01       D'  )  +  RCL 01       063 53 43 02 75 43 01    (  RCL 02  -  RCL 01   107 95 22 88             =  INV D.DMS 
030 61 95              GTO =                    069 92                 RTS                      110 92                 RTS 
Usages:
[ A ] Saisie de l'heure du lever : 7.12 [ A ] affiche 7.12
[ B ] Saisie de l'heure du coucher: 20.07 [ B ] affiche 20.07
[ E ] Converti l'heure équinoxiale en heure temporaire ( ≥0 heures du jour & <0 heures de la nuit ):
9.53275 [ E ] affiche 2.3000 (format Fix 4)
10 [ E ] affiche 2.3605
14 [ E ] affiche 6.1903
22.22 [ E ] affiche -2.2610
5 [ E ] affiche -9.3705

7.12 [ E ] affiche 0.0000 ( début de journée )
13.3930 [ E ) affiche 6.0000 ( mi-journée )
20.07 [ E ] affiche 12.0000 ( fin de journée )
1.3930 [ E ] affiche -6.0000 (mi-nuit )
7.1159 [ E ] affiche -11.5959 ( fin de nuit )

Mais, malgré qu'Eric ne m'ai pas (encore) payé mes heures temporaires supplémentaires, il y une fonction bonus :
[ D ] converti les heures temporaires ( ≥0 diurnes et ≤0 nocturnes) en heures équinoxiales (0-24 h)
2.3 [ D ] affiche 9.5328
2.3605 [ D ] affiche 10.0000
6.1903 [ D ] affiche 14.0000
-2.2610 [ D ] affiche 22.2200
-9.3705 [ D ] affiche 5.000

0 [ D ] donne 7:12 (lever)
6 [ D ] donne 13:39'30" ( vraie heure du zénith )
12 [ D ] donne 20:07' (coucher)
-6 [ D ] donne 1:39'30" ( heure de profonde perdition du week-end )
-12 [ D ] donne 7:12' (lever)

Bon, mon code fait plus de 100 pas, mais je suis malgré cela et pour un petit temps encore le mieux placé des utilisateurs de Ti à LED pour ce MPO.
Je n'ai pas réussit à faire mieux que la Ti Galaxy d'Eric. :x
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO107 - Heure temporaire

Message par Schraf »

@C.Ret : En effet la réciproque de la conversion sera pratique si un romain nous donne l'heure 🌓⌚

Version du problème initial pour la Ti-57 LED (avec l'algo proposé A = [H - Up]_24 et B = Dwn - Up) :

Code : Tout sélectionner

00 26		D.MS
00 84		+/-
02 32 7		STO 7
03 32 1		STO 1
04 32 0		STO 0
05 81		R/S
06 26		D.MS
07 34 1		SUM 1
08 81		R/S
09 86 2		Lbl 2
10 26		D.MS
11 34 7		SUM 7
12 02		2
13 04		4
14 -39 7	INV 2nd Prd 7
15 22		x<>t
16 75		+
17 01		1
18 85		=
19 -49		INV 2nd Int
20 39 7		2nd Prd 7
21 33 1		RCL 1
22 32 2		STO 2
23 -76		INV 2nd x>=t
24 61 1		SBR 1
25 33 2		RCL 2
26 -39 7	INV 2nd Prd 7
27 01		1
28 02		2
29 39 7		2nd Prd 7
30 33 0		RCL 0
31 22		x<>t
32 -26		INV 2nd D.MS
33 48 4		2nd Fix 4
34 81		R/S
35 51 2		GTO 2
36 86 1		Lbl 1
37 33 1		RCL 1
38 -34 7	INV SUM 7
39 02		2
40 04		4
41 -34 2	INV SUM 2
42 -61		INV SBR

7.12 RST R/S affiche -7.2
20.07 R/S affiche 20.1167

10 R/S affiche 2.3605
14 R/S affiche 6.1903
22.22 R/S affiche -2.2610
5 R/S affiche -9.3705
7.12 R/S affiche 0.0000
20.07 affiche 11.5960 😂
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: MPO107 - Heure temporaire

Message par C.Ret »

Schraf a écrit : 03 avr. 2022 19:15

Code : Tout sélectionner

20.07 affiche 11.5960 😂
Oui, c'est pour cela que les romains se contentaient de donner des indications d'heure sans aller au-delà du tier ou du quart-d 'heure.
Image
Cela éviter des calculs au résultats gênants; remarque j'ai le même résultat sur ma Ti58c ! Et vue la taille des installation qu'une telle horloge occasionnait, multiplier les déboires, le cout et les difficultés de maintenance n'était pas bien vu !

Je suis en train d'écrire un programme d'affichage d'une horloge sur mon écran qui donne l'heure temporaire. Je vais régler ma vie au rythme du dieu Amun, seule source de lumière, vie et chaleur sans aucune empreinte carbone négative. De plus, en revenant de ma planète, je prends certains virages aux replis de l'espace-temps parfois un peu vite, il pourrait m'arriver de ne pas rejoindre la bonne époque, cette montre va peut-être me servir plus souvent que l'on peut l'imaginer.


Mais il y une petite chose qui me gène encore dans notre calcul:
Ce matin, le soleil c'est levé à 07:09 et il va bientôt se coucher à 20:07. Son disque touche d'ailleurs déjà les toits des maisons et commence à disparaitre derrière le coté pair de la rue.

Mais demain, il ne se lèvera dès 07:07 (et non 07:09 comme aujourd'hui). Il nous faut donc de toute urgence amender nos codes pour que les heures temporaires nocturnes tiennent compte de ce petit décalage !
Sinon, ma nuit va être un enfer, je vais à chaque minute dans mon sommeil ouvrir les yeux pour scruter mon horloge en me demandant de combien son affichage est faux ! 5s par heure temporaire, je sens que la nuit va être mauvaise :?
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO107 - Heure temporaire

Message par Schraf »

Horloge (version 2) sur CASIO fx-7800G (1992)

Code : Tout sélectionner

?→U:?→D:D-U→B			# Demande Up et Dwn
Deg:Lbl 1
?→H				# Demande heure à convertir (utiliser SHIFT MATH DMS °' ")
Range 0,94,0,0,62,0		# A adapter suivant la CASIO pour avoir coord entières
90-15U→G:15B÷12→A:0→I:0→J	# Haut = 90° moins 15° par heure
Lbl 2				# Et division de D-U en 12
Plot 47+25cos G,34+25sin G	# On trace horloge
Plot 47+Jcos G,34+Jsin G:Line
1+I→I
I=13⟹15(24-B)÷12→A		# Si nuit on change l'angle A
I=13⟹22→J			# On fait des traits plus petits pour la nuit
G-A→G:I<24⟹Goto 2
90-15H→G			# Grande aiguille qui indique l'heure entre 0 et 24
Plot 47,34
Plot 47+30cos G, 34+30sin G
Line
H-U→A:U>H⟹24+A→A		# Calcul de l'heure temporaire
0→K:A>B⟹1→K			# A>B→K ne fonctionne que sur les GRAPH
Abs(12(A-BK)÷(B-24K→H
Plot Int (60Frac H, Int H◢	# X = minutes et Y = heure (en valeur absolue)
Goto 1
Exemple avec Up = 7h42, Dwn = 16h51 et Heure = 5h00. On lit environ 9.49 en Heure Temporaire nuit. On peut enchainer d'autres heures et l'horloge se redessine.

Image
Modifié en dernier par Schraf le 05 avr. 2022 16:02, modifié 1 fois.
Avatar du membre
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO107 - Heure temporaire

Message par Schraf »

Certains langages ont le secret de la jeunesse éternelle... ⏳

A part Range 0,94,0,0,62,0 de la CASIO fx-7800G (1992) qui devient ViewWindow 0,78,0,0,46,0 sur la GRAPH 25+ (2006, on notera d'ailleurs qu'elle a moins de pixels !) puis ViewWindow 0,126,0,0,62,0 sur la GRAPH 90+E (2017), le reste du programme est exactement le même. Je n'ai pas essayé sur la fx-7000G (1985) mais je crois que toutes ces fonctionnalités y étaient identiques. C'est donc sans problème que j'ai transféré le programme de la GRAPH 25+ vers la 90+E 🍾.

Par contre le transfert par câble entre fx-7800GC (ou similaires) et les versions GRAPH n'a pas l'air de fonctionner (j'ai testé différents paramètres sans succès), quelqu'un sait faire ?

Image
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: MPO107 - Heure temporaire

Message par C.Ret »

Je suis impressionné par la multitude d'horloges dont tu disposes !

Bon ! moi, je n'en ai qu'une, mais c'est certainement la plus chère:
MPO107 - Horloge Temporaire HP Prime (setup times).png
MPO107 - Horloge Temporaire HP Prime (setup times).png (10.48 Kio) Vu 4948 fois
MPO107 - Horloge Temporaire HP Prime.png
MPO107 - Horloge Temporaire HP Prime.png (18.15 Kio) Vu 4954 fois
L'aiguille avec le 'D' penché figurant la lune (c'est un peu loupé) donne les heures temporaires. De jour, cette aiguille porte un disque solaire. Je ferais une capture demain, car évidemment, l'heure affichée par mon HP Prime est exacte !

Les autres aiguilles donnent l'heure équinoxiale comme sur toute horloge analogique qui se respecte.
Les petits cercles sont en fait la trotteuse qui donne les secondes. Comme les horloges sur les quis des gares SNCF, les cercles sont effacés à l'issue de chaque minute.

EDIT: J'ai corrigé quelques bugs et surtout, j'ai (enfin) compris comment bien utiliser les DIMGROB et BLIT pour avoir un affichage continu sans scintillement lors du mouvement des aiguilles !
MPO107 - Horloge Temporaire HP Prime 060148.png
MPO107 - Horloge Temporaire HP Prime 060148.png (18.28 Kio) Vu 4897 fois
MPO107 - Horloge Temporaire HP Prime 180000.png
MPO107 - Horloge Temporaire HP Prime 180000.png (17.85 Kio) Vu 4897 fois
Modifié en dernier par C.Ret le 07 avr. 2022 19:17, modifié 1 fois.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
Schraf
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 499
Enregistré le : 05 mars 2020 20:45
Contact :

Re: MPO107 - Heure temporaire

Message par Schraf »

@C.Ret : J'aurais trop peur d'amener mon HP Prime chez les romains et qu'on me le pique ! Avec une CASIO je prends beaucoup moins de risques !

📱 Version pour téléphone, ce sera plus pratique (prévoir un chargeur solaire)

Prêt pour le départ !
Prêt pour le départ !
VersionTel.jpeg (23.39 Kio) Vu 4898 fois

Les couleurs des heures "usuelle + locale" changent en fonction du moment de la journée.

Démo en direct ici

Cliquez sur la petite horloge pour modifier les heures de lever et coucher (sur téléphone c'est plus joli).
Comme j'ai fait ça en page web unique, un CTRL+S suffit pour télécharger "l'application".

🌅 Le programme calcule tout seul les heures du lever et coucher du soleil (script que j'ai récupéré ici)

❓Pouvez-vous me donner des références de calculatrices qui ont la date et l'heure, comme les HP 48-49-50g par exemple ?
Répondre

Retourner vers « Tous les Pockets »