convertion d'un code vb pour wd 7.5

Posté par Anonyme le 21/8/2003 10:15:08

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