mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: [O.T.] Per chi conosce MEMOTRAINING.

Qualche giorno fa un mio amico si fa risentire dopo diversi anni per
parlarmi di MEMOTRAINING, dicendomi che è un metodo efficace per migliorare
l'apprendimento e la memoria.
Il corso mi ha detto che costa la bellezza di 1.200.000 lire.
Se mai fosse vero che aumenta la capacità di apprendere, non sarebbero soldi
buttati, ma in caso contrario sarebbe una truffa colossale, ora vi chiedo:
Tu che hai utilizzato questo metodo, te la senti di consigliarlo ad un tuo
amico?
Scusate per L'OT.
grazie, ciao.

 amico?
Caro mio, non ho mai provato questo aggeggio, ma questo non mi impedisce
affatto di sentire una gran puzza di PACCO!
Se senti di avere difficoltà a memorizzare può darsi che tu abbia bisogno di
liberarti dallo stress o di assumere alcune sostanze, liberarti dalla
confusione. Perchè, prima di perdere soldi, non chiedi un consiglio ad un
medico esperto?
Lui sicuramente saprà dirti se è una fregatura oppure no, ma il mio modesto
parere è che sia un modo inutile di perdere soldi e tempo.
Prima che inventassero i programmi per il computer esistevano dei corsi
cartacei a questo proposito, ma per come la vedo io nessun libro può
insegnarti come si usa la tua memoria, e allo stesso modo nessun programma.
Ognuno è fatto a modo suo.

 l'apprendimento e la memoria.
ascoltami ... cambia amici

 ha scritto nel messaggio
news:%C6l8.32512$1S3.1...@twister1.libero.it...

Ma nooooo, meglio una garanzia del tipo: "se non soddisfatti, rimborso pari
al doppio delle spese di iscrizione..."  hahahahahahhahaha   d'altraparte se
sono sicuri di riuscire.... non avranno problemi ad aggiungere nel contratto
una clausola del genere :PPPP
hihihi

 al doppio delle spese di iscrizione..."  hahahahahahhahaha   d'altraparte
se
e casualmente' il giorno del controllo ho un improvviso attacco di amnesia
:-)
--
Dreadnaut
(Life would be easier if I had the source code)

Scusatemi, ma non si tratta di un programma, bensì di un corso con
insegnanti reali.

Newsgroup: it.comp.lang.pascal
Titolo: Per programmatori italiani!!!

Il sito di #gameprog-ita si è ampliato e contiene adesso nuove sezioni tra
cui ITALIANWARE che ha l'intento di raccogliere e pubblicare *gratuitamente*
i giochi che avete sviluppato. Se siete interessati a vedere le vostre
creazioni online rispondetemi inviando una descrizione del gioco ed i vostri
dati.
Se volete dare un'occhiata al sito: 
games.eden.it/gpi
Il mio indirizzo: 
rast...@geocities.com
Rispondete numerosi.

 scrisse nei seguenti NG: it.comp.lang.pascal:
R> Il sito di #gameprog-ita si è ampliato e contiene adesso nuove sezioni tra
R> cui ITALIANWARE che ha l'intento di raccogliere e pubblicare *gratuitamente*
R> i giochi che avete sviluppato. Se siete interessati a vedere le vostre
R> creazioni online rispondetemi inviando una descrizione del gioco ed i vostri
R> dati.
R> 
io sono molto interessato a pubblicare il mio gioco!! :-DDD
-- 
"La classe dei motociclisti si divide in 2: quelli che sono caduti... e
quelli che cadranno"
-- 
Emanuele Cesena
d.a.m...@iol.it
    occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879
Newsgroup: it.comp.lang.pascal
Titolo: ci vediamo tra 5 giorni

proprio cosi', vado in Tiscana con la scuola, arrivederci
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5

Tiscana? o_O sono proprio ignorante...dov'č?
NM


 NM
he he he, scrivevo il mex di freta perche' dovevo preparare ancora la
valigia, cmq ora sono tornato


Newsgroup: it.comp.lang.pascal
Titolo: estrazione record da file: aiuto!

Ho scritto un programma che crea una variabile di tipo record e dopo
aver letto i campi definiti con type li memorizza in un file
dichiarato dello stesso tipo della variabile. Adesso vorrei scrivere
del codice che mi permettesse di estrarre i record memorizzati e
visualizzarli sullo schermo. Ho provato a usare readln e writeln ma ho
scoperto che sono incompatibili (mi dice: error 63: invalid file type)
con i file di record. Insomma: come cavolo faccio? Non può essere che
non possa leggere un file di tipo record, no?
Grazie.
Francesco

 wrote in message
38da50f...@news.tin.it...

Devi usare una var del tipo del record come una variabile buffer (d'
appoggio).
Ci scarichi dentro il contenuto di un record poi la visualizzi e ripeti il
tutto finche' non finisce il
file con while not eof
Se vuoi maggiori chiarimenti scrivimi a 
vas...@libero.it

               Attenzione all'anti-spam XXX
legge di Shirley:
	La maggior parte della gente si merita a vicenda.


<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

Newsgroup: it.comp.lang.pascal
Titolo: SMS su ENEL.IT

...premetto che ne capisco MOoOoOoOoOoOoOoOoOLTOOOOO poco.
...ma stavo vedendo come inserire, sul web, senza link, direttemente da una
pagine html o php la possibilità di inviare SMS.
Ho visto che 
ENEL.IT
 e' un servizio che funziona abbastanza bene, meglio di
altri insomma...
Ho fatto un giro tra le pagine e ho visto che dopo aver inserito:
- prefisso cellulare (es: 335)
- numero cellulare (es: 9999999)
- messaggio
si collega alla pagina in ASP
https://www.enel.it/sms/scrivisms.asp
che contiene questo form:
<FORM NAME="sms" METHOD="post">
<INPUT TYPE=hidden NAME=message VALUE="TEST" >
<INPUT TYPE=hidden NAME=prefix VALUE="335" >
<INPUT TYPE=hidden NAME=gsm VALUE="9999999" >
<INPUT TYPE=hidden NAME=accetta VALUE="yes">
<INPUT TYPE=image SRC="/img/vai.gif" BORDER=0 WIDTH=7 HEIGHT=12 ALT="vai">
</FORM>
ho modificato il form inserendo:
action="
https://www.enel.it/sms/scrivisms.asp
"
ma niente...
sembra non funzionare :(
Qualcuno mi potrebbe dare una manina?
GRAZIE !!!!! :)
P.S: Potete rispondermi x EMAIL?
Riccardo.

