Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Salve ragazzi.
Sono nuovo di qui,studio il pascal a scuola ma in maniera pessima tanto che sono al secondo anno e non siamo andati più avanti di IF...THEN...ELSE
Ho fatto qualcosa da autodidatta leggendo il vostro sito e ho deciso di iscrivermi oggi.
Ho un problema con un programmino,non vedo lo sfondo colorato.
Potete aiutarmi??
Codice sorgente - presumibilmente Delphi
program badjoke;
uses crt;
var a,b,c,d:char;
begin
textbackground (8);
sound(262); delay(400);
sound (330); delay(400);
sound (392); delay(400);
sound (524); delay(400);
textbackground(red);delay(700);nosound;
end.
Editato da Shutdown...
Perchè usare link esterni quando si
può usare la funzione del forum
per inserire il codice?
Inoltre che titolo è "aiuto"?
Ultima modifica effettuata da Shutdown il 08/06/2007 alle 16:21
Semplicemente perchè TextBackground() setta
il colore dello sfondo delle scritte,
non il colore dello sfondo della finestra.
Poi a che servono quelle variabili?
Mah, non saprei...
Prova a dare un'occhiatina al mio codice:
Codice sorgente - presumibilmente Delphi
Program PROVA;
Uses
(* Importo la Unit CRT,
per la gestione dello schermo. *)
Crt;
(* Procedura per suonare. *)
Procedure Play(Freq,Time:Integer);
Begin
Sound(Freq);(* Suono la frequenza. *)
Delay(Time);(* Aspetto TOT millisec. *)
NoSound;(* Chiudo il Device. *)
End;
(* Main del programma *)
Begin
ClrScr;(* Pulisco schermo. *)
TextBackground(Blue);(* Setto il colore dello sfondo. *)
TextColor(LightGreen);(* Setto il colore del testo. *)
WriteLn('Come puoi notare setti il Background');
WriteLn('del testo, non dell''intera finestra!');
Play(262, 400);(* Chiamo la procedura diverse *)
Play(330, 400);(* volte. *)
Play(392, 400);
Play(524, 400);
Write('Ora premi un tasto per uscire!');
ReadKey;(* Aspetto la pressione di un tasto. *)
End.
Ultima modifica effettuata da Shutdown il 08/06/2007 alle 16:23
()
Newbie
Messaggi: Iscritto:
Postato alle 19:15
Venerdì, 08/06/2007
Testo quotato
Postato originariamente da BigBacci:
Salve ragazzi.
Sono nuovo di qui,studio il pascal a scuola ma in maniera pessima tanto che sono al secondo anno e non siamo andati più avanti di IF...THEN...ELSE
Ho fatto qualcosa da autodidatta leggendo il vostro sito e ho deciso di iscrivermi oggi.
Ho un problema con un programmino,non vedo lo sfondo colorato.
Potete aiutarmi??
Codice sorgente - presumibilmente Delphi
program badjoke;
uses crt;
var a,b,c,d:char;
begin
textbackground (8);
sound(262); delay(400);
sound (330); delay(400);
sound (392); delay(400);
sound (524); delay(400);
textbackground(red);delay(700);nosound;
end.
Editato da Shutdown...
Perchè usare link esterni quando si
può usare la funzione del forum
per inserire il codice?
Inoltre che titolo è "aiuto"?
Prova a mettere il comando clrscr; dopo il comando textbackground ^^
Salve ragazzi.
Sono nuovo di qui,studio il pascal a scuola ma in maniera pessima tanto che sono al secondo anno e non siamo andati più avanti di IF...THEN...ELSE
Ho fatto qualcosa da autodidatta leggendo il vostro sito e ho deciso di iscrivermi oggi.
Ho un problema con un programmino,non vedo lo sfondo colorato.
Potete aiutarmi??
Codice sorgente - presumibilmente Delphi
program badjoke;
uses crt;
var a,b,c,d:char;
begin
textbackground (8);
sound(262); delay(400);
sound (330); delay(400);
sound (392); delay(400);
sound (524); delay(400);
textbackground(red);delay(700);nosound;
end.
Editato da Shutdown...
Perchè usare link esterni quando si
può usare la funzione del forum
per inserire il codice?
Inoltre che titolo è "aiuto"?
Prova a mettere il comando clrscr; dopo il comando textbackground ^^
Bene! Ti giuro che non lo sapevo che
bastasse un semplice ClrScr per applicare lo
sfondo a tutta la finestra...
Ho imparato una nuova cosa oggi!
()
Newbie
Messaggi: Iscritto:
Postato alle 11:07
Sabato, 09/06/2007
Testo quotato
Postato originariamente da Shutdown:
Testo quotato
Postato originariamente da The Lizard King:
Testo quotato
Postato originariamente da BigBacci:
Salve ragazzi.
Sono nuovo di qui,studio il pascal a scuola ma in maniera pessima tanto che sono al secondo anno e non siamo andati più avanti di IF...THEN...ELSE
Ho fatto qualcosa da autodidatta leggendo il vostro sito e ho deciso di iscrivermi oggi.
Ho un problema con un programmino,non vedo lo sfondo colorato.
Potete aiutarmi??
Codice sorgente - presumibilmente Delphi
program badjoke;
uses crt;
var a,b,c,d:char;
begin
textbackground (8);
sound(262); delay(400);
sound (330); delay(400);
sound (392); delay(400);
sound (524); delay(400);
textbackground(red);delay(700);nosound;
end.
Editato da Shutdown...
Perchè usare link esterni quando si
può usare la funzione del forum
per inserire il codice?
Inoltre che titolo è "aiuto"?
Prova a mettere il comando clrscr; dopo il comando textbackground ^^
Bene! Ti giuro che non lo sapevo che
bastasse un semplice ClrScr per applicare lo
sfondo a tutta la finestra...
Ho imparato una nuova cosa oggi!
Non esprimo giudizio circa il programma precedente...
Insomma queste cose potreste risparmiarle.
Che utilità ha questo programma?
scusami se non sono intelligente e utile come te,scusami se ho imparato ad usare il computer da solo e scusami se la mia voglia di imparare offende la tua mirabile intelligenza adamantina...
1. Non intendevo mettere in dubbio la tua intelligenza.
2. Non intendevo criticare la "semplicità" del programma.
3. Intendevo criticare lo scopo del programma. Sai, solitamente i programmi che fingono di formattare il PC sono fatti dagli script kiddie. Essendo questa una community di programmatori, andavi un po' fuori etica. Tu chiedevi un parere sul programma ed io ho solo voluto astenermi per evitare di "offenderti", evidentemente l'ho fatto comunque anche se non era mia intenzione. Tuttavia anche se il programma potrebbe essere interessante per scopi didattici non è questo nè il luogo nè il modo giusto per pubblicarlo. Quindi se in futuro volessi rendere pubblici i tuoi lavori fai richiesta per diventare membro di PieroTofy.it seguendo questo link:
http://www.pierotofy.it/pages/members/join_module/
Con ciò concludo il discorso,
chiedendo ancora scusa per il mio impertinente intervento precedente.
Il moderatore,
Niccolò.
Ultima modifica effettuata da Shutdown il 09/06/2007 alle 13:11