manipulation de donnees en hexa sur vb

Version imprimable

30/04/2009, 01h02
fonRTT

manipulation de donnees en hexa sur vb

bonsoir a tous
j'ai a lire des donnees a partir d`un textbox pour les traiter ulterieurement, mes problèmes sont:

-au cours du saisie comment je peux verifier si le caractere tape est bien un parmis (123.....9ABC....F)c`est a dire un caractere referant a un code hexa?

-apres je doit traiter ce que a ete tape comme etant hexadecimal, son decodage doit me donner une taille d`une trame(parce que je simule un transfert de paquets):
exemple: texte saisie=1f decodage donne lataille est=31octets.

-je dois apres enregistrer certaines donnees resultats du traitment dans un fichier txt et ce toujours en hexa et les afficher sur un msgbox en hexa aussi.
Remarque: quand l`utilisateur tape '1' mon application doit comprendre que c`est une donnee hexa sur 8bit qui en principe s`ecrit '01'

tout ce traitement la je l`ai fais sur c++ mais mon professeur veux le voir sur interface (pas obligatoirement en vb donc si quelqu'un a une idee comment faire en vb ou s`il connait un autre logiciel ou l`application me sera plus simple
merci d`avance

Beaucoup questions pour un seul post !
pour le controle de validité des caractères saisis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Text1_KeyPress( KeyAscii As Integer)
  Dim Ok As Boolean
  Ok = Chr(KeyAscii) Like "[0-9A-Fa-f" & Chr(8) & "]"
  If Not Ok Then
    KeyAscii = 0
  End If
End Sub
 
Private Sub Text1_Validate( Cancel As Boolean)
  Dim Ok As Boolean
  Dim strTemp As String
  Dim iPnt As Integer
  If Text1 <> "" Then
    strTemp = Right("00000000" & UCase(Text1), 8)
    Text1 = strTemp
    For iPnt = 1 To 8
      If Mid(strTemp, iPnt, 1) Like "[0-9A-F]" Then
        '
      Else
        MsgBox "le champs comporte des caractères non Hexa"
        Cancel = True
        Exit For
      End If
    Next
  End If
End Sub

La valeur décimale se calcule avec

Code:

MaValeur = CLng("&H" & Tex1)

Pour l'ecriture sur disque il va te falloir plonger dans l'aide de vb, vois la fonction open.

30/04/2009, 07h58
OhMonBato
Pour tester si les caracteres contenus dans uen textbox representent bien un code hexa, on peut faire ça :
Code:

1 2 3 4 5 6 If IsNumeric("&H" & Text1.Text) = True Then Label1 = "Hexadecimal" Else Label1 = "Pas hexadecimal" End If
Ha, j'allais oublier, quand tu parles de VB, tu parles bien sûr de VB6 ("vieille" version de VB à laquelle est dédiée cette partie du forum) ? Tu ne parles pas de VB.Net ?
30/04/2009, 18h51
fonRTT

merci a vous deux
c`est ce que je cherchais.
une autre question qui va vs paraitre débile(i`m new in vb:roll:):en c j'ai le tableau unsigned int suivant
Unsigned int tab[]={0x01,0x0a,.........0x03} comment déclarer un équivalent a çà en vb?
merci

Code:

1
2
3
Dim TabL As Variant
TabL = Array("0x01", "0x0a", "0x05", "0x07", "0x04", "0x01")
MsgBox TabL(LBound(TabL)) & "   " & TabL(2) & "   " & TabL(UBound(TabL))