Cercasi compilatore QBasic

[Emmanuele]

buongiorno a tutti!!
ho appena terminato un programmino con qbasic ( ho appena iniziato con la programmazione )
solo che non trovo nessun compilatore!!!
qualcuno può aiutarmi?? plzzzzzz non so piu dove cercare!!

[Coach]

Ciao Emmanuele e Benvenuto nel Forum!

prova a vedere se qui trovi qualcosa:

» Compilatore QBasic (qbasic.com)

P.S: ho modificato il titolo della discussione, perchè: "Aiutooooo!" non mi sembrava rispecchiasse molto l'argomento

[Emmanuele]

grazie mille ho trovato quello che cercavo!!
solo che ora...ehm...ho un altro problemino....ti spiego, anzi, vi spiego:
nell'anteprima del qbasic il programma funziona, solo che nell'exe appena il programma calcola ciò che deve calcolare, si chiude immediatamente, e non si ha nemmeno il tempo di leggere!!
Che dite, manca una stringa o qualcosa del genere? ero così esaltato...il mio primo programmino...e non va!!
Vi riporto il sorgente, non fateci caso se sembra una cosa da asilo eh! grazie....




_______________________________________________________________________________________________

' ***********************************
' **TRAVE SEMPLICEMENTE APPOGGIATA)
' ***********************************

REM ****** INTRODUZIONE DATI ******
CLS
LOCATE 1, 2: PRINT "GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
LOCATE 2, 12: PRINT " - PIRATES TEAM PRESENTS-"
LOCATE 3, 12: PRINT "-RISOLUZIONE TRAVE SEMPL.APPOGGIATA CON CARICO UNIF. DISTR.-"
LOCATE 4, 30: PRINT "PrOgRaMmEd By WiLLy"
LOCATE 5, 5: PRINT "carico distribuito q ="
LOCATE 6, 5: PRINT "luce della trave ="
LOCATE 5, 28: INPUT "", q
LOCATE 6, 25: INPUT "", l
REM ****** PROCEDURA DI CALCOLO *******
Lc = l * 1.05
Va = (q * Lc) / 2
Mx = (q * Lc ^ 2) / 8
W = (Mx * 100) / 1600
G1 = (Mx * 100) / 73
G2 = (Mx * 100) / 106
G3 = (Mx * 100) / 155
G4 = (Mx * 100) / 220
G5 = (Mx * 100) / 294
G6 = (Mx * 100) / 389
G7 = (Mx * 100) / 515
G8 = (Mx * 100) / 675
G9 = (Mx * 100) / 836
G10 = (Mx * 100) / 1010
G11 = (Mx * 100) / 1260
G12 = (Mx * 100) / 1480
G13 = (Mx * 100) / 1687
G14 = (Mx * 100) / 1890
G15 = (Mx * 100) / 2310

LOCATE 9, 30: PRINT "RISULTATI"
LOCATE 10, 10: PRINT " luce di calcolo = "; Lc
LOCATE 11, 10: PRINT " reazione vincolare = "; Va
LOCATE 12, 10: PRINT " momento massimo = "; Mx
LOCATE 13, 10: PRINT " sigma massime con le varie travi "
LOCATE 15, 10: PRINT "con HEA 100 Gmax ="; G1
LOCATE 16, 10: PRINT "con HEA 120 Gmax ="; G2
LOCATE 17, 10: PRINT "con HEA 140 Gmax ="; G3
LOCATE 18, 10: PRINT "con HEA 160 Gmax ="; G4
LOCATE 19, 10: PRINT "con HEA 180 Gmax ="; G5
LOCATE 20, 10: PRINT "con HEA 200 Gmax ="; G6
LOCATE 21, 10: PRINT "con HEA 220 Gmax ="; G7
LOCATE 22, 10: PRINT "con HEA 240 Gmax ="; G8
LOCATE 23, 10: PRINT "con HEA 260 Gmax ="; G9
LOCATE 24, 10: PRINT "PROBLEMA RISOLTO!! GRAZIE X AVERE UTILIZZATO IL NOSTRO PROGRAMMA!!"

[SAVIER]

ciao, Emanuele...
mi ha girato il post un mio amico...
il qbasic l'ho usavo molto tempo fa però qlc me ricordo... dovrebbe funzionare
hai diverse optioni:

1) in maniera rozza potresti mettere un semplice input e fino a che non premi invio non termina
2) scrivi queste tre righe

print "Premi un tasto"
100 input a$
if a$="" then goto 100


in questo modo premendo un tasto termini il tuo programma


Ciao, Silvano

[Emmanuele]

GRAZIE 10000000 FUNZIONAAAAAAAAAAAAAAAAAAAAA!!!