Anonyme
|
Bonjour,
Nouveau venu dans l?univers de la prog, je développe actuellement une petite appli sous
Windev.
Je bloque sur la programmation d?un bouton me permettant d?utiliser le N° de tel d?un prospect afin de l?utiliser pour appeler en main libre
Via l?appli livrée avec mon modem Olitec. Apres quelques recherches, j?ai trouvé le code ( du constructeur) en VB, et cherche à le traduire
En WD 7.5.
Pouvez vous m?aider ?
Ci-joint les lignes de commandes..
DefVariable
Resultat%
Choix$
numero$
EndDef
Debut:
Rem Demande du numéro de téléphone à appeler et stockage dans "numero$"
Readln('Numéro à appeler ?',numero$)
Rem Vitesse(20000) pour 38400 bits/s
Vitesse(20000);Parite(0);NombreBit(8);StopBit(1);Mode(6);
ModeNum(1);HautParleur(0);Window(1,1,80,24);
Emulation(6);Securite(2);ControleFlux(2);
Ecran(1)
Timeout%=15
Emet('AT&F+FCLASS=8;');TEntree
Resultat%=Attend(2,'OK^M^J','ERROR^M^J','','')
If (Resultat%=2) Then goto PB_INIT1
Emet('AT+VPR=0;+VRN=4;+VLS=17;+VSP=1');TEntree
Resultat%=Attend(2,'OK^M^J','ERROR^M^J','','')
If (Resultat%=2) Then goto PB_INIT2
Emet('AT+VDX=1;+VGM=64;+VGS=168');TEntree
Resultat%=Attend(2,'OK^M^J','ERROR^M^J','','')
If (Resultat%=2) Then goto PB_INIT3
Emet('ATL1M1');TEntree
Resultat%=Attend(2,'OK^M^J','ERROR^M^J','','')
If (Resultat%=2) Then goto PB_INIT4
Timeout%=60
Writeln('Appel en cours...')
Emet('ATDT')
Emet(numero$);TEntree
Resultat%=Attend(4,'OK^M^J','ERROR^M^J','BUSY^M^J','NO ANSWER^M^J')
If (Resultat%=2) Then goto PB_INIT5
Beep;Beep;Writeln('Vous pouvez parler a votre correspondant...');
Rem Attente d'un "b" qui indique que le correspondant a raccroché (Le modem envoie Dleb), vous pouvez faire raccrocher vous même le modem en envoyant la commande ATH et la valider;
Repeat
Resultat%=Attend(1,'b','','','')
If (Resultat%=1) Then
Begin
Writeln('Le correspondant a raccroché !');
End
Until (IoResult%=1) or (Resultat%=1)
Rem Raccrochage du modem avec la commande ATH
Emet('ATH');TEntree
Resultat%=Attend(2,'OK^M^J','ERROR^M^J','','')
If (Resultat%=2) Then goto PB_RACCROCHAGE
ClrScr;
GotoXY(1,12);Writeln('Probleme INIT 1');
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then ; Rem Choix$=Oui
Begin
Goto Debut
End
Ecran(1);
EndProg(0)
PB_INIT1:
ClrScr;
GotoXY(1,12);Writeln('Probleme INIT 1');
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then ; Rem Choix$=Oui
Begin
Goto Debut
End
Ecran(1);
Endprog(0); Rem Fin de la procédure
PB_INIT2:
ClrScr;
GotoXY(1,12);Writeln('Probleme INIT 2');
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then ; Rem Choix$=Oui
Begin
Goto Debut
End
Ecran(1);
Endprog(0); Rem Fin de la procédure
PB_INIT3:
ClrScr;
GotoXY(1,12);Writeln('Probleme INIT 3');
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then ; Rem Choix$=Oui
Begin
Goto Debut
End
Ecran(1);
Endprog(0); Rem Fin de la procédure
PB_INIT4:
ClrScr;
GotoXY(1,12);Writeln('Probleme INIT 4');
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then ; Rem Choix$=Oui
Begin
Goto Debut
End
Ecran(1);
Endprog(0); Rem Fin de la procédure
PB_INIT5:
ClrScr;
GotoXY(1,12);
If (Resultat%=3) Then
Begin
Write('Le numéro ');Write(numero$); Writeln('est occupé !');
Goto RACCROCHAGE
End
If (Resultat%=4) Then
Begin
Write('Personne ne répond au : ');Write(numero$);
Goto RACCROCHAGE
End
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then ; Rem Choix$=Oui
Begin
Goto Debut
End
Ecran(1);
Endprog(0); Rem Fin de la procédure
PB_RACCROCHAGE:
ClrScr;
GotoXY(1,12);Writeln('Probleme de RACCROCHAGE : ATH ?');
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then
Begin
Goto Debut
End
Ecran(1);
Endprog(0);
RACCROCHAGE:
ClrScr;
GotoXY(1,12);
Emet('ATH');TEntree
Resultat%=Attend(2,'OK^M^J','ERROR^M^J','','')
If (Resultat%=2) Then goto PB_RACCROCHAGE
Write('Désirez vous recommencer (O/N) ? ');
Choix$=ReadKey; Rem Attend qu'une touche soit pressée
Writeln(Choix$);
If (Choix$='O') Or (Choix$='o') Then ; Rem Choix$=Oui
Begin
Goto Debut
End
Ecran(1);
Endprog(0); Rem Fin de la procédure
Contribution le : 21/08/2003 10:15
|