XL 2016 VBA - Convertir 2 Long en LongLong

[Dudu2]

Bonjour,

J'ai des fonctions qui savent convertir une structure POINTAPI en LongLong.
Mais j'aimerais convertir directement 2 Long en 1 LongLong (le premier sur les 32 premiers bits, le deuxième sur le 32 derniers).
Par quoi multiplier le 1er ? 2 ** 32 ? Avant d'ajouter le 2ème. Ça ne marche pas !
Merci par avance.

 

[patricktoulon]

re
je ne suis pas sur de comprendre

si tu a la solution tu cherche quoi
tes deux long ,tu les met dans ta structure et tu converti non

 

[Dudu2]

Oui mais il faut déclarer un POINTAPI et un POINTAPI_AsLongLong ou utiliser un CopyMemory.
Je trouve ça un peu lourd !

Par exemple:

#If Win64 Then 
    Private Type POINTAPI
        X As Long
        Y As Long
    End Type

    Private Type POINTAPI_AsLongLong
        Value As LongLong
    End Type
#End If

#If Win64 Then
    '----------------------------
    'Convert two Long to LongLong
    '----------------------------
    Function TwoLongToLonLong(x1 As Long, x2 As Long) As LongLong
        Dim Pt As POINTAPI
        Dim t As POINTAPI_AsLongLong
      
        Pt.X = x1
        Pt.Y = x2
        LSet t = Pt
       
        'Return value
        TwoLongToLonLong = t.Value
    End Function
#End If

 

[patricktoulon]

non ca va
tu obtiens combien avec x1=2 et x2=4

par ce que je ne peux pas testé je suis en 32

 

[Dudu2]

tu obtiens combien avec x1=2 et x2=4

 

[Dudu2]

(1, 0) -> 1
(0, 1) -> 4294967296
(1, 1) -> 4294967297
Il semble donc que ce soit l'inverse de ce que j'ai supposé au début !
Little Indian ? Big Indian ?

 

[Dudu2]

A priori ça semble vrai, mais est-ce TOUJOURS vrai en fonction du processeur ?
Je ne comprends pas pourquoi c'est x2 qui doit prendre la puissance 32 !
A moins que le LongLong soit stocké comme ça.

Sub a()
    Dim x1 As Long
    Dim x2 As Long
    Dim LL As LongLong
  
    x1 = 1
    x2 = 2
  
    [A1].Value = TwoLongToLonLong(x1, x2)
    LL = x2 * (2 ^ 32) + x1
    [A2].Value = LL
End Sub

 

[dysorthographie]

Bonjour,
Elles te servent à quoi tes directives de compilation si tu ne t'intéresse qu'au win64?

 

[Dudu2]

Bonjour,
Je n'ai extrait que la partie Win64 pour cette question de LongLong

 

[Dudu2]

Le code pour lequel se pose cette question est celui-ci qui sert à trouver tous les moniteurs.
Et ce code fonctionne avec la manip de conversion.

 

[patricktoulon]

re
a tu essayé sur 3 écrans?

 

[Dudu2]

a tu essayé sur 3 écrans?

Non, car ma retraite ne me permet pas à la fois un 3ème l'écran et la bière

.

Mais ça fonctionne sur 2 et donc sur N car il n'y a pas de test sur 2.

 

[Dudu2]

Sinon je mets dans ce post-solution cette conversion simple qui fonctionne... jusqu'à preuve du contraire !

#If Win64 Then    
    Function TwoLongToLongLong(X As Long, Y As Long) As LongLong
        TwoLongToLongLong = Y * 2 ^ 32 + X
    End Function
#End If

Ou encore:

Private Type POINTAPI
    X As Long
    Y As Long
End Type

#If Win64 Then
    Function POINTAPIToLongLong(Pt As POINTAPI) As LongLong
        POINTAPIToLongLong = Pt.Y * 2 ^ 32 + Pt.X
    End Function
#End If

 

[patricktoulon]

Mais ça fonctionne sur 2 et donc sur N car il n'y a pas de test sur 2.

je me demande alors pourquoi tu do/loop

tu dis que ça peut marcher su N perso j'en suis pas sur
tu ne fait que visiter la gauche avec le monitorfrompoint(negatif )
qui sait on peut en avoir 1 de chaque coté du point(0,0)
un au point(-1,1)'donc à gauche
un au point(1,1)'au milieu
un au point(1+Mi.rcmonitor.right de l'ecran du milieu,1) 'donc à droite

 

[Dudu2]

tu dis que ça peut marcher su N perso j'en suis pas sur

Tu mets en doute mon code ?

Eh bé, tu as raison !
Et ce n'est pas parce que je pars de la gauche à -10**6.
C'est parce que je ne pars pas aussi du haut à -10**6

Car 2 écrans (ou plus) peuvent être juxtaposés en vertical. Et ça je n'y avais pas pensé

.
Mais du coup, je suis plus tout à fait sûr du scan

. Je pense qu'il faut y réfléchir.