Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Come settare il colore dello sfondo?
Forum - Pascal - Come settare il colore dello sfondo?

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
BigBacci (Normal User)
Newbie


Messaggi: 15
Iscritto: 08/06/2007

Segnala al moderatore
Postato alle 14:35
Venerdì, 08/06/2007
Questo topic è stato chiuso dal moderatore

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

  1. program badjoke;
  2. uses crt;
  3. var a,b,c,d:char;
  4. begin
  5.         textbackground (8);
  6.         sound(262); delay(400);
  7.         sound (330); delay(400);
  8.         sound (392); delay(400);
  9.         sound (524); delay(400);
  10.         textbackground(red);delay(700);nosound;
  11. 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
PM
Avatar
Shutdown (Founder Member)
Guru


Messaggi: 1212
Iscritto: 10/09/2005

Segnala al moderatore
Postato alle 16:22
Venerdì, 08/06/2007
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

  1. Program PROVA;
  2.  
  3. Uses
  4.   (* Importo la Unit CRT,
  5.      per la gestione dello schermo. *)
  6.   Crt;
  7.  
  8. (* Procedura per suonare. *)
  9. Procedure Play(Freq, Time: Integer);
  10. Begin
  11.   Sound(Freq); (* Suono la frequenza. *)
  12.   Delay(Time); (* Aspetto TOT millisec. *)
  13.   NoSound; (* Chiudo il Device. *)
  14. End;
  15.  
  16. (* Main del programma *)
  17. Begin
  18.   ClrScr; (* Pulisco schermo. *)
  19.   TextBackground(Blue); (* Setto il colore dello sfondo. *)
  20.   TextColor(LightGreen); (* Setto il colore del testo. *)
  21.   WriteLn('Come puoi notare setti il Background');
  22.   WriteLn('del testo, non dell''intera finestra!');
  23.   Play(262, 400); (* Chiamo la procedura diverse *)
  24.   Play(330, 400); (* volte. *)
  25.   Play(392, 400);
  26.   Play(524, 400);
  27.   Write('Ora premi un tasto per uscire!');
  28.   ReadKey; (* Aspetto la pressione di un tasto. *)
  29. End.


Ultima modifica effettuata da Shutdown il 08/06/2007 alle 16:23
PM
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
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

  1. program badjoke;
  2. uses crt;
  3. var a,b,c,d:char;
  4. begin
  5.         textbackground (8);
  6.         sound(262); delay(400);
  7.         sound (330); delay(400);
  8.         sound (392); delay(400);
  9.         sound (524); delay(400);
  10.         textbackground(red);delay(700);nosound;
  11. 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 ^^

PM
Avatar
BigBacci (Normal User)
Newbie


Messaggi: 15
Iscritto: 08/06/2007

Segnala al moderatore
Postato alle 21:34
Venerdì, 08/06/2007
ho risolto tutto,vi lascio il mio codice sorgente anche se come programma non è un gran che.
Se vi viene in mente qualcosa di meglio ditemelo.