> ...premetto che ne capisco MOoOoOoOoOoOoOoOoOLTOOOOO poco.
Si vede... Hai persino sbagliato NG.
Ciao

 Ciao
ciao carletto.. sono qua solo per salutare...
ciao ciao!!
---
kiakim
Newsgroup: it.comp.lang.pascal
Titolo: mtr da scambiare!!!!!!!! Urgente!!!!!!!!!!!!!!!!1

Vi volevo chiedere se mi potevate aiutare a fare questo programmino
scambiare le righe con le colonne di una matrice:
data la matrice iniziale assegnando i valori con randomize:
3 4 5
1 2 3
4 5 6
questa deve diventare:
3 1 4
4 2 5
5 3 6
Grazie mille a presto.
Paolo Ronchi

 5 3 6
  for i:=1 to 3 do
    for j:=1 to 3 do
      matrb[j,i]:=matra[i,j];

 ha scritto nel messaggio
news:aoka23$62c$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.pascal
Titolo: Cerco il TP per Windows

 Esistono compilatori "a gratis" shareware o qualcosa del genere?

...


Newsgroup: it.comp.lang.pascal
Titolo: re : Per visualizzare il contenuto di un registro

   Se ti interessa leggere (tu) il contenuto di un registro e' sufficiente
andare nel menu Debug|Register, se invece ti interessa rendere visibile
all'interno del listato il valore di un registro, devi dichiarare una
variabile di tipo integer, e piu' in generale di tipo word (16 bit).
Successivamente apri un listato ASM cosi' scritto: 
ASM
   MOV variabile_destinazione, registro;
end;
   Attento: i registri Ax, Bx, Cx, Dx sono "liberi", ma quelli per
gestione stack (SP, BP, SS) sono off-limitz, gli altri dipende per cosa li
usi... In proposito ci sono vari manuali!
Saluti
				Francesco


http://www.penguinpowered.com/~ecesena
"Si puo' scrivere una breve lettera alla nonna nel nome del file."
		-- Forbes Burkowski, Computer Science 454

Newsgroup: it.comp.lang.pascal
Titolo: [OT] Dove sono finiti tutti gli altri post?

Che fine hanno fatto tutti i post anteriori alla data 31/12/99?
Li avete persi anche voi o è colpa del mio pc o del mio server di posta?
?_?
--
Fabio Feuli
E-Mail 
fe...@libero.it
Nick-Name Bacco
"Considerate la vostra semenza:
fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
(Dante: Inferno XXVI, 118-120)

 wrote in message
38836171...@libero.it...



http://www.penguinpowered.com/~ecesena
Non e' un'illusione ottica, lo sembra solamente.
		-- Phil White

Newsgroup: it.comp.lang.pascal
Titolo: terminare l'esecuz di un prog TurboPascal

Una volta dato il RUN, parte l'esecuzione del programma (sono un
neofita...).
Ma come fare per uscire dall'esecuzione e ritornare all'editor Pascal?
Inoltre, quando clicco su COMPILE, vien creato un eseguibile? Ma dove vien
salvato? Come posso cambiare la directory di dest degli eseguibili salvati?
Grazie a chiunque mi aiuterà ad imparare!
Ciao
Piero
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

 Come posso cambiare la directory di dest degli eseguibili salvati?
Almeno in BP c'è un opzione per settare le varie direcotory { unit,
exe, obj, ecc ecc } ma io ti sconsiglio di usarlo preferisco cambiare
la directory di lavoro se devo
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com
Newsgroup: it.comp.lang.pascal
Titolo: Applicazioni in Pascal

E' possibile creare applicazioni in Turbo Pascal con grafica simile a quella
di win 3.1?
Se si come?
Inoltre potreste dirmi dove posso trovare in rete il Resource Workshop?
--
Non è stato rilevato nessun bug nel sistema.
Si desidera crearne uno?
-- 
Posted from [151.39.48.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

di win 3.1?
Con Delphi 1.0 (reso gratuito da Borland/Inprise)
basta inserire la direttiva 
uses wincrt
saluti, d_f

Con Delphi 1.0 si, lo so, ma con TP?
Grazie.
Luigi
--
Non č stato rilevato nessun bug nel sistema.


Ma intendi applicazioni tp a)PER win3.1 o b)con una grafica simile ?
a) direi di no (poi non si sa mai che qualcuno l'abbia fatto...)
b) beh ti fai la grafica da te... gestione delle finestre... etc etc...
    io un po' l'avevo fatto... cose base... form dialog e icone, poi ho
    lasciato perdere... troppa fatica per rifare win....
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
--
Quarantaquattro Pentium,
in fila per 6 col resto di 1.9999458374...
--

 Con Delphi 1.0 (reso gratuito da Borland/Inprise)
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 


 Potresti dirmi se ce un indirizzo internet dove posso trovarlo??
http://www.borland.com

 Inoltre potreste dirmi dove posso trovare in rete il Resource Workshop?
No...

Newsgroup: it.comp.lang.pascal
Titolo: Cerco arretrati di ioProgrammo dal primo al 9 (compreso)

Credo che il Subject sia abbastanza esplicativo. 
Mi hanno sparato 30.000(!??)lire a numero, ma siamo pazzi. Sono gia'
senza un soldo per fatti miei e il mio budget da studente liceale non mi
permette queste spese.
Anche se non li avete tutti, contattatemi lo stesso.
CONTATTATEMI VIA MAIL, PLEASE!!!
Scusate il  CROSS-POSTING, ma la programmazione non aspetta......
-- 
*******************************************
Stefano Cristiano
autodeclarated Java programmer
ovverosia --> Pagghiu
E-mail: 
spag...@tin.it
 ITALY
Wonderful JAVA
"Mos tua, vita mea" said WINDOWS 95 to DOS...
*******************************************

>Mi hanno sparato 30.000(!??)lire a numero, ma siamo pazzi. 
A me veramente non piace ioProgrammo, ma se te lo vogliono fare pagare
30.000 a numero (il doppio del prezzo!!!) puoi anche dirgli di andare
a morire !
Ciao, e buona fortuna.
Federico Galli
FedE...@tin.it
Visual Basic and Delphi
http://www.geocities.com/colosseum/loge/2151
Newsgroup: it.comp.lang.pascal
Titolo: interrupt

chi mi sa dire come si fa a visualizzare il contenuto di un registro in
pascal?


Definisci una variabile di tipo registers (che è un record) che contiene il valore di tutti i
registri.
Es.
Program Registri;
Uses Dos;
Var Regs: Registers;
Begin
Writeln('Contenuto del registro AX : ',
regs.ax
);
Writeln('Contenuto del registro BX : ',regs.bx);
Writeln('Contenuto del registro CX : ',
regs.cx
);
Writeln('Contenuto del registro DX : ',regs.dx);
End.
-=> NeGuS <=-
www.infinito.it/utenti/negus80
 troverete guida, esempi, programmi, utility per Pascal/C++/Asm ....

"Interrupt" ?
Puoi fare qualcosa del genere:
var
    RegAX: word;
begin
    asm
        mov RegAX, AX
    end;
    writeln('AX = ', RegAX);
end.
Claudio Corsi ha scritto nel messaggio ...


Newsgroup: it.comp.lang.pascal
Titolo: Problema editor freepascal

Ho da poco installato il freepascal e mi sono imbattuto in un
fastidiosissimo problema con l'editor: ciň che digito appare sul
monitor con notevole ritardo. Faccio notare che sugli altri programmi
a interfaccia ide non riscontro nessun problema del genere.
Grazie
Dino

Ma c'č un editor in freepascal? Anche in quello per Linux? Come si avvia?

 Ma c'č un editor in freepascal? Anche in quello per Linux? Come si avvia?
C'č un progetto in corso per un IDE al sito 
lazarus.freepascal.org
,
prova a farci un salto magari l'hanno completato

Newsgroup: it.comp.lang.pascal
Titolo: Colori con TP7

Come usare più di 16 colori e alte definizioni col TP7?

Io ho trovaro un file bgi che consente di usare la svga con 256 colori,
se ti serve te la mando volentieri


Come usare più di 16 colori e alte definizioni col TP7?
In asm è facile attivare una modalità grafica con più di 16 colori ...
-=> NeGuS <=-
www.infinito.it/utenti/negus80

Se non sbaglio bisogna usare l' INT 10 avendo settato AH=00 e poi
settando AL come segue
00 360x400x2   Testo
01 360x400x16  Testo
02 720x400x2   Testo
03 720x400x16  Testo
07 720x400x4   Testo
11 640x400x2   Grafica
12 640x400x16  Grafica
13 320x200x256 Grafica



devi usare la unit Pcx 256 e Svga 256 per avere 256 colori
pero' non mi ricordo tutti i codici (es 7=bianco)
se ti servono le unit dimmelo all' indirizzo di E-Mail 
vas...@libero.it

>

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e foto

E' possibile fare un programma che visualizzi una foto( ad esempio una jpeg)
Se si come?
grazie per l'aiuto..



esistono diverse unit che usano le varie modalita SVGA per leggere
file bmp... credo che ci sia anche qualcosa per la jpeg... cmq perche
non ci provi da solo :D scherzo... cmq per le BMP trovi di sicuro
qualcosa...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 qualcosa...
hey.. è simpatico razziatore eh? ;-)
Beh.. se esiste già qualcosa, perchè non usarla?
[certo.. se sappiamo come farlo è meglio.. più che altro soddisfazione..]
Ciauz, Cereal

 grazie per l'aiuto..
Ciao!
Simone
--
ICQ# 19598133
http://www.my-store.it

Beh.. se esiste già qualcosa, perchè non usarla?
Sinceramente io preferisco farmele da me le cose... anche se magari ho
il sorgente di una Unit X mi vedo i risultati e mi domando perche la
persona Y ci è riuscita e io no? allora mi metto li e la rifaccio (e
spesso anche meglio), e un modo come un altro per mettersi alla
prova...
e poi cosi se non funziona te la poi prendere solo con te stesso...
cmq ben vengano le unit belle e pronte, sono utili se devi consegnare
una cosa e hai poco tempo, ma se invece hai tempo da perdere credo che
sia giusto che uno si faccia da solo le cose... almeno cosi lo stesso
problema ha diverse soluzioni cosi che poi uno sceglie la migliore...
poi ovvio sono scelte molto persolali...


Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal Place

Salve a tutti,
questa e-mail è per informarvi che il Turbo Pascal Place è tornato con nuovi
updates e una nuova interfaccia grafica. Se volete visitarlo la Home Page è
questa:  
http://www.dido.net/pascal
Saluti,
il WebMaster del Turbo Pascal Place.


Newsgroup: it.comp.lang.pascal
Titolo: Urgente!Mi sta fumando il cervello!!!!!!!

Potete gentilmente spiegarmi dove sbaglio?
Questa è una procedura per il riordino alfabetico di una lista lineare di
record ciascuno contenente un nome(quello da utilizzare per il riordino),
una quantità, un valore soglia ed un prezzo.
Il compilatore non fornisce nessun errore ed anche in esecuzione il
programma non genera errori di run-time.Però non stampa niente!!!!!!!!!!!Ho
sviluppato il listato sul modello del bubblesort.G R A Z I E ! ! !
PROCEDURE riordina_lista(VAR y,x:pointer);
VAR
scambio:boolean;
pr,p:pointer;
BEGIN
   pr:=y;
   x:=y;
   scambio:=true;
   WHILE (scambio) DO BEGIN
      scambio:=false;
      x:=x^.link;
      readln(pr^.nome);
      readln(x^.nome);
      IF (x^.nome<pr^.nome) THEN BEGIN
         scambio:=true;
         new(p);
         WITH p^ DO BEGIN
            nome:=x^.nome;
            quant:=x^.quant;
            valsoglia:=x^.valsoglia;
            prezzo:=x^.prezzo;
         END;
         WITH x^ DO BEGIN
            nome:=pr^.nome;
            quant:=pr^.quant;
            valsoglia:=pr^.valsoglia;
            prezzo:=pr^.prezzo;
         END;
         WITH pr^ DO BEGIN
            nome:=p^.nome;
            quant:=p^.quant;
            valsoglia:=p^.valsoglia;
            prezzo:=p^.prezzo;
         END;
         dispose(p);
      END;
   END;
   x:=y;
END;

 ha scritto nel messaggio
news:x2Z37.6464$m06.2...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: Help stampa

Ciao a tutti, qualcuno di voi sa per caso come si fa a mandare in stampa
qualcosa in pascal? Spero che qualcuno di voi abbia 1 minuto di tempo per
rispondere alla mia semplice domanda. CIAO!!

Dovresti leggere il contenuto nel file, metterlo in una variabile e
mandarlo in stampa.
Per stampare qlc devi dichiarare la unit Printer.
Poi dichiara una variabile di nome Lst di tipo Text.
Poi per stampare:
......
writeln(lst,nome_della_variabile);
.......
fine.
Lawrence Oluyede
rhy...@tiscalinet.it
"Se ti credono rozzo,
  fai il raffinato;
