programme NOTABENE

Voir le sujet précédent Voir le sujet suivant Aller en bas

programme NOTABENE

Message par Le Blond le Mar 10 Jan - 8:32

Bonjour, je vous présente un programme fait par moi, que je mets a votre disposition Content
Il permet d'enregistrer des données texte dans les listes, listes dont on peut choisir le nom.
N'hésitez pas a me donner des idées d'améliorations...

Comme dans HERSSAHE, il y a une erreur qui est voulue, pour enregistrer et supprimer sa note.


Code:

:Lbl 0
:If Q=12321:Goto Q
:If Q=12421:Goto C
:If Q=12521:Goto Q2
:If Q=12621:Goto C2
:"                                        ABC      DEFGH    IJKLM    NOPQR    STUVW    XYZΘ        :?"→Str0
:Menu("-----AGENDA-----","CONSULTER",A,"ECRIRE",B,"SUPPRIMER",C,"QUITTER",D
:Lbl A
:1→C:1→D:ClrHome
:Input L4
:For(A,1,dim(L4)-2)
:   Output(C,D,sub(Str0,L4(A+1),1))
:   D+1→D
:   If D=17:Then
:      1→D:C+1→C
:   End
:End
:Pause
:ClrHome
:Goto 0
:Lbl B:ClrHome
:1→E:1→F:1→dim(L4):2→C
:For(A,1,1ᴱ98)
:   getKey→B
:   If B≠105 and B≠0 and B≠45:Then
:      B→L4(C)
:      Output(E,F,sub(Str0,B,1))
:      C+1→C:F+1→F
:      If F=17:Then
:         1→F:E+1→E
:      End
:      dim(L4)+1→dim(L4
:   End
:   If B=45:Goto Q
:End
:
:Lbl Q:12321→Q
:
:
:
:"ENREGISTRER:"
:L4→ᴸ
:
:
:12521→Q
:EFFACER LE NOM
:
:
:Lbl Q2
:ClrHome
:Output(4,4,"ENREGISTRE"
:Pause
:DelVar Q
:ClrHome:Goto 0
:Lbl C:12421→Q
:
:
:
:"SUPPRIMER:"
:DelVar ᴸ
:
:
:12621→Q
:EFFACER LE NOM
:
:
:
:Lbl C2
:ClrHome
:Output(4,4,"SUPPRIME"
:Pause
:DelVar Q
:ClrHome:Goto 0
:Lbl D
:ClrHome
:DelVar L4
:DelVar Str0
:DelVar A
:DelVar B
:DelVar C
:DelVar D
:DelVar E
:DelVar F
:DelVar Q
:DelVar R

Le Blond
Bronze 4
Bronze 4

Sexe : Masculin
Age : 21
Messages : 8
Date d'inscription : 28/10/2011
Etudes : Epitech
Points Forum : 1
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - xLib
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: programme NOTABENE

Message par persalteas le Mar 10 Jan - 8:40

tiens tiens...

Alors, pour l'optimisation brute (sans changer les algorithmes), il y a déjà des remarques à faire...

plusieurs parenthèses de fin de ligne à enlever, le For(A,1,1E98 a remplacer par Repeat 0.

Sinon, tu n'es pas obligé d'utiliser des nombres à 5 chiffres pour les balises d'erreur (ok, je le faisais dans HERSSAHE, mais c'est pas une raison...)

J'imagine que les deux points et le point d'interrogation sont à la fin de la chaine comportant l'alphabet ?

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: programme NOTABENE

Message par sandro le Mar 10 Jan - 17:22

sinon, tu peut t'épargner de suprimer toute ces lettre à la fin, de toute façon, il ne faut pas compter sur une variable de type lettre pour rester longtemps effacée.
Sinon, tu peut au moins ne pas sauter de lignes après les Delvar (attention néanmoins : pas de End collé derière un DelVar ni de If sur la ligne d'avant (sauf si tu veut justement détourner l'usage): l'effet est un peu différent).

Sandro

_________________
mort à l'inutile, place à la mémoire libre et aux programmes!

sandro
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 806
Date d'inscription : 01/07/2011
Etudes : T°S SVT spé maths
Points Forum : 29
Points Concours : 5
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84+ SE
  • - TI-89
  • - Casio Collège

TI-84+ SE


Revenir en haut Aller en bas

Re: programme NOTABENE

Message par Le Blond le Mar 10 Jan - 21:24

Merci pour vos réponses (Sandro je voulais te mettre le bouton merci mais il s'est bloqué après Persalteas)

Sandro, tu veux dire quelque chose comme:

Code:
Delvar L4Delvar Str0Delvar Q

?

Le Blond
Bronze 4
Bronze 4

Sexe : Masculin
Age : 21
Messages : 8
Date d'inscription : 28/10/2011
Etudes : Epitech
Points Forum : 1
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - xLib
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: programme NOTABENE

Message par persalteas le Mer 11 Jan - 8:07

C'est ça oui.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: programme NOTABENE

Message par Contenu sponsorisé Aujourd'hui à 2:21


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum