Discussion :

[olive_ronron]

Bonjour,

J'ai récupéré un code basic ur internet et je n'arrive pas à le compiler sur les compilateurs classiques. On m'a dit qu'il s'agissait d'un vieux code basic mais comme je n'y connais pas grand chose, je ne sais pas quel compilateur choisir ou s'ils existent encore.
Du coup, si vous avez un conseil pour moi...
Je travaille sous XP

Ci-dessous le début du code :

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
DECLARE SUB pdim ()
DECLARE SUB idim ()
DECLARE SUB Outpt ()
DECLARE SUB gg (L!, N%)
DECLARE SUB iris (D!, A!, W0!, WG!)
DECLARE SUB kjj1 (N%, BW!)
DECLARE SUB post (D!, A!, W0!, WG!)
DECLARE FUNCTION WLG! (F0!, FC!)
DECLARE SUB wgok ()
DECLARE SUB Special ()
DECLARE SUB wgcat (L!, H!)
DECLARE FUNCTION solve! (M%, N%, L!, U!, E!)
COMMON SHARED WL0, WLG0, A, F1, F2, WG%, N%, L, Z0, WLG1, WLG2, BW, R%, L%, U, E, H, wn%, wx%, XA, XB, FI0, CONSTANT, solved%, OK%, WG, D, y%
 
ON ERROR GOTO 0: CLS
PRINT "WAVEGUIDE FILTER DESIGN PROGRAM ": PRINT
'PRINT "PRESS CTRL C TO STOP PROGRAM": PRINT
PRINT "PRESS ANY KEY TO PROGRESS PROGRAM": SLEEP
CLS : PRINT
PRINT SPC(10); "WAVEGUIDE FILTER DESIGN"
N = 5: L = .01: F1 = 10: F2 = 11:
RESTORE
FOR WG% = 1 TO 15
READ WG$(WG%), FC(WG%)

Merci,
Olivier

[comtois]

Aucune idée, mais je tente ma chance, à tout hasard tu as regardé du côté de QuickBasic ??


Sinon le listing est long ? tu peux peut-être réécrire le code dans un autre basic ou un autre langage ?

[PANORAMIC]

A mon avis, il s'agit de QBasic. mais le listing que tu nous montres n'est pas complet:
- des sous-programmes sont definis et pas utilises (pdim a solve).
- il manque un NEXT WG%
- etc

[olive_ronron]

Merci pour vos conseils, QuickBasic4.5 le compile très bien.

Olivier