fricher
Messages postés15Date d'inscriptionmardi 7 décembre 2004StatutMembreDernière intervention23 août 2007
-
13 avril 2005 à 16:55
fricher
Messages postés15Date d'inscriptionmardi 7 décembre 2004StatutMembreDernière intervention23 août 2007
-
13 avril 2005 à 16:58
Je voudrais pouvoir envoyer des données (hexa) récupérées par rs 232 sous excel pour pouvoir générer des courbes. Voici mon prog :
'Effacement des valeurs dans le Text1.Text
Private Sub Clear_Click()
Text1.Text = " "
End Sub
'Ouverture et fermeture du port série
Private Sub GestionPortSérie_Click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Else
MSComm1.PortOpen = False
End If
End Sub
Private Sub Timer1_Timer()
'Dans le cas où le port est ouvert
If MSComm1.PortOpen = True Then
A = MSComm1.Input
'Découpage des données
For x = 1 To Len(A)
s = Mid$(A, x, 1)