se ti credono raffinato,
  mostrati rozzo."
Johnny Mnemonic


Newsgroup: it.comp.lang.pascal
Titolo: Controllo integer...





ciao a tutti volevo kiedervi questa cosa...come 
posso fare x effettuare dei 


controlli sugli integer..o meglio..se devo inserire 
un prezzo nel mio programma..come posso fare in modo ke messa una 
lettera


x sbaglio..il programma nn mi si impasti..ma ke 
ripeta la domanda?...grazie e ciao...



Io aquisirei i dati dichiarandoli come stringa e poi li trasformerei in
valore numerico, tramite la procedura val.
val (varstringa,varinteger,errore);
(Errore è var integer)
quindi:
repeat
 writeln ('Inserisci numero');
 readln(s);
 val(s,n,errore);
until errore <> 0;
Ciao
Alex
--
-------------------------------------
e-mail:  el_co...@TOGLIQUESTO.libero.i
Newsgroup: it.comp.lang.pascal
Titolo: array dinamici

Salve a tutti!
C'č qualche maniera per poter utilizzare gli array in maniera dinamica?
Dovendo leggere dei dati da file e volendoli mettere in array mi trovo un po'
alle strette con l'assegnazione "fissa" della dimensione degli array (potrei
avere 5 entry come 500).
Come compilatore utilizzo il freepascal sia sotto win che sotto linux.
-- 
See Ya, EndelWar
FIDDer #19, l'Eletto di Kailas (also the FAQer)
Gestore del Play by E-Mail di Dungeons & Dragons Terza Edizione
Vieni a trovarci su 
www.gioco.net/fantasy/dnd/3ed

 C'è qualche maniera per poter utilizzare gli array in maniera dinamica?


Cfr. nel post
  Matrici dinamiche (Neo)
-- 
Omega e' omega e basta
ma per le cose buone ci sia sempre posto.

 C'è qualche maniera per poter utilizzare gli array in maniera dinamica?


Oppure puoi utilizzare le liste...
Liste? mai sentite, potresti spiegare velocemente (magari con un esempio)?


  Matrici dinamiche (Neo)
Tnx, molto utile (non ce l'avevo nella lista dei post, ma google fa miracoli ;)
)


Tnx, molto utile (non ce l'avevo nella lista dei post, ma google fa miracoli ;)
Ops scusa, da me c'era ancora, cmq hai risolto.

Newsgroup: it.comp.lang.pascal
Titolo: Visualizzare BMP sullo schermo

Dove posso trovare una unit funzionante per visualizzare file in formato
.BMP con il pascal 7 ?

 .BMP con il pascal 7 ?
The main problem is the poor screen resolution and color depth of the
EGAVGA.BGI driver. So you will never obtain a pretty picture.
http://start.at/tp-links
chapter "graphics" near the bottom has a .BMP loader for 16 colors.
With a better video system you can load pretty pictures, eg. with
Stefan Goehler's GraphX and Michael Knapp's GraphiX units. You will
find links at the URL too. Both have ready made .BMP loaders.
:-)
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/
Newsgroup: it.comp.lang.pascal
Titolo: Risoluzione Mouse

Come posso sapere la posizione del puntatore del mouse in modalita'
grafica 640x480 con una risoluzione di 640x480?
Con la procedura GetMouseEvent(Event) e' possibile aggiornare la
variabile Event con i dati del mouse. Event.where.x e Event.where.y
danno le coordinate della posizione del puntatore del mouse, ma
risoluzione in modalita' grafica e' solo di 80x60.
Mi potete aiutare?
Grazie e saluti a tutti,   Fabio.
fabi...@rocketmail.com

...








risoluzione in modalita' grafica e' solo di 80x60.
non l'ho mai usata, quindi non posso fare il confronto.
Gotta
gotta...@freemail.it
togliere qwerty.

>...................
Funziona perfettamente.
GRAZIE e Ciao,    Fabio
fabi...@rocketmail.com

Si spegami come si implementa l'assembly in Pascal Grazie.


Se la volete tradotta in assembler, diventa:
Procedure valorimouse(var x,y,tasto:integer);
Var REG : Registers;
Begin
 asm
    mov AX,3
    int 33h
    mov y,DX
    mov tasto,BX
    mov x,CX
 end;
end;
In questo modo vi risparmiate di dover "usare" la unit DOS :-)
Ciao
Emanuele Cesena
d.a.m...@iol.it
ICQ n° #10570672

 In questo modo vi risparmiate di dover "usare" la unit DOS :-)
Errore ....
Infatti sei sempre tenuto ad usare la unit DOS ..... in virtu' del fatto
che nella tua procedura dichiari REGISTERS ......... che sono appunto nella
unit DOS !!!
Ciao 
Daniele

Daniele Fare' ha scritto nel messaggio <01bdb6e5$9b513b40$b08763c3@vl133>...

Non e' proprio vero ... :)
Ha semplicemente dimenticati di togliere la variabile REG che, in questo
caso, non serve proprio a nulla ... :)
Bye, Mobius

 caso, non serve proprio a nulla ... :)
Verissimo pure questo .......... !!!!!!
Ciao
Daniele

begin
    asm
        .....
        ..... {istruzioni assembly}
        .....
    end;
end.
per ulteriori informazioni vedi l'help di asm
Ciao, Matteo
rma...@geocities.com
http://rossini.home.ml.org


A me questa procedura non funziona: quando la compilo mi da errore
sulla riga dove c'e'   mov y,DX   dicendomi 'Invalid combination of
opcode and operands'.
Chi mi illumina?
Ciao,  Fabio.
fabi...@rocketmail.com

opcode and operands'.
Non puoi utilizzare y in questo modo perche' e' un parametro
della provedura definito in modo Var.
Devi quindi definire delle variabili interne alla procedura ed
utilizzare quelle, settando quindi y alla fine della procedura
esternamente alla parte in assembly.
Bye, Mobius

Daniele Fare' ha scritto nel messaggio <01bdb970$6f1402a0$b08763c3@vl133>...

Grazie mille a Mobius, e mi scuso per la distrazione, nonché per il ritardo
della mia risposta (vacanze!!) :-9

Newsgroup: it.comp.lang.pascal
Titolo: Eseguibile

Ho fatto un programmino in pascal, come faccio a trasformarlo in un file
exe o comunque in un file eseguibile?


