Autorisation : Membre
Nb de messages : 17
Inscrit le : Sam 29 Jui 2013, 3:52
Posté le : Lun 01 Juil 2013, 17:11
Voici mon premier programme que je post ici Je débute en programmation donc soyez gentil ! (lol) ce qui est bien c'est que c'est facille a conprendre ! DONC FACILLE A OPTIMISER !
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
Ce programme est a utiliser une seul fois avent l'autre programme
Il sert a metre un Mdp est un Nom UTILISATEUR
Donc apres vous pouvez le suprimé
Il peut aussi servire si vous avez oublier votre MDP OU NOM UTILISATEUR
Ou Encor si un autre Programme Modifier les Chaine 1 et 3
---------------------- Output(1,1,"Bonjour"
Input A
Output(2,2,A
Astuce pour changez de nom un programme !
Créer un Nouveau programme avec le nom que vous voulez Changez
Apres
editez sa dans le preogramme
2nde , Sto-> , prgm , > , > , Choisir votre programme !
Autorisation : Membre
Nb de messages : 17
Inscrit le : Sam 29 Jui 2013, 3:52
Posté le : Lun 01 Juil 2013, 17:30
Je n'est copier sur personne j'ai fait ce code tous seul si il est ressemblent a autre code c'est un peu normal comme le prgm que j'ai fait est simple a conprendre mais tous les programme que je mais sera dait par moi
je vous le promet sur mon honneur
Ou Sinon je dirais la source est ou j'ai trouver le programme !
Merci d'avoir lu !
---------------------- Output(1,1,"Bonjour"
Input A
Output(2,2,A
Astuce pour changez de nom un programme !
Créer un Nouveau programme avec le nom que vous voulez Changez
Apres
editez sa dans le preogramme
2nde , Sto-> , prgm , > , > , Choisir votre programme !
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 01 Juil 2013, 19:28
Tu exagères sur la justification des crédits, mais cela a le mérite d'être clair.
tous les programme que je mais sera dait
tous les programmes que je mets seront fait
tous les programmes que je mettrai seront faits
Je t'invite à optimiser en prenant maintenant quelques exemples de mon article sur les protections. https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=2759
Mais tu as prévu de nombreux affichages, essayons de garder la présentation, et les reprises.
Pas besoin de Goto avant un Lbl pour l'executer.
Il faut placer un Goto après les actions qui dépendent d'un menu si on veut éviter d'executer tout ce qui suit.
Tu as bien fait de rappeler la manimpulation du RappelprgmMDP.
(2nde+sto+prgm+gauche+choix+entrer+entrer)
C'est bien pratique pour ceux qui ne savent pas encore, d'autant plus avec la taille imposante de ce programme.
Code
// 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
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
