mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Porta seriale

Come posso ricevere o spedire un segnale analogico ad un circuito esterno
tramite la porta seriale o la porta parallela?
In altri termini è possibile, tramite la porta seriale o parallela, leggere
una ddp?
Grazie e ciao a tutti
antonio...@iol.it

 wrote in message
cDOd4.9900$I3.1...@news.infostrada.it...

Per quanto riguarda l'acquisizione di un valore di tensione analogico hai
bisogno di un convertitore analogico/digitale. Esistono dei microprocessori
(ad esempio il PIC16C74 della 
http://www.microchip.com/
) che hanno integrato
tale convertitore insieme con una porta seriale per poter acquisire dati
dalle com1/com2.
Per quanto riguarda l'emissione di una tensione analogica, hai bisogno di un
convertitore digitale/analogico.
Un'alternativa può essere quella di installare sulla motherboard del PC una
scheda ad hoc, con integrato tutto quanto.
La problematica non è banale.
Saluti
--
Davide Cammarota
tel/fax 
++39-0832-345310
dcamm...@mail.clio.it
http://users.clio.it/Users/dcammarota/


   Ciao e comunque grazie
  A. Frisina
http://users.iol.it/andrea.frisina/frisina.htm

Newsgroup: it.comp.lang.pascal
Titolo: Problemi tra grafica in pascal e Voodoo³....

Beh il problema č questo: quando compilo un programma che utilizza il
driver egavga.bin, sul computer di scuola funziona, sul mio no, in
quanto mi dice che non trova il driver. Voi direte "scrivi il percorso
del file in maniera giusta!" ed č quello che io ho fatto, ma nisba!
Sono portato a pensare quindi che il vecchio driver del pascla sia
incompatibile con sta ca$$o di Voodooł....
Grazie x qualsiasi aiuto che mi darete!
 
--
Ciao!
Francesco
Visita 
www.geocities.com/franzafree
 , troverai
cose molto simpatiche e divertenti!
Togli SPAMFUCKER per contattarmi via e-mail!

Su che sistema operativo lo fai girare ?
Non penso che sia la Voodoo
prova con il vecchio e caro dos
Ciao ReDiCuori
"Francesco L" <lfran...@SPAMFUCKERiol.it> ha scritto nel messaggio
news:2vdm2tkefgmu2ujq3...@4ax.com...


prova con il vecchio e caro dos
Ok ci proverò (in effetti l'ho provato sotto Win98).


io ho il voodoo3 2000 win98 e va tutto ok!
secondo me è il solito problema del crt : division by zero!
da me nn lo fa perchè ho un processore lento. prova a scaricare la patch!

Vi ricordo che la patch per l'errore DIVISION BY ZERO la trovate al mio sito
(purtroppo sempre fermo).
http://digilander.iol.it/darkbytes
un saluto dal grande VEGETA PRINCIPE DEI SAIYAN
     /\  /\
\_/   \/  \_/
=)
Luca Molari ha scritto nel messaggio ...


un umilissimo inchino al grande vegeta.




Newsgroup: it.comp.lang.pascal
Titolo: Winsock pascal?

Mi č sorto un dubbio
Esiste una specie di winsock per il pascal che so na libreria ?
Cioč esistono librerie  in grado da far scrivere in Tpascal un programma per
inviare mail oppure una specie di telnet?
Se si dove posso procurarlo?
<Scusate se la domanda č un pokino idiota>
--
--omega--
"Hands on"


Non saprei. Rispondo solo per provare come va la firma automatica dei miei
msg

Se si dove posso procurarlo?
nel freepascal per win32 c'e' una unit winsock che se non sbaglio
dovrebbe essere un porting di quella del c
--
"#define QUESTION ((bb) || !(bb)) - Shakespeare."


La firma non va, e nemmeno quella R:...
-- 
extrabug

Newsgroup: it.comp.lang.pascal
Titolo: Ma come si leggono info da files .txt in TP7?

Scusatemi, sono abbastanza inesperto in campo TP, ecco il mio problema:
dovrei fare in modo che il programma mi legga delle informazioni in input da
un file .txt, per poi elaborarle e infine stampare i risultati in un nuovo
file .txt.
Più specificamente il programma dovrebbe immagazzinare come stringa la prima
riga del file .txt, poi separatamente la seconda riga ecc, mentre in output
dovrebbe scrivere i risultati, sempre stringhe di testo, in un nuovo file
.txt che deve creare, andando a capo per ogni stringa in uscita... qualcuno
può aiutarmi? Non conosco neanche molto bene i comandi Dos per la gestione
dei files e mi trovo in grossa difficoltà!! Vi ringrazio in anticipo!!

per leggere un file di testo devi dischiarare un riferimento al file
var miofile : Text;
1) per aprire usi il comando reset(miofile)
2) per create usi il comando rewrite(miofile)  attento che se miofile esiste
già con rewrite lo distruggi
3) per apppendere nuove linee usi append(miofile)
3) per leggera da un file utilizzi readln(miofile,vars) dove vars è un
stringa, questo comando legge una riga dal gile di testo
4) per  scrivere su un file utilizzi writeln(miofile,vars)
5) la fine del file è segnalata da eof(miofile)
6) per chiudere un file usi close(miofile)
program fileditesto;
var oldfile, newfile : text;
     s : string;
begin
    assign(oldfile,"primo.txt");
    reset(old);
    assign(newfile,"secondo.txt");
    rewrite(newfile);
    while not eof(oldfile) do
        begin
            readln(oldfile,s);
            s:=processa(s);
            writeln(newfile,s);
        end;
    close(oldfile);
    close(newfile);
end.
Ciao ReDiCuori

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

Buon millennio.
A proposito il Pascal è compatibile con l'anno 2000?

 Non č iniziato il nuovo millennio!!
Anche l'inizio di quello vecchio e' un tantino incerto... ;-)


Il Pascal č compatibile con il 2000 se il computer su cui gira lo č.
PS: Non siamo nel nuovo millennio!
DG


Newsgroup: it.comp.lang.pascal
Titolo: Aumentare lo stack

Salve
è possibile aumentare la dimensione dello stack con turbo pascal 7.0 ?
Grazie
Milliken

programma ?
Sai che azzerando lo stack al 90% causi il crash del tuo programma?
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
,    /\   /\    ,
\_/   V   \_/

programma ?

Newsgroup: it.comp.lang.pascal
Titolo: Runtime Error 200 at .....

I programmi compilati con il BP7 sotto windows 98 in fase di caricamento
(non gestibile) mi danno il messaggio:
    Runtime Error 200 at ......
Si tratta di un errore casuale, dovuto a come il windows gestisce la
memoria.
Qualcuno mi sa dire come aggirarlo? Grazie
Nicola Francesco Orsatti

 wrote in message
8egqq8$hj5$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.pascal
Titolo: copyright sul linguaggio html

Salve, qualcuno mi ha detto che su un sito non si potrebbe pubblicare una
guida sul linguaggio html perchè c'è il copyright. E' vero?
(io immagino di no ma vorrei avere una conferma)
grazie in anticipo per la risposta
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie in anticipo per la risposta
Chi ha scritto tale guida? Se l'hai scritta tu hai il diritto di
pubblicarla dove vuoi. Se invece la guida l'ha scritta qualcun'altro devi
avere il suo permesso (meglio se scritto) prima di pubblicarla.
Ciao,
  Luca
-- 
Linux registered user #291568 (
http://counter.li.org/
)
Electronic Frontier Foundation Member (
http://www.eff.org/
)
Mandrake Club Member (
http://www.mandrakeclub.com/
)

Newsgroup: it.comp.lang.pascal
Titolo: decompilatore tp7

Esiste un decompilatore pe TP7?
Grazie Sdonk

Esiste un decompilatore pe TP7?
Lunico Decompilatore che ho mai utilizzato č il w32dasm che ritorna il
codice in assembler.
Che io sappia non ne esistono che ritornano il codice in
pascal...(forse in c ma non mi fiderei troppo del codice che ritornano
=))
neon gas
- e-mail: 
ne...@freemail.it
- ICQ#: 96988011
- Sito: 
http://ne0n.cjb.net

Newsgroup: it.comp.lang.pascal
Titolo: Pascal e File Grafici!! Come fare!??

Ciao a tutti!
Qualcuno mi sa aiutare? Come posso fare a far apparire a video
un'immagine contenuta in un file grafico? e in che formato deve essere
il file grafico? bmp??
Help Pleaseeee ; ))
Sgnafutz

 wrote in message
24TFOIuMohUBWM...@4ax.com...

Newsgroup: it.comp.lang.pascal
Titolo: Inserire una riga in mezzo ad un file

Salve
ho una struttura del tipo
type archivio = file of string;
e ho una variabile
var f:archivio ;
nella quale ho memorizzato alcune righe di dati.
il mio problema è quello di trovare un codice efficiente che mi permetta di
inserire una stringa in mezzo al file f senza dovermi ricopiare la parte
precedente e la parte successiva del file su dei file di supporto per poi
ricopiare il tutto.
grazie
Milliken

purtroppo non e' possibile inserire testo in un file "spingendo"
avanti quello che segue... devi per forza riscrivere il file, almeno
la parte che segue... oppure tutto che e' piu' semplice :-)
leggo da fileA
scrivo in fileB
arrivo a dove devo inserire - inserisco in B
leggo da fileA
scrivo in fileB
finche' non e' finito il file
ammetto che per file grossipuo' diventare fastidioso, conviene
allora cambiare formato di file, oppure codificare la posizione
delle stringhe nel file con ad esempio ccon un numero ad inizio riga
001stringaA
003stringaB
002stringaC
riordinare in lettura e schiaffare in fondo in scrittura... ma non e'
un gran metodo (l'ordinamento costa... se non tempo, sudore :-) )
--
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Free-Pascal su Linux

Ciao a tutti
Stavo provando Free-Pascal su Linux, perņ non riesco a fargli riconoscere il
tasti funzione da F1 a F5 (usando un doppio c := readkey), mentre con gli
altri non ho problemi.
Facendo la stessa prova, stavolta su Window con Free-Pascal x Win32, tutto
funziona bene.
Da cosa puo' dipendere ?
Sicuramente c'e' qualcosa che sbaglio :((
Grazie
Alex

Da cosa puo' dipendere ?
Dall'esecuzione effettuata in ambiente grafico X.
Esegui i programmi da console e non avrai problemi di tastiera.
E' piu' razionale eseguire da console tutti i programmi che non usano
metodi grafici. Ti consiglio di usare il modo testo 80x50.
Se vuoi lavorare comunque sotto X devi rinunciare ai tasti F1-F5.
Le ragioni di questo bug sono piuttosto lunghette da spiegare...
IMHO il problema non e' risolubile con readkey, ma solo con metodi
estranei al Free-Pascal.
-- 
 Elio Proietti        
Debian GNU/Linux
Newsgroup: it.comp.lang.pascal
Titolo: PasOS

Dov'č finito?
Come siete messi?
Ciao
Iding


DrFalken mi aveva scritto:
"Sto aspettando la registrazione di due domini, tra cui 
pas-os.net
 ma
vanno per le lunghe..."
purtroppo gli manca il tempo da dedicare al PasOS... e senza di lui,
nessuno sa né dove mettere le mani sul sorgente del kernel, né dove
reperire il kernel. :-(
---
Ciao
PV

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

Salve, qualcuno mi saprebbe dire come devo fare per creare una funzione in
cui il numero degli argomenti non e' determinato in Pascal. In C io farei:
int printf(char *s, ...) {
        <istruzione1>
        <istruzione2>
        <istruzione3>
        <istruzione...>
}
In pascal?
Grazie del vostro aiuto.
-- 
Vladislav Valtchev

In pascal non lo puoi fare, mentre in Delphi si.
Bye,
David (
www.utilityweb.net
)

In pascal non lo puoi fare, mentre in Delphi si.
Non sapevo che in delphi esisteva l'elisse ( ... )
interessante...
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

 In pascal non lo puoi fare, mentre in Delphi si.
Be', vermente, una soluzione, sul manuale l'avrei trovata io, ma solo
adesso.
Io ho incluso la libreria del C, poi, pero' come per il .h del C, anche in
pascal mi devo pre-definire la funzione. In questo caso mi e' servito
predefinire printf(const char *fmt, ...).
Per fortuna ho trovato sul manuale:
procedure printf(fmt: pchar; args: array of const); cdecl; external;
Si, ma il pascal mi dava un errore perche' non sa che cos'e' quel const.
Dopo pero' ho capito che dovevo fare prima di questo:
{$mode objfpc}
Quindi ecco per voi un esempio completo di codice pascal che utilizza la
printf del C:
{$LINKLIB c}
{$mode objfpc}
procedure printf(fmt: pchar; args: array of const); cdecl; external;
begin
printf('Tutto funziona: %s'#10, ['prova']);
end.
NB: ho metto le '[]' perche' e' comunque un array.
-- 
Vladislav Valtchev
Newsgroup: it.comp.lang.pascal
Titolo: aiuto!!!!!!!

Salve , volevo chiedervi una cortesia, io devo scirvere un programma in
pascal che stampi tutti i numeri di Fibonacci minori o uguali a N (Serie di
Fibonacci 0 1 1 3 5 8 13 21 34 55 89 aggiungo all'ultimo quello che sta
prima)
Io non riesco a farlo e anche in classe abbiamo avuto qualche difficoltà!
Potreste aiutarmi?
Grazie mille mi fareste un favorissimo!!!!!!!!!!!!!!
Paolo

 ha scritto nel messaggio
news:9rjnt1$k55$1...@pegasus.tiscalinet.it...


 Potreste aiutarmi?
Il programma non è affatto difficile da fare. Questo è quello che avevo
scritto io 2 anni fa quando mi era stato dato come compito per casa :-)
Dovrebbe funzionare a dovere però non garantisco completamente :-P
program numeri_di_fibonacci;
uses crt;
var ndc,nm1,nm2:integer;
procedure comunica(ultimo,i:integer;var pp,sp:integer);
var n:integer;
begin
  n:=pp+sp;
  write(n:4);
  sp:=pp;
  pp:=n;
  if (i<=ultimo) then comunica(ultimo,i+1,pp,sp);
end;
begin
  clrscr;
  write('Quanti numeri vuoi che calcoli? ');
  readln(ndc);
  write('Qual è il primo numero? ');
  readln(nm2);
  write('Qual è il secondo numero? ');
  readln(nm1);
  write(nm2,nm1:4);
  clrscr;
  writeln('La sequenza di Fibonacci è:');
  comunica(ndc,0,nm1,nm2);
  readkey;
end.
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

-- mex inutile ON --
che ficata, si vede quando ricominciano scuole e corsi :-)
-- mex inutile OFF --
ok fine del messaggio non avevo niente di utile da dire :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: cerco librerie per gestire immagini e suoni

Salve a tutti,
  sto cercando delle librerie che mi permettano di inserire nei miei
programmi in modo non troppo complesso immagini (va bene qualsiasi formato:
bmp,pcx,gif.......) e suoni (wav e mid).
Qualcuno le ha o sa dove posso trovarle?
grazie.

 ha scritto nel messaggio
news:9at1pf$d7m$1...@serv1.albacom.net...


 Ciao ReDiCuori
Ciao.
Simone.
-=============================-
    Webmaster di :
 
www.drfalken.com
 
www.pas-os.com
    ICQ# : 19598133
-=============================-

Newsgroup: it.comp.lang.pascal
Titolo: Grafica con il turbo pascal

Salve a tutti sono nuovo di questo NG e volevo chiedervi come fare grafica
con TPW.
Le stesse istruzioni della versione 7.0 per DOS non funzionano.
Qualcuno ha qualche idea? Magari qualche sito dove è spiegato?
Non ditemi usa la versione per DOS visto che ho quella per Windows.
Grazie in anticipo.

 ha scritto nel messaggio
news:p62n8.63329$1S3.1...@twister1.libero.it...

devi usare l'objectwindows, in pratica il delphi, se nonn sbaglio
--
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
Newsgroup: it.comp.lang.pascal
Titolo: analisi caratteri

Salve, vorrei sapere se è possibile estrarre a uno a uno i caratteri da una
variabile di tipo string, perchè voglio analizzarli, confrontarli, ecc.
E' possibile?
-- 
Marco Napolitano

E' possibile?
Naturalmente... Il tipo string non è altro che un array di caratteri,
è sufficiente chiamare il carattere che ti interessa con la sintassi
degli array:
es
var A:char;
      X:integer;
      VarStringa:string;
...
A:=VarStringa[x];
...
La variabile di tipo char A assume con questo assegnamento il valore
contenuto nella posizione x della variabile di tipo string VarStringa.
Ciao
 
  ()        ()()()()()()  ICQ#  53299360
  ()          ()    
  ()        ()()()()  
l...@freemail.it
  ()        ()()  
  ()()()()()()()      
    PEACE FOR HARMONY
  HARMONY FOR SURFING
    ~~~KEEP SURFING~~~

E' possibile?
Certamente.
Se Stringa e' la tua variabile string, Stringa[n] e' il carattere n-esimo della stringa.
-=> NeGuS <=-
www.infinito.it/utenti/negus80

E' possibile?
Certamente.
Se Stringa e' la tua varibiale string, Stringa[n] e' l'n-esimo carattere della tua stringa.
-=> NeGuS <=-
www.infinito.it/utenti/negus80

Newsgroup: it.comp.lang.pascal
Titolo: presentazione e aiuto per tpw

Ciao a tutti,
sono nuova di queste parti.
Ho già un piccolo pb da porre a voi super esperti.
Non sono ancora riuscita bene a entrare nella testa del tpw (pascal per
windows),
tanto è vero che sto meditando di tornare al vecchio tp per dos.
Ad es non riesco a capire quali comandi (se esistono) hanno sostituito il
vecchio textcolor (per colorare il testo non in grafica) e il delay (pausa).
Chi mi consiglia un sito fra i tanti, veramente carino, nel senso di utile,
dove trovare le differenze tra tpdos e tpwin? Per lo meno per capire come
devo ragionare.
Ciao e grazie


scrivimi in privato che ti spiego un po' di cose, ok? 
dgr...@tin.it
Newsgroup: it.comp.lang.pascal
Titolo: manipolazione liste

Secondo voi per quale motivo questa procedura cancella tutti gli elementi
della lista sino al valore 'elem' anzichč cancellare SOLO 'elem' ??
......................................................
Procedure CancellaElementoLista(var lis : TipoLista ; elem : TipoElemLista);
var paux : TipoLista;
    trovato : boolean;
begin
 trovato := False;
 while (lis <> NIL) and (not trovato) do
   if UgualeElemento(lis^.info, elem) then
    begin
     paux := lis;
     lis := lis^.next;
     dispose(paux);
     trovato := True;
    end
    else
     lis :=lis^.next;
 end;   (*CancellaElementoLista*)

 ......................................................
La cosa č piů grave di quello che pensi la tua procedura non cancella tutti
gli elementi fino ad 'elem' ma se li perde facendo Garbage !!!! Il problema
č che passi lis per referenza  : var lis : TipoLista
il che significa che la procedura accede direttamente alla variabile lis
cambiandone il valore quindi
se gli elementi della lista sono :
lis->a -> b-> c-> d-> e-||
 dovendo cancellare dalla lista  'c' la tua procedura fa questo
a->b->c   ->d->e-----||
           |        |
       paux     lis
A te sembra che ha cancellato tutti gli elementi ma non č cosě a e b li hai
persi e rimangono allocati nello heap !
La soluzione al tuo problema č una funzione
function delnodo(lis : TipoLista; elem : item) : TipoLista;
var p,n : TipoLista;
begin
   p:=lis;
   n:=lis^.next;
    if lis^.item=elem then
        begin
            p:=lis;
            n:=lis^.next;
            dispose(p);
             return(n);
        end;
    else
       while n^.item<>elem And N<>Nil do
            begin
                p:=n;
                n:=n^.next;
            end;
        p^.next=n^.next;
        dispose(n);
         return(p);
     end;
prova con questo codice e dai un occhiata al tutoria sulle liste
www.pascallike.too.it
  sezione tutorial
Ciao ReDiCuori
--
L'informatica č un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------
Newsgroup: it.comp.lang.pascal
Titolo: Nums in BTP

Mi sapete dire come faccio a non far comparire e+**:
es.: come si fà a visualizzare la variabile di tipo real che ha valore
3.132e+02 in questo modo 313.2?
rispondete su e-mail 
ripe...@tin.it
, grazie!

3.132e+02 in questo modo 313.2?
writeln( variabile:5:1 ) ;
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------

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

Potreste perfavore postarmi un esempio sull'utilizzo delle funzioni?
Ciao Marcomix

 wrote in message
gm9_5.104237$hk4.3...@news.infostrada.it...


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

Ciao RAGA, chi mi potrebbe aiutare?
Devo far eun programma che crei una lista di puntatori già ordinata. Io sono
giunto a questo ragionamento.
Creo il 1° elemento.
  new(p);
  inserisco tutti i campi
  p^.pun:=nil
poi se l'elemento successivo è inferiore al primo:
  q:=p;
new(p);
p^.pun:=q;
se è intermedio tra 2 lementi tra cui non c'è il primo
  prec:=paus;
paus:=paus^.pun;
new(prec^.pun);
prec:=prec^.pun;
prec^.pun:=paus;
se è il più grande di tutti
 new (prec^.pun);
prec:=prec^pun;
prec^.pun:=nil.
devo fare una procedura ma non riesco a capire come metterla giù, con quale
ciclo, booo.
GRAZIE in anticipo
fa....@libero.it

 giunto a questo ragionamento.
Potresti fare come l'insertion sort: prendi l'elemento corrente e scorri la
lista fino a trovare un elemento maggiore di quello corrente, a quel punto lo
inserisci prima di questo elemento

Newsgroup: it.comp.lang.pascal
Titolo: GRAFICA IN DOS

Ciao raga.... potreste consigliarmi un sito in cui trovo informazioni
sulla grafica in DOS? La programmazione della SVGA in poche parole....
Soprattutto tu ALBE': il sito che mi hai dato mi dà problemi. Alcune
pagine non vanno!!!!!!!
Saluti dal grande VEGETA IL PRINCIPE DEI SAIYAN
    /\    /\
\_/   V   \_/

 pagine non vanno!!!!!!!
ohhh...behhh...scusa tanto!!!!
...a parte che, nella sezione dei links, potevi trovare altre pagine
interessanti...sempre sulla svga...
è facile lamentarsi...inizia, invece, a cercare un po' meglio le cose in
internet...che di informazioni, volendo, se ne trovano a quintali...


Albé ha scritto:

C'era bisogno di fare tanto sarcasmo???? Non volevo certo istigare..... ti
ho solo avvisato che quel link non andava... forseera un po' vecchio: SOLO
QUELLO!!!!
Cmq grazie lo stesso. Sei un grande!!!!!!!


ok...scusa...
ciao :)

Newsgroup: it.comp.lang.pascal
Titolo: come si fa a inserirlo?

... ma sei sicuro di stare lavorando con un file?
io non vedo ne append, ne read(fi,a) e nessun comando che mi possa fare
intuire che tu stia lavorando con i file di testo.
Ora, se non lo stai facendo, a cosa ti serve il comando end of file?????????
PS se ho frainteso perdonatemi e ti chiedo scusa
PPS scusate l'italiano ma vado di fretta


wrote:

Scusami tu , sto studiando è per brevità ho messo un piccolo frammento
di un programma che sto guardando.
Facciamo così , lo riporto tutto e poi mi spiego: 
*****************
program media (input, output);
 {legge i valori e fa la media algebrica}
var
  valore, somma, valoremedio : real;
  contatore : integer;
begin
  somma := 0;
  contatore := 0;
  read (valore);
  while not eof do
    begin
      somma := somma + valore;
      contatore := contatore + 1;
      read (valore)
    end;  {fine di begin in WHILE}
  if contatore > 0
    then
      begin
        valoremedio := somma / contatore;
        writeln (contatore, ' valori letti. Media = ',
valoremedio:10:2)
      end   {fine di begin in THEN }
    else
      writeln ('nessun valore letto')
end.  {fine programma}
******************
Per testare il programma inserisco qlc numero a caso ( fai finta che
quello dopo i due punti sia quello che vedo a video ):
______________
25 35 65 <invio>
|
______________
E niente , il programma è lì che sembra aspettare ancora qlc dato come
se fosse fermo a read (valore).
Allora mi sono detto che forse gli devo dare EOF : come si fa a dargli
EOF dal prompt ? oppure sono fuori strada?
Ciao. Fabrizio.
FreePascal (ide 0.9.2, compiler 1.0.6, debugger 5.1.1) 
Win ME, P4 1 Ghz, 320 RAM

Newsgroup: it.comp.lang.pascal
Titolo: ricerca toolbox

Salve a tutti.
Com'è possibile reperire le T. Toolbox??

>Com'č possibile reperire le T. Toolbox??
Se non ricordo male, l'ultima versione fu per TP4, poi furono 
abbandonati. Č possibile reperirli su qualche sito di materiale usato, o 
facendo qualche ricerca, ma ormai hanno un valore piů storico che altro...
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

 facendo qualche ricerca, ma ormai hanno un valore più storico che altro...

Newsgroup: it.comp.lang.pascal
Titolo: [OT] DOS

Scusate OT ma dato che sto preparando un tutorial ed ho bisogno del MS-DOS
avrei la necessità di due 2 informaizioni :
1)        Il MS-DOS una versione qualsiasi dalla 3.01a alla 6.22 sono
scaricabili gratuitamente ???
2)       Se non sono scaricabili gratuitamente  posso quanto è legale
mettere un link ad un sito che permette il             download...
Grazie ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 il sito sulla programmazione pascal e
 non solo