compilalo di destinazione disco anziche' memory.
fabio
--
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: Aiuto immediato!!! :-(

Salve,
Scusate l'agitazione....vorrei sapere da voi
quello che mi sapete dire sullo scope o campo
d'azione del PASCAL STANDARD! Vi
chiedo di farmi un esempio di procedure
dichiarate una dentro l'altra e di dirmi quali
sono quelle visibili per ogni procedura.
Es°
program scope;
    procedure p;
        procedure q;
        begin
        end;
        procedure t;
        begin
        end;
    procedure k;
    begin
    end;
begin
end.
Grazie! Datemi risposta a 
hj...@tin.it

end.
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

Newsgroup: it.comp.lang.pascal
Titolo: Aiutooooooooooo

Ho un grande problema devo fare qusto programma e nono so da che parte
iniziare:
Si scriva un programma nell'assembly del MIPS, operante sul simulatore SPIM
il quale, preso in input da console un intero N,stampi sulla console tutti i
numeri n1,...,n32 che differiscono da N per un singolo bit nella
rappresentazione binaria in complemento a due.
Per realizzare il programma si consiglia di scrivere una procedura per
modificare l'i-esimo bit (1 <= u <= 32) di una word, ed
una procedura che effettui un ciclo da 1 a 32 e richiami la procedura
precedente, stampandone sulla console il risultato.
Spero che qualcuno mi dia una mano perchè sono nella...... fino al collo ed
entro il 30 devo consegnarlo.grazie 1000 teo
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:MABBIBMMKGLAIPJFKAAK...@inwind.it...


Mi scusa per i miei messaggi OT con la comunita' ma volevo evitare di essere
di aiuto un po' a tutti.
Grazie e scusate ancora
Questa versione e' piu' efficiente
 .data
     msg1 .asciiz "Inserire un intero e premere enter: "
     msg2 .asciiz "Ecco tutte le permutazioni:\n"
     msg3 .asciiz "\n"
 .text
 .globl main
 main:
         la $a0, msg1
         addi $v0, $zero, 4              # funzione stampa str ASCIIZ
         syscall
         addi $v0, $zero, 5              # leggo un intero
         syscall
         sub $s0, $zero, $v0            # complemento a due del numero
         addi $t0, $zero, 0x00000001            # t0 variabile per ciclo for
         addi $t1, $zero, 0x80000000            # t1 valore per fine ciclo
         la $a0, msg2
         addi $v0, $zero, 4              # funzione stampa str ASCIIZ
         syscall
         xor $a0, $t0, $s0
         addi $v0, $zero, 1
         syscall
     ciclo:
         sll $t0, $t0, 1
         xor $a0, $t0, $s0
         addi $v0, $zero, 1
         syscall
         la $a0, msg3
         addi $v0, $zero, 4              # funzione stampa str ASCIIZ
         syscall
     bne $t0, $t1, ciclo

Newsgroup: it.comp.lang.pascal
Titolo: Finestre e simili

Ci sono un sacco di esempi, per esempio nel Delphi, sono molto interessanti.
Ciao
Diego
--
---------------------------------------------------------------------------
Per rispondere rimuovere NOSPAM dall'indirizzo
For reply remove NOSPAM from address
---------------------------------------------------------------------------

bottoni in modo che me lo possa studiare e imparare ad usarle?
Puoi iniziare a programmare per Windows usando il Delphi.
Andrea      
(per le risposte via e-mail togli CHITIHACHIESTONIENTE!!!! dal mio indirizzo)
ICQ# 8328956

Newsgroup: it.comp.lang.pascal
Titolo: funzioni

TP, dove posso cercare?
turbo.exe [enter]
[shift] + [F1]
ed hai (quasi) tutte le info che vuoi
Ciao
Andrea C

 Andrea C

Newsgroup: it.comp.lang.pascal
Titolo: Videogame sparatutto TASTIERA !

Carissimi , spero che tra voi qualcuno mi posso aiutare concretamente.
Ho scritto un intero videogame 2d e usa il joystick perchè non riesco a
programmare il controllo tastiera. Il gioco è tipo Raptor per chi lo
conoscesse. Dovrei rendere il movimento dell'astronave a seconda dei tasti
simile ai controlli di detto gioco.
Ho scritto il codice seguente ma ciò non è bastato :
{ Andrea Giassi 1999 }
UNIT KSCAN70;
INTERFACE
{ le solite costanti ; non le metto tutte ... }
CONST SU=72;
      GIU=80;
      SINISTRA=75;
      DESTRA=77;
      F1=59;
      F2=60;
      F3=61;
      F4=62;
      F5=63;
      F6=64;
      F7=65;
      F8=66;
      F9=67;
FUNCTION KSCANCODE:BYTE;
IMPLEMENTATION
FUNCTION KSCANCODE:BYTE;
VAR C:BYTE;
BEGIN
 ASM
  MOV AH,01h
  INT 16h
  JZ @EMPTY
  MOV AH,00h
  INT 16h
  MOV AL,AH
  XOR AH,AH
  JMP @DONE
@EMPTY:
  XOR AX,AX
@DONE:
  MOV C,AL
 END;
  KSCANCODE:=C;
END;
END.
Sappiatemi dire !

non riesco a programmare il controllo tastiera.
Prova semplicemente con:
If KeyPressed Then 
   Begin
    If Mem[$40:$1C]>$1E Then Mem[$40:$1A]:=Mem[$40:$1C]-2
                                        Else Mem[$40:$1A]:=$3C;
    charvar:=readkey;
   End;
Ciao
Andrea C

    End;
Il problema è che se metto queste righe il fatto di richiamare readkey mi
blocca tutto in attesa di un tasto...
Potresti spiegarmi la logica del codice nella riga dell'if ?
Da dove hai tirato fuori quegli indirizzi di memoria e che significato hanno
?
Grazie mille.

#>blocca tutto in attesa di un tasto...
 
 if keypressed then ...
serve ad evitare tutto cio'.
Ciao
Andrea C

Newsgroup: it.comp.lang.pascal
Titolo: Mouse

Un salve a tutti i programmatori in pascal!
Ho un piccolo problemino, vorrei fare in modo d utilizzare il mouse invece
della tastiera. qualcuno puņ aiutarmi x favore?
Grazie
     Nitro


Purtroppo sto al verde.... ma... la tastiera non puoi comunque
sostituirla... altrimenti come fai a scrivere?  IL mouse puoi usarlo solo
per puntare ai bottoncini.... o scorrere nelle finestrelle.... o cliccare
sulle iconcine...
In ogni caso lo trovi in un negozio di PC :P
ScherZoZamente, Cooper... :-)))))

 della tastiera. qualcuno puņ aiutarmi x favore?
