| protection |
| Auteur |
Message |
Fryke
Autorisation : Membre
Nb de messages : 19
Inscrit le : Lun 17 Déc 2012, 15:20
|
Posté le : Mer 30 Jan 2013, 21:11
|
|
 |
Bonjour/Bonsoir à vous j'ai codé hier soir à la va vite un petit code de code (de protection) qui consiste à entré un code (45982 ici) sans aucune interface
je sais que ce serait beaucoup plus léger et simple avec des input mais j'ai choisi d'utiliser les getkey
le code:
| Code | ClrHome
Lbl 0
getKey->A
If A=82
Then
Goto 1
Else
Goto 0
End
Lbl 1
GetKey->B
If B=83:Goto2
If B=/=(différent de)0 and B=/=83:Goto 0
If B=0:Goto 1
Lbl 2
getKey->C
If C=74:Goto 3
If C =/=0 and C=/=74:Goto 0
If C=0:Goto 2
Lbl 3
getKey->D
If D=73:Goto 4
If D=/=0 and D=/=73:Goto0
If D=0:Goto 3
Lbl 4
getKey->E
If E=93:Disp "OK (ici vous pouvez mettre un accès à un autre programme)
If E=/=0 and E=/=93:Goto 0
If E=0:Goto 4
|
voila donc ça c'était le code de protection et maintenant un autre petit code pour connaître la valeur des touches et créer votre propre code (vous pouvez mettre une infinité de "touche" à votre code)(rappel pour mon code la solution est 45982)
Voici le code pour connaître la valeur de getkey
| Code | Lbl 1
getKey->K
If K=/=0:Disp K
Goto 1
|
----------------------
Jeu en cour de programmation: Black jack
90%
possesseur d'une ti82 |
 |
  |
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 30 Jan 2013, 23:18
|
|
|
C'est un bon début.
L'initiative de poster un programme donnant les touches est intéressante.
Même avec getKey on peut faire mieux. Inspire-toi notamment de mon article, et pose des questions si besoin.
EDIT : et franchement utilise des boucles Repeat !
Ici c'est facile de remplacer (pour une fois) et en plus le goto devient vite une embrouille.
----------------------
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)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
Fryke
Autorisation : Membre
Nb de messages : 19
Inscrit le : Lun 17 Déc 2012, 15:20
|
Posté le : Jeu 31 Jan 2013, 14:24
|
|
|
ouais mais je me suis pas encore penché dans les listes je reste sur des programmes composé de commandes simple
----------------------
Jeu en cour de programmation: Black jack
90%
possesseur d'une ti82 |
| |
|
| |
