Fenêtre espion et valeur en hex [Résolu]
Brosske
- Messages postés
- 98
- Date d'inscription
- jeudi 25 novembre 2004
- Dernière intervention
- 12 août 2010
- Messages postés
- 209
- Date d'inscription
- lundi 22 novembre 1999
- Dernière intervention
- 3 juillet 2008
16 réponses
Meilleure réponse
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
y'en a des moins courageux, n'en doute pas!
faut bien comprendre qu'on est ni devant ton PC, ni dans ta tête
(et vu les "explications fournies", c'est pas forcément plus mal )
++
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
faut bien comprendre qu'on est ni devant ton PC, ni dans ta tête
(et vu les "explications fournies", c'est pas forcément plus mal )
++
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
123 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Dernière intervention
- 22 août 2014
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Dernière intervention
- 22 août 2014
- Messages postés
- 98
- Date d'inscription
- jeudi 25 novembre 2004
- Dernière intervention
- 12 août 2010
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Dernière intervention
- 22 août 2014
Voilà QUOI ?
Tu balances un png et tu penses que cela suffit pour qu'on comprenne ?
Qu'on comprenne quoi, en fait ?
Relis-toi depuis le début, donc :
Y-a t'il un moyen d'afficher la valeur en format Hex (ou même binaire tant qu'a) à la place d'une valeur décimale
La réponse à CETTE question est OUI, en utilisant la fonction Hex, que la donnée soit dans un Array ou non.
Si maintenant ta question est autre, tu voudras bien l'exposer clairement !
En disant :
- ce que tu as (et sous quelle forme et quel type et dans quoi tu l'as)
- ce que tu veux afficher (et dans quoi et sous quelle forme et quel type)
Merci de faire ce moindre effort.
Tu balances un png et tu penses que cela suffit pour qu'on comprenne ?
Qu'on comprenne quoi, en fait ?
Relis-toi depuis le début, donc :
Y-a t'il un moyen d'afficher la valeur en format Hex (ou même binaire tant qu'a) à la place d'une valeur décimale
La réponse à CETTE question est OUI, en utilisant la fonction Hex, que la donnée soit dans un Array ou non.
Si maintenant ta question est autre, tu voudras bien l'exposer clairement !
En disant :
- ce que tu as (et sous quelle forme et quel type et dans quoi tu l'as)
- ce que tu veux afficher (et dans quoi et sous quelle forme et quel type)
Merci de faire ce moindre effort.
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Dernière intervention
- 22 août 2014
Tu es vraiment difficile à comprendre, je t'assure...
Bon...
Je t'ai bâti un exemple allant dans un sens puis dans l'autre, en espérant qu'u,ne partie ou l'autre de cet exemple contiendra ce que tu cherches vraiment (car je ne le sais toujours pas avec certitude)
Private Sub Command1_Click()
toto0 = Array(20, 10) 'tu as là des chiffres décimaux
toto1 = Array(Hex(toto0(0)), Hex(toto0(1))) 'tu as là des hexas
For i = 0 To 1
MsgBox "j'avais " & toto0(i) & " en décimal" & vbCrLf & "et j'affiche " & toto1(i) & " en hexa"
Next
MsgBox "on va maintenant partir de toto1 pour faire l'incerse "
For j = 0 To 1
MsgBox "je pars maintenant de " & toto1(j) & " en hexa" & vbCrLf & "et j'affiche " & _
Val("&H" & toto1(j)) & " en decimal"
Next
End Sub
Bonne chance
Bon...
Je t'ai bâti un exemple allant dans un sens puis dans l'autre, en espérant qu'u,ne partie ou l'autre de cet exemple contiendra ce que tu cherches vraiment (car je ne le sais toujours pas avec certitude)
Private Sub Command1_Click()
toto0 = Array(20, 10) 'tu as là des chiffres décimaux
toto1 = Array(Hex(toto0(0)), Hex(toto0(1))) 'tu as là des hexas
For i = 0 To 1
MsgBox "j'avais " & toto0(i) & " en décimal" & vbCrLf & "et j'affiche " & toto1(i) & " en hexa"
Next
MsgBox "on va maintenant partir de toto1 pour faire l'incerse "
For j = 0 To 1
MsgBox "je pars maintenant de " & toto1(j) & " en hexa" & vbCrLf & "et j'affiche " & _
Val("&H" & toto1(j)) & " en decimal"
Next
End Sub
Bonne chance
- Messages postés
- 98
- Date d'inscription
- jeudi 25 novembre 2004
- Dernière intervention
- 12 août 2010
merci pour l'attention que tu portes, mais ce n'est pas ce que je cherchait....
le truc doit s'afficher dans la fenêtre des espions (donc sans trop de programmation).
si il s'agissait d'une variable simple, alors oui, j'aurais utilisé la fonction HEX(vairiable_a_suivre)
mais dans le cas d'un array, la fonction HEX ne fonctionne pas.
enfin, faut pas trop perdre de temps, c'était pour gagner du temps que j'avais posé la question sur le forum ^^. là le module est terminé (mdr) et je passe à autre chose.
je recapitule : j'ai une liste Soort() qui es donc variable en longueur. Dans la fenêtre des espions il affiche bien le contenu, mais les valeurs sont en décimale. Je les voudrais en hexadécimale. Je devrais en sorte ajouter les espions suivants:
hex(soort(0))
hex(soort(1))
hex(soort(2))
hex(soort(3))
hex(soort(4))
hex(soort(5))
.............
........
....
.
F.M.
le truc doit s'afficher dans la fenêtre des espions (donc sans trop de programmation).
si il s'agissait d'une variable simple, alors oui, j'aurais utilisé la fonction HEX(vairiable_a_suivre)
mais dans le cas d'un array, la fonction HEX ne fonctionne pas.
enfin, faut pas trop perdre de temps, c'était pour gagner du temps que j'avais posé la question sur le forum ^^. là le module est terminé (mdr) et je passe à autre chose.
je recapitule : j'ai une liste Soort() qui es donc variable en longueur. Dans la fenêtre des espions il affiche bien le contenu, mais les valeurs sont en décimale. Je les voudrais en hexadécimale. Je devrais en sorte ajouter les espions suivants:
hex(soort(0))
hex(soort(1))
hex(soort(2))
hex(soort(3))
hex(soort(4))
hex(soort(5))
.............
........
....
.
F.M.
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Dernière intervention
- 22 août 2014
- Messages postés
- 209
- Date d'inscription
- lundi 22 novembre 1999
- Dernière intervention
- 3 juillet 2008
Comment ça ?
Dim soort(3)
soort(0) = 10
soort(1) = 20
soort(2) = 30
soort(3) = 40
b = Hex(soort(0))
b = Hex(soort(1))
b = Hex(soort(2))
b = Hex(soort(3))
fonctionne superbement bien !
Je ne vois pas le probleme !
Gérôme GUILLEMIN
Auteur du langage FBSL
Dim soort(3)
soort(0) = 10
soort(1) = 20
soort(2) = 30
soort(3) = 40
b = Hex(soort(0))
b = Hex(soort(1))
b = Hex(soort(2))
b = Hex(soort(3))
fonctionne superbement bien !
Je ne vois pas le probleme !
Gérôme GUILLEMIN
Auteur du langage FBSL
- Messages postés
- 98
- Date d'inscription
- jeudi 25 novembre 2004
- Dernière intervention
- 12 août 2010
cette solution n'est pas vraiment faisable quand il s'agit d'un déboguage - faudrait alors recopier à chaque manip le bout de code..... il aurait été bcp plus façile si on pouvait choissir dans la fenêtre des espions que l'affichage doit se faire en HEX et pas en décimal.
Le soucis (je le répète) c'est que la fonction HEX ne fonctionne pas sur un array complèt ....
F.M.
Le soucis (je le répète) c'est que la fonction HEX ne fonctionne pas sur un array complèt ....
F.M.
- Messages postés
- 209
- Date d'inscription
- lundi 22 novembre 1999
- Dernière intervention
- 3 juillet 2008
Bah réfléchit un coup alors!
C'est pas compliqué de faire une sous fonction qui prend en parametre un array et le decortique en hexa valeur par valeur et retourne par la suite un string correctement formatté !
Sub test()
Dim soort(7) soort(0) 10: soort(1) 20: soort(2) = 30: soort(3) = 40 soort(4) 50: soort(5) 60: soort(6) = 70: soort(7) = 80
MsgBox formattage(soort)
End Sub
Function formattage(ByRef soort()) As String
Dim i&, j&, str$, iMod%, h$
For i = LBound(soort) To UBound(soort)
h = Hex(soort(i)) If Len(h) 1 Then h "0" & h
str = str & h & " "
j = j + 1 If j Mod 4 0 Then str str & vbLf
Next i
formattage = str
End Function
Oké ?
Gérôme GUILLEMIN
Auteur du langage FBSL
C'est pas compliqué de faire une sous fonction qui prend en parametre un array et le decortique en hexa valeur par valeur et retourne par la suite un string correctement formatté !
Sub test()
Dim soort(7) soort(0) 10: soort(1) 20: soort(2) = 30: soort(3) = 40 soort(4) 50: soort(5) 60: soort(6) = 70: soort(7) = 80
MsgBox formattage(soort)
End Sub
Function formattage(ByRef soort()) As String
Dim i&, j&, str$, iMod%, h$
For i = LBound(soort) To UBound(soort)
h = Hex(soort(i)) If Len(h) 1 Then h "0" & h
str = str & h & " "
j = j + 1 If j Mod 4 0 Then str str & vbLf
Next i
formattage = str
End Function
Oké ?
Gérôme GUILLEMIN
Auteur du langage FBSL
- Messages postés
- 98
- Date d'inscription
- jeudi 25 novembre 2004
- Dernière intervention
- 12 août 2010
non car si tu reprends depuis le début l'array était affiché dans la fenêtre des espions !!!!
Inutile de fournir du code et du code !
soit il existait un astuce SIMPLE pour afficher toutes les valeurs en HEX pour cet espion soit il n'y en a pas ! En tout cas c'est pas un bout de code qui sera la solution.
F.M.
Inutile de fournir du code et du code !
soit il existait un astuce SIMPLE pour afficher toutes les valeurs en HEX pour cet espion soit il n'y en a pas ! En tout cas c'est pas un bout de code qui sera la solution.
F.M.
- Messages postés
- 209
- Date d'inscription
- lundi 22 novembre 1999
- Dernière intervention
- 3 juillet 2008
Réponse : y'en a pas de soluces directe dans l'IDE sous VB !
DAns visual studio par contre ya :)
Et pis arretes de t'exiter, tu n'as qu'à aussi t'exprimer au plus juste !
Gérôme GUILLEMIN
Auteur du langage FBSL
DAns visual studio par contre ya :)
Et pis arretes de t'exiter, tu n'as qu'à aussi t'exprimer au plus juste !
Gérôme GUILLEMIN
Auteur du langage FBSL
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.