Discussion :

[bobby-b]

Bonjour à tous,

Dans un de mes programme je suis amené à récupérer la partie gauche et la partie droite d'un byte et voici ce que je fais :
Pour récupérer la partie gauche :

Code :

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

1
2
3
 
var B,G : Byte;
G :=  B shr 4;

Pour récupérer la partie droite :

Code :

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

1
2
3
 
var B,D : Byte;
D :=  B-((B shr 4) shl 4);

donc si j'ai B=$C3
je récupère G=$C et D=$3

Je suis en train d'optimiser au maximum mon code pour qu'il s'exécute plus rapidement.
Je ne pense pas qu'il y ait un moyen plus rapide (en temps de calcul cpu) de récupérer la partie gauche mais pour la partie droite je sais pas.
A votre avis ?

Merci,
Bobby-B

[/dev/null]

Utilise la fonction and

Code :

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

D :=  B and 15;

et c'est réglè

15 est égal a 00001111 en binaire, et comme l'operation And ne place un bit a 1 que si les deux bit de même rang sont a 1, tu élimine tout les bit de poids fort (de gauche ) en métant a zero leurs equivalent

[fs999]

Salut,

Voilà.

Code :

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

1
2
3
4
5
6
7
8
var
  B, G, D: Byte;
begin
  B := $C3;
  G := B shr 4;
  D := B and $F;
  ShowMessage('G:$'+IntToHex(G, 1)+#13+'D:$'+IntToHex(D, 1));
end;

A+

[bobby-b]

Merci tous les 2 pour vos réponses.
Je me doutais bien qu'il y avait plus simple

Bobby-B

[/dev/null]

Je te recommande de bien apprendre les opération logique ainsi que leur utilité... la plupart des optimisation passe par une bonne connaissance du Boolean
Bonne continuation @you