Portail
Rechercher
Connexion
Chatbox externe
Derniers sujets
Partenaires
| TI-Planet | Espace-TI : Forum |
|
|
|
Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)
Les posteurs les plus actifs du mois
| Aucun utilisateur |
PrgmMDP
2 participants
Page 1 sur 1
PrgmMDP
par xiug Mer 3 Juil 2013 - 3:28
Voila mon programmeMDP
JE COPIE COLLER DEPUIS LANCIEN FORUM !
Le contraire de egal (n'est pas egal) = /=
Si vous voulez proteger l'execution d'un programme Vous editez votre programme a Proteger est vous faite sa 2nde Suppr Entrer prgm > > Choisir le PrgmMDP
Programme de Reglage ce programme sert a metre un utilisateur et un MDP pour le PrgmMDP
Programme Modifier par Linkakro !
JE COPIE COLLER DEPUIS LANCIEN FORUM !
- PrgmMDP:
- PrgmMDP
Lbl 2
EffEcr
Output(4,1,"UTILISATEUR ?"
Input Chaine2
If Chaine2/=Chaine3
Then
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
Goto 2:End
If Chaine2=Chaine3
Goto 3
Lbl 3
EffEcr
Output(4,6,"MDP ?"
Input Chaine2
If Chaine2=Chaine1
Goto 1
If Chaine2/=Chaine1
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
Goto 2:End
Lbl 1
Menu("MDP","CHANGER DE MDP",M,"CHANGER IDENT.",J,"CONTINUER",C
Lbl M
EffVar Chaine1
Input Chaine1
Lbl J
EffVar Chaine3
Input Chaine3
Lbl C
EffEcr
Output(2,4,"BIENVENUE"
Output(4,4,Chaine3
Pause
Le contraire de egal (n'est pas egal) = /=
Si vous voulez proteger l'execution d'un programme Vous editez votre programme a Proteger est vous faite sa 2nde Suppr Entrer prgm > > Choisir le PrgmMDP
Programme de Reglage ce programme sert a metre un utilisateur et un MDP pour le PrgmMDP
- PrgmMDP2:
- EffEcr
Output(4,1,"UTILISATEUR ?"
Input Chaine 3
EffEcr
Output(4,6,"MDP ?"
Input Chaine 1
Stop
Programme Modifier par Linkakro !
- PrgmMDP(MODIFIER):
- // PrgmMDP
Repeat Chaine2=Chaine1
Repeat Chaine2=Chaine3
EffEcr
Output(4,1,"UTILISATEUR ?"
Input Chaine2
If Chaine2/=Chaine3
Then
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
End
End
EffEcr
Output(4,6,"MDP ?"
Input Chaine2
If Chaine2/=Chaine1
Then
EffEcr
Output(2,1,Chaine2
Output(4,4,"ERREUR"
Pause
End
End
Lbl Y
Menu("MDP","CHANGER DE MDP",M,"CHANGER IDENT.",J,"CONTINUER",C
Lbl M
EffVar Chaine1
Input Chaine1
Goto Y
Lbl J
EffVar Chaine3
Input Chaine3
Goto Y
Lbl C
EffEcr
Output(2,4,"BIENVENUE"
Output(4,4,Chaine3
Pause
xiug- Nouveau Venu
- Messages : 8
Points Concours : 0
Productivité : 0
Date d'inscription : 02/07/2013
Localisation : 123 rue du paradis !
Calculatrice(s) :- TI-82 Stats.fr
. :
-
Re: PrgmMDP
par Wistaro Mer 3 Juil 2013 - 10:30
Pas mal, mais je ne voit pas trop l'utilité 
Dernière édition par Wistaro le Dim 7 Juil 2013 - 17:11, édité 1 fois
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» Bonne année 2018!
» Lancement du TI-Concours 2017 !
» Chaînes Youtube des membres
» cacul du taux d'intêret
» [Projet] Un mario by tout82
» Cherche documentation assembleur TI82stat
» Probleme Ti-82 Stats fr
» ROM 82 stats.fr