Opti-Défi n°4 : codeur MORSE lumineux

[PiR]

Le défi a l'air cool malheureusement j'ai plus de place dans ma calto et je ne peux pas la brancher à l'ordi (cable marche pas)

[grosged]

Plus du tout de place ?.. Tu as déjà fait le ménage, histoire de grapiller ?
En ce qui me concerne, mon programme est stocké sur 553 octets et nécessite 3565 octets supplémentaires une fois lancé

[Wistaro]

Aie j'ai complètement oublié.
Avec les DS en ce moment et le bac blanc qui arrive, j'ai zappé.

Je m'y remet et t'envoie sa dès que possible ^^

[PiR]

Non, j'ai plus de place, j'ai mon programme de formule qui bouffe quasi tout
Et comme Wistaro là je vais bientôt avec bac blanc donc, je verrai après

[Wistaro]

Je te poste ça vendredi

[grosged]

Bon, après avoir corrigé une erreur ou deux, ma version en est à 557 octets (sur ma TI-84 Pocket.fr) et 554 (sur ma TI-83)
Je vous poste la version 1 (il y a surement moyen d'optimiser encore...)

Code: Tout sélectionner

{226,3752,14888,0,0,936,14,3722,3720,938,58,57890,3624,3746,904,232,14472.06004,14882.239752,57992.952456,
930,234,56.014506,906.003754,3626.015016,3618,14504,57896.926242,14984.231562,.057898,0→L1
DelvarZClrList L2
106→dim(L2
For(Y,41,91,10
For(X,1,5
Z+1→Z
L1(Z→L2(Y+X
End:End
3704968→L2(103
FnOff :AxesOff
.01(Xmax-Xmin→Xscl
.01(Ymax-Ymin→Yscl
GridOn
StorePic Pic0
GridOff:ClrDraw
StorePic Pic1
1
Menu("DEBIT","LENT",0,"NORMAL",1,"RAPIDE",2
Lbl 0:Ans/2
Lbl 1:Ans/2
Lbl 2:Ans→D
Delvar ADelvar θClrList L1
99→dim(L1
1→T
1→U
While 1
θ+D→θ
L1(T
If int(Ans:Then
   Ans/(1+not(fPart(θ→L1(T
   If round(fPart(Ans,0:Then
      ClrDraw:RecallPic Pic1
      Else
       RecallPic Pic0:End
   Else
T-99(T>99)+(T≠U→T
End
getKey→G
A xor G=31→A
L2(G+1
IF A:fPart(Ans)10^6
int(Ans→L1(U
U-99(U>99)+not(not(Ans→U
End

téléchargeable ici : archives_voir.php?id=171073

Petit détail (qui à tout de même son importance) : n'utiliser

alpha

que pour atteindre/quitter les chiffres de 1 à 9, le chiffre 0 faisant parti des lettres (... à modifier ultérieurement, peut-être...quoique )

[Wistaro]

Bon, j'ai pas eu le temps nécessaire pour poster le programme.

Il n'est malheureusement pas terminé, il manque juste la gestion des chiffres. Mais je N'ai pas le temps de faire mieux ^^

Je le poste dès que possible.

[thelinekioubeur]

Bonjour,

462 octets chez moi sur TI-83Prem et 457 sur TI-83+ (la vieille).
La "lumière" est juste un point pour économiser des octets…

Edit:
Maintenant j'en suis respectivement à 456 et 455 octets.

Je vous met le code (version french) pour le TI-83Prem. Il n'y a qu'une ligne qui change sur ma TI-83+ (cette dernière n'a pas la fonction "reste").

Code: Tout sélectionner

AxesNAff
Zdécimal
Pt-Aff(0,0               //Le dessin……… un point ^^
EnrPic Pic1
{29,343,1495,87,1,373,375,85,5,7645,471,349,119,23,1911.005495,1501.022391,7543.096119,93,21,7.001877,117.000341,469.001367,477,1879,7639.122333,1399.030581,0.007637,0.489335→L1     //Ma traduction en décimal du code morse, partie entière pour les lettres et décimale pour les chiffres
{41,42,43,51,52,53,54,55,6162,63,64,65,71,72,73,74,75,81,82,83,84,85,91,92,93,94,102→L2      //Les touches correspondantes
EffListe L3
1→T
1→S
0→C
0→A     //Contient le code du caractère en cours de traitement
Lbl 0
getKey→K
If K=31
  C xor 1→C     //Gère la touche alpha
If max(K=L2
Then
  max((K=L2)L1
  (1-C)partDéc(Rep)10^6+Cent(Rep→L3(T       //Valeur décimale du code morse à traiter
  0→L3(T+1     //Un zéro pour la pause entre 2 lettres
  T+2→T
End
If S<T et non(A      //On prend un nouveau caractère s'il y en a
Then
  EffDess
  L3(S→A
  S+1→S
End
reste(A,2→D    //Dernier chiffre du nombre A en binaire
If D
Then
  RappelPic Pic1
Else
  EffDess
End
(A-D)/2→A
If k≠34
Goto 0


Utilisation:
- le programme commence en mode chiffres
- on peut commencer à taper le message quand le point disparait
- on fait espace avec la touche 0 en mode alpha (logique), mais en fait on peut aussi le faire par exemple en tapant A ou B en mode chiffre…
- annul pour quitter

[grosged]

Tout d'abord, merci pour ta participation !
Dans l'ensemble, ton programme n'est pas mal (on a d'ailleurs codé de la même façon les codes morse (au détail près que j'ajoute à la fin de chaque code un silence correspondant à l'espacement entre 2 caractères , valant 3 points, cf énoncé)
Je trouve seulement dommage que tu n'aies pas gardé le concept d'utiliser la totalité de l'écran pour "flasher" (ce qui permettait tout de même une portée visuelle de quelques mètres...).
Je remarque également que tu n'as pas inclus le choix de la vitesse (utile quand le programme tourne sur une TI cadencée à 15mhz) . Est-ce un choix délibéré?

[thelinekioubeur]

À la base mon code dessinais un joli rond (orange sur Ti83Prem) puis j'ai changé en point car je pensais que c'était optimal niveau octets mais c'est faux, je pourrais faire un storepic avec les axes puis les enlever… c'est quoi la fonction gridon?

J'ai une erreur sur les pauses… j'ai un silence de 1 points au lieu de 3 entre deux lettre, pourtant il fait parfois 3 points……
du coup le silence entre deux mots ne vaut que 3 au lieu de 7, puisque je voulais faire 3 points + 1points (espace) + 3 points

Et pour les vitesses, j"ai complètement zappé…… je n'avais pas lu tout l'énoncé.

Bref, trop de boulot aujourd'hui, je corrigerai peut être un autre jour.