Attualmente non ho nulla per le mani comunque credo che una ricerchina con
google darebbe ottimi risultati :-)
--
KNOWLEDGE IS POWER
http://www.sverzat.com
Newsgroup: it.comp.lang.pascal
Titolo: Pascal: The Software Fundamentals Of Computer Science

Qualcuno mi sa dire dove trovare nuovo o usato il manuale in oggetto?
Grazie
Massimo

 ha scritto
nel messaggio news:gzIq9.3445$6n3.1...@news1.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: AIUTO!operazioni numeri 100cifre

Ciao a tutti!
Qualcuno saprebbe farmi un programma per fare
addizione,sottrazione,moltiplicazione e divisione con 2 numeri di 100
cifre???
Ne ho un gran bisogno.
Se qualcuno riuscisse a farlo...
Grazie in anticipo...
YAKOB
--
Posted from 
smtp1.libero.it
 [193.70.192.51]
via Mailgate.ORG Server - 
http://www.mailgate.org

cifre???
Io ne ho fatto uno a suo tempo solo per la moltiplicazione ... senza limiti, però ... :-)
-=> NeGuS <=-
www.infinito.it/utenti/negus80
 troverete guida, esempi, programmi, utility per Pascal/C++/Asm ....

 cifre???
100 cifre corrispondono, circa, a 333 bit, quindi a 21 word (dall'equazione
10^100 = 2^x).
Pertanto per rappresentare un numero a 100 cifre utilizzerai un array da 21
word, magari con un flag boolean per il segno.
Da qui in poi il più è fatto: basta creare delle procedure che al loro
interno sommano (sottraggono, dividono ...) le singole word, con le usuali
regole di riporto.
Ti faccio l'esempio per la somma (per sottrarre basta cambiare il segno al
secondo addendo).
Type
  Num100 = record
    Num : array [1..21] of word;  {Contiene il valore assoluto del numero}
    Positivo : boolean;    {True se il numero è positivo}
    Valore : double;
  end;
Procedure Somma100(A1, A2: Num100, Var R: Num100);
Var
  Sub : boolean;
  i, Riporto : word;
  Res : longint;
  Mag, Min : Num100;