---------------------------------------------------------

 scaricabili gratuitamente ???
no
comunque c'è il newsgroup it.comp.os.dos
-- 
*****************
Interfree
***********************

 Grazie ReDiCuori
Fai una ricerca con Google per il FreeDos; ho letto la pagina web qualche
tempo fa e penso farebbe al caso tuo. Non so quanto sia stabile, ma dato che
leggevo richieste sul supporto della rotellina, penso che altri problemi più
banali li abbiano risolti.
Ciao!
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.
Newsgroup: it.comp.lang.pascal
Titolo: "RANDOM" con STRING anzichè INTEGER..

Come faccio a utilizzare 'random' con delle stringhe invece che con
dei numeri?
Cioč, io voglio che mi scelga una di 4 frasi.
Le VAR sono (poi successivamente gli assegno una frase a testa):
a (frase1), b (frase2),c (frase3), d (frase4).
e poi?
ps-mi č venuto in mente adesso:
come posso fare per assegnare ad ogni lettera subito la loro frase
senza assegnarla dopo in fase operativa? 
io ho provato: 
--------
var
     a:string=('frase');
--------
e altri simili, ma non funziona.....
qual'č il comando preciso?
Thanks a chi mi risponde :)

      a:string=('frase');
e poi funziona...
ma la cosa migliore e' fare un'array di stringhe
const
 a : array[0..3] of string = ( 'uno', 'due', 'tre', 'quattro');
e poi  sceglierne una a caso con
writeln ( a[random(4)] );
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Soluzione impeccabile... stavo per postare la stessa cosa quando ho
visto il tuo post....
mi hai batutto sul tempo :o)
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Thanks to both!
Non ci sarei mai arrivato visto che non conoscevo l'array :)


Newsgroup: it.comp.lang.pascal
Titolo: Eseguire programmi esterni

Ho un programma chiamato pippo.exe.
Devo fare un'interfaccia in pascal che mi permetta di lanciare il programma
dopo la scelta di alcune cose.
Dopo che l'utente preme il pulsante Vai, devo lanciare il programma
pippo.exe.
Il problema è come faccio ad eseguire un exe estarno al mio programma
pascal?

 ha scritto nel messaggio
news:2xz57.5519$VO5.1...@news.infostrada.it...

Newsgroup: it.comp.lang.pascal
Titolo: Compilatore Pascal sotto windows (no dos windows)

esiste?
dove potrei trovarlo?
--
Marco
somme...@inwind.it
ICQ. 61968988
***************************

 ha scritto nel messaggio
news:93sdau$9t...@news.edisons.net...

Beh,Turbo Pascal 7.0 č eseguibile da DOS con un prompt che si apre
automaticamente e credo anche le altre versioni.
se invece vuoi proprio un programma in Windows "puro" puoi usare
l'applicazione blocco note di Windows e salvare i lavori con estensione .PAS
ma compilare col blocco note č da suicidio.
cmq devi scaricare Turbo Pascal 7.0 dal sito che č stato gią nominato su
questo newsgroup : 
http://member.xoom.it/Colo/turbo.htm
non so se questa versione č gią comprensiva dei file per la "compatibilitą"
con i nuovi processori.
Sennņ te li devi scaricare credo che in quel sito ci siano.
Buon lavoro!
Salvo

ma compilare col blocco note è da suicidio.
O_o

dove potrei trovarlo?
http://www.bloodshed.net/devpascal.html
è una gui con una versione del frepascal all'interno

la usi? come ti trovi?
--
Marco
somme...@inwind.it
ICQ. 61968988
***************************
"neon" <b...@nonloso.nop> ha scritto nel messaggio
news:3a637457...@news.libero.it...


"neon" <b...@nonloso.nop> ha scritto nel messaggio
news:3a63741f...@news.libero.it...

Senti neon!
fai poco lo spiritoso!
solo perchè ho sbagliato a scrivere e ho scritto DOS al posto di WINDOWS.
cmq per il sito hai ragione,il link già apparso su questo newsgroup non
funziona.
cmq non so se hai mai provato a compilare col blocco note.
Provaci.

Provaci.
forse intendi dire scrivere codice (quello lo puoi fare con un editor
di testo qualsiasi) ma compilare proprio non puoi, sorry

la usi? come ti trovi?
l'avevo installato ma non l'ho usato molto cmq non mi è sembrato
male... prima usavo il devc++ o qualcosa del genere della stassa casa
produttrice e mi trovavo benissimo...
io ti consiglio di installarlo, al max lo togli =)

Newsgroup: it.comp.lang.pascal
Titolo: >>>>> TASTI ????? <<<<<<<<<

Che codice Ascii hanno i tasti "Esc", "F1, F2,..." , le freccette
su/giu/destra/sinistra,ecc... ?
Mi avevano detto che alcuni sono dati da una coppia di valori....
Qualcuno ha la lista di tutti  questi tasti ? (beh, vanno bene anche solo i
principali ! )
Grazie !

 wrote in message 7vua74$m5q$1...@nslave1.tin.it...



esc= #27
enter= #13
f1..f10= #0#59 ... #0#68
home=#0#71
freccia su=#0#72
page up=#0#73
freccia sx=#0#75
freccia dx=#0#77
fine=#0#79
freccia giu=#0#80
page down=#0#81
ins=#0#82
canc=#0#83
shift +f1..f10=#0#84..#0#93
ctrl+ f1..f10=#0#94..#0#103
alt+ f1..f10=#0#104..#0#113
ctrl+ page down=#0#118
ctrl + page up=#0#132
tab=#9
shift+tab=#0#15
dovrebbero essere giusti.
me li ero calcolati un paio di anni fa.
Saluti Maki.
ciaomn...@libero.it
 <- leva ciao dalla email

...o del tipo:
--------------------
uses crt;
var k:char;
begin
clrscr;
repeat
k:=readkey;
If k=#0 then writeln('0:',ord(readkey))
        else writeln(ord(k));
