Newsgroup: it.comp.lang.pascal
Titolo: Repeat until keypresse....

Hi gente! Sono tornato!
Come posso usare questa funzione in occasioni del tipo "Premere un
tasto per continuare..." senza che il tasto premuto fada a finire nel
programma nella procedura seguente?
Se non mi sono spiegato bene faccio un esempio: dopo "Premere un tasto
per continuare..." c'è un menu. se si preme 2 allora nel menu va a
finire il 2, se si preme invio va a finire invio... è molto scomodo,
non trovate?
Pero' voglio implementare questo per sostituirlo al readln che
permette di scrivere sul grafico! =(
Cmq il programma per calcolare pigreco è quasi finito, una copia
gratis a chiunque me la chiede!
Ciao ciao!
¨¨°º©o¿,,¿o©º°¨¨°º©  Mr. GiMa ©º°¨¨°º©o¿,,¿o©º°¨
------------------------------------------------------------------------------
             WEB: 
http://come.to/gima
            MAIL: 
gim...@freemail.it
             UIN: 2685398
------------------------------------------------------------------------------
Togliere NOSPAM dal mio indirizzo per rispondere

programma nella procedura seguente?
Devi svuotare il buffer tastera.
Ecco come devi fare:
	write('Premi un tasto per continuare...');
	repeat until keypressed;
	while keypressed do c:=readkey;
By Fabio
fabi...@rocketmail.com

non trovate?
setta la direttiva {$x+}
inserisci "uses crt"
e usa 
repeat until keypressed ;
while (keypressed) do readkey  ;
Skyscraper (apprezzatelo adesso : eviterete la coda)
----------------------------------------------------
 
andrea_...@bigfoot.com
----------------------------------------------------
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 
fabi...@rocketmail.com
+ Facile ancora. Senza dichiarare c:char.
Write('Premi un tasto per continuare...');
Repeat Until KeyPressed;
ReadKey;
+Facile ancora. Senza Ripitantil
Write('Premi un tasto per continuare...');
ReadKey;
+Facile ancora....
E chi sono, Mandrake?
Ciao
  Roberto.
-- 
-------------------------------------------------------------------
 Vabbe`  ma  mica posso fare tutto io! Te lo sai a che ora mi sono
 alzato  questa  mattina? Alle sette meno un quarto! La bambina mi
 ha vomitato tutta  l'anguria  nelle scarpe!  Stamattina e` venuto
 l'idraulico e sai  quanto mi ha chiesto? Centocinquantamila lire!
 E dopo mezz'ora  il  rubinetto ha ricominciato a buttare l'acqua!
 Quela poi e` andata al corso di chitarra alle tre del pomeriggio,
 lo sai a che ora e` tornata? alle  quattro del mattino! Con tutto
 il rossetto  spostato  sulla  faccia. Ma che la chitarra la suoni
 con la bocca? Hai capito?
-------------------------------------------------------------------
 Attenzione:  i  dati  nell'header  sono modificati per difendermi
 dagli spammer. L'indirizzo  esatto  e`:  
crs...@xxxfreenet.hut.fi
                                   senza le tre x^^^


Piu' che Mandrake direi il mago Casanova:-)
READKEY e' una funzione e non puo' essere utilizzata in questo modo.
Se vuoi proprio utilizzarla cosi devi impostare la direttiva {$X+}.
Poi con una semplice Readkey non svuoti il buffer tastiera, che era
proprio il problema del collega che aveva mandato il post.
Fabio
--
fabi...@rocketmail.com

Un bel di' CRSOFT scrisse:
C> + Facile ancora. Senza dichiarare c:char.
C> 
C> Write('Premi un tasto per continuare...');
C> Repeat Until KeyPressed;
C> ReadKey;
C> 
ma devi settare la direttiva {$X+} :-)
C> +Facile ancora. Senza Ripitantil
C> 
C> Write('Premi un tasto per continuare...');
C> ReadKey;
C> 
questa (come quella sopra) non va: schiaccia una freccetta :-))
il repeat until ci vuole per forza, io farei cosi':
	repeat
	 readkey
	until not keypressed;
Piu' corto di cosi', davvero... pero', voglio dire, non e' certo questo
che rende possent un programma :-)
-- 
"Esistono solo errori", assioma di Robert
"L'errore di un uomo e' la certezza di un altro uomo", corollario di Berman
-- 
Emanuele Cesena
em...@iol.it
          occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

 proprio il problema del collega che aveva mandato il post.
Io avevo capito che il problema era quello di attendere la pressione di
un tasto... :-o
Comunque oggi ho imparato un'altra cosa.


ReadKey;
Mi sa che a furia di voler rendere le cose sempre piu' facili hai combinato un
pasticcio.
Con il tuo codice, se premessi "F5" non svuoterei affatto il buffer. 