begin
  R.Valore := A1.Valore + A2.Valore;
  R.Positivo := (R.Valore>=0);
  if Abs(A1.Valore + A2.Valore) < Abs(A1.Valore) then {Se sono di segno
discorde}
    begin
    {Allora si sottrae}
      if Abs(A1.Valore)>Abs(A2.Valore) then
        begin
          Mag := A1;
          Min := A2;
        end
      else
        begin
          Mag := A2;
          Min := A1;
        end;
      for i := 1 to 21 do
        begin
          Res := longint(Mag.Num[i]) - longint(Min.Num[i]);
          if Res<0 then
            begin
              Res := Res + $10000;
              Mag.Num[i+1] := Mag.Num[i+1] - 1;
            end;
          R.Num[i] := Res;
        end;
    end
  else
    begin
    {Segni concordi, si somma}
      Riporto := 0;
      for i := 1 to 21 do
        begin
          Res := Riporto + longint(A1.Num[i]) + longint(A2.Num[i]);
          R.Num[i] := Res and $0000FFFF;
          Riporto := Res shr 16;
        end;
      {Se qui Riporto è > 0 significa che c'è stato overflow}
    end;
end;
Ciao, Max.


http://www.penguinpowered.com/~ecesena
Spero che gli ``Eurythmics'' pratichino il controllo delle nascite...

Newsgroup: it.comp.lang.pascal
Titolo: Salvatemi

Come posso creare un meccanismo di salvataggio in un programma in Pascal?
                                            Kosby

Come posso creare un meccanismo di salvataggio in un programma in Pascal?
Cosa devi salvare?
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm
Newsgroup: it.comp.lang.pascal
Titolo: E' normale che blockread chiuda i files aperti?

Questa piccola procedura:
<CODE>
procedure backup_file(namefile:string);
var f1,f2:file;
    buf:pointer;
    letti,count:word;
BEGIN
assign(f1,'dtb\'+namefile+'.dtb');
letti:=0;
count:=0;
assign(f2,namefile+'.bkp');
count:=65535;
GetMem(buf,count);
reset(f1,1);
rewrite(f2,1);
while not(eof(f1)) do begin
      BlockRead(F1,Buf,Count,letti);
      BlockWrite(f2,Buf,Count,letti);
      end;
close(f1);
close(f2);
freemem(buf,count);
END;
</CODE>
ovviamente, NON funziona.
Questo perchè al termine del primo blockread, entrambi i files
f1 ed f2 vengono chiusi!!!!!!!!
è normale? Ho sbagliato da qualche parte?
NM

      end;
Prova a correggere cosi':
while not(eof(f1)) do begin
      BlockRead(f1,Buf^,Count,letti);
      BlockWrite(f2,Buf^,letti,scritti);
      end;
-- 
 Elio Proietti        
Debian GNU/Linux

azz non ci avevo pensato :P !
NM
On 28 May 2002 20:01:17 GMT, 
eliopr...@hotmail.com
 (Pangloss)
wrote:


Newsgroup: it.comp.lang.pascal
Titolo: DOS o Prompt?

Come faccio a sapere se un programma è avviato dal DOS "vero" o da una
finestra? (Uso TP7).


Uses crt;
type
    Reg = record
                L, H: byte;
          end;
var
   A : Reg;
begin
     clrscr;
     asm
        mov ax, 1600h
        int 2Fh
        mov A, ax
     end;
     write('Programma eseguito in una sessione ');
     if (A.L AND $7F)=0 then writeln('MS-DOS')
                        else writeln('Windows (versione: ', A.L,'.',
A.H,')');
end.
Puoi anche utilizzare la funzione:
Function WindowsIsRunning: boolean;
type
    Reg = record
                L, H: byte;
          end;
var
   A : Reg;
begin
     asm
        mov ax, 1600h
        int 2Fh
        mov A, ax
     end;
     WindowsIsRunning := (A.L AND $7F)<>0;
end;
che restituisce TRUE se windows e' in esecuzione, FALSE altrimenti.
Funziona da Win3.1x in poi.
Ciao.
Simone.
P.S.: Qualcuno conosce un mirror veloce (possibilmente FTP) da cui scaricare
i file zip di "Interrupt List" (Ralph Brown) possibilmente ultima versione
??? La mia versione e' vecchiotta (3.0) ed i siti che conosco sono lentucci.
Newsgroup: it.comp.lang.pascal
Titolo: Problema su Assembler (TP7)

Non mi funziona la funzione $69 dell' INT $21
che legge il serial number di un disco (cd audio)
sotto W95.
mi da' errore in W95 consigliandomi di chiudere tutto e riavviare.
ho provato ad usare la funzione pascal msdos(regs) e a fare una procedure
assembler ma niente da fare
Grazie!
Ciao a tutti!!
togli Maki dalla email
Makina...@libero.it


Scusate la mail era sbagliata

 sotto W95.
L'ho fatto in velocita', comunque concettualmente
funziona :)
Uses Memory;
Var S: Word;
    P: ^Pointer;
begin
   P := MemAllocSeg(25);
   S := Seg(P^);
   asm
   Push Ds
   Mov Ax, 6900h
   Mov Bl, 1       { Disco nel drive A }
   Mov Ds, S
   Xor Dx, Dx
   Int 21h
   Pop Ds
   end;
end.
Nella zona di memoria puntata da P ci
trovi quanto segue:
Offset	Size	Description
 00h	WORD	info level (zero)
 02h	DWORD	disk serial number (binary)
 06h 11 BYTEs	volume label or "NO NAME    " if none present
 11h  8 BYTEs	(AL=00h only) filesystem type--string "FAT12   " or "FAT16   "
Bye, Mobius

Grazie mille non avevo capito che in ds,dx andasse il puntatore di una zona
di memoria che dovevo allocare io...
 Grazie ancora!
 Ciao.

Newsgroup: it.comp.lang.pascal
Titolo: Controllo telefono da Tp?

Vorrei sapere se è possibile realizzare un programma in Tp7 per
controllare il numero di chi sta chiamando quando che telefonano. Cioè
il mio pc è attaccato al modem e tiene in esecuzione un programma
residente che quando arriva una telefonata capisce si attiva e mi scrive
il numero di chi mi chiama?
Si può fare? Come?
--
Fabio Feuli
E-Mail 
fe...@libero.it
"O natura, o natura,
Perché non rendi poi
Quel che prometti allor? perché di tanto
Inganni i figli tuoi?"
(Leopardi: Dai Canti, A Silvia vv. 34-39)

 ha scritto nel messaggio
news:396618C9...@libero.it...

Newsgroup: it.comp.lang.pascal
Titolo: Alt, Ctrl, Canc?

Come si fa a controllare con il Tp la pressione dei tasti Ctrl, Alt e
Canc???
Sono in attesa del vostro aiuto!
Ciao da FABIO!

Canc???
Se vuoi controllare il riavvio del sistema devi interagire con gli
interrupt della tastiera, se invece ti accontenti di controllare lo
stato della pressione dei tasti, ti basta fare riferimento alla
locazione di memoria $0040:$0017 nel modo seguente : 
var x : byte ;
begin
  repeat
    x := mem[$0040:$0017] ;
    if ( x > 0 ) then
    begin
      if ( x and 2 ) > 0 then
         write('[ SHIFT sx ]') ;
      if ( x and 4 ) > 0 then
         write('[ CTRL ]') ;
      if ( x and 8 ) > 0 then
         write('[ ALT ]') ;
      if ( x and 1 ) > 0 then
         write('[ SHIFT dx ]') ;
      writeln ;
    end ;
  until x and 16 > 0 ;
end.
--------------------------------------------------------
* Andrea Laforgia        (
andrea_...@bigfoot.com
) *
--------------------------------------------------------

 Ciao da FABIO!
Una piccola routine in assembly dovrebbe fare il giochetto. Me ne
preoccupavo quando mi ero interessato al codice dei virus per DOS.
Infatti molti virus intercettavano il reset da tastiera.
Dovresti scrivere un nuovo handler per l'INT 16 del DOS. In pratica
dovresti aggiungere all'handler attuale, sempre in asm, una linea che
controlla che sia premuta tale combinazione e che di conseguenza fa
l'operazione Y (non so, non hai specificato).
Riccardo

 Non si fa, a meno che non si usi l'assembler ... ti serve la procedura?
Var ShiftKeys : Byte absolute $0040:$0017;
test bits in this byte.
More info: 
http://bsn.ch/tp-links
page "FAQ"
-- 
Franz Glaser, Glasau 3, A-4191 Vorderweissenbach Austria +43-7219-7035-0
Muehlviertler Elektronik Glaser.  Industrial control and instrumentation
http://members.eunet.at/meg-glaser/
           mailto:
meg-g...@eunet.at
http://www.geocities.com/~franzglaser/
 
http://members.xoom.com/f_glaser/

 wrote in message
380CF535...@eunet.at...


Newsgroup: it.comp.lang.pascal
Titolo: Ricerca nel vettore

Salve ragazzi, ho un problema, devo fare un programma che secondo 10 numeri
inseriti dentro un vettore, si richieda l'inserimento successivo di un
numero qualsiasi, e venga ricercato tale numero nel vettore precedentemente
riempito, se il numero č presente mi deve ritornare l'indice del vettore,
dove č presente il numero, altrimenti mi deve ritornare il numero. Come
sarebbe l'algoritmo per ricercare questo numero dentro il vettore?
Grazie a chi mi aiuterą ;-)
--
Ammanicato del sistema!!!
ICQ # 84624356

 
Sembrerebbe la cosiddetta "ricerca con sentinella" in una singolare 
variante:
se tu hai n elementi nel vettore il numero che devi cercare lo metti in 
posizione n+1.
Poi cominci dalla posizione 1 a vedere se c'è e te le fai tutte finché 
non lo trovi.
Quando l'hai trovato (e sei sicuro che lo trovi anche se non c'era dal 
momento che l'hai messo in fondo) guardi a che posizione sei arrivato. 
Se è minore o uguale a n restituisci la posizione dove sei arrivato, se 
è maggiore restituisci il numero che stavi cercando.
Newsgroup: it.comp.lang.pascal
Titolo: Patch di Borland

In edicola a sole 14.900 lire c'è Programmers Toolkit 2 con gli
aggiornamenti le patch e le licenze d'uso per i tools di Borland ( per C,
Pascal, TASM, etc..). Le licenze sono di delphi 1.0 e Dbase5 per windows,
patch anche per tp 5.0 e 6.0

...


Di completo c'è Delphi 1.0 e Visual Dbase 5

Newsgroup: it.comp.lang.pascal
Titolo: Turbo Pascal (qualsiasi versione)

Stanno insegnando a mio figlio al liceo il Turbo Pascal. Qualcuno sa dove
posso procurarmi il programma (ho provato anche su 
www.borland.com
 ma senza
esito) o addirittura inviarmelo?
Grazie



