Discussion :

[GPeigne]

Je travaille avec des informations bas niveau en héxa.
Mes informations sont contenus sur 1, 2 ... 256 Bytes.
Ces infos sont mémorisées dans des tableaux de byte déclarer en Type_NBytes.

Je souhaiterais comparer, additionner, soustraire facilement mes données sans être obligé, a chaque fois de fois 10 lignes de calcul :
Exemple : Result(32bytes) = Valeur1(32Bytes) + Valeur2(8Bytes)
Exemple : If Valeur3(16Bytes) > Valeur4 (16Bytes)

Merci

[Alcatîz]

Bonjour !

Dans le cas d'additions, soustractions, etc, s'il faut gérer des reports d'un byte à l'autre, il n'y a pas de méthode facile (mais bon, je ne suis pas un matheux...).

Dans tous les cas, à mon avis, tu devrais plutôt avoir recours à du code Assembleur.

[M.Dlb]

Personnellement j'ai pas compris ce que tu voulais faire... Si tu pouvais être plus clair, pour tout le monde

Utilise la balise code aussi.

a+

[GPeigne]

Dans mon cas, les valeurs sont retournés par une carte à puce.
Par exemple :
Valeur1 = ($00,$01,$F1,$A2,$3C;$15)
Valeur2 = ($51,$AF)
Valeur3 = ($00,$05,$F1,$d2,$05;$E1)

Je voudrais pouvoir ecrire :
Valeur3 := Valeur1;
Mais je dois écrire :
For i=0 to 6 do Valeur3[i] := Valeur1[i];

Pour les comparaisons, je voudrais écrire :
If Valeur3>=Valeur2 then {Action1} else {Action2};
Mais je dois faire une comparaison Byte par Byte en partant de l'index 6

Pour les additions, je voudrais ecrire :
Valeur4 := Valeur1 + Valeur3
ou (autre exemple)
Valeur4 := Valeur1 + Valeur2 (dans ce cas, j'additionne Valeur2 avec les index 0 et 1 de Valeur1).
Mais je suis oblige de faire les additions Byte par Byte et gérer les retenus

ETC....

Ayant une 100aine de valeur alllant de 1 à 256 Byte, je ne vais pas faire 100 * 3 fonctions ....

AVEZ VOUS UNE SOLUTION???

[Alcatîz]

N'est-il pas possible de travailler avec un type unique à 256 bytes ? Les bytes non utilisés auraient une valeur nulle.

Ou alors, les fonctions que tu écrirais pourraient recevoir comme paramètres les nombres de bytes des valeurs à traiter ?
Dans le genre :

Code :

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

Procedure Addition (Valeur1, NbBytesValeur1, Valeur2, NbBytesValeur2);