until k=#27;
end.
--------------------
(cosi' leggi anche i tasti"speciali")
Ciao
Andrea C
Newsgroup: it.comp.lang.pascal
Titolo: Un libro per iniziare?

salve!
Dopo che qualcuno mi aveva consigliato il Pascal come 
linguaggio per introdurmi alla programmazione, vi chiedo di indicarmi
un testo che parta realmente da zero e che mi introduca sopratutto
alla logica della programmazione.
Please, scrivetemi in e-mail xche' non seguo il NG.
grazie!
ciao.
Ghiri...Gori...Bu'!!!....*poof*
c/o 
agiorda...@webaq.it
*** rimuovere NO-UCE dall' address x il reply!  ***
*** please remove NO-UCE from address to reply! ***

alla logica della programmazione.
Guarda, io ho trovato utilissimo per partire da zero il seguente
libro:
"Linguaggio Pascal" di M. Bellodi, M. Francesio, G. Pezzi, M.G.
Puviani - editore Zanichelli.
Lo adottano a scuola mia per insegnare il Pascal. Spiega bene i
concetti base della programmazione Pascal, perņ ti avverto: con questo
impari gli elementi fondamentali, per fare poi programmi seri non ho
trovato altro di meglio che studiarmi da cima a fondo i manuali di TP
stesso.
Argomenti trattati: sintassi, selezione binaria, iterazioni, basi di
grafica (TP3, ma applicabile anche a TP5.5 e superiori), variabili e
costanti, procedure, funzioni, funzioni ricorsive.
Ciao,
Mauro Molinari
(Pascal programmer & musician)
Internet e-mail: 
maur...@tin.it
Digital Things Home Page: 
http://space.tin.it/musica/gvettora
*** To send me an e-mail, select the right address.
*** Per mandarmi una e-mail, scegli l'indirizzo corretto.

Newsgroup: it.comp.lang.pascal
Titolo: gestire la porta parallela

Ciao a tutti,
cerco disperatamente un programma o una unit in pascal che possa
gestire la porta parallela.
Grazie.
Fr...@rsadvnet.it

(ricordandosi di utilizzare gli   {$I-}  e  {$I+} ).
logicamente, in questo modo, il Pascal dialoga con la porta parallela... che
poi ci sia attaccata un astampante o qualsiasi altra cosa, il risultato non
cambia :-)
Emanuele Cesena
d.a.m...@iol.it
           Attenti all'antispam NOSPAZ
http://www.geocities.com/SiliconValley/Grid/8879
trovate ora l'editor per i livelli di Bubble2000!! :-))
ICQ n° #10570672

Emanuele Cesena
In questi giorni non ho potuto rispondere perche' mi sono fatto una
bella settimana nel Mar Rosso a Sharm El Sheikh. Un mare ed un tempo
bellisimo. Questa mattina a Fiumicino ho trovato la pioggia a
sottolineare il termine della breve vacanza.
Dopo una settimana Fabio M. scrive.-))))
Cosa intendi per dialogare???
Se intendi di utilizzare una stampante ad essa collegata allora il mio
post ti dovrebbe aiutare, ma se invece vuoi utilizzare la porta
parallela per altre cose, come per esempio comandare rele' o rilevare
informazioni dall'esterno, ti posso dire che scrivendo sull'indirizzo
della porta parallela con l'istruzione port[indirizzo] puoi variare lo
stato logico del pin 2..9 della porta per dialogare con un circuito
elettrico.
CIAO,  Fabio Manzo
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: [?] Unhandled exception

Ciao a tutti,
ho un programma scritto in pascal7 protected mode abbastanza grosso.
Da 2 settimane ha iniziato, ogni tanto, a inchiodare il pc all'uscita dal
programma.
Ultimamente in modo abbastanza random lavorando compare questo stranissimo
errore:
UNHANDLED EXCEPTION AT  XXXX:YYYY ERRORCODE: 3000
........elenco dei soliti registri........
Press key
T: attempt to terminate current process
D: terminate all by chaining to DPMI host
Premo T, esce e scrive
Runtime error: Unhandled exception
Ora, ho capito che č un errore DPMI, ma non trovo da nessuna parte
spiegazioni su quest'errore.
Tra l'altro lavoro con Dos 6.22 e l'errore compare casualmente; in prompt di
Win invece compare sempre in determinati punti (che non hanno nulla in
comune tra loro).
Ho pensato anche a un problema hardware ma, eseguito su un altro pc, segnala
lo stesso errore.
Ultimamente l'ultima cosa "strana" che ho fatto č stato di aumentare i
parametri di una procedura da 10 a 14.
Conoscete qualche limite per i parametri di procedura? (l'unico parametro un
po' grosso era una stringa, ho provato a metterci anche un VAR per evitare
di passare l'intera scritta ma solo il puntatore, ma nulla).
Qualcuno sa darmi qualche info su questo errore?
Ringrazio a chiunque abbia una qualsiasi dritta, non so piů cosa tentare.

Risolto: ho tolto tra le opzioni l'utilizzo del coprocessore matematico e
l'errore è scomparso.
Non so il perché, se a qualcuno dovesse capitare...
Grazie comunque a tutti.
Newsgroup: it.comp.lang.pascal
Titolo: indaffarati???

Salve avevo scritto qualche discussione fà, ma di risposte, NADA!!
potete aiutarmi a capire per quale motivo in output non mi visualizza la
lista ridimensionata?
Grazie
program tre;
type tipolista =^nodolista;
     nodolista=record
     info:integer;
     pros:tipolista
     end;
var l:tipolista;
    x:integer;
    y:integer;
procedure leggi(var m:tipolista;var x:integer);
var p:tipolista;
begin
new(p);
p:=nil;
p^.info:=x;
p^.pros:=m;
m:=p;
end;
procedure canc(var n:tipolista;y:integer);
var p:tipolista;
begin
if n<>nil then
   if n^.info=y then
   begin
   p:=n;
   n:=n^.pros;
   dispose(p);
   end
else canc(n^.pros,y);
end;
procedure scrivi( k:tipolista);
begin
if k<>nil then
   begin
      writeln(k^.info);
      scrivi(k^.pros);
end;
end;
begin
repeat
writeln('inserire valori');
readln(x)
until x=0;
begin
leggi(l,x);
writeln('valore da cancellare');readln(y);
canc(l,y);
scrivi(l);
end;
end.

 Grazie
 program tre;
 type tipolista =^nodolista;
      nodolista=record
      info:integer;
      pros:tipolista
      end;
 var l : tipolista;
       x:integer;
      y:integer;
 procedure leggi(var m:tipolista;var x:integer);
 var p:tipolista;
 begin
     new(p);
     p:=nil;       <------- qua ti perdi l'area di memoria perchè
inizializzi a nil?!?! (nil=nulla)
     p^.info:=x;
    p^.pros:=m;
    m:=p;
 end;
 procedure canc(var n:tipolista;y:integer);
var p:tipolista;
begin
   if n<>nil and n^.info=y then
       begin
           p:=n;
           n:=n^.pros;
          dispose(p);
       end
  else canc(n^.pros,y);
 end;
procedure scrivi( k:tipolista);
begin
   if k<>nil then
      begin
         writeln(k^.info);
         scrivi(k^.pros);
     end;
 end;
begin
    repeat
       writeln('inserire valori');
        readln(x)
    until x=0;
    leggi(l,x);
    writeln('valore da cancellare');readln(y);
    canc(l,y);
    scrivi(l);
end.
Ciao ReDiCuori

 lista ridimensionata?
se magari mettessi i commenti allre righe sarebbe più facile risponderti...

 wrote in message
sZSk6.3866$k55....@news.infostrada.it...


 wrote in message
sZSk6.3866$k55....@news.infostrada.it...


 wrote in message
zHzk6.55871$Uj1.5...@twister2.tin.it...


 ha scritto nel messaggio
news:cv6l6.7564$Da3....@twister2.tin.it...


> ..........scusa ma non capisco!
non mi sembra una novità e cmq non era riferito a te il commento

 Grazie era solo una conferma che aspettavo, per farmi un'idea dell' NG.
Ora non generalizzare, ammesso e non concessoche io mi possa comportare male,
non č detto che tutto il resto del ng segua la mia strada; ma dubito che
qualcuno, a parte te, possa accusarmi di maleducazione, al massimo di crudezza.

> Hai ragione maaaa, non sono mai stato abituato a farlo,
E fai male!!! quando dovrai fare progetti più complessi, sarà una cosa
fondamentale mettere i commenti

> Non per difendere Morpheus,
ma difendimi pure, eh!! ;PP
Newsgroup: it.comp.lang.pascal
Titolo: Error 48: Code segment too large.

A cosa è dovuto quest'errore ?
Mi è sembrato di aver capito che è troppo lungo il programma. Giusto ?
E pure sono solo 2760 linee... ;-)
Come posso risolverlo ?
__________________________________________________________
E-Mail:
(
rena...@lycosmail.com
)
__________________________________________________________
I.C.Q.: 17079401
_________________________________________________________
Visita il mio sito in perenne costruzione
http://hophop.com/renato
_________________________________________________________
René
:-)

Come posso risolverlo ?
Utilizzando le unit.
Ovvero metti una parte del codice sorgente in un altro file, ad esempio
MODULO.PAS, e quindi nel programma principale richiami la unit MODULO.
Per particolari maggiori vedi i manuali.
Ciao, Max.

L'ho fatto ma niente ... nel principiale sono solo 1480 linee...
Non c'č prorpio niente da fare ? :-((


Stavo pensando ... visto che l'errore consiste nell'avver riempito i 655360
byte di memeria "non so ché" massimi messi a disposizione dal TP non si può
aumentarla oltre il limite con qualche trucchetto o fargli usare ... che so
... la memoria alta, estesa o schifezze del genere ? :-)
Scusate l'insistenza ma è il mio primo "vero" programma e non vedo l'ora di
potergli aggiungere altre 10.000 funzioni ... :-)
Appena è finito (o quasi) mano a tutti quelli che lo vogliono una copia...
Dimenticavo... è un programma di geometria analitica ... :-)


Non so cosa ho fatto di preciso cmq ho risolto il problema (spero).
Ho scamettato un poco nei settaggi del TP e ora mi ha accettato fina a 4500
linee (poi non sono andato avanti).
Colgo l'occasione per chiedere se qualcuno di voi ha delle istruzioni (in
italiano) che spiegano tutte le infinite opzioni del TP7 per la
confingurazione o sa dove poterle trovare.
GRASSSSSSSSSSSSSSSSSSSSSIE.



PRENOTO LA MIA COPIA! =)))
Ciao e buon lavoro.
¨¨°º©o¿,,¿o©º°¨¨°º©  Mr. GiMa ©º°¨¨°º©o¿,,¿o©º°¨
------------------------------------------------------------------------------
             WEB: 
http://come.to/gima
            MAIL: 
gim...@freemail.it
             UIN: 2685398
------------------------------------------------------------------------------
Togliere NOSPAM dal mio indirizzo per rispondere
Newsgroup: it.comp.lang.pascal
Titolo: pw al boot

salve a tutti,
io ho creato un programmino che richiede una pw per aprire un file, mi e
venuta la curiosita di sapere se una cosa simile puo essere fatta x il
boot.
se si mi date qualche info?
grazie mille
----------------
potrei aver detto qualche c*****a, ma perdonatemi
----------------

 boot.
ah ah!! a che ti serve??? come prima ctrl+c lo chiude?? e cmq basta fare il
boot da dischetto e il pc eccotelo lě!!
ciao

boot.
Se proprio ci tieni, compilalo come .EXE e aggiungi una linea in
AUTOEXEC.BAT...
PV

 AUTOEXEC.BAT...
hehehe una sicurezza ! :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:3c07dbd5...@news.tin.it...



Boh, potresti farti tipo un bootloader che però richiede una pass.
Dà una guardata su 
http://web.tiscali.it/mrcode/
 sezione "bootzone" dove ci
sono molti bl con sorgente e commentati.
Di + non so dirti, mi spiace..


bravi bravi prendete in giro un poveraccio che cerca di imparare, createmi
scompensi emotivi.....
a parte gli scherzi la mia era solo curiosità ma se mi dite che non serve a
un c***o lascio stare.
grazie mille per le risposte.
--------------
potrei aver detto qualche c****a, ma perdonatemi
--------------

 un c***o lascio stare.
come detto prima: se devi proteggere qualcosa (se ci devi mettere una
pwd....) allora devi farlo sul serio, altrimenti ti proteggi solo dagli
inesperti...
ciao


Non credo che ne hai detto qualcuna. Forse io, boh.... se è così però non
picchiatemi :-)

Newsgroup: it.comp.lang.pascal
Titolo: Cosi per fare... (2)

risolto :-)
RdC ha messo i files sul suo sito, sezione Tools...
-- 
Dreadnaut
(Life would be easier if I had the source code)

ascolta hai risolto x caso il programma???se si qual'č il tuo sito??rispondi
presto ti prego..ciao ciao e ti ringrazio..loryssss

 sito??rispondi presto ti prego..ciao ciao e ti ringrazio..loryssss
ops... non ho risolto il programma e non ho un sito :-)
inizia a scrivere qlcs di codice e posta quella, ci si da' un'occhiata.
Credo che nessuno abbia voglia di fare il compito da zero per
conto tuo, ma correggere o dare consigli su qualcosa di abbozzato
e' un'altra cosa :-)


Newsgroup: it.comp.lang.pascal
Titolo: TP6, nessuno ne parla !!

Come mai ?
Secondo me è forse la miglior release di questa linguaggio per DOS.
E' possibile usarlo anche su singolo floppy.
Per quanto riguarda il Bug che affligge il TP7 non ho mai avuto problemi.
Saluti

Per quanto riguarda il Bug che affligge il TP7 non ho mai avuto problemi.
Il bug dovrebbe esistere anche in TP6, ma appare solo se usi la unit CRT. 
È un problema nel calcolo della velocità della CPU per i cicli di ritardo 
quando la velocità del processore supera una certa soglia.
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

 Il bug dovrebbe esistere anche in TP6,
se non sbaglio anche in tp5...
-- 
Ciao
Gianfranco Marchese
http://www.Turbo-Pascal.cjb.net
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990
Newsgroup: it.comp.lang.pascal
Titolo: Informazioni

Salve. Sono appena arrivato su questo ng.
Vorrei chiedervi č possibile con il turbo pascal creare delle finestre
simili (non uguali!)a quelle di windows? Oppure i programmi in pascal sono
destinati ad essere cosě morti e senza grafica?
Grazie

 Grazie
Prego.
Ciao,
Alex
p.s.: guarda nell'help sotta la voce "graph" e poi su
http://utenti.tripod.it/Redicuori_77/
 ove c'è un tutoriali per usare la
grafica in tp.

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

Mi potete dire dove trovare metodi di percorrenza e ricerca negli alberi?
Thanks

> Mi potete dire dove trovare metodi di percorrenza e ricerca negli alberi?
in estremo ritardo e forse banale, cmq
 
http://www.google.it/search?q=metodi+visita+alberi
ti fornisce una marea di dispense universitarie piu' o meno ben
fatte in cui puoi trovare tutto :-)
-- 
Dreadnaut
(signless perche' in trasferta)

Newsgroup: it.comp.lang.pascal
Titolo: TSR per tastiera

Ciao a tutti! Vorrei realizzare un programma TSR che mi permetta di
comunicare ad un programma in esecuzione l'avvenuta pressione di un certo
tasto della tastiera SENZA chiamare in causa il sistema operativo
(utilizzando cioé solo il controller della tastiera).

 wrote in message
8cqhmh$4v4$1...@lacerta.tiscalinet.it...

Se parliamo di Delphi (quindi Win/NT) non e' assolutamente possibile, non
esiste proprio il concetto di TSR.
Qualsiasi cosa tu faccia DEVE passare dal S.O.
Per risolvere il tuo problema devi creare un Hook, qualcosa vagamente simile
al buon GetIntVec e SetIntVec che usavamo sotto DOS, ma che agisce al
livello di S.O. e non di interrupt.
Se vuoi maggiori informazioni scrivi.
Ciao
Davide
davide....@iol.it
soft...@masmec.com



 ha scritto nel messaggio
news:8cst89$ro$1...@lacerta.tiscalinet.it...


 wrote in message
8ctaap$hes$1...@pegasus.tiscalinet.it...


(utilizzando cioé solo il controller della tastiera).
Il programma in questione, ovvero quello a cui dev'essere comunicata
la pressione del tasto, e' un tuo programma ?
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm
Newsgroup: it.comp.lang.pascal
Titolo: siamo sotto win o no?

Salve a tutto il ng.
Come potrei fare per far sì che nel momento in cui si lancia un programma si
verichi se windows è in esecuzione oppure no?
Grazie a chiunque risponderà.
Alex



Be... io non ho MAI veramenete risolto il probelma ma... finora uso
uno stratagemma...
Win9x quando e in esecuzione setta una variabile di sistema denominata
Windir... se questa variabile e presente be... si capisce no...
ecco un breve esempio da shell del dos:
C:\>set
winbootdir=C:\WINDOWS
windir=C:\WINDOWS
winbootdir credo che sia anchessa setata da win solo in esecuzione ma
non garantisco
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : 
razzi...@usa.net
 (Primary),
 
IlRazz...@netscape.net
 (for Attachent)
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Be... io non ho MAI veramenete risolto il probelma ma...
non c'era una certa funzione di un certo interrupt?

 ha scritto nel messaggio
news:3ae207f8.13788369@pws...


 Li setta Winzoz nel autoexec ma come si accede al loro valore
getenv('windir') sotto Win9x, getenv('OS') sotto NT/2K
Ciauz!
-- 
da...@dariocorti.com
http://www.dariocorti.com
ICQ#: 37438061
Galactica: We Kill You! 
http://www.dariocorti.com/mitici.htm

 getenv('windir') sotto Win9x, getenv('OS') sotto NT/2K
Ho provato a fare come dici, ma mi restituisce stringa vuota sia che sia
sotto win dos. Come mai?

 sotto win dos. Come mai?
Ho notato, pensavo lo facesse solo sotto Win2000.


Galactica: We Kill You! 
http://www.dariocorti.com/mitici.htm
Il Razziatore,


 Silke che ci fai tu qui?
Capita (lurko)


Questo dovrebbe funzionare, dico dovrebbe perchè mi sono perso WinCrt e
WinDos... :( me li puoi passare ?
uses WinCrt, WinDOS;
var
  EnvironmentVar: PChar;
begin
  GetMem(EnvironmentVar, 255);
  EnvironmentVar := GetEnvVar('winbootdir');
  Writeln(EnvironmentVar);
end.
Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------
"Alex" <el_co...@TOGLIQUESTOlibero.it> ha scritto nel messaggio
news:M9iE6.68005$s93.7...@news.infostrada.it...


> Ho notato, pensavo lo facesse solo sotto Win2000.
Scusa se insisto... ma come faccio quindi a risolvere il problema?
Newsgroup: it.comp.lang.pascal
Titolo: Usare tante palette contemporaneamente : X gli Esperti di Turbo Pascal

Ho un bel problemone.
Sono in modalità grafica. 640x480x16colori.
Possiedo una Unit Load_Bmp che mi consente di caricare una bitmap a 16
colori.
La palette della Bitmap è però differente dalla Palette di default di Turbo
Pascal per cui io vorrei, se possibile, fare la seguente cosa :
vorrei diciamo tagliare in due lo schermo tenendo da una parte la palette di
Turbo Pascal e dall'altra la palette della bitmap caricata.
Con le pagine(SETACTIVEPAGE E SETVISUALPAGE) non funziona.
Questo perchè quando io carico la bitmap, cambio la palette non solo della
bitmap ma di tutto lo schermo.
Si può fare in modo di tenere due o più palette tutte una diversa
dall'altra???
Qualcuno mi aiuti per favore.
Ringrazio anticipatamente.
Giovanni.

 ha scritto nel messaggio
news:6lbR5.76727$BF.27...@news.infostrada.it...


 dall'altra???
comunque un soluzione c'è... al posto di usare la grafica a 16 colori la usi
a 256 così hai a disposizione più colori: per esempio nei primi 16 ci mettti
quelli della bitmap e negli altri quelli che vuoi.
comunque il mio consiglio è di non usare unit fatte da altri... scaricati da
www.wotsit.org
 le specifiche del formato che vuoi usare e fatti da solo il
codice per aprirlo così sai esattamente come funziona, puoi adattarlo ai
tuoi scopi e da più soddisfazione :-))))
ciao!

 wrote in message
8v5k80$ge$1...@sun250.unimi.it...