http://www.freepascal.org
 e sei anche a posto con le licenze x' è sotto
GPL.

 wrote in message
Pine.LNX.4.10.10002261826250.595-100000@ciriostation...


Newsgroup: it.comp.lang.pascal
Titolo: X Risolvere i vostri problemi

Se vi interessano programmi Pascal, dai più scemi a quelli abbastanza utili
e complessi, visitate il mio sito e andate nella sezione programmi/Pascal
(Lo so, la 1° Volta l'apertura del mio sito è lenta...... scusate, attendete
qualche istante )...
http://jump.to/bug
BuG

 qualche istante )...
Un po' lenta ?!?!?
10 minuti di tentativi e non ce l'ho fatta....
Ste

 wrote in message
%fiZ3.75778$s17.7...@typhoon.libero.it...


Newsgroup: it.comp.lang.pascal
Titolo: Divisione per 0, ma dove?

Dove sta la divisione per 0????

Dove sta la divisione per 0????
Quando i supera il limite massimo degli interi diventa -1 e il
denominatore (i+1) diventa (-1+1) = 0.
Ma lo fate il debug prima di postare il codice ???
Andrea Laforgia

...


SU, SU, SU !
????? traduzione ?
Andrea Laforgia

E' una lunga storia tra me e darkluca. Scusate per l'interruzione del
discorso.
m@tteo
Andrea Laforgia ha scritto:


END.

questo problema.
Non e' dovuto a questo.
Il programma produce una divisione d'errore per un errore di
progettazione.

Newsgroup: it.comp.lang.pascal
Titolo: Sistema di equazioni lineari a due o più incognite

Qualcuno potrebbe dirmi come fare un programma che con il pascal mi risolva
un sistema di equazioni lineari a due o più incognite e con un minimo di
interfaccia grafica ?
Grazie

interfaccia grafica ?
L'interfaccia grafica la lascio alla tua fantasia.
La soluzione del sistema e' applicabile molto facilmente mediante
matrici e metodo di Cramer.
--
Andrea Laforgia
andrea_...@bigfoot.com

Newsgroup: it.comp.lang.pascal
Titolo: Funzione per caricare una bitmap

C'é nessuno che ha una funzione per TurboPascal 5.0 (sotto DOS) per
caricare una bitmap?
Grazie

Ne avevo fatta una tempo fa per TP 7.0, ma č semplice e dovrebbe andare anche
col 5 (sennň te la converti, č facile), perň mi apre solo i vecchi BMP (fatti
con win 3.x), con i 16 colori del pascal (non so metterne di piů) e li fa piů
piccoli (circa 1/4)
Se ti interessa scrivimi che te la posto
Emanuele Cesena
gma...@tin.it
Newsgroup: it.comp.lang.pascal
Titolo: URGENTE!!

Ragą!
mi aiutate a compilere un programma che assuma come dati in ingresso 2
numeri ed emetta come risultato in uscita  il minore di essi...
Io ho proceduto in tale modo:
program -----;
uses crt;
var a,b,risultato:real;
begin
    clrscr;
    writeln ('Immetti due numeri ');
    readln (a,b);
    risultato:= a-b;
    if risultato<0 then writlen ( a ' č minore di ' b)
                           else writeln ( b ' č minore di ' a);
    readln;
end.
In cosa sbaglio?
Nottarget

                            else writeln ( b ' è minore di ' a);

Newsgroup: it.comp.lang.pascal
Titolo: Librerie per i file video

Su un pc con win98, se faccio partire un prog in vb con un filmato .avi mi
da un errore dicendo che manca parte delle librerie. Qualcuno sa dirmi quali
librerie, o meglio, quali file servono per l'esecuzione dei file .avi?



Sei un po' fuori posto... prova su un NG di windows o di VB
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com
Newsgroup: it.comp.lang.pascal
Titolo: leggere un file txt lungo?

Mi servirebbe il sorgente per leggere a pagine,avanti  e indietro,un file di
testo
lungo piu' di 200k.Grazie,Gianmaria.

testo lungo piu' di 200k.Grazie,Gianmaria.
Eccotene uno.
E' anche completo di barre di scorrimento verticali e orizzontali.
Per lo scorrimento del testo devi usare i tasti freccia.
Le costanti LX e LY contengono le dimensioni della finestra in cui
scorre il testo.
Il file che viene letto non viene messo in memoria e quindi puoi
vedere file di dimensione illimitata.
Quando scorri il file in giu' va come una sceggia ma quando torni su'
e' piu' lento perche' deve rileggeri il file.
program   longtext;
uses      crt;
const     ly=24;   (* <25   *)
          lx=79;   (* <80   *)
var       f:text;
          s,n:string;
          i,j,k,l:longint;
          c:char;
          x,max:byte;
begin
          writeln;
          write('Nome file: ');
          readln(n);
          assign(f,n);
          reset(f);
          l:=0;
          max:=0;
          while not eof(f) do begin
             readln(f,s);
             if length(s)>max then max:=length(s);
             inc(l)
          end;
          reset(f);
          k:=0;
          x:=1;
          c:=#0;
          repeat
             ClrScr;
             for j:=1 to ly do begin
                 gotoxy(lx+1,j);
                 if j=trunc((ly*k)/l)+1 then
                    write('²')
                 else
                    write('°')
             end;
             for j:=1 to lx do begin
                 gotoxy(j,ly+1);
                 if j=trunc((lx*x)/max)+1 then
                    write('²')
                 else
                    write('°')
             end;
             if (c<>#80) then begin
                reset(f);
                for j:=1 to k do
                    readln(f,s);
             end;
             i:=0;
             while not eof(f) and (i<ly) do begin
                inc(i);
                readln(f,s);
                s:=copy(s,x,lx);
                gotoxy(1,i);
                write(s)
             end;
             repeat
                c:=readkey;
                if c=#0 then c:=readkey;
                if (c=#77) and ((x+lx)<max) then x:=x+lx;
                if (c=#75) and (x>lx) then x:=x-lx;
                if (eof(f)) and (c=#80) then c:=#0
             until c in [#27,#72,#80,#75,#77];
             if c=#80 then k:=k+ly;
             if (c=#72) and (k>0) then k:=k-ly;
          until c=#27;
          close(f)
end.
Copyright Fabio Manzo
P.S. Se ti serve a scopo di lucro non dimenticare di mandarmi qualche
decina di milalire :-)
Ciao,   Fabio
fabi...@rocketmail.com