Discussion :

[Quent4491]

Bonjour à tous,

Je m'explique, je dispose d'un programme sous VBA qui me permet de récupérer et afficher dans une TextBox des données provenant d'un appareil relié par liaison série à mon PC. Seulement voilà, lors de l'execution de ce programme, bizarrement tous les caractères s'affichent dans le TextBox sauf les premiers (exemple : au lieu d'avoir l'affichage de 28-04-11 plus l'heure plus plein de données, j'ai d'afficher 4-11 et tout le reste). Pour récupérer les données transmises sur la liaison série, j'utilise NETComm33.ocx parce que je ne peux pas utiliser MSComm32 et je travaille avec le Pack office XP.

Autre chose, je suis sur que le début de la date arrive bien sur mon pc puisque quand je fais le test avec l'hyperterminal le début de la date s'affiche correctement.

Auriez-vous des potentielles idées quant à la résolution de mon problème ?

Voici le bout de code suffisant pour récupérer et afficher les données :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub NETComm1_OnComm()
    Dim Buffer As String
 
    Buffer = NETComm1.InputData
    TextBox1.SelText = Buffer
 
End Sub
 
Private Sub UserForm_Initialize()
 
    With NETComm1
        .CommPort = Port               'Choix du port "COM1"
        .PortOpen = True
        .RThreshold = 1
        .Settings = "9600, n, 8, 2" 'Option (Vitesse, Parité, bits de donnee et bits de stop)
    End With
End Sub

Ah et je ne voudrais pas abuser de vous. Mais est-ce-qu'il vous serait possible de me dire comment on fait dans une textbox pour réecrire par dessus des caractères déjà présent ? ( par exemple : j''écris "123456789" dans un TextBox, je replace le curseur au debut de la TextBox et j'aimerais lorque j'ecris une nouvelle fois obtenir "Coucou " et non pas "Coucou 123456789" j'aimerais que ca réecrive par dessus quoi )
Si vous aviez également la solution à ce problème je vous en serais très reconnaissant

Merci d'avance,
Quentin

[Jean-Philippe André]

salut,

pour ta derniere partie de question, il s'agirait en fait d'activer le mode Insert ?
ou bien vider le contenu de la textbox dans un premier temps et ecrire le reste a la suite ?

[Didier Gonard]

bonjour,

en rajoutant la ligne 2, tu obtiens quoi dans ta fenêtre exécution ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Buffer = NETComm1.InputData
Debug.Print Buffer

pourquoi utilises-tu la propriété SelText ?

cordialement,

Didier

[Quent4491]

Excusez moi de répondre si tardivement, c'est que j'ai reussi à résoudre ces 2 problèmes finalement, pour l'histoire des caractères de début de chaine qu'il me manquait, en retravaillant ma chaine que caractère avant de vouloir l'afficher je me suis rendu compte qu'en enlevant tous les caractères spéciaux(types : retour chariot, bell etc...) du debut de ma chaine je suis arrivé à obtenir toute la date. Et pour ce qui est de la TextBox j'ai reussi à obtenir ce que je voulais.

Merci quand même, faut que je résolve mes autres soucis maintenant
Et étant nouveau, je sais pas si c'est à moi ou à vous de clore le sujet ou mettre résolu ?