View Full Version : Lettura in grafica (Turbo Pascal)
Qualcuno sà dirmi come realizzare una lettura di dati in modalità grafica ? Chiramente in Turbo Pascal 7.0 .
cosa devi leggere??????????????
Originally posted by "cisc"
cosa devi leggere??????????????
Sia caratteri che reali o interi
Guarda, in questa settimana sono così impegnato che è impossibile che riesca a dedicarmi al tuo problema, cmq, se non hai fretta, nella prossima settimana cerchero una soluzione. Ciao.
Ma hai provato ad usare readln????? Naturalmente usando readln, ti si ferma il programma finchè non scrivi qualcosa da tastiera e premi invio, per evitare questo problema, in un ciclo metti un controllore che controlla se è stato premuto un tasto, quindi, con la funzione readkey leggi in una variabile char il tasto premuto, se volevi un intero, usa una stringa e con alcuni accorgimenti dovresti riuscire a riproporre il valore come stringa (usando gettime x esempio per attendere un'altra pressione), poi usa val per ottenere il valore intero, str per ottenere da un intero una stringa e poterlo stampare con Outtextxy.
Spero di essere riuscito a risolvere il problema, ciao.
Originally posted by "cisc"
Ma hai provato ad usare readln????? Naturalmente usando readln, ti si ferma il programma finchè non scrivi qualcosa da tastiera e premi invio, per evitare questo problema, in un ciclo metti un controllore che controlla se è stato premuto un tasto, quindi, con la funzione readkey leggi in una variabile char il tasto premuto, se volevi un intero, usa una stringa e con alcuni accorgimenti dovresti riuscire a riproporre il valore come stringa (usando gettime x esempio per attendere un'altra pressione), poi usa val per ottenere il valore intero, str per ottenere da un intero una stringa e poterlo stampare con Outtextxy.
Spero di essere riuscito a risolvere il problema, ciao.
Cisc ho quasi risolto . Mi sono creato una procedurina che legge in grafica . Quando è finita se ti interessa te la faccio vedere
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.