Il Forum di Orebla.it

Benvenuto nella community di Orebla.it
Oggi è gio 21 nov, 2019 3:42 am

Tutti gli orari sono UTC + 1 ora




Apri un nuovo argomento Rispondi all’argomento  [ 1 messaggio ] 
Autore Messaggio
 Oggetto del messaggio: Problemi programmino
Messaggio da leggereInviato: dom 13 nov, 2005 2:16 pm 
Non connesso
Amministratore
Amministratore
Avatar utente

Iscritto il: lun 27 dic, 2004 10:32 am
Messaggi: 2614
Località: Ferrara
Raga ho trovato questo listato sul forum di HackerJournal, stanno cercando di fare una specie di semaforo con c++. Ho provato a compilarlo con DevC++ ma mi d? una cifra di errori nel compilarlo...

Ecco il codice:
Codice:
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int Sequenza = 0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  //Il timer viene impostato ad un'intervallo di 5 secondi
  Timer1->Interval = 5000;
  //Assegna il colore della penna che traccer? il cerchio
  Canvas->Pen->Color = clBlack;

  if ( Sequenza == 0 )
  {
    //Assegna il colore del riempimento
    Canvas->Brush->Color = clRed;
    Canvas->Ellipse( 10,10, 110,110);
    Canvas->Brush->Color = clBtnFace;
    Canvas->Ellipse( 10,110, 110,210);
    Canvas->Ellipse( 10,210, 110,310);
  }

  if ( Sequenza == 1 )
  {
    Canvas->Brush->Color = clBtnFace;
    Canvas->Ellipse( 10,10, 110,110);
    Canvas->Ellipse( 10,110, 110,210);
    Canvas->Brush->Color = clLime;
    Canvas->Ellipse( 10,210, 110,310);
  }

  if ( Sequenza == 2 )
  {
    Canvas->Brush->Color = clBtnFace;
    Canvas->Ellipse( 10,10, 110,110);
    Canvas->Brush->Color = clYellow   ;
    Canvas->Ellipse( 10,110, 110,210);
    Canvas->Brush->Color = clLime;
    Canvas->Ellipse( 10,210, 110,310);
  }

  Sequenza++;

  if ( Sequenza == 3 )
    Sequenza = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnAvviaClick(TObject *Sender)
{
  //Assegna il colore della penna che traccer? il cerchio
  Canvas->Pen->Color = clBlack;
  //Disegna un cerchio
  Canvas->Ellipse( 10,10, 110,110);
  Canvas->Ellipse( 10,110, 110,210);
  Canvas->Ellipse( 10,210, 110,310);

  btnAvvia->Enabled = false;
  btnTermina->Enabled = true;

  Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnTerminaClick(TObject *Sender)
{
  Timer1->Enabled = false;

  btnAvvia->Enabled = true;
  btnTermina->Enabled = false;

  //Cancella i cerchi
  Canvas->Pen->Color = clBtnFace;
  Canvas->Ellipse( 10,10, 110,110);
  Canvas->Ellipse( 10,110, 110,210);
  Canvas->Ellipse( 10,210, 110,310);

}
//---------------------------------------------------------------------------

_________________
I'm so happy because today
I've found my friends ...
They're in my head

[NIRVANA - LITHIUM]
Il Blog del disperato: http://blog.orebla.it


Top
 Profilo  
 
Visualizza ultimi messaggi:  Ordina per  
Apri un nuovo argomento Rispondi all’argomento  [ 1 messaggio ] 

Tutti gli orari sono UTC + 1 ora


Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite


Non puoi aprire nuovi argomenti
Non puoi rispondere negli argomenti
Non puoi modificare i tuoi messaggi
Non puoi cancellare i tuoi messaggi
Non puoi inviare allegati

Cerca per:
Vai a:  
cron
Powered by phpBB® Forum Software © phpBB Group
Traduzione Italiana phpBBItalia.net basata su phpBB.it 2010
phpBB SEO