Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Protection
Fryke le 30/01/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
linkakro le 30/01/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.
Fryke le 31/01/2013 à 14:24
ouais mais je me suis pas encore penché dans les listes je reste sur des programmes composé de commandes simple Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
