XL 2016 VBA - Convertir 2 Long en LongLong

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2023

• #2

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #3

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

Par exemple:

VB:

#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

 

Dernière édition: 4 Novembre 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2023

• #4

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

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #5

tu obtiens combien avec x1=2 et x2=4

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #6

(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 ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #7

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.

VB:

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 4 Novembre 2023

• #8

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #9

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #10

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.

 

Dernière édition: 4 Novembre 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2023

• #11

re
a tu essayé sur 3 écrans?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #12

a tu essayé sur 3 écrans?

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #13

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

VB:

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

Ou encore:

Code:

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

 

Dernière édition: 4 Novembre 2023

Vote positif 0 Vote négatif

Solution

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2023

• #14

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

 

Dernière édition: 4 Novembre 2023

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Novembre 2023

• #15

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif