activeX

Question

SALUT,
voici un code que j'ai r&#233;cup&#233;r&#233;(developpez.com) et modifi&#233; pour traduire des trames NMEA provenant d'une girouette/an&#233;mom&#232;tre
&#231;a marche bien sous excel mais le probl&#232;me c'est qu'il faut que je cr&#233;e un activeX pour int&#233;grer sous INTOUCH V9.0 et lire les informations sur la supervision.Si quelqu'un &#224; des informations sur les d&#233;marches &#224; suivre, j'ai un peu de mal &#224; commencer et j'aimerais bien un petit coup de pouce pour d&#233;marrer . merci...

Ce code n'est que provisoire, il ne r&#233;alise que 100 boucles(par la suite il devra tourner sans discontinuit&#233; durant la dur&#233;e de l'application),mais si vous y voyez des erreurs flagrantes n'h&#233;sitez pas...
je suis n&#233;ophyte et arrive bient&#244;t en fin de formation...encore merci et salut.

Private Sub CommandButton1_Click()
Beep
Dim tampon As String
Dim flag As Boolean
Dim compteur As Integer


flag = False 'commande de sortie de boucle
compteur = 0 'nombre de boucles


'Vider le buffer
MSComm1.InBufferCount = 0


'choisir un port s&#233;rie
MSComm1.CommPort = 1 'Ici


'Balance
'4800 bauds,pas de parit&#233;, 8 bits de donn&#233;es, 1 bit d'arr&#234;t
MSComm1.Settings = "4800,N,8,1" 'Ici


' indique au contr&#244;le qu'il doit lire 1 seul caract&#232;re
'ce caract&#232;re sert &#224; rep&#233;rer la stabilisation de la balance
MSComm1.InputLen = 1  'Ici


'ouvre le port
MSComm1.PortOpen = True



UserForm1.Repaint


Do While (flag = False)


   'Boucle tant que le 1er caract&#232;re n'est pas un dollar ($)
   Do While MSComm1.Input <> "$"
     Label1.Caption = ""
     UserForm1.Repaint
 
   Loop
  
   'reception des trames
   Do
   DoEvents
       tampon$ = tampon$ & MSComm1.Input         'enregistrer la reception des donn&#233;es dans une cha&#238;ne
       Label1.Caption = tampon$                  'afficher la trame
       Loop Until InStr(tampon$, (Chr$(13)) & vbcdlf) 'sortir d&#232;s que fin de trame
      
   If Mid$(tampon$, 1, 2) = "II" Then 'identification trame selon premiers caract&#232;res
   Label4.Caption = Val(Mid$(tampon$, 7, 5)) 'extraction et conversion en valeur num&#233;rique
   Label5.Caption = 1.852 * Val(Mid$(tampon$, 15, 6)) 'idem ci-dessus + conversion en KM/H
   End If
   
   If Mid$(tampon$, 1, 2) = "WI" Then 'identification trame selon premiers caract&#232;res
   Label6.Caption = Val(Mid$(tampon$, 9, 5)) 'extraction et conversion en valeur num&#233;rique
   End If
   
   tampon$ = ""
   
   UserForm1.Repaint
   compteur = compteur + 1 'incr&#233;mentation compteur &#224; chaque boucle   If compteur 100 Then flag True 'si nbre boucles atteint sortie de boucle



Loop


'ferme le port
MSComm1.PortOpen = False  'Ici


End Sub



Private Sub CommandButton2_Click()
Unload Me
End Sub


Private Sub UserForm_Click()


End Sub

bouille60 · Answer

c'est encore moi !
j'ai oubli&#233; de demander si vous savez o&#249; trouver de la doc en fran&#231;ais sur INTOUCH, j'en peux plus d'essayer de d&#233;chiffrer tous ses termes anglais, merci...

ActiveX

1 réponse

Discussions similaires