Discussion :

[Lo²]

Bonjour à tous,

J'ai une application à laquelle je souhaite ajouter des modules.
Ces modules ne seront accessibles que par le biais de la licence.

J'avais dans l'idée d'attribuer un nombre impair à chaque module et d'en faire la somme mais on arrive vite à plusieurs combinaisons possibles (ex : 20 = 7 + 13 = 9 +11).

Auriez-vous une idée à me proposer ?

merci à tous

[Hemgé]

Bonjour,

ETBinaire() ou l'opérateur [] d'accès direct aux bits, sur un entier (sur 8 octets) donnerait déjà 64 possibilités.

Pour un début ...

Hemgé

[Lo²]

Bonjour Hemgé et merci pour ton aide.

J'ai regardé de ce côté mais ça ne résout pas mon problème de combinaison multiple pour le nombre 20 (9+11 ou 7+13), non ?
Sauf si je passe à côté de quelque chose d'évident car 64 possibilités sont largement suffisants.

Que dois-je déduire de ces résultats ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ETBinaire(20, 7) = 4
ETBinaire(20, 13) = 4
 
ETBinaire(20, 9) = 0
ETBinaire(20, 11) = 0

[tatayo]

L'idée d'Hemgé est d'affecter une puissance de 2 comme valeur à chaque module, ainsi chacun est représenté par un bit dans la valeur finale.
Par exemple 25 = 16 + 8 + 1 = 00011001 en binaire.

Tatayo.

[Lo²]

ah mais oui bien sûr super.

Merci à tous les 2

[Patrice Terrier]

Et voila la fonction qui va bien pour faire le test avec des puissances de 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
FUNCTION CheckModule(LOCAL nMainValue is unsigned int, LOCAL nValueToCheck is unsigned int)
    nRet is int = 0
    IF (nMainValue AND nValueToCheck) = nValueToCheck THEN nRet = -1
RESULT nRet

C'est de cette façon que l'OS vérifie le style des fenêtres lors de leur création, WS_POPUP | WS_VISIBLE | WS_CAPTION, etc.

[Hemgé]

Bonjour,

Juste pour le fun (parce que cette fonction ne va pas être appelée de manière répétitive), l'opérateur [] d'accès direct aux bits serait peut-être plus rapide.
Tout dépend des arcanes de Windev.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
FUNCTION CheckModule(LOCAL nMainValue is int, LOCAL nValueToCheck is int) : Booléen 
bOk est Booléen = nMainValue[nValueToCheck]
Renvoyer bOk

avec nMainValue = clé des licences et nValueToCheck = n° du module à contrôler

Hemgé

[Hemgé]

Encore et toujours pour le fun :

Il n'est même pas nécessaire d'utiliser une variable intermédiaire. (testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FUNCTION CheckModule(LOCAL nMainValue is int, LOCAL nValueToCheck is int) : Booléen 
Renvoyer nMainValue[nValueToCheck]

Bon WE

Hemgé