séparation de données et conversion hexadécimale

séparation de données et conversion hexadécimale - VB/VBA/VBS - Programmation

Marsh Posté le 22-04-2004 à 11:37:33    

Hello, je développe un petit soft pour mon stage, je dois envoyer une commande à un appareil sur le port série, et ensuite récupérer certaines données.
 
Voici un bout de code
 
Private Sub Command3_Click()
Call Ouverture
On Error Resume Next
MSComm1.Output = "\C" & Chr(13)
Call Reception
Call Fermeture
End Sub
 
Sub Reception()
Tampon = ""
Do
  DoEvents
  Tampon$ = Tampon$ & MSComm1.Input
Loop Until InStr(Tampon$, vbCrLf)
Text5.Text = Tampon$
End Sub

 
bon ça ça marche bien.
En éxécutant j'obtiens par exemple ceci:
Cell ID        : CI=e46f LAC=3004 MNC=01 MCC=208
 
ce n'est que ce qui est en rouge qui m'intéresse et il faut le convertir en décimal.
 
Pourriez-vous m'aider?


Message édité par ulmi le 22-04-2004 à 11:39:17

---------------
Fast but not Furious
Reply

Marsh Posté le 22-04-2004 à 11:37:33   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed