CONVERTER BASIC PARA VISUAL BASIC 6

Citação:

:
Só é este arquivo para converter??? rerererere desde 1995 que eu não mexo com qbasic!!!


Agora ferramenta pra converter, ai me pegou sem jeito! Eu faria manualmente

10 Rem PROGRAM U232.1
15 Dim S(4), SM(4)
20 Rem REFROIDISSEMENT OD,ECART D ENRLT,CU ET ALU SANS ECART INTERNE
25 Open [Ô]c:\U232.BID[Ô] For Output As #33 [ô]<------aqui coloocaminho correto do arquivo exemplo [Ô]c:\seuprograma\u232.bid[Ô]
26 Print #33, [Ô]1[Ô]
29 Print #33, Tab(20), [Ô]-----------------[Ô]
30 Y$ = Date: Print #33, Tab(25), Y$
31 Print #33, Tab(20), [Ô]-----------------[Ô]
32 I = 0
33 If G = 12.3 Then Print #33, [Ô]1[Ô]: G = 0
40 NO = InputBox([Ô]NO. D ENRLT[Ô])
41 Print #33, Tab(5), [Ô]NO. D ENRLT[Ô], NO
42 Print
50 B = InputBox([Ô]1=SANS SURFACE HORIZONTALE, 2=AVEC SURFACE HORIZONTALE[Ô])
52 Print
60 If B = 1 Then Print #33, Tab(5), [Ô]*SANS SURFACE HORIZ*[Ô]: GoTo 180
70 If B = 2 Then Print #33, Tab(5), [Ô]*AVEC SURFACE HORIZ*[Ô]: GoTo 80
75 GoTo 50
80 Rem CAS VERTICAL ET HORIZONTAL
84 I = I + 1
86 Print [Ô]POUR CAS VERTICAL[Ô]
87 Print #33,: Print #33, Tab(5), [Ô]**CAS VERTICAL**[Ô]
90 GoSub 4000
100 SV = S(I)
110 Print
120 Print [Ô]POUR CAS HORIZONTAL[Ô]
122 I = I + 1
123 Print #33,: Print #33, Tab(5), [Ô]**CAS HORIZONTAL**[Ô]
130 GoSub 4000
140 SH = S(I)
150 SX = SH / SV
155 Print
156 Print #33, Tab(5), [Ô]LA SOMME DES SURFACES DE REFROID.[Ô], SM(I)
157 Print: Print [Ô]LA SOMME DES SURFACES DE REFROID.[Ô], [Ô]{[Ô]; SM(I), [Ô]}[Ô]
158 Print
160 GoTo 220
180 Rem CAS VERTICAL SEULEMENT
190 I = I + 1
200 Print #33, Tab(5), [Ô]*CAS SANS SURFACES HORIZONTALES*[Ô]
210 GoSub 4000
211 Print: Print
220 TH1V = InputBox([Ô]THETA 1 VERTICAL (CONSTANTE)EN DEG C/W/DM2[Ô])
221 Print #33, Tab(5), [Ô]THETA 1 VERTICAL EN DEG C/W/DM2[Ô], TH1V
222 Print
230 If B = 2 Then TH1H = InputBox([Ô]THETA 1 HORIZON(CONSTANTE) EN DEG C/W/DM2[Ô])
232 If B = 2 Then Print #33, Tab(5), [Ô]THETA 1 HORIZ. EN DEG C/W/DM2[Ô], TH1H
240 ALPV = 100 / TH1V
250 If B = 1 Then ALPH1 = ALPV
260 If B = 2 Then ALPH1 = ALPV * ((1 + (TH1V / TH1H * SX)) / (1 + SX))
262 Print #33,: Print #33, Tab(5), [Ô]COEFF D ECHANGE ALPHA[Ô], ALPH1
263 Print: Print [Ô]COEFF D ECHANGE ALPHA[Ô], [Ô]{[Ô]; ALPH1, [Ô]}[Ô]
264 Print
265 Print #33,: Print #33,
270 F75 = InputBox([Ô]COEFF. % DE CTS DE FOUCAULT[Ô])
280 F75 = InputBox([Ô]SECTION DE SPIRE EN MM2[Ô])
290 N = InputBox([Ô]NBRE DE SPIRES[Ô])
291 Print #33,
292 Print #33, Tab(5), [Ô]COEFF. %DE CTS DE FOUCAULT[Ô], F75
293 Print #33, Tab(5), [Ô]SECTION DE SPIRE[Ô], S(0)
294 Print #33, Tab(5), [Ô]NBRE DE SPIRES[Ô], N
295 Print #33,
300 SN = S(0) * N
305 Print: Print
310 E = InputBox([Ô]1=ALUMINIUM, 2=CUIVRE[Ô])
320 Print
330 If E = 1 Then GoTo 350
340 If E = 2 Then GoTo 390
345 GoTo 310
350 Print #33, Tab(5), [Ô]*ALUMINIUM*[Ô]
360 D = InputBox([Ô]1=105 DEG C ,  2=90 DEG C[Ô])
362 Print
370 If D = 1 Then J = 37.4: F = 0.31: Print #33, Tab(5), [Ô]*105 DEG C*[Ô]
GoTo 440
380 If D = 2 Then J = 35.4: F = 0.324: Print #33, Tab(5), [Ô]*90 DEG C*[Ô]
GoTo 440
385 GoTo 360
390 Print #33, Tab(5), [Ô]*CUIVRE*[Ô]
400 D = InputBox([Ô]1=105 DEG C,  2=90 DEG C[Ô])
402 Print
410 If D = 1 Then J = 23: F = 0.19: Print #33, Tab(5), [Ô]*105 DEG C*[Ô]
GoTo 440
420 If D = 2 Then J = 22: F = 0.2: Print #33, Tab(5), [Ô]*90 DEG C*[Ô]: GoTo 440
430 GoTo 400
440 K1 = ((J + (F * F75)) * SN) / SM(I)
441 Print #33,
450 DEN = InputBox([Ô]DENSITE DE COURANT A/MM2[Ô])
451 Print #33, Tab(5), [Ô]DENSITE DE COURANT A/MM2[Ô], DEN
452 Print
460 K = K1 * (CInt(DEN) * 2)
470 THET = K / ALPH1
471 Print #33,
472 Print #33, Tab(5), [Ô]ECART D ENRLT[Ô], [Ô]{[Ô]; THET, [Ô]}[Ô]
473 Print #33, Tab(50), [Ô]--------------[Ô]
474 Print #33, Tab(50), [Ô]--------------[Ô]
475 Print: Print [Ô]ECART D ENRLT[Ô], [Ô]{[Ô]; THET, [Ô]}[Ô]
476 Print
480 Rem THET=ECART ENROULEMENT
482 A$ = InputBox([Ô]POUR RECALCULER ECART DE % CTS DE FOUCAULT O/N[Ô])
483 A = Asc(A$): If A = 79 Then Print: Print: GoTo 270
485 B = InputBox([Ô]POUR RECALCULER TOUT O/N[Ô])
486 B = Asc(B): If B = 79 Then Print: Print: G = 12.3: GoTo 32
Close #33
487 Exit Sub
4000 Rem SOUSPROGRAM POUR CALCULER SURFACE TOTALE DISPONIBLE
4002 Rem POUR REFROIDISSEMENT
4003 Print: Print
4010 N = InputBox([Ô]NBRE DE SURFACES[Ô]): Print #33,
4015 Print #33, Tab(5), [Ô]NBRE DE SURFACES[Ô], N
4020 M = InputBox([Ô]NBRE DE FILS[Ô])
4025 Print #33, Tab(5), [Ô]NBRE DE FILS[Ô], M
4030 Print [Ô]DIMENSIONS DU FIL ISOLE[Ô]
4032 B1 = InputBox([Ô]HAUTEUR POUR VERTICAL,EPAISSEUR POUR HORIZ. EN MM[Ô])
4035 Print #33, Tab(5), [Ô]DIMENS DU FIL ISOLE EN MM[Ô], B1
4040 F = InputBox([Ô]FACTEUR D EFFICACITE [Ô])
4045 Print #33, Tab(5), [Ô]FACTEUR D EFFICACITE [Ô], F
4046 Print #33,: Print #33,
4050 S(I) = N * M * B1 * F
4060 SM(I) = SM(I - 1) + S(I)
4070 Return