convertion d'un code vb pour wd 7.5 |
Sujet: convertion d'un code vb pour wd 7.5 par Anonyme sur 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 |