Discussion :

[anila]

Bonjour,

Je recherche une procédure via le controle mscomm pour recupérer le numero de téléphone entrant. Le telephone est branché sur le modem de l'ordinateur.
merci beaucoup de votre aide.

[SfJ5Rpw8]

Tu en est ou au niveau de MSCOMM ?

Tu as regardé la documentation de ton modem, savoir s'il géré l'identification de l'appelant ? et quel était le code qu'il attendait pour cela ?

[anila]

Bonjour,

Dans un formulaire contenant le composant mscomm et une zone de texte text1, voila le code qui porvient de devellopez.com! :

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
55
56
57
58
59
60
Private Sub Form_Load()
 
With MSComm1
.CommPort = 2 ' A parametrer selon le num du port sur lequel se trouve le modem et le telephone:
 
.Handshaking = 2
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
End With
Text1.Text = ""
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'on ferme le port quand l'appli quitte
End Sub
 
Private Sub MSComm1_OnComm()
Dim Tampon As String
 
Select Case MSComm1.CommEvent
' On effectue la gestion des erreurs (cf. le modèle ci-dessus)
' Ici, on gère en fait pas grand-chose, mais c'est pour illustrer la démarche ;)
'reprise du code ds developpez.com
'liste des erreurs possibles
Case comEventBreak 'On a reçu un signal d’interruption (Break)
Case comEventCDTO ' Timeout de la porteuse
Case comEventCTSTO ' Timeout du signal CTS (Clear To Send)
Case comEventDSRTO ' Timeout du signal de réception
Case comEventFrame ' Erreur de trame
Case comEventOverrun ' Des données ont été perdues
Case comEventRxOver ' Tampon de réception saturé
Case comEventRxParity ' Erreur de parité
Case comEventTxFull ' Tampon d’envoi saturé
Case comEventDCB ' Erreur de réception DCB (jamais vu)
 
'liste des événements possibles qui sont, eux, normaux
Case comEvCD 'Changement dans la broche CD (porteuse)
Case comEvCTS 'Changement dans broche CTS
Case comEvDSR 'Changement dans broche DSR (réception)
Case comEvRing 'Changement dans broche RING (sonnerie)
 
'ce que je devrais conserver
Case comEvReceive
      Tampon = MSComm1.Input
      Call Traitement(Tampon) 'traitement données
 
Case comEvSend ' il y a des caractères à envoyer
 
Case comEvEOF 'on a reçu le caractère EOF
End Select
End Sub
 
Sub Traitement(Chaine As String)
'cette procédure sert à traiter l’information reçue dans le tampon
     Text1.SelStart = Len(Text1.Text)
     Text1.SelText = Chaine 'ici, on affiche le résultat dans un champ de texte
End Sub

Donc le téléphone est branché sur la sortie du modem interne (?!).
Apparemment, il peut afficher les numéros entrants.(un autre programme le fait

que manque-t-il à ce code pour qu'il fonctionne?
ou au branchement nécessaire?

merci pour votre aide

[gomtex]

j ai le meme principe pour un lecteur rfid
dans la documentation de ton modem tu dois avoir une section commande AT que tu enverra sur le port concerné avec mscommX.output
tu recupere ensuite dans une autre variable ou la meme a la rigueur et tu affiche.

moi ca ressemble a

Code :

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

1
2
3
4
  seq = RD"commande"
  mscommX.output= seq
  sleep 500
  seq = mscommX.input

a toi te fier a la doc du modem apres^^

sinon si ce sujet ne t interesse plus tu peu mettre delestage , fini tu peu mettre le code que tu a trouver et cliquer sur résolu.
voila