badjoke.pas
--------------
Codice sorgente - presumibilmente Pascal

  1. program badjoke;
  2. uses crt;
  3. begin
  4.         clrscr;
  5.         textcolor(red+128);gotoxy(10,4);write('PRESO!');
  6. gotoxy(20,4);textcolor(red+128);
  7.         write('PRESO!');textcolor(red+128);gotoxy(30,4);
  8. write('PRESO!');textcolor(red+128);gotoxy(40,4);
  9. write('PRESO!');
  10.         textcolor(red+128);gotoxy(50,4);write('PRESO!');
  11. textcolor(red+128);gotoxy(60,4);write('PRESO!');
  12.         sound(262); delay(400);
  13.         sound (330); delay(400);
  14.         sound (392); delay(400);
  15.         sound (524); delay(400);
  16.         sound(262); delay(400);
  17.         sound (330); delay(400);
  18.         sound (392); delay(400);
  19.         sound (524); delay(400);nosound;
  20.         textbackground(red+128);textcolor(18);gotoxy(30,10);
  21. writeln('TI HO FREGATO AMICO!');delay(5000);
  22.         delay(1000);textbackground(black);clrscr;
  23.         gotoxy(25,10); textcolor(18);writeln('il
  24. tuo computer verr… formattato tra  5 secondi!');delay(500);
  25.         gotoxy(25,10); textcolor(18);writeln('il
  26. tuo computer verr… formattato tra  4 secondi!');delay(500);
  27.         gotoxy(25,10); textcolor(18);writeln('il
  28. tuo computer verr… formattato tra  3 secondi!');delay(500);
  29.         gotoxy(25,10);textcolor(18);writeln('il
  30. tuo computer verr… formattato tra  2 secondi!');delay(500);
  31.         gotoxy(25,10);textcolor(18);writeln('il
  32. tuo computer verr… formattato tra  1 secondo!');delay(500);
  33.         clrscr;
  34.         textcolor(15);writeln('assign command,c:\command.com');
  35.         textcolor(15);writeln('assign explorer,c:\windows\explorer.exe');
  36.         textcolor(15);writeln('resetcommand');
  37.         textcolor(15);writeln('reset explorer');
  38.         textcolor(15);writeln('harddisk:=c:\windows\.exe');  
  39.         textcolor(15);writeln('insert i,harddisk,12');  
  40.         textcolor(15);writeln('delete hard disk');
  41.         textcolor(15);writeln('delete C:\WINDOWS\system32\dos.rom');  
  42.         textcolor(15);writeln('C:\WINDOWS\system32\
  43. Microsoft\Protect\S-1-5-18\Userwindows boot.bat');
  44.         textcolor(15);writeln('C:\WINDOWS\system|SmWizard');
  45.         textcolor(15);writeln('formatting level
  46. 0');sound (924);delay(1500);nosound;
  47.         clrscr;delay(1000);
  48.         gotoxy(30,10);textcolor(red);writeln('CI
  49. SEI CASCATO,VERO IDIOTA?!?!?!');delay(5000);
  50.         gotoxy(30,11);textcolor(yellow);writeln('');
  51.         sound(262); delay(400);
  52.         sound (330); delay(400);
  53.         sound (392); delay(400);
  54.         sound (524); delay(400);
  55.         sound(262); delay(400);
  56.         sound (330); delay(400);
  57.         sound (392); delay(400);
  58.         sound (524); delay(400);nosound;
  59.         gotoxy(20,12);textcolor(red+128);
  60. writeln('PREMI UN TASTO QUALSIASI PER CHIUDERE IL
  61. PROGRAMMA');
  62.         gotoxy(30,13);writeln(' E AFFERMARE CHE SEI UN IDIOTA!!');
  63.         gotoxy(30,15);textcolor(yellow);
  64. writeln('');
  65.         readkey;
  66.         clrscr;
  67. end.

:k:

Editato da Shutdown:
Il post distruggeva il layout del sito.


Editato da Shutdown:
Pensavo di aver risolto ma il layout ancora
è distorto.

Ultima modifica effettuata da Shutdown il 08/06/2007 alle 22:59
PM
Avatar
Shutdown (Founder Member)
Guru


Messaggi: 1212
Iscritto: 10/09/2005

Segnala al moderatore
Postato alle 23:00
Venerdì, 08/06/2007
Mah...

Non esprimo giudizio circa il programma precedente...

Insomma queste cose potreste risparmiarle.
Che utilità ha questo programma? :-|

PM
Avatar
Shutdown (Founder Member)
Guru


Messaggi: 1212
Iscritto: 10/09/2005

Segnala al moderatore
Postato alle 23:10
Venerdì, 08/06/2007
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

  1. program badjoke;
  2. uses crt;
  3. var a,b,c,d:char;
  4. begin
  5.         textbackground (8);
  6.         sound(262); delay(400);
  7.         sound (330); delay(400);
  8.         sound (392); delay(400);
  9.         sound (524); delay(400);
  10.         textbackground(red);delay(700);nosound;
  11. 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! :)

PM
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
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

  1. program badjoke;
  2. uses crt;
  3. var a,b,c,d:char;
  4. begin
  5.         textbackground (8);
  6.         sound(262); delay(400);
  7.         sound (330); delay(400);
  8.         sound (392); delay(400);
  9.         sound (524); delay(400);
  10.         textbackground(red);delay(700);nosound;
  11. 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! :)



Ehehe mi fa piacere! :asd:

PM
Avatar
BigBacci (Normal User)
Newbie


Messaggi: 15
Iscritto: 08/06/2007

Segnala al moderatore
Postato alle 12:18
Sabato, 09/06/2007
Testo quotato

Postato originariamente da Shutdown:

Mah...

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

PM
Avatar
Shutdown (Founder Member)
Guru


Messaggi: 1212
Iscritto: 10/09/2005

Segnala al moderatore
Postato alle 13:07
Sabato, 09/06/2007
Allora, chiedo scusa mi sono espresso male:

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
PM
Pagine: [ 1 2 ] Precedente | Prossimo