[VB6 ]convertir un tableau de byte en tableau d'integer

convertir un tableau de byte en tableau d'integer [VB6 ] - Programmation

Marsh Posté le 23-03-2001 à 16:45:19    

bah ... tout est dit ...

Reply

Marsh Posté le 23-03-2001 à 16:45:19   

Reply

Marsh Posté le 23-03-2001 à 16:49:25    

Bah CInt ou CLng ca marche pas ?

Reply

Marsh Posté le 23-03-2001 à 16:53:18    

non ...
cint ca me converti UN byte (=89 par exemple) en un integer(=89)
moi il faut me convertir 2 bytes en UN integer ... (2 octet) ..
C'est une histoire d'adresse ... de type ...
bref : soit ma variable : dim var() as byte
pouvoir la considérer en var() as integer
 
donc si dim var(1 to 100) as byte
devient dim var(1 to 50)  as integer

Reply

Marsh Posté le 23-03-2001 à 17:30:15    

Bah y'a plein de possibilités différentes mais regarde la doc msdn pour les opérations sur les bytes
Mais sinon tu te fait un type (commande TYPE) de 16 bits (=2 bytes), tu fait une petite fonction de construction qui prend en paramètres tes deux bytes, et après tu essaye CInt sur ton type, ca devrait passer

Reply

Marsh Posté le 23-03-2001 à 17:43:19    

Non ... type mismatch
avec :
Type pouf
    byte1 As Byte
    byte2 As Byte
End Type
 
 
Function Convertir(b1 As Byte, b2 As Byte) As Integer
    Dim blam As pouf
    blam.byte1 = b1
    blam.byte2 = b2
    Convertir = CInt(blam) <= ici "type mismatch"
End Function

Reply

Marsh Posté le 23-03-2001 à 22:18:50    

Que penses-tu de :
 
Function Convertir(b1 As Byte, b2 As Byte) As Integer  
  Convertir = b1 * 256 + b2
End Function  
 
?


---------------
Laissez l'Etat dans les toilettes où vous l'avez trouvé.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed