soucisRésolu

Question

Bonjour,

sachant que idVendor:0x0256 = &H256
idProduct:0x0789 = &H789
A votre avis que me donne  ??? :
idVendor:0xFFFF
idProduct:0xFFFF

Merci d'avance

PCPT · Accepted Answer

salut,

le & est bien pour signaler un long

par exemple le type (vartype) de 10 retournera un integer(2), contre 10& qui retournera un long(3)

on peut stoquer la variable en hexa ou en décimal

'idVendor:0x0256
Private Const idVendor1 As Long = &H256&
Private Const idVendor2 As Long = 598&

'idProduct:0x0789
Private Const idProduct1 As Long = &H789&
Private Const idProduct2 As Long = 1929&

'idOther:0xFFFF
Private Const idOther1 As Long = &HFFFF&
Private Const idOther2 As Long = 65535

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

jmfmarques · Answer

Bonjour

Pardon ?

Réexplique ! (commente chaque ligne de ton code) ...

jmfmarques · Answer

Que sont ces ":" ? du code ?

marty14 · Answer

les : sont des indications USB rien d'important en fait il sagit d'une convertion a effectuer 0x0 = &H en VB donc je cherche a savoir ce que me donne
0xF

Kevin.Ory · Answer

Salut,
Aucune conversion à faire, ce n'est que la notation qui change (du C au VB) :

0x0256 = &H256
0x0789 = &H789
donc 
0xFFFF = &hFFFF

marty14 · Answer

Merci kevin j'ai essayé mais si je fait ca il ne me detecte pas mon materiel usb

cs_casy · Answer

Attention, &hFFFF en VB6 doit être mis dans un Long, le type Integer en VB étant signé il ne dépasse pas &h7FFF soit 32767 en décimal

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_casy · Answer

Ouppsss, c'est vendredi et je dit des conneries 

&HFFFF est possible en VB6 dans un Integer, c'est tout simplement égal à -32768 en décimal.

Dsl, j'ai répondu trop vite.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

marty14 · Answer

je fait comment pour le declarer svp ? dsl je debute :)

marty14 · Answer

si je fait VendorID = &HFFFF& ca marche nickel

marty14 · Answer

ha non dsl je dit des conneries aussi.Comment fait on SVP ??

cs_casy · Answer

Si tu utilise un Long essaye peut-etre &h0FFFF& pour bien forcer à FFFF et non pas FFFFFFFF comme fait parfois VB
 
---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

marty14 · Answer

ok mais le soucis c'est que je ne sais pas comment m'y prendre pour decle=arer ce genre de truc.

Kevin.Ory · Answer

Rien de spécial:

Dim Address As Integer 
Address = &hFFFF

Ou avec un Long comme le conseil Casy:
Dim Address As Long
Address = &h0FFFF

Casy> C'est normal le & à la fin de "&h0FFFF&" ?

cs_casy · Answer

Je ne saurais pas te dire dans le cas présent, il faudrait faire des essais (ha que c'est de plus en plus loin VB6 )

C'est parfois nécessaire pour préciser le type de la constante, je ne sais plus si c'est avec des Long ou des doubles quand tu veux affecter des constantes à une variable car sinon VB6 te jette une erreur car sans indication, la constante prend un type par défaut qui peut ne pas correspondre au type de la variable.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Kevin.Ory · Answer

OK merci 
Pour moi aussi c'est très loins, et de plus j'ai jamais vraiment bien maitrisé ^^

LIBRE_MAX · Answer

Bonsoir, 
Alors que moi, j'ai jamais vraiment même pas essayer de bien maitriser 


En tout cas, j' ai fait un test.
ça n' a peut être rien à voir, mais voilà:
Dans la page propriété d' un co ntrol, j' ai copié la valeur BackColor
(Blanc) = &H00FFFFFF&
et je l' ai collé dans le module d' un form.
En passant à la ligne (Enter) ma valeur devient 16777215


J' ai refait la même chose sur une autre ligne mais j' ai tapé
Const D =&H00FFFFFF&
Retour à la ligne et ça devient
Const D = &HFFFFFF


Surtout n' essayer pas de m' expliquer, je sais déjà que je ne comprenderais rien.

                 	
<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.

PCPT · Answer

^^ 
la couleur est un faux long. 
en fait c'est un vrai LONG si , mais 'formaté', de type OLE_COLOR

après le "&H", les 0 ne sont pas comptabilisés

&H0000FF (ou &H0000FF&) devient &HFF

et l'IDE convertit seul l'hexa vers décimal (si ce n'est pas une commande) car il le prend comme un numéro de ligne, donc décimal
en effet toutes les lignes de code DANS une procédure peuvent être numérotées

exemple, avec explication (j'espère)

Option Explicit

Private Sub Form_Load()
10  Dim i As Integer
20  i = Test1
30  i = Test2
40  Unload Me
End Sub

Private Function Test1() As Integer
10  On Error Resume Next
20  Dim i As Integer
30  i = 27
40  Test1 = i / 3
50  If Err.Number Then MsgBox Err.Description, , "Erreur à la ligne " & Erl()
End Function

Private Function Test2() As Integer
10  On Error Resume Next
20  Dim i As Integer
30  i = 27
40  Test2 = i / 0 'division par 0
50  If Err.Number Then MsgBox Err.Description, , "Erreur à la ligne 
" & Erl() '<- notre 
numérotation
End Function

donc en tapant &HFF directement, l'IDE transforme en cette fameuse numérotation qui nous sert le plus souvent pour les erreurs

NB
cette numérotation n'a pas de règle particulière, juste pas 2 fois le même nombre dans une même procédure.
néanmoins (plus ou moins par convention) :
*en général on numérote de 10 en 10
*une SUB ou FUNCTION ne peut pas commencer par un numéro, contrairement au END (sub/function). de ce principe on ne le numérote pas (le end)
*en général on essaye de tout numéroter sans doublon sur toute une feuille de code (contrairement à mon exemple), mais c'est ingérable.. 
*les numéros peuvent également être directement utilisés comme étiquette : 
10  On Error GoTo 60
* on ne numérote jamais "0", pour éviter toute confusion avec la gestion :
10  On Error GoTo 0

bon avec l'exemple çà mérite peut-être une 2e relecture mais sinon c'est pas si compliqué au final ^^
simple conversion de l'IDE dans le but de numéroter

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

LIBRE_MAX · Answer

j' aprécie 
çà mérite peut-être même plusieurs relectures,
mais au final on ne peut que s' enrichir.
Une bonne explication, c' est toujours bon à prendre.
En tout cas elle m' a permis d' être moins c.. qu' il y' a tout juste moins d' une demi-heure 

Merci.

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

PCPT · Answer

je ne t'ai qu'à moitié répondu LIBRE_MAX ^^
(quoi que)

j' ai copié la valeur BackColor (Blanc) =   &H00FFFFFF&
En passant à la ligne (Enter) ma valeur devient 16777215
expliqué

J' ai refait la même chose sur une autre ligne mais j' ai tapé
Const D =&H00FFFFFF&
Retour à la ligne et ça devient
Const D = &HFFFFFF

en tapant ta constante, comme indiqué, VB va enlever les 0 inutiles
donc on pas de 
 &H00FFFFFF& 
à
&HFFFFFF&

le & de droite est pour signaler le LONG (expliqué aussi, c'est aussi ce que  casy  disait ; pour éviter les problèmes de type)
or &HFFFFFF& est forcément supérieur à la plus grande valeur de l'INTEGER.
étant donc LONG, pas d'ambiguïté, l'IDE fait sauter ce dernier & 
même en l'ajoutant manuellement, il sera supprimé
idem pour tout à l'heure, en décimal uniquement cette fois-ci :
Private Const idOther2 As Long   = 65535
normal puisque 65535 est aussi forcément un long, supérieur à 32767

aucune idée par contre sur le pourquoi du '&HFF&' accepté/conservé 
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

LIBRE_MAX · Answer

j' ai les neurones qui chauffent, mais je suis de plus en plus moins c..
Alors je tente une explication :
Si la valeur de &HFF est inférieure à integer, placé devant une const avec & en dernier, celle-ci sera de type long en dépit de sa valeur.
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

PCPT · Answer

si la valeur de &HXX (pas FF) est, au final, un entier, le fait d'ajouter & l'en rendra long oui
mais il ne faut pas confondre avec le fait de déjà typer la constante
const C as long= 2
2 est integer par défaut, C sera quand même long, mais çà oblige une conversion à VB pour rien. c'est pourquoi on mettra plutôt
const C as long=2&

voir premier message :
 par exemple le type (vartype) de 10 retournera un integer(2), contre 10& qui retournera un long(3) 

Option Explicit

Private Sub Form_Load()
    MsgBox "'&HB20' -> " & GetStrType(VarType(&HB20)) & vbCrLf & _
           "'&HB20&' -> " & GetStrType(VarType(&HB20&))

    Dim v1, v2
    v1  = &HB20
    v2 = &HB20&
  
    MsgBox "'v1' -> " & GetStrType(VarType(v1)) & vbCrLf & _
           "'v2' -> " & GetStrType(VarType(v2))
    
    Unload Me
End Sub

Function GetStrType(ByVal l As Long) As String
    If l = vbInteger Then
        GetStrType = "INTEGER"
    ElseIf l = vbLong Then
        GetStrType = "LONG"
    Else
        GetStrType = "????"
    End If
End Function

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

LIBRE_MAX · Answer

Option Explicit


Const C = &HFF&
Const D = &HFF


Private Sub Form_Load()
 
MsgBox C & " : " & D & " - " & TypeName(C) & " / " & TypeName(D)
 
'Resultat > 255 : 255 - Long / Integer
End Sub





<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

LIBRE_MAX · Answer

posts croisés !
j' était sur le même truc et ça se confirme.

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

LIBRE_MAX · Answer

mais j' ai compris le fait de déjà typer la constante
const C as long=2

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

PCPT · Answer

typename...., j'aime bien m'embêter pour rien moi 

oui, à savoir que comme C et D ne sont pas typées, elles sont en Variant. pour çà que le & change cette valeur (type)
tout comme dans mon exemple au dessus

déclare C et D as long, le & n'altèrera pas

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

croisés en beauté oui ^^

PCPT · Answer

... et avec ton test je vois pourquoi VB accepte &HFFFF&, c'est un ENTIER non-signé. donc en hexa on ne partira pas sur un entier jusqu'à 32767 mais bien 65535

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

LIBRE_MAX · Answer

En tout cas Merci PCPT pour ce précieux cours et à un prochain.Je l' espère 
Bonne fin de soirée.

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

marty14 · Answer

Eh bien merci beaucoup pour votre aide, je vais donc essayer ceci :

Dim Address As Integer 
Address = &hFFFF

Dim Address As Long
Address = &h0FFFF

Dim Address As Long
Address = &h0FFFF&

marty14 · Answer

'idOther:0xFFFF

Private Const 
idOther1 
As Long 
= 
&HFFFF&


Private Const 
idOther2 
As Long 
= 
65535

marty14 · Answer

Bonjour à tous et encore merci pour l'aide apportée ca marche impec, il me reste qu'un petit soucis en déclarant toute vos informations comme ceci si je connecte le peripherique  :VID&H45E& PID&H284& celui ci est introuvable alors que si je connecte le peripherique: VID&HFFFF& PID&HFFFF& est trouvé sans aucun probleme. ou ce trouve l'erreur ?

'idVendor:0x0256
Private Const VendorID1 As Long = &H45E& 
Private Const VendorID2 As Long = &HFFFF& 
Private Const VendorID3 As Long = &H40B& 
'idProduct:0x0789
Private Const ProductID1 As Long = &H284& 
Private Const ProductID2 As Long = &HFFFF& 
Private Const ProductID3 As Long = &H6521& 

Private Const VendorID = VendorID1 or VendorID2 Or VendorID3       
Private Const ProductID = ProductID1 or ProductID2 Or ProductID3

PCPT · Answer

tu l'inventes de où ton OR? pour quelle occasion? dasn quel but?

petite explication sur cette page :
http://www.vbfrance.com/infomsg_TRADUIT-ENCOR-TRUC-FLASH-VB6-SVPLE-QUESTION-OPTIMISEE_1189090.aspx?p=2

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_casy · Answer

Private Const VendorID = VendorID1 or VendorID2 Or VendorID3  
soit                       &H45E   or   &HFFFF  or   &H40B     = &HFFFF

Private Const ProductID = ProductID1 or ProductID2 Or ProductID3
soit                        &H284    or    &HFFFF  or   &H6521   = &HFFFF

c'est donc bien le périphérique VID&HFFFF / PID&HFFFFqui est attendu

Pour rappel, Or est l'opérateur du Ou Logique

Lorsque tu fait un Or entre deux valeurs chacun des bits de chacune des valeurs est analysé. Si au moins un des 2 bits est égal à 1 alors le bit correspond du résultat sera égal à 1 sinon il est égal à 0

par exemple pour le VID :
&H45E  ==> 0000010001011110 en binaire
&HFFFF ==> 1111111111111111 en binaire
&H40B  ==> 0000010000001011 en binaire
--------------------------------------
           1111111111111111

Si tu analyse les bits colonne par colonne tu vois bien que le résultat est 1111111111111111 soit &HFFFF

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

marty14 · Answer

comment dois je faire si par exemple je veus indiquer que BB est egal a VendorID1 ou VendorID2 ou VendorID3 ce qui dependras de la peripherique connecté ?

cs_casy · Answer

Je ne sais pas ce que tu fais exactement dans ton code, mais je présume que tu veux faire, à moment donné, un test sur l'id du périphérique connecté pour savoir s'il correspond à l'un des trois cas attendus.

Dans ce cas il te faudra faire 3 tests pour tester l'id avec chacun des cas. Un truc du genre :

If VID=VendorID1 and PID=ProductID1 Then
....
Else If  VID=VendorID2 and PID=ProductID2 then
...
Else If VID=VendorID3 and PID=ProductID3 then
...
Else
    Msgbox "Pas le bon périf"
End If

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

LIBRE_MAX · Answer

Salut,
Dans ce cas pourquoi ne pas utiliser une variable au lieu d' une Const.On pourras alors lui affecter le résultat d' une fonction. <hr />... Y'en a même qui disent qu'ils l'ont vu voler.

marty14 · Answer

Yesss parfait grace a vous, merci merci encors. VIVE LES ADMIS ET TOUS LES MEMBRES DE CE FORUM.

PCPT · Answer

ps : pense à valider la ou les réponses qui t'on permis... (blablabla)

marty14 · Answer

il me semble que c'est deja fait !

PCPT · Answer

oups oui ^^
trop de fenêtres ouvertes à la fois 

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Soucis

41 réponses

Votre réponse