Question simple ...Résolu

Question

Bonjour à tous
Bon, j'essaye toujours de traduire un code delphi en vb, et je bloque sur certaines choses (qui paraissent pourtant simples).
Voici un des problème :

var x,i:word;
    a:longword;
begin
   x:=0;
   while (x<256) do
     begin
       a:=x shl 24;
       for i:= 0 to 7 do
        begin
               a:= a + a;     <========= ici le problème(ou plutôt ce que je ne comprend pas)
               a:= a xor Seed;
        end;
       inc(x);
     end;
   end;

comment et pourquoi obtient-on zéro sachant que "a" a une valeur ?si x 1 ou 2 alors a + a  0

merci de bien vouloir éclairer ma lanterne

@+
greg38bj

f0xi · Accepted Answer

a:= a + a;
pourquoi ne pas écrire a:= 2*a;

parce que ADD est mieux que MUL :)

du plus rapide au plus lentA A + A // A A << 1 
A = A * 2
A = A / 0.5

<hr size="2" width="100%" />
http://deefaze.gnomz.com

cs_cantador · Answer

a:= a + a;
pourquoi ne pas écrire a:= 2*a;

Mais, je pense que le mieux est de dire ce que tu souhaites réaliser plutôt que de donner un code à corriger sans savoir ce qu'il fait.

cantador

f0xi · Answer

decalaration de variable locale :

  X est un mot non signé (16 bits)
  I est un mot non signé (16 bits)
  A est un mot long non signé (32 bits)

ROUTINE :
  X est egal a 0
  TANT QUE X est inferieur a 256 faire :
    A est egale a X "shift left" 24 (décalé de 24 bits sur la gauche)
    POUR I de 0 a 7 faire :
      A est egal a A + A 
      A est egal a A xor (ou exclusif) Seed
    fin POUR.
    X est incrementé de 1 (X = X + 1)
  fin TANT QUE.
fin ROUTINE

en VB (pas sur a 100%)



Dim X As UShort
Dim I As Integer
Dim A As UInteger

  X = 0
  While (X < 256)
    ' A = X shl 24
    A = X*16777216

    For I = 0 to 7 
      A = (A+A) 
      A = A Xor Seed
    Next I

    X = X + 1
  WEnd
      

<hr size="2" width="100%" />
http://deefaze.gnomz.com

cs_cantador · Answer

parce que ADD est mieux que MUL 

oui bien vu foxi (faut que je révise mon assembleur..)

Mais 

Dim X As UShort
Dim I As Integer
Dim A As UInteger

  X = 0
  While (X < 256)
    ' A = X shl 24
    A = X*16777216

    For I = 0 to 7 
      A = (A+A) 
      A = A Xor Seed
    Next I

    X = X + 1
  WEnd

çà donne quoi en Pacal ?

cantador

greg38bj · Answer

re ...
Je veux bien, mais je pense que la transition va être dur
je suis passé de vb6 a vb express 2005 l'année dernière et ça a déjà été dur alors me mettre au delphi ça risque d'être encore plus dur.
Je risque d'être un boulet car j'ai besoin de résultat rapide, si je dois passer des heures sur internet à chercher comment on fait ci ou ça, ça risque d'être long pour sortir un malheureux soft.
Je travaille surtout sur le décryptage de fichiers et sur la communication par port série.
Alors bonjour les angoisses !

@+
greg38bj

cs_cantador · Answer

à 38 beaux jours, on est en pleine forme et

From vb6 to Delphi, c'est du gâteau, 
car on n'a pas besoin de se faire expliquer toutes les bases (enfin si un peu quand même...)
Poses toutes les questions que tu souhaites, on te répondra (à condition que tu prenne un avatar...)

Lorsque tu auras gouté un peu au produit, tu ne pourras plus t'en passer..

C'est TERRIBLEMENT CONTAGIEUX !

cantador

Question simple ...

6 réponses

Votre réponse

Discussions similaires