Avatar billede christian_h Nybegynder
13. september 2003 - 17:04 Der er 5 kommentarer og
1 løsning

Fra delphi til VB6 igen igen

Hej alle eksperter.

Jeg er stadig ved at over sætte noget Delphi code til VB og er igen løbet ind i problemer, i Delphi er der noget der hedder shr (shift right) og shl (shift left) hvordan oversættes flg. til VB

waarde:=waarde shl 1
t:=t shr 7
b:=b shl 1
if (((Signature shr 16) and $FF)=S1) And (((Signature shr 8) and $FF)=S2) And ((Signature and $FF)=S3) then

Håber nogen kan hjælpe

Mvh.

Christian_h
Avatar billede arne_v Ekspert
13. september 2003 - 17:08 #1
t := t shr 7
må være:
t = t / 128

b := b shl 1
må være:
b = b * 2
Avatar billede arne_v Ekspert
13. september 2003 - 17:08 #2
2=2^1
128=2^7
Avatar billede arne_v Ekspert
13. september 2003 - 17:11 #3
waarde = waarde * 2
t = t / 128
b = b * 2
if ((signature \ 65536) mod 256) = S1 and ((signature \ 256) mod 256) = s2 and (signature mod 256) = s3 then
Avatar billede arne_v Ekspert
13. september 2003 - 17:12 #4
and $FF

masker low 8 bit.

Det svarer til modulus 256.
Avatar billede christian_h Nybegynder
14. september 2003 - 10:40 #5
Hej Arne.

Det fatter jeg INTET af, så jeg håber bare at det er rigtigt !!! ;-)

TAK for hjælpen, du får dine point.

Mvh.

Christian_h
Avatar billede arne_v Ekspert
14. september 2003 - 11:09 #6
Du må skrive igen hvis der er noget der driller.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I dag 10:21 Ny printer, men hvilken Af mort1 i Printere
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging