[VBA] Word naar bytes?

[Verwijderd]

In een programma dat ik met VBA moet scripten krijg ik een dalijk een variable binnen, die uit het programma komt als een WORD. Oftewel 2 bytes. Nu moet ik de bitjes in die bytes individueel kunnen uitlezen.

In de eerste plaats kent VBA volgens mij geen WORDs dus zal het wel opgevat worden als een integer? Dan moet ik uit die integer idividuele bitjes halen, maar ik heb in VBA geen flauw idee hoe?

Het zoeken op VBA en word geeft natuurlijk snel de indruk dat je opzoek bent naar office toepassingen.

Iemand ooit zoiets gedaan?

[Lustucru]

een 16 bits variabele heet in vba inderdaad een integer.
Individuele bits lees je uit met een 'AND' operator:
If (var AND 8 ) [=8] then '.... derde low-bit gezet

offtopic:
en VBA is deel van office, dus dit mag in Officesuites en -software

[Creepy]

Move naar Officesuites en -software dussch

[Verwijderd]

Heeft overigens nix met office te maken

[CoRrRan]

Ik geloof dat de mods de 'woorden' "VBA" en "WORD" in dezelfde post gelijk vinden aan Office.

Ze hebben zeker nog nooit gehoord van programma's als CATIA v5 die ook gewoon VBA gebruiken...

[ Voor 6% gewijzigd door CoRrRan op 09-05-2007 16:17 ]

[Verwijderd]

Bijna elk Industriëel Software pakket gebruikt VBA voor scripting. En een word is een verzameling van 8 bits, maarja lezen he .

Maar Lustucru je hebt gelijk, dat is de way to go, thanks.

[Lustucru]

offtopic:
Doe even normaal jullie twee

De meest bekende en gebruikte VBA hosts zijn de applicaties in het office-pakket, en dus is er voor gekozen om VBA topics in het office-forum onder te brengen. Verder is het onderscheid tussen msWord en een 'Word' welbekend en worden 8 bits op een rijtje normaliter een byte genoemd.

[SKiLLa]

Je krijgt dan dus iets als:

code:

Function IsBitSet (ByVal intValue, ByVal intBit)
    IsBitSet = (intValue And 2^intBit) = 2^intBit
End Function

Retourneert True/False voor het betreffende bit.
Let op, bitnummering loopt van [0, ->], b.v.: IsBitSet (128, 7) levert True op
Wil je gewoon 0 of 1 geretourneert krijgen, dan gebruik je:

code:

IsBitSet = Abs ((intValue And 2^intBit) = 2^intBit)

[Verwijderd]

Heb het opgelost met de "\" ofwel "div" en "mod" operators / functies!