Lire du hexa

Question

Salut

comment faire affiché 2 valeurs hexa dans un textbox ?
thx de votre aide.

cs_Nestor · Answer

j'ai oublié des présision.

je voudrais charger un fichier binaire, puis de faire afficher 2 valeurs hexa à 2 offsets different dans un textbox.

cs_lataupeben · Answer

http://www.vbfrance.com/code.aspx?ID=18025

va voir cette source
elle permet de convertir le binaire l' hexa le decimal et l' octal
ca doit pouvoir te servir

cs_lataupeben · Answer

j' ai rien dis la source peut pas vraiment te servir
c'est un peu pourris (mais escuse au createur)

elle font combien t valeur en binaire

un octet >>8 bits >>8 chiffres(0 ou 1)

pour coder 1 octet en binaire il faut 2 bits

je peux te faire une source pour coder le binaire en héxa

cs_Nestor · Answer

me suis mal exprimé dans ma demande.

en fait je voudrais faire afficher une valeur hexa d'un fichier EXEcutable ou d'une sauvegarde de jeu par exemple....

genre faire voir dans un textbox ce kil ce trouve à l'offet #000447 ,en hexa puis dans un autre textbox en Dec.

cs_lataupeben · Answer

j' ai a peut pres compris 

tu as reussi a recuperer la valeur???

ds quell base ??(deci,hexa,bin)

cs_lataupeben · Answer

c quoi un offset???

carlvb · Answer

:-(carlvb

Salut!
Je sais pas si ça va t'aider mais bon tu peux toujours essayer

tu ouvres un fichier en mode binaire et copies son contenu dans un tableau de byte, tu refermes le fichier et tu récupères les offsets voulus dans le tableau.
Pour exploiter l'exemple suivant, mets sur une form un commandbutton, un commondialog et trois textbox et colle le code.
pour ouvrir un fichier tu cliques sur le bouton, la taille du fichier s'affiche dans text3
après tu tapes un offset (en décimal) dans text1 et l'octet correspondant s'affiche en héxa dans text2.

Dim B() As Byte

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    Open CommonDialog1.FileName For Binary As #1
    taille = LOF(1)
    Text3 = taille
    ReDim B(1 To taille)
    For i = 1 To taille
        Get 1, i, B(i)
    Next
    Close #1
End Sub

Private Sub Text1_Change()
    On Error GoTo Error
    Text2 = Hex(B(Val(Text1)))
    Exit Sub
Error: Text2 = ""
End Sub

j'espère que ça va t'aider.

à plus

Lire du hexa

7 réponses

Discussions similaires