Discussion :

[DevVB]

Bonjour

J'ai un petit probléme de programmation pour envoyer un fichier .wav vers un telephone.
J'arrive à joindre le telephone mais quand je rentre la ligne de code pour initialiser le modem afin qu'il puisse envoyer des données (AT+VTX) . Il me renvoie une erreur alors qu'il devrait me renvoyer "CONNECT"
Je travaille avec les commandes AT que je ne connaissais pas la semaine derniére... donc je ne vois pas pourquoi j'ai cette erreur alors que les instructions que j'envoie son celle que j'ai trouvé sur le site du fabriquant du modem.

Voici mon code c'est un peu long mais normalement c'est la demarche pour envoyer des données audio via un modem...

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
Set oCom = MSComm
 
With oCom
.CommPort = 1
.Handshaking = 2
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.OutBufferSize = 1024
.PortOpen = True
End With
 
            oCom.Output = "AT &F" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+IFC=2,2" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "ATM1L2" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+FCLASS=8" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VSM=1,8000,0,0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            'oCom.Output = set_vitesse(115200)
 
            oCom.Output = "AT+VIT=0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VTD=10" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VDT=1,0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VSD=0,0" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VLS=5" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VSP=1" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VRA=50" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VRN=15" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
 
            oCom.Output = "ATDT" & num & ";" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                    If InStr(buffer$, "NO DIALTONE") Then
                        MsgBox ("couper")
                        oCom.Output = "ATH" + Chr$(13)
                    End If
                    If InStr(buffer$, "OK") <> 0 Then
                    MsgBox "Décrochez le téléphone et appuyez sur le bouton Ok."
                    DoEvents
                    End If
                    'MsgBox (buffer$)
                Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""
 
            oCom.Output = "AT+VTX" & vbCr
                Do
                    DoEvents
                    buffer$ = buffer$ & oCom.Input
                    MsgBox (buffer$)
                    If InStr(buffer$, "ERROR") Then
                    MsgBox (buffer$)
                    oCom.Output = "ATH" + Chr$(13)
                    oCom.PortOpen = False
                    Exit Sub
                    End If
                    Loop Until InStr(buffer$, "OK" & vbCrLf)
            buffer$ = ""

l'erreur est dans cette derniére partie, le msgbox me renvoie "ERREUR"

Si quelqu'un a plus de connaissance que moi dans ce domaine (ca ne doit pas etre dur!!) je suis preneur de tous renseigenement
merci

[SfJ5Rpw8]

à priori c'est pas un probléme de code VB mais un probléme de commande AT vers ton modem ... essai tout d'abords d'effectuer "manuellement" ces commande en utilisant l'Hyperterminal de Windows par exemple...et renseigne toi sur ton modem histoire de voir s'il comprends bien la commande "AT+VTX" .

[DevVB]

Merci en fait j'ai trouvé ce qui n'allait pas c'est juste que je n'avais pas mit les commandes dans le bon ordre....
Par contre maintenent j'ai un autre probléme, j'ai fait l'appelle, la connection vocale est établit et maintenant je dois envoyer mon message vocal.
Le fichier c'est un .wav
J'ai lu plein de truc sur le sujet, qu'il fallait enlever l'entéte, qu'il fallait le décomposer et l'envoyer byte par byte...
bref je voudrais savoir si quelqu'un sait comment il faut faire exactement

Merci

[DevVB]

Est ce que quelqu'un connait les lignes de codes pour envoyer les données sur le port com (c'est avec un output je pense mais aprés je ne sais pas comment dire que c'est un fichier .wav)

Merci