[QBASIC] Risoluzione di errori sintatti per programma di radioastronomia

[Chiara1982]

Salve a tutti,

ho un problema con il linguaggio QBasic.
Dopo 4 ore di lunga trascrizione ho completato tutto il programma. Quando, però, sono andata per cliccare su RUN, sono apparsi una serie di errori che il programma di volta in volta mi indicava.
Non avendo mai avuto a che fare con il linguaggio QBasic mi sono trovata in difficoltà.

Però tutte le stringhe di trascrizione sono state tratte da un libro che riportava esattamente tutte le cose da scrivere. Io mi sono limitata solo a ricopiare.
Non capisco, pertanto, perchè non funzioni.

Se qualcuno può darmi una mano, al prossimo messaggio inserirò il file con le stringhe "sbagliate" (anche se io sono convinta che sono giuste...).

Spero che qualcuno mi possa aiutare.

Grazie
Chiara

[scancode]

Originariamente inviato da Chiara1982
Salve a tutti,

ho un problema con il linguaggio QBasic.
Dopo 4 ore di lunga trascrizione ho completato tutto il programma. Quando, però, sono andata per cliccare su RUN, sono apparsi una serie di errori che il programma di volta in volta mi indicava.
Non avendo mai avuto a che fare con il linguaggio QBasic mi sono trovata in difficoltà.

Però tutte le stringhe di trascrizione sono state tratte da un libro che riportava esattamente tutte le cose da scrivere. Io mi sono limitata solo a ricopiare.
Non capisco, pertanto, perchè non funzioni.

Se qualcuno può darmi una mano, al prossimo messaggio inserirò il file con le stringhe "sbagliate" (anche se io sono convinta che sono giuste...).

Spero che qualcuno mi possa aiutare.

Grazie
Chiara

immetti il code please...

[Chiara1982]

Cercherò di spiegarmi al meglio. Si tratta di un programma da applicare alla radioastronomia. Io mi sono limitata a copiare il tutto da un libro.


PRIMO ERRORE

x% = 15 'Offset grafico per le ascisse
DIM Vmedio(650)
scherm% = 1
car% = 47

2 CLS : LOCATE 5, 3
data$ = DATE$
LOCATE 6, 3
PRINT "Accertati di aver collegato l'interfaccia ADc."


Il primo errore è che nella prima riga (per capirci a sinistra del x% = ... - che nel libro mi indica di lasciare vuoto) il programma mi dice di inserire qualcosa (come capita poi alcune righe dopo dove è inserito il 2. Solo che il 2 il libro me lo dice chiaramente).

SECONDO ERRORE

IF (c$ = "S") OR (c$ = "s") THEN
flag% = 1: LOCATE 15, 25: INPUT "Nome del file di dati: "; nome$


Il secondo errore riguarda la riga che inizia con IF.
Il programma mi indica prima che IF è sbagliato e mi dice "Block IF without END IF". Sul libro è scritto chiaramente di scrivere IF.
Poi mi indica un altro errore relativo al primo (c$.
Poi me lo indica anche per l'OR e poi mi indica di nuovo il secondo (c$.
Ho provato a inserire THEN al posto dell' OR, ma ovviamente è una correzione sbagliata. Il programma non funzionerebbe come deve.

TERZO ERRORE

ON ERROR GOTO 200
OPEN nomefile$ FOR INPUT AS #1


Il terzo errore è relativo al ON ERROR GOTO.
Il programma mi dice che ON è sbagliato e poi mi segnala come errore anche GOTO.

Spero di essermi spiegata al meglio.

Grazie di tutto

Chiara

[MItaly]

Che versione di QBasic usi? Quella che ho io non dà di questi problemi (tranne ovviamente che per il secondo errore, che va corretto mettendo tutto su una stessa riga).

[Chiara1982]

Non riesco a vedere da nessuna parte il numero della versione, nè in proprietà, nè se lo apro, nè da nessun'altra parte.

dove posso vederlo?

Inoltre metto qui le immagini tratte dal libro....

PRIMO ERRORE


SECONDO ERRORE


TERZO ERRORE

[MItaly]

Menu "?"->"Informazioni su..."

[Chiara1982]

Sono riuscita a trovare il Copyright. Il numero della versione non c'è, il mio QBasic è in inglese è l'anno 1985-1988.....

[Chiara1982]

Sono riuscita a farlo funzionare.... grazie a tutti dell'aiuto!

[MItaly]

Originariamente inviato da Chiara1982
Sono riuscita a trovare il Copyright. Il numero della versione non c'è, il mio QBasic è in inglese è l'anno 1985-1988.....

Un tantino anzianotto... se vuoi che ti invii il mio (anzi, magari direttamente QuickBasic 4.5, che compila anche) contattami via PVT.

Sono riuscita a farlo funzionare.... grazie a tutti dell'aiuto!

Come, esattamente? Sono curioso!

[Chiara1982]

Ho corretto alcune stringhe.

Del primo errore non ho corretto niente; del secondo ho messo tutto su una stringa in questo modo

IF (c$ = "S") OR (c$ = "s") THEN flag% = 1: LOCATE 15, 25: INPUT "Nome del file di dati: "; nome$
END IF

e del terzo ho scritto "ON ERROR GOTO

e ho cliccato su run e finalmente mi si è aperta la pagina del programma!