Ptite chaine

Question

Bonjour,

Voila en gros je veux envoyer un chaine de caractère "70 010"

Pour l'instant j'ai ça: :-p 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then
    MSComm1.Output = Chr(KeyAscii)
Else
    MSComm1.Output = Chr(13) & Chr(10)
End If
End Sub
C'est à dire que ça envoie ce que j'ecris dans une zone text mais moi je veux renvoyer un chaine déjà déclarée sans devoir la tapper
comment quon fait ?

Merci :)

DragonDo · Answer

Je ne sais pas si c'est ce que tu veux, mais fais un petit essai !

'----- Déclaration des variables locales
     Dim Ind as long
     Dim Msg as string

'----- Initialisation des variables
     Msg="70 010"

'------ Envoi de la chaîne
     For Ind=1 to Len(Msg)
          MSComm1.Output = Mid$(Msg,Ind,1)
     Next Ind

@+  :)

cs_hop · Answer

heu j'ai fait du copier coller sans comprendre comment ça marche et ça marche pas  ;) 
mais bon,
je ne comprend pas
For Ind=1 to Len(Msg) 
'c'est pour connaitre le longueur de la chaîne?
MSComm1.Output = Mid$(Msg,Ind,1)
'Mid$ ça fait quoi? :)

DragonDo · Answer

Len(MonTexte) te donne le nombre de caractères de ta chaîne "MonTexte".
Mid$(MonTexte,Position,Nb_Caractères) te permet de récupérer "Nb_Caractères" caractères (Nb_Caractères est un nombre) situé à la position "Position" ("Position" est un nombre) dans ta chaîne "MonTexte". Ex.
Mid$("Moi",2,1) => o
Mid$("Moi",1,2) => Mo

Ce que je fais :
Je décompose ta chaîne de caractères en caractères simples que j'envoie à MsComm (de lui je ne peux rien te dire je ne connais pas du tout !). C'est ce que tu faisais en interceptant les touches du clavier dans ton TextBox.

Ptite chaine

3 réponses

Discussions similaires