[QBasic] Uscire dal programma alla pressione di un tasto (era: problema con q-basic)

[fede19889203]

ciao a tutti.
sono nuovo nel forum.
ho scritto un programma in q-basic, ho aperto il compilatore(qBasic in italiano)e ho scritto il programma.
l'ho eseguito(ho fatto partire il debug con f5)e fin qui tutto bene...il programma funziona perfettamente...è una calcolatrice.
vorrei aggiungere al codice una stringa o qualcosa del genere che alla pressione di un tasto(X)mi fa uscire dal programma.
come faccio???
cosa devo scrivere???
HELP ME PLEASE

[Samuele_70]

Originariamente inviato da fede19889203

ciao a tutti.
sono nuovo nel forum.
ho scritto un programma in q-basic, ho aperto il compilatore(qBasic in italiano)e ho scritto il programma.
l'ho eseguito(ho fatto partire il debug con f5)e fin qui tutto bene...il programma funziona perfettamente...è una calcolatrice.
vorrei aggiungere al codice una stringa o qualcosa del genere che alla pressione di un tasto(X)mi fa uscire dal programma.
come faccio???
cosa devo scrivere???
HELP ME PLEASE

qualcosa tipo :

	DO
		i$ = INKEY$

		' Tasto ESC
		IF i$=CHR$(27) THEN END 

		' Tasto x
		IF i$='x' THEN END
	LOOP WHILE i$ = ""

Non posso provarlo ora, ma a memoria dovrebbe essere giusto

[fede19889203]

grazie 1000
adesso lo provo poi ti faccio sapere...

[LeleFT]

Essere nuovi del forum non significa non poter leggere il regolamento, anzi è d'obbligo!

Il regolamento precisa che i titoli delle discussioni debbano essere rappresentativi della discussione. Inoltre bandisce chiaramente titoli troppo generici come il tuo:

Evitare titoli troppo generici.
Sono da evitare titoli generici come, ad esempio, "problema", "aiuto", "help", "errore" oppure epiteti come "urgente", "difficile", "solo per esperti" e così via.

Correggo io.


Ciao.

[fede19889203]

ringrazio LeleFT per la gentilezza e mi scuso per il titolo dato al forum.

[fede19889203]

Samuele70, ho copiato il tuo codice in qbasic, ma mi da un errore nella stringa:
IF i$='x' THEN END
precisamente in:'x'
allora l'ho messo così:"x", solo che non va
come mai???

[Samuele_70]

Perdonami ma sono passati alcuni lustri da quando usavo il qBasic....

Hai provato così ?

IF i$=CHR$(120) THEN END

dove 120 è il codice ASCII del carattere 'x'

	DO
		i$ = INKEY$

		' Tasto x per uscire
		IF i$=CHR$(120) THEN END 

	LOOP WHILE i$ = ""

Mi sembra che però questa soluzione dava dei problemi quando
si premevano caratteri 'speciali' come ad esempio le frecce.
Allora potresti fare :

	DO
		i$ = INKEY$
		i = ASC(RIGHT$(i$, 1))
		IF LEN(i$) > 1 THEN h = ASC(MID$(i$, 1, 1))

		' Tastox per uscire
		IF i=120 THEN END 

	LOOP WHILE i$ = ""

Dovrebbe funzionare, ma come ti ho detto sto 'scavando' nella
memoria ...

[fede19889203]

grazie 1000 funziona!!!!!!!!
non so come ringraziarti!!!!!!!!!!!!!!!!!!!!!
ciauuuuuuuuuuuuuuuu