Discussion :

[lessoy]

J'ai un capteur de pesée (pont bascule) et on me demande de realiser un logiciel pr lire la valeur sur le capteur.
Il se branche sur le COM1. je ne sais vraiment pas comment m'y prendre

[hhkiki]

Bonjour,
Pour ton problème suit ce lien:
http://www.developpez.net/forums/vie...519&highlight=
Bonne chance.

[dbozec]

Il faut commencer par déterminer quelles sont les données envoyées sur le port COM via Hyper Terminal. Ensuite après avoir bien étudié ce que tu reçois, tu utilise le contrôle MSComm comme indiqué dans la FAQ pour récuperer les donées dans ton programme. Enfin le reste n'est plus que du traitement de chaîne de caractères via les instructions Split et autres.
Bonne chance.

[avigeilpro]

le plus important étant de connaitre la vitesse de transfert (ex:9600 bauds) la parité et le nombre de bits de données. Ca c'est pour pouvoir communiquer avec ton appareil. Ensuite il faut connaitre le protocole a suivre pour lui envoyer ou recevoir les informations, et tu ne peut connaitre cela que de deux façons a ma connaissance : soit tu as la documentation de l'appareil qui te le dira soit tu est bricoleur et grace a l'hyper Terminal tu le devinera. Il ne te restera plus que, par l'intermediaire de VB et du control MScomm, a faire l'interface qui connaitra ce protocole.
Bon courage

[Lapin_Vengeur]

Voici un petit exemple. qui devrait être très proche de ce que tu cherches
C'est pour les codes barre, sur le port Com1

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
' Global Variables pour les scanner code barre
Dim Global_Barcode As String
Dim Start_Time As Date
 
'********************************************
 
'  Principal
 
Private Sub Form_Load()
  Start_Time = 0
  Global_Barcode = ""
  ComPort_ActiveXCtl.CommPort = 1
    ' 9600 baud, no parity, 8 data, and 1 stop bit.
  ComPort_ActiveXCtl.Settings = "9600,N,8,1"
  ComPort_ActiveXCtl.InputLen = 0         'lecture buffer
  ComPort_ActiveXCtl.PortOpen = True      ' Open port
  ComPort_ActiveXCtl.RThreshold = 1       '  appel pour chaque caractère 
 
End Sub
 
Private Sub ComPort_ActiveXCtl_OnComm()
  Select Case ComPort_ActiveXCtl.CommEvent
 
    Case comEvReceive   ' reception n caractères
        If Start_Time = 0 Then
          Start_Time = Timer
        Else
          If Timer - Start_Time > 200 Then ' en cas de raté            Form_Timer
            Exit Sub
          End If
        End If
        Global_Barcode = Global_Barcode & ComPort_ActiveXCtl.Input
        TimerInterval = 80   ' Timer 80 ms après le dernier caractère pour être sur d avoir tout
 
  End Select
End Sub
 
Private Sub Form_Timer()
  TimerInterval = 0    ' Disable timer
  Start_Time = 0
  Barcode_UIEdit = Global_Barcode
  Global_Barcode = ""
 
  Barcode_UIEdit_Change
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  If ComPort_ActiveXCtl.PortOpen = True Then
    ComPort_ActiveXCtl.PortOpen = False
  End If
End Sub
 
'  fin du code

Lapin Capteur