programme NOTABENE

Bonjour, je vous présente un programme fait par moi, que je mets a votre disposition
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


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 ?

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

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

?

C'est ça oui.