mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: Libreria grafica a 32 bit

Ciao!
Tempo fa avevo sviluppato una libreria grafica (in Pascal, naturalmente :)
da affiancare al progetto di un esame all'università.........le
caratteristiche principali sono:
    1. supporto standard VESA
    2. supporto DPMI a 32 bit (estende il DPMI del Pascal, limitato a 16
bit, grazie ad una libreria aggiuntiva)
    3. supporto mouse
    4. finestre stile Windows 95 (non proprio identiche, ma molto simili)
con barre di scorrimento
    5. cursore (colorato!)
    6. double buffering
    7. gestione della memoria virtuale (file di swap)
    8. file di log (dove vengono registrate le operazioni principali)
    9. gestione .bmp
    ecc....
Gran parte delle operazioni sono trasparenti all'utente finale (gestione del
cursore, mouse, ....).
Essendo uno studente sarei disposto a distribuire gratuitamente i sorgenti,
tuttavia le tasse universitarie sono pesanti per un disoccupato quindi ho
deciso di dare "in licenza" a chi è interessato il codice per 20.000 lire.
Cmq ho messo a disposizione 2 demo sulla mia "casapagina"
http://web.tiscalinet.it/drfalken
 sul link "Assembler &
Pascal.....Programmazione low-level"...
il 1° mostra la base di partenza per realizzare un videogioco a 640x480
(256col.)...
il 2° riguarda le caratteristiche di gestione delle finestre....
Ho inserito un 3° archivio (common.zip) con i files necessari al
funzionamento dei 2 demo (rtm.exe e dpmi16bi.ovl).
...dateci un'occhiata e fatemi sapere che ne pensate.....
Ciao.
Simone
---------------------------------------------------------------
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
---------------------------------------------------------------

 wrote:
scusatemi è un messaggio di prova
ciao a tutti
scoiattolo


Newsgroup: it.comp.lang.pascal
Titolo: Aiuto per giovane programmatore

Cerco un programmetto, meglio una unit che consenta di salvare e richiamare
su disco immagini di tipo pcx o jpg, potete farmi sapere dove posso
trovarle???
scrivetemi a 
bul...@hotmail.com
Luca



Se ti interessano ti posso inviare le specifiche dei formati oppure
cercati la File Format Encyclopedia.
PLEASE RESPOND ME AT 
abo...@racine.ra.it
Newsgroup: it.comp.lang.pascal
Titolo: 2 stampanti - penne ottiche e stampe grafiche

Ho bisogno di un programma che stampi in due tempi diversi su due stampanti
diverse; risolverei montando sul PC una LPT2 ma non so come indirizzare le
stringhe visto che fino ad ora (con una sola stampante) ho utilizzato la
unit printer con il comando:
writeln(lst,'Testo su stampa di prova');
Come utilizzo la porta LPT2???
Mi hanno detto che è possibile controllare una penna ottica in "emulazione
tastiera" cosa significa e come si fa a generare e stampare in TP un codice
a barre e come si può riconoscerlo successivamente con la penna ottica???
Ancora una cosa...
Come posso stampare un logo BMP in TP?
Grazie 2000
by ARTAX
----------------------------------------
PRINCIPIO DI SHAW
Fai un programma che anche un idiota
può usare, e solo un idiota vorrà usarlo.


Pari pari come LPT1:
program   stampa_su_LPT2;
var	f:text;
begin
	assign(f,'LPT2');
	rewrite(f);
	writeln(f,' Anvedi funziona');
	close(f)
end.
Fabio
fabi...@rocketmail.com

Newsgroup: it.comp.lang.pascal
Titolo: problema insoluto :(

Salve a tutti !
Dopo aver impiegato un casino di tempo per scrivere questo programma,
provo ad eseguirlo ma senza alcun risultato perchè si blocca utilizzando
tutta la CPU...come mai ?
program ManipolaListe;
type TipoElemLista = string[20];
     TipoLista = ^TipoRecordLista;
     TipoRecordLista = record
                        info : TipoElemLista;
		        next : TipoLista;
                       end;
     TipoFileLista = text;
     TipoIndice = 0..50;
     TipoVettore = array[TipoIndice] of integer;
var  lista : TipoLista;
($I LeggiLista.pas)
($I ScriviLista.pas)
($I UgualeElemento.pas)
(I$ massimo.pas)
procedure MaxSequenzaElementiUguali(lis : TipoLista);
var occorrenza,  i, N : integer;
    somma : TipoVettore;
    finito : boolean;
begin
finito := false;
occorrenza := 0;
i := 0;
while  (lis <> NIL) do
 begin
  i := i + 1;
  finito := false;
  while (lis <> NIL) and (not finito) do
   begin
    if UgualeElemento(lis^.info, lis^.next^.info) then
      begin
	 occorrenza := occorrenza + 1;
	  if (not UgualeElemento(lis^.next^.info, lis^.next^.next^.info)) then
           begin
            somma[i] := occorrenza;
            finito := true;
	    occorrenza := 0;
           end;
	 lis := lis^.next;
      end;
   end;
  end;
  N := i - 1;
  writeln;
for i := 1 to N do
 writeln('somma[', i, '] = ', somma[i]);
writeln;
write('la massima sequenza di occorrenze è : ', Massimo(somma, N):4);
writeln;
end;   (*MaxSequenzaElementiUguali*)
begin (*MAIN*)
LeggiLista('lista_nomi.txt', lista);
MaxSequenzaElementiUguali(lista);
ScriviLista('lista_modificata', lista);
end.   (*MAIN*)

(I$ massimo.pas)
MUMBLE? Come speri che capisca dove c'è l'errore se fai delle
inclusioni di codice.. PS ma dove si blocca?
PS come credi che il compilatore riesca a leggere questi file...
non sono a 8.3

Mi sono perso!
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 
eddài ritrovati :)))
grazie
claudio
Newsgroup: it.comp.lang.pascal
Titolo: Runtime err. 200

Salve a tutti,
io ho  i sorgenti in Pascal di un Software che gira in Win95, il fatto è che 
il PC Utilizzato era ancora un P1 da 166Mhz, ed ho la necessità di cambiare 
PC, ma apena cambio PC all'avvio del Programma mi da l'errore in Oggetto... 
è possibile Upgradare questo Sorgente in Ambiente Windows? oppure mi date 
una dritta sull'errore?
Grazie a tutti. 

Devi istallare un upgrade (lo puoi scaricare da 
http://protools.reverse-engineering.net/files/compilers/bppatch.zip
) che 
risolve questo problema che, per la cronaca, è generato dai processori 
pentium

Dimenticavo.... poi devi eseguire il build della tua applicazione

 ha scritto nel messaggio 
news:coks4a$1dg$2...@newsreader.mailgate.org...


 ha scritto nel messaggio 
news:coks0s$1dg$1...@newsreader.mailgate.org...


 ha scritto nel messaggio 
news:coks4a$1dg$2...@newsreader.mailgate.org...


 ha scritto nel messaggio 
news:coks4a$1dg$2...@newsreader.mailgate.org...


 ha scritto nel messaggio 
news:coks0s$1dg$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.pascal
Titolo: gioco dei 15

Il gioco del 15 consiste nel muovere dei tasselli contenenti i numeri
da 1 a 15 orizzontalmente o verticalmente in una matrice 4x4.
Il movimento č consentito dalla presenza di una posizione non occupata da
tasselli.
Indichiamo con 0 il tassello vuoto.
Lo scopo del gioco č di ottenere la configurazione seguente
  1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 0
----------------------------------------------------------------------------
----
Scrivere un programma PASCAL che, presa in input (nel solito modo) una
matrice 4x4 contenente una permutazione di 0, . . . ,15, visualizza i
movimenti del
tassello 0 che portano alla configurazione finale.
----------------------------------------------------------------------------
----
SARA' RITENUTA SUFFICIENTE LA SISTEMAZIONE DELLE PRIME
TRE RIGHE DELLA MATRICE
----------------------------------------------------------------------------
----
Come per l'esercizio del labirinto, tali movimenti possono essere
rappresentati
dalle lettere D (down) U (up), L (left), R (destra)
----------------------------------------------------------------------------
----
ESEMPIO
Con questo input
  1 2 3 4
5 6 7 8
9 10 0 15
13 14 12 11
Una soluzione possibile č RDLURD. Infatti, si possono avere i movimenti
seguenti
  1 2 3 4
5 6 7 8
9 10 15 0
13 14 12 11
  1 2 3 4
5 6 7 8
9 10 15 11
13 14 12 0
  1 2 3 4
5 6 7 8
9 10 15 11
13 14 0 12
  1 2 3 4
5 6 7 8
9 10 0 11
13 14 15 12
  1 2 3 4
5 6 7 8
9 10 11 0
13 14 15 12
  1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 0

 possibile.
In sostanza, come vedi, il gioco non ha sempre soluzione :-)
Ciao!
Ema ;-)
--
"La supposizione e' la madre di tutte le boiate", legge di Wethern

>In sostanza, come vedi, il gioco non ha sempre soluzione :-)
Anche se questo e' vero a livello teorico, in pratica lo ha sempre, in
quanto basta mischiare le tessere del gioco spostando il cursore.
Newsgroup: it.comp.lang.pascal
Titolo: Dove lo trovo il TP7?

Premettendo che ho girato tutti i negozi di computer della mia città e ho
provato su parecchi motori di ricerca, c'è qualcuno che può dirmi dove posso
scaricare il TP7? Possibilmente senza virus (come su crackstore). Infine
vorrei chiedervi se con il TP è possibile creare un programma che abbia una
schermata simile a quella del BIOS e con delle tabelle.
Vi ringrazio anticipatamente e vi saluto

 wrote in message
news:PCAD7.9312$7A4.5...@news.infostrada.it...



wrote:

Anche
http://digilander.iol.it/ilnuovoportale/software/editors_html.htm
e decine di altri...
PV

Al cimitero dei linguaggi di programmazione
-- 
Posted from  [217.57.33.234] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.pascal
Titolo: vendo manuale turbo pascal 7

E' un testo della mcgrawhill. Il titolo esatto č "turbo pascal 7 la guida
completa"
Si tratta di un ottimo manuale di 800 pagine. Il numero isbn č
88-386-0215-8.
Il testo č nuovissimo.
Vendo per 50.000 lire spese spedizione comprese.
Offerte in e-mail

io sono interessatissimo a comprarlo! se vuoi metterti d'accordo con me a
quale indirizzo spedirlo io voglio comprarlo!

Newsgroup: it.comp.lang.pascal
Titolo: Navigare gratis e guadagnare con Internet!

Se sei interesato:
byc...@libero.it

 
byc...@libero.it

 Fede
Complimenti per il nobile scopo...

Newsgroup: it.comp.lang.pascal
Titolo: Problema con Turbo Pascal 7.0...

Ho bisogno di un aiuto per Turbo Pascal 7.0.
Quando cerco di far partire un programma (anche di tre righe, che fa
scrivere "ciao" e basta...) mi esce scritto " ERRORE 200: Divisione by
zero". Chiaramente non è un problema di definizione di variabili o di
operazioni non consentite.
Non riesco a capire da dove possa provenire questo problema.
Grazie a chiunque sappia darmi una risposta.
Grazie

 ha scritto nel messaggio
news:8bibhb$4gg$1...@nslave2.tin.it...






Sono un veggente. Scommetto che hai un computer di 
Mhz superiore a 200. Questo programma è risaputo, fortunatamente io non lo ho in 
quanto ho una versione pirata e, magia, è revisionata. Ti tocca alla 
6!!!!!!!!!!!!!!!!



 
  wrote in message 
2000041112410...@hotmail.com
...






Io ho un 233 e il 7.0 funziona benissimo senza 
nessuna patch !

Newsgroup: it.comp.lang.pascal
Titolo: Unit nella unit

Ciao a tutti del NG.
Date un occhiata a questo :
Unit Prova;
interface
uses Crt;
implementation
end.
Program Pippo;
uses Prova1
begin
  clrScr
end.
Ebbene il mio manuale dice ke pippo dovrebbe vedere la unit Crt, perke
dichiarata nella clausola INTERFACE della unit prova.
Invece non funge. Qualcuno sa dirmi per quale motivo?? Sbaglio qualcosa io??
Au revoir, people!
--
el rasune'
-----
Ca custa chiel ca custa...
    Viva la val d'Austa!

 uses Prova1
Ovviamente e' Prova; e non Prova1



Forse perchè hai sbagliato nome???
ciau
neon
- e-mail: 
ne...@freemail.it
- ICQ#: 96988011
- Sito: 
http://ne0n.cjb.net

Ovviamente e' Prova; e non Prova1
ups... =)
dimenticavo... se non sbaglio quando in pascal dichiari una unit
dentro un altra puoi utilizzarla solo all'interno della unit creata
non del programma che la utilizza... (mi sembra anche logico no?)
Mi spiego meglio:
------------
unit prova;
interface
uses crt;
procedure test;
implementation
procedure test;
begin
	clrscr;
end;
end.
----------
program prova2;
uses prova;
begin
	test;
end.
----------
Questo funge...
ps: cambia manuale =)


mmmmh in effetti no...
si puo' richiamare una funzione in una unit "contenuta" in
un'altra scrivendo nomeunit.funzione;
asp esempio che magari mi spiego...
--> file unitA.pas
unit unitA;
 interface
  uses crt;
 implementation
end.
--> file prova.pas
uses unitA;
begin
 crt.ClrScr;
end.
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: Ok, seguirò i vostri consigli, ma.....

Ciao, sono quello che vuole imparare, ma dove posso trovare un compilatore
freeware? E dopo quanto tempo che avrņ usato il Pascal, sarņ in grado di
fare giochi? Ora, mi sono scaricato un sacco di tutorials, me li imparo e
cerco di fare qualcosetta. Comunque rispondetemi.Ma qual č il sito italiano
dedicato principalmente al Pascal?
Ciao

principalmente al Pascal? Ciao
Boh, credo ne esista piu` di uno. Comincia a visitare il sito di
Kosby (cerca uno dei suoi messaggi e guarda l'url, io non lo
ricordo :PP ) 
-- 
Ciaooooo
Mr_Brain

E non penso proprio in Pascal...
rhymes
rhy...@insieme.net

Newsgroup: it.comp.lang.pascal
Titolo: SCUSATE LE 2 DOMANDE CRETINE

MI POTRESTE DIRE IL NOME DI QUALCHE EDITOR PASCAL CHE MI PERMETTA DI CREARE
UN FILE ESEGUIBILE (POSSIBILMENTE CHE NON PESI PIù DI 3 MB!) E ANCHE  DOVE
POTREI TROVARLO? HO VISTO I SITI CHE MI AVETE SUGGERITO VOI PERò NON SAPREI
QUALE EDITOR SCEGLIERE.
POI CON IRIE PASCAL 2.0.1 MI SUCCEDE UNA COSA STRANA CIOè A VOLTE COPIO UN
PROGRAMMA DI ESEMPIO DAL LIBRO QUANDO VADO A COMPILARLO MI ESCONO DEGLI
ERRORI VISTO CHE DUBITO CHE IL PROGRAMMA SIA SBAGLIATO DOVE E' IL PROBLEMA?
GRAZIE PER LA PAZIENZA CHE AVETE NEL RISPONDERMI

 ha scritto nel messaggio
news:Nrsk7.14987$MO.5...@news.infostrada.it...

non urlare e forse qualcuno ti risponderà...
--
Fabio Ruini
e-mail: 
fabi...@libero.it
 - UIN ICQ 2887596
Linux Registered User #224097
"I tuoi unici limiti sono quelli che crei nella mente o che ti lasci imporre
dagli altri"
(Og Mandino)

ERRORI VISTO CHE DUBITO CHE IL PROGRAMMA SIA SBAGLIATO DOVE E' IL PROBLEMA?
1)  scrivi codice e gli errori che ti compaiono, cosi è un po'
difficile da dire cosa c'è che non va
2)  non conosco questo compilatore

 1)  scrivi codice e gli errori che ti compaiono, cosi è un po'


 errore.
scusa... puoi ricopiare uno di quei programmi?
il più piccolo che c'è e che ti dà dei problemi...


Newsgroup: it.comp.lang.pascal
Titolo: "suonare" col pascal

E' possibile riprodurre un file MIDI col turbo pascal?
Se qualcuno mi può inviare una unit per gestire la sheda audio o mi può
segnalare qualche sito, mi fa un grosso favore...
Grazie e ciao!
A.



C'è sempre quella unit della Creative....
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

> C'è sempre quella unit della Creative....
Quale??


L'ho postata un po' di tempo fa... la unit FM...
credo che sul sito di RDC ci sia ma non sono sicuro


Newsgroup: it.comp.lang.pascal
Titolo: readkey: leggere combinazioni di tasti ALT+ n

Come posso farmi dire dal readkey se č premuta una combinazione di
tasti (per esempio alt+f)?
Se ad un readkey tengo premuto ALT e premo f, non legge nulla!
Grazie.
NM

le combinazini Alt+<tasto> Ctrl+<tasto> (come i tasti cursore e funzione)
restituiscono un codice esteso, cioe' un doppio carattere:
il primo e' #0, mentre il secondo e' il codice del tasto premuto, quindi
sono necessarie due readkey in successione per avere un risultato
utile del tipo:
c := readkey;
if c = #0 then
 begin
  c := readkey;
  { gestione tasti 'strani' }
 end
else
 begin
  { gestione tasti normali
 end
occhio che molte combinazioni Alt+ e Ctrl piu' finiscono per restituire lo
stesso 2° carattere... a.e Ctrl + '6' e Alt + 'A' restituiscono entrambe
#0#30
--
Dreadnaut
(Life would be easier if I had the source code)

#0#30
Per evitare questo utilizzo solo combinazioni con alt e le frecce.
NM
Newsgroup: it.comp.lang.pascal
Titolo: Come stampare in TurboPascal 7.0?

Sino alle versioni precedenti per stampare facevo cosě:
    pgm xxx;
    uses printer;
    ....
    {per stampare -a- }
    writeln(lst,a);
    ....
Adesso sono in crisi: (non c'č piů la clausola Uses lst, ecc....)
come devo fare ????
Grazie .

 wrote in message
DMkA6.12348$k53.2...@news1.tin.it...


 ha scritto nel messaggio
news:DMkA6.12348$k53.2...@news1.tin.it...



Io utilizzo Turbo Pascal 7.0 e la stampante funziona a meraviglia con il 
tuo listato.
    	OS: Win 2000 Pro.
    	Printer: EPSON Stylus Color 660
-- 
WulfMp3
wul...@email.it
"Poni ciò che sei nel minimo che fai."

Newsgroup: it.comp.lang.pascal
Titolo: aiuto, se esiste un file devo eliminarlo

mi sapreste aiutare?
devo verificare se è vero o falso che esiste un file in c:\windows\system
e se esiste devo aliminarlo altrimenti devo mandare un messaggio a video.
mi sapete aiutare?
grazie a tutti.


La parte di codice ke ti serve per fare quello ke kiedi è + o - questa:
assign(F,'c:\windows\system\nomefile.estensione');
{$I-}
reset(F);
{$I+}
if IOresult <> 0 then
begin
     clrscr;
     writeln('File inesistente');
     readln;
end
else
begin
     close(F);
     erase(F);
end;
--
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
ThE DArKNeSS Is JuST DArK
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 ha scritto nel messaggio
news:VlrL8.7452$K4.1...@twister2.libero.it...

Grazie infinite sei un grande!

aprire e chiudere un file puo' essere un'operazione lenta....
prova invece ad usare il FINDFIRST/FINDNEXT (aiutati con l'help del
pascal per capire meglio)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

> aprire e chiudere un file puo' essere un'operazione lenta....
mmh credo che se deve verificare l'esistenza del file,
tentare di aprirlo sia il metodo meno costoso: e' in fondo una sola
chiamata dos, piu' qualche allocazione, ma di sicuro meno di
fare anche un solo findfirst che si traduce in allocazione strutture+
+lavoro sulle expr regolari+chiamata di sistema...
--
Dreadnaut
(Life would be easier if I had the source code)

"Dreadnaut" <Drea...@liberoDALLASPAM.it> wrote in message
news:bsNL8.13205$
K4.2...@twister2.libero.it

si lo avevo pensato.
ma se riesce ad aprire il file, poi lo deve pure chiudere! e le chiamate
di OS
sono gia' 2.
bisogna tener conto pure del fatto che non e' possibile aprire in
 contemporanea + di un certo numero di files.
SONO anche del parere che per risolvere questo problema siano state
sprecate
troppe parole scritte
L'importante e' trovare sempre una soluzione che si avvicini il +
possibile alla migliore
ma non necessariamente deve esserlo.
PS: in FreePascal esiste fileexists, bisognerebbe dare uno sguardo al
 codice sorgente per togliersi il dubbio.... :-)   (campa cavallo)

Newsgroup: it.comp.lang.pascal
Titolo: L'apostrofo e il PI greco

Innanzitutto salve a tutti volevo chiedere 2 cose:
1) Quando voglio scrivere qualcosa con l'apostrofo come la devo mettere?
se faccio in questo modo:
writeln(' VORREI METTERE L'APOSTROFO');
il compilatore confonde l'apostofo della L con la chiusura della stringa,
per cui come si inserisce?
2)Qual'è la funzione PI ?
Come la devo dichiarare?
Posso moltiplicare il PI per una variabile (x)?
Questi sono i miei 2 problemi.
Scusate per l'ignoranza ma sono nuovo da queste parti (tp7)...
Un grazie anticipatamente.
Ciao
JUAN

>writeln('VORREI METTERE L''APOSTROFO');   <-------- Ne metti 2
Ciao
--
Non è stato rilevato nessun bug nel sistema.
Si desidera crearne uno?
-- 
Posted from [195.223.215.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

writeln(' VORREI METTERE L'APOSTROFO');


 Posso moltiplicare il PI per una variabile (x)?
Non credo che PI sia già definito nel pascal, allora lo dichiari come costante:
const
  PI = 3.1415;


si può fare così... ma pascal c'è l'ha il pi è una funzione che fa parte
della unit system!
ciao

 della unit system!
System??? Sei sicuro??

> si, ho controllato su turbo pascal 7 di o'brian e nameroff.
Bene, era solo che non mi ricordavo questa unit, abituato a delphi, che me la
mette di default....

La system nel TP è inclusa di default nel programma.
Se tu metti:
    uses
        ..., System,...
semplicemente non cambia nulla.
--
Michele
    "Nessun luogo è lontano"
ICQ #64033158

 semplicemente non cambia nulla.
Ecco perchè non mi ricordavo di aggiungerla....
Newsgroup: it.comp.lang.pascal
Titolo: Prog inTP7 HelpMe

Ciao, ho un problema con TP:
----------------------------------------------
program Netstat;
uses dos,crt;
var a,b,F,p,g:string;n:real;
begin
clrscr;
SwapVectors;
Exec('netstat.exe','c:\windows');
Swapvectors;
delay(20000);
Writeln('Doserror=',DosError);
{ DosError=2 - File not found }
readln;
end.
-----------------------------------------------
Questa è la parte tagliata del prog che ci interessa. Perchè non trova il
file? Qualcuno di voi mi può aiutare sicucuramente. Forse non sono corretti
'netstat.exe' e 'c:\windows' , ho  provato  anche ad invertirli, ad usare
netstat  15 e netstat -a, ma niente. Ho provato con
Exec('c:\windows\netstat.exe','c:\windows');
Inoltre, come avrete capito, vorrei inviare>> il risultato in un file.txt.
Grazie per l'aiuto.
N&N

 wrote in message
4iYN4.45302$xt2.5...@news.infostrada.it...


 Exec('netstat.exe','c:\windows');
Sostituisci con Exec('C:\Windows\NetStat.exe', '');
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

prova a lanciare 
command.com
 e utilizzare netsta come parametri....
Nooooo! Ho provato anche così, ma non funziona. Quindi ho riscritto quella
parte...
program prova;
uses crt,dos,windos,strings;
var a,b:integer; ProgramName,CmdLine,nets,DirCommand:string;
begin
clrscr;
 Writeln('AirWall - Attendere');
 delay(30000);
DirCommand:='c:\windows\netstat.exe';
ProgramName:=DirCommand+ '\netstat.exe';
CmdLine:= ' -a';
  SwapVectors;
  Exec(ProgramName,CmdLine);
  SwapVectors;
  Writeln('DosError-ExitCode= ',doserror,'-', dosexitcode);
  { DosError & ExitCode= 0-0 }
  repeat until keypressed
 end.
...e non funziona lostesso. Qualcuno ha voglia percaso di provare questo
comando e di farmi sapere qualcosa?
A me non da nessun errore.     Grazie
N&N

 ProgramName:=DirCommand+ '\netstat.exe';
Quello che hai scritto assegna a ProgramName la stringa
'c:\windows\netstat.exe\netstat.exe' e non 'c:\windows\netstat.exe'.
Sostituisci con:
DirCommand := 'C:\Windows\';
ProgName := 'NetStat.exe';
--


-----------------------------------------------
Prova ad usare questo per avviare il programma:
*************************
{$M 8192,0,0}
Uses dos;
Begin
SwapVectors;
Exec(GetEnv('COMSPEC'),'/c c:\windows\netstat.exe');
SwapVectors;
End.
************************
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

<=- Negus -=>
Sě, cosě funziona! Hai centrato in pieno il problema, ma cosč {$M 8192,0,0},
come funziona?
Thx
--
N&N
--

N&N
Oluyede Lawrence
rhy...@tiscalinet.it
Cio' che sono e' cio'
che vorrei essere e infatti
mi diverto alla grande.
Mi servirebbero solo un po'
piu' di soldi.... :-) 

come funziona?
Stabilisce dei paramestri di memoria che si riferiscono:
il primo si riferisce allo stack e il secondo alla vera e propria
memoria.
Do' sufficiente stack per memorizzare variabili e quant'altro
necessario e tutto il resto della memoria lo lascio disponibile per
l'esecuzione del programma ( i due ultimi zeri ).

Newsgroup: it.comp.lang.pascal
Titolo: SetActivePage

Ho provato ad utilizzare le funzioni SetActivePage e SetVisualPage ma non
funzionano.
Sapete nulla sull'utilizzo delle pagine video (640x480)?
GRAZIE

Ho provato ad utilizzare le funzioni SetActivePage e SetVisualPage
Con i .bgi presenti sono previste:
4 per la EGALo o VGALo (640x200),
2 per la EGAHi,EGAMonoHi,HercMono o VGAMed (640x350),
1 per tutte le altre
Ciao
Andrea C

Ho provato ad utilizzare le funzioni SetActivePage e SetVisualPage
Con i .bgi presenti sono previste:
4 pagine per la EGALo o VGALo (640x200),


Newsgroup: it.comp.lang.pascal
Titolo: Compilatore Pascal FREEWARE

Salve a tutti,
se vi interessa ho trovato un compilatore freeware qui:
http://tfdec1.fys.kuleuven.ac.be/~michael/fpc/fpc.html
magari e' gia' nel manifesto del newsgroup ma ancora 
non ho capito dove tengono i manifesti dei newsgroup.
Cia'

I manifesti dei ng li tengono in siti (non mi ricordo l' url) oppure su
it.faq / it.news.aiuto per i ng it.*
--
Paolo 83 RE
XXXg...@freemail.it
 (remove XXX)
gher...@iname.com
 (text only)
CIAO!


Cia'

Cos'e' un manifesto del newsgroup? :-?


Il manifesto del newsgroup e' tipo il documento di costituzione di una
nazione. Grazie a Paolo 83 RE per avermi detto dove li tengono.

Di niente...
Cercatemi pure se avete bisogno :)


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

ciao a tutti,
come posso fare per gestire il joystick in pascal? esiste una funzione o
devo perforza usare "Port[]"?
scusate la mia ignoranza ma non uso mai le porte.
grazie.


wrote:

Io ho usato Port... non è cosi malvagio usare ogni tanto una cosa
diretta (come una porta) ma su WinNT e successivi le porte sono
alquanto chiuse... cmq il pascal non dovrebbe avere problemi girando
su una macchia virtuale... dovrei avere qualke unit da qualke parte ma
scometto ke RdC c'è l'ha sul sito
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 scometto ke RdC c'и l'ha sul sito

Newsgroup: it.comp.lang.pascal
Titolo: manuale pascal for win

Qualcuno sa dirmi se in rete ci sono a disposizione dei siti che forniscano
il manuale per turbo pascal per Windows. grazie.

 wrote in message
8b2sb0$b31$1...@nslave1.tin.it...


 wrote in message
OM9B4.20916$C24.2...@news.infostrada.it...


Newsgroup: it.comp.lang.pascal
Titolo: help programma di prova.

Perchè questo semplice programma che dovrebbe confrontare due 
stringhe non funziona?Sul mio libro di testo c'è scritto che se nome1
e nome2 sono due variabili di tipo:string per confrontarle basta che
faccio un nome1=nome2  come se fossero dei numeri.
program prova;
uses crt;
var ch:char;
    j,z:integer;
    test:boolean;
    nome1,nome2:string;
 procedure insert (var nome:string);
  var i:integer;
  begin
     read(ch);
     i:=1;
     while ch<>'.'do
     begin
        nome[i]:=ch;
        i:=i+1;
        read(ch);
     end;
  end;
begin
   test:=false;
   clrscr;
   insert(nome1);
   insert(nome2);
   if nome1=nome2
   then test:=true;
   writeln(test);
   for j:=1 to 10 do write(nome1[j]);
   write;
   for z:=1 to 10 do write(nome2[z]);
   readln;readln;
end.
 
CIAOoooo....
______________________________
e-mail:  
Aur...@hotmail.com
ICQ:     16005054

   for z:=1 to 10 do write(nome2[z]);
Attento, perche' avresti potuto salvare anche meno o piu' di 10
caratteri nelle stringhe.
A video possono comparire dei caratteri incomprensibili.

quella stringa.
Quindi se io voglio usare una stringa di 65 caratteri devo scrivere
nome[0]:='A'    visto che ord(A)=65
Giusto?
E se voglio usare una stringa di soli 10 caratteri?


E se voglio usare una stringa di soli 10 caratteri?
Ti conviene utilizzare il cast, cioe' scrivere :
nome[0] := char ( 65 ) ;
...
nome[0] := char ( 10 ) ;
In generale :
nome[0] := char ( lunghezza ) ;
Comunque per la lettura di una stringa ti basta fare :
readln( s ) ;
Newsgroup: it.comp.lang.pascal
Titolo: Scrivere su un indirizzo ISA BUS

Ciao a tutti,
volevo una informazione visto che sono un principiante
devo scrivere e leggere suun indirizzo della ISA BUS.
avete idee, esempi ???
Grazie mille a tutti quelli che vorranno rispondere.


mmmh via pascal la vedo dura... e non saprei nemmeno se e'
tecnicamente possibile, cioe' se il processore fornisce istruzioni
per scrivere sul bus direttamente o se questo e' gestito dal
chipset e basta... in piu' nelle macchine nuove mettono ancora
slot isa ? :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)
 
http://dreadnaut.servebeer.com/

Non è un pc normale è una Pc104 ad uso industriale
e cioè un 386 sx. con 4 Mb di Ram...in c++ mi hanno
detto che è fattibile e funziona bene.!! idee ! Esempi !
"Dreadnaut" <dreadnaut_@_libero_._it> ha scritto nel messaggio
news:u03et-...@south.casa...


 detto che è fattibile e funziona bene.!! idee ! Esempi !
google restituisce fin troppa roba sulla pc104, quindi non saprei
che dirti :-\  fatti spiegare da quelli che lo hanno fatto in c++, poi
se posti i lcodice vediamo se si traduce in pascal :-)


Balin ha scritto:

Ti è indifferente se quel qualcosa che vuoi indirizzare è sul BUS ISA o 
su un altro bus locale poiché questo ti è totalmente trasparente.
Vedrai che ciascuna scheda ISA che andrai ad installare su un qualsiasi 
PC andrà ad occupare uno o più porti di I/O, uno o più indirizzi di 
memoria ed eventualmente una linea di IRQ (Interrupt Request).
Ad esempio la scheda video, quando è in modo testo, occupa 4000 bytes a 
partire dalla locazione di memoria B800:0000.
I primi due bytes fanno riferimento al primo carattere in alto a sx, il 
terzo e il quarto al secondo carattere e così via a coppie.
Un altro esempio, se metti una scheda multi I/O con porta parallela essa 
verrà a trovarsi al porto di I/O 378h oppure 278h a seconda di come 
imposterai i ponticelli sulla scheda. Ecc. ecc.
Pertanto ciò che ti serve avere è la documentazione hardware del 
dispositivo che stai adoperando e sapere i porti di I/O occupati, la 
memoria occupata e l'IRQ usato (che potrebbero dipendere da dei 
ponticelli sulla scheda stessa).
A questo punto per effettuare l'I/O in pascal puoi usare il vettore MEM 
(che è un array of byte) e MEMW (che è un array of word) per le 
operazioni di memoria, e il vettore PORT e PORTW (stessa logica) per le 
operazioni di I/O.
Mentre per costruire le routine di servizio agganciate all'IRQ puoi 
usare le procedure Getvect e Setvect che sono nella unit DOS.
Magari se riesci a trovare la documentazione posso darti ulteriori aiuti.
saluti
Fabio

 ha scritto nel messaggio
news:be38db$oeqa$1...@ID-132562.news.dfncis.de...


 ha scritto nel messaggio
news:f0WMa.10464$xK6.2...@news1.tin.it...

Ti faccio l'esempio con variabili semplici, per i tipi complessi la logica
non cambia
var i:^integer;
i:=ptr(segmento,offset);
i^:=5;
Questo se all'indirizzo c'e' un integer. Se e' un byte o word o tipi piu'
complessi, come dicevo, la logica e' la stessa. Basta un puntatore al tipo,
assegni l'indirizzo di memoria al puntatore e leggi/scrivi come qualsiasi
variabile.
Ciao
 Max
Newsgroup: it.comp.lang.pascal
Titolo: Help su risoluzione

Devo (per problemi di spazio su video) settare in modalita' testo
(dos) dalle attuali 80 colonne a 120. 
Come devo procedere?
Esiste qualche funzione in pascal?

 wrote in message
20vkkscsen92q5l1v...@4ax.com...



wrote:


Newsgroup: it.comp.lang.pascal
Titolo: NOVITA' ECCEZIONALE NEL MIO SITO

Ragazzi non ve lo vorrei dire, ma il mio sito sta diventando veramento
tosto.
Ora si puo' anche fregiare di una esclusia mondiale.
Niente poco di meno che una unit per stampare immagini bitmap.
Ehhh, siete rimasiti a bocca aperta. Non ci potete credere.
Ma e' tutto vero!!!!!!!
Collegatevi al mio sito:
 
http://users.iol.it/fabio.manzo
e scaricatela.
Non dimenticate poi farmi sapere come e' andata
e soprattutto se funziona...
Vabbe', per non sparare altre cavolate concludo.
Ciao a tutti,
		Fabio.
fabi...@rocketmail.com

...


Io non sono riuscito ...  :-)
Ma che stampante hai?
La unit funziona solo su stampanti con linguaggio
ESC/P2 o FX (o in queste emulazioni).
Fabio.
fabi...@rocketmail.com

Da me non funzione neanche quelle per visualizzarele le immagini !
P.S.: Ma perché non hai risposto a quel mex che ti ho mandato in privato ?

P.S.: Ma perché non hai risposto a quel mex che ti ho mandato in privato ?
Ora all'interno del  file che contiene la unit ho messo anche un file
demo con anche il corrispettivo compilato (che a me funziona). C'e'
anche un'immagine di prova e il driver egavga.bgi necessario per la
grafica.
Ciao,  Fabio
P.S.Alla tua e-mail ho risposto poco fa.
fabi...@rocketmail.com

...


Newsgroup: it.comp.lang.pascal
Titolo: [X GENYO]

La scritta infuocata di "genyo è salvo" è pronta quando vieni in mirc ?

stupenda! la scritta č proprio come la volevo
me ne sono andato cosě perchč dovevo scappare (soliti problemi,indovinate un
po')

Newsgroup: it.comp.lang.pascal
Titolo: Argomenti alla linea di comando

Esiste qualche istruzione, o variabile stile DosError (cioé non dichiarata)
che mi permetta di capire con quali argomenti alla linea di comando sia
eseguito un programma? Es: il mio prog è Mio.exe; posso sapere se, al
prompt, viene digitato mio.exe tuo.doc /p /w ?
Grazie & Buon 1900!

 wrote...

Dai un'occhiata a ParamCount e ParamStr...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply


...non e' mai troppo tardi   §; )
Newsgroup: it.comp.lang.pascal
Titolo: HELP!!! Array in ASM non me li prende...

Io ho scritto il seguente codice Pascal ma quando sono andato a mettere
una variabbile Array il compilatore mi ha dato un messagio di erroe...
cosi ho dovuto usare 18 variabili temporanee qualcuno sa come ottimizare
questo codice?
Program BIOS:
Uses Crt;
Type PKVet=Array[0..18] of Char;
VAR Bios:PKVet;
    I:0..18;
Procedure BiosInfo;
Var Temp0: Char; {ho bisogno di tante variabbili temporanie perchč il
pascal mi rifiuta gli Array nel codice ASM}
    Temp1: Char;
    ....
    Temp18: Char;
Begin
  Asm
    Mov Ah, 0C0h
    Int 15h
    cmp AH,00
    jne @errore
    Mov Cl,30
    Add BX,10
@st: Mov DL,[ES:BX]
     Mov Temp0,Dl
     Inc BX
     Mov Dl,[ES:BX]
     Mov Temp1,Dl
     Inc BX
     ....
     Mov Dl,[ES:BX]
     Mov Temp19,Dl
     Inc BX
     Mov Dl,[ES:BX]
     Mov Temp20,Dl
@errore:
  End;
  Bios[0]:=Temp0;
  Bios[1]:=Temp1;
  ...
  Bios[17]:=Temp17;
  Bios[18]:=Temp18;
End;
Begin
  ClrScr;
  BiosInfo;
  Write('Bios:');
  For I:=0 to 18 Do
    Write(Bios[i]);
  ReadLn;
End.
--------------------------------------------------
 Just listen to teacher:
 "The only good Windows is an UnIstalled Windows"
--------------------------------------------------
 IL RAZZIATORE
 EMAIL: 
razzi...@usa.net
 WEB:   
http://www.geocities.com/il_razziatore/
 ICQ:   67552596
--------------------------------------------------

 Var Temp0: Char; {ho bisogno di tante variabbili temporanie perchè il


Newsgroup: it.comp.lang.pascal
Titolo: Zip, RAR, ACE...

Qualcuno conosce, o si è fatto da solo, una unit per apriri archivi
compressi?
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Sullo SWAG ne trovi a bizzeffe, cmq ne ho messa una per l'LZH sul mio
sito 
www.lagrandezucca.cjb.net
Omega e' omega e basta
Newsgroup: it.comp.lang.pascal
Titolo: Dual monitor, Pasca l Full Screen solo  su 1 è possibile?

Mi chiedevo se era possibile, magari con qualke utility, fare in modo
di avere su uno schermo la finestra a tutto schermo del Pascal,e
sull'altro mantenere winXp, attualmente appena vado in fullscreen il
2° monitor si spegne, cè una soluzione? Quale?

 [snip]
provai, un po' di tempo fa', ma di utility non ne trovai. La soluzione piu'
vicina e' ingrandire i font della finestra dos fino a renderla leggibile,
anche se purtroppo cosi' mantiene tutta la sua scattosita'... dal menu
di controllo della finestra, sotto Proprieta'\Opzioni modifica  puoi
scegliere se usare il mouse come mouse o come copia-e-incolla (selezioni
col sinistro, copy col destro, incolli col destro)
-- 
Dreadnaut
[ 
http://dreadnaut.servebeer.com/
 ]

Newsgroup: it.comp.lang.pascal
Titolo: Oltre 640K

Ciao a tutti..
ecco il mio problema: e' possibile utilizzare con il Turbo pascal 7.0 
piu' di 640 K di memoria? Devo allocare una matrice che occupa piu' di 
tale quantita' di memoria.
Grazie in anticipo a chi mi vorra' aiutare
                  carlo

tale quantita' di memoria.
Ma quale ambiente stai usando? Per capirci, digiti TURBO o TPX per lanciare
il compilatore?
Ciao.Alberto.

 
Ciao Alberto,
grazie per avere preso in considerazione la mia richiesta.
In quanto alla tua domanda, lancio TPX.
In attesa di risentirti, ti saluto amichevolmente
carlo

In quanto alla tua domanda, lancio TPX.
Ok, allora spiegami un po' come dichiari la matrice (array) e come la usi.
Di memoria ne hai quanta ne vuoi, e' solo questione di gestirla.
Ciao.Alberto.

Newsgroup: it.comp.lang.pascal
Titolo: SITO SCIOCCANTE

http://utenti.lycos.it/scioccante/
http://utenti.lycos.it/sexyportale/
http://happyportal6969.tux.nu
http://happyportal.clicca.li
http://happyportal.cjb.net
http://www.happyportal.3000.it
BTàB
à
BàDS
BàDS
Bà
DSà
Bà
DSBà
àà

 
http://www.happyportal.3000.it
ma che p***e leggere continuamente sti c***o di messaggi..
ma qualcuno che li blocchi non esiste???
---
kiakim

Newsgroup: it.comp.lang.pascal
Titolo: tpu e unit con estensione pas

salve ho un problema....beh ho scaricato un programma ke contiene varie unit
ke pero hanno l'estensione.pas!!
il problema e ke ognuna di esse per essere compilato e trasformato in .tpu
ha bisogno di altre unit sempre però
in formato .pas!! in poke parole queste unit hanno bisogno l'una
dell'altra!!
IO volevo sapere se era possibile compilare il programma senza trasformare
ogni unit.pas in unit.tpu!!
Ringrazio tutti coloro ke mi risponderanno, ciao

 Ringrazio tutti coloro ke mi risponderanno, ciao
Prova da una qualsiasi unit, entranto nell'ambiente TP, a selezionare
dal menų
"Compile" la voce "Built All" (Ovviamente con l'opzione Destination
settata ad "Disk")
Ciao.
-- 
Posted from 
proxy.rupa.it
 [213.175.2.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.pascal
Titolo: Come si memorizzano i dati?

Ciao a tutti,
    facendo qualche programmino, mi capita spesso di dover salvare i dati
raccolti con il programma, x esempio nel creare un programma che gestisca la
merce di un magazzino è necessario che tutte le merci inserite una prima
volta siano presenti ogni volta che si riapre il programma. Come si fa a
creare dei record memorizzati su disco, con le informazioni raccolte dal
programma?
    Ringraziamenti anticipati,
        Claudio.

bisogna che li salvi in un file creato da te. ci sono diverse modalità... è
lungo da spiegare nei dettagli...
se vuoi contattami via email
alebe...@iol.it

scusa ma l'indirizzo non funziona!!!
alebe...@libero.it

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

dove trovo un buon IDE per win da usare possibilmente col
freepascal???
neon pensa: Kom'e' bello il FreeAgent

 wrote in message
39170996...@news.tiscalinet.it...


Comunque FreePascal ora ha un suo IDE (uguale a quello del TP, un po' più
lento ma presenta aspetti  migliori).



Non ne sapevo nulla, effetivamente dovrei scaricarne una versione piu'
nuova =).


 compilarlo, farne il debug, ecc.... in un unico ambiente integrato.
Non per nulla IDE sta per Integrated Development Enviroment (Ambiente di
Sviluppo Integrato) :-))
Ciao al NG!

 Che cos'  è un IDE?
Un IDE è un'interfaccia grafica che ti permette di scrivere un programma,
compilarlo, farne il debug, ecc.... in un unico ambiente integrato.
MikyT




Newsgroup: it.comp.lang.pascal
Titolo: Sovrascrivere files ?

C'è qualcuno di questo NG che è riuscito a creare un programma funzionante
che permetta le seguenti operazioni  :
Apertura file --> Cancellazione contenuti --> riscrittura file (con i dati
immessi dal programma)  ???!!!
E' possibile realizzare qualcosa del genere in pascal ???!!!
Grazie
--
                Ciao.                                                   Alex
:-)
          --------------------------------------------------------------
                                 " Alexandro 'Noel' G "
                           " 
http://www.alexnoel.da.ru
 "
          --------------------------------------------------------------
          -      <<<<<  Stò lavorando per voi !  >>>>>      -
          --------------------------------------------------------------

Quando apri il file, devi aprirlo con "rewrite" che ne cancella
automaticamente
il contenuto :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it

Ciao
Quello che chiedi di fare sono delle semplici operazioni su file che pascal
permette di eseguire abbastanza semplicemente.
Le procedure che ti servono sono:
- reset
- rewrite
- read
- write
eventualmente:
- erase
Cerca sull'help come funzionano, e avrai risolto il tuo problema :-)
Ciao ciao
--
KNOWLEDGE IS POWER
http://chameleon.go.to

Dreadnaut <drea...@liberoDALLASPAM.it> wrote in message
W%t06.155832$hk4.5...@news.infostrada.it...

Grazie, ora ci sono riuscito !
Newsgroup: it.comp.lang.pascal
Titolo: CTS, RTS e DTR

Ciao a tutti.
Ho bisogno di sapere come faccio a gestire i segnali CTS, RTS e DTR. Io sto
lavorando in pascal e devo interfacciare il mio programma con un lettore
laser che ha bisogno di questi segnali.

Fabio Zanetti ha scritto nel messaggio ...

var
base : word;
{indirizzo base della porta seriale}
{imposta la variabile "base"
specificare il numero della porta seriale
es: setbase(1) = com1,  setbase(2) = com2,  etc}
procedure setbase(n:word);
begin
base := memw[$40: n *2 -2];
end;
{imposta il dtr nella porta mcr della seriale
specificare "true" se attivo, "false" se disattivo}
procedure dtr(s:boolean);
begin
if s = false
then port[base+4] := port[base+4] and $fe
else port[base+4] := port[base+4] or 1;
end;
{imposta l'rts nella porta mcr della seriale
specificare "true" se attivo, "false" se disattivo}
procedure rts(s:boolean);
begin
if s = false
then port[base+4] := port[base+4] and $fd
else port[base+4] := port[base+4] or 2;
end;
{ritorna lo stato del cts dalla porta msr della seriale
"true" se attivo, "false" se disattivo}
function cts : boolean;
begin
if port[base+6] and 16 = 16
then cts := true
else cts := false;
end;
begin
end.
sei sicuro di avere bisogno solo di queste informazioni?
spero che il tuo hardware si agganci alla seriale come se fosse un
modem...
altrimenti tutto risulta vano.
hai postato comunque poche informazioni. ho dato per scontato che ti
riferivi ai segnali di una porta seriale.
comunque puoi trovare ulteriori spiegazioni sulle porte della seriale
sulla
lista degli interrupts di ralph brown.
per l'indirizzo vedi un mio post precedente.
ciao
Giuseppe

laser che ha bisogno di questi segnali.
Un lettore laser ? 
Spiegati meglio ...
<=- Negus -=>
www.infinito.it/utenti/negus80
 ... pascal, c++, asm

Newsgroup: it.comp.lang.pascal
Titolo: Algoritmo conversione binaria

Salve,
 qualcuno ha un esempio di algoritmo che dato un numero in binario
(es. 11100) me lo porti in decimale ?
 Grazie.

 ha scritto nel messaggio
news:123.805T2171T1...@inwind.it...


immagino il num binario sia in una stringa...
s: string;
n: byte;
num : longint;
num  := 0;
for n := 1 to length (s) do
 num := (num shl 1) + ord(s[n]) - 48;
--
Dreadnaut
(Life would be easier if I had the source code)
Newsgroup: it.comp.lang.pascal
Titolo: non riesco a capire...

Mi spiegate per fav perchè queste due acche di programma non funzionano?
program prova;
var s,ss:string;   i,lun:integer;
begin
 s:='ciao ciao';
 ss:='';
 lun:=length(s);
 for i:=1 to lun do
    ss[i]:=s[lun-i+1];
 writeln(ss);
 readln;
end.
Al comando writeln(ss) non viene visualizzato niente... boh!
Grazie
Alex

 end.
Ciao

Non cambia molto:
per una riga il blocco begin/end non e' necessario
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Il problema e' che le stringhe in pascal sono memorizzate cosi':
| 1 byte lunghezza | tanti byte quanti lunghezz |
cambiando i caratteri dentro la stringa, non ne cambi effettivamente
la lunghezza.  La stringa ss deve avere quindi la stessa lunghezza di
di quella che ci vuoi rovesciare dentro, cioe':
ss := '         ' {9 spazi fra gli apici}
L'alternativa, un po' macchinosa, sarebbe modificare direttamente il
byte della lunghezza (occhio a non esagerare oltre la lunghezza che
hai definito con string[n] [ se dichiari solo "string" ha comunque
lunghezza max 255 ] ). Puoi implementarla cosi':
dichiari
    p : ^byte; {puntatore a byte}
e poi lo usi
    p := @ss; {indirizzo di ss, cioe' il suo primo byte}
    p^ := length(s); {ss diventa lunga come s, di contenuto indefinito}
Con entrambe le aggiuntine (una xor l'altra) il tuo programma funziona
ciao


Grazie mille!
Ho provato e funziona.
Ciao
Alex
"Dreadnaut" <drea...@liberoDALLASPAM.it> ha scritto nel messaggio
news:LPgM6.3028$pa3.4...@news.infostrada.it...


lunghezza max 255 ] ). Puoi implementarla cosi':
Ma che stai dicendo... basta accedere al carattere di indice 0 nella
stringa (ss[0] e assegnarli char(lunghezza)).
Niente di macchinoso.
La vera alternativa e' _appendere_ i caratteri alla stringa, mediante
concatenamento, non assegnarli con la notazione ad indice.
--
Walkie...@Libero.It (ICQ# 8143647)

 stringa (ss[0] e assegnarli char(lunghezza)).
stupore... :-)
ma sai che non me n'ero mai accorto ? hiihihihi
[ o forse una volta, ma non me lo ricordavo :-) ]

Newsgroup: it.comp.lang.pascal
Titolo: R: Leggere la memoria...

Scusate la domanda che forse a molti di voi risulterà particolarmente
semplice...(spero) :-))
Avrei la necessità di leggere il contenuto della locazione 013F:00CBFBE8 ed
assegnarlo ad una variabile.
Date le mie scarsissime (se non pressochè nulle) conoscenze di C++, mi ero
detto, ..è facile, basta assegnare ad un puntatore l'indirizzo e leggerne il
contenuto...
Che cazzata ho detto ehh??!!??
In effetti si è rivelato un fiasco mostruoso!!!!
Per favore, sapreste o vorreste aiutarmi?
Grazie 1000!!!!
--------------------------------------------------------------------------
--------------------------------------------------------------------------
 L'odio deve rendere produttivi
 altrimenti è più intelligente
 AMARE!
 ICQ: 16176655

               Attenzione all'anti-spam XXX
Il solito bagnino, muscoloso, abbronzatissimo, che scoppia di salute,
toglie dalla carta il suo pranzo, ne esce un panino enorme,
appetitosissimo, farcito con ogni ben di Dio.  Mentre sta per
addentarlo, gli si avvicina un bambino di colore, magro, deperito, con
la faccia scavata e gli occhi di fuori che gli dice: "Scusi signore,
sono tre giorni che non mangio".  Ed il bagnino: "Non ti preoccupare,
te lo puoi fare il bagno!".
		-- Da it.hobby.umorismo

 Per favore, sapreste o vorreste aiutarmi?


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

Esiste una descrizione delle segnalazioni di errore generate in turbo pascal
?
grazie

 ?
Nel help
alla voce error,messages
Ciao RdC
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------

Newsgroup: it.comp.lang.pascal
Titolo: Proprio all'inizio...

Ciao
vorrei programmare in pascal ma sono assolutamente ignorante, ho un manuale
e qualcosa ho imparato ma come faccio ad eseguire il programma, anzi dove lo
scrivo, poi serve un compilatore vero?
Mi date le indicazioni di base?
Saluti
Marco

 wrote in message
EdSr6.17292$6W.11...@news.infostrada.it...


 ha scritto nel messaggio
news:EdSr6.17292$6W.11...@news.infostrada.it...
