Lab. Sistemi. EI Visual C

1) Ouput Messaggi

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ShowMessage("Benvenuto nel visuale");
}

2) Ouput su form

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption="Ciao"
}

3) Cambio di proprietà oggetto in runtime.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption="Ciao";
}
//---------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Label1->Left-=1;
}
//---------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Label1->Left+=1;
}
//---------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Label1->Font->Color=clBlue;
}
//---------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  Label1->Font->Color=clRed;        
}
//---------------------------------------------------

4) Input testo

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption=Edit1->Text;
}

5) Input numeri elaborazione ed output

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int a,b,c;
  a=Edit1->Text.ToInt();
  b=Edit2->Text.ToInt();
  c=a+b;
  Label1->Caption=c;
}
oppure
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  float a,b,c;
  char s[10];
  a=Edit1->Text.ToDouble();
  b=Edit2->Text.ToDouble();
  c=a+b;
  sprintf(s,"%5.2f",c);
  Label1->Caption=s;
}

6) Input multilinea

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo1->Lines->SaveToFile("prova.txt");
}
//------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Memo1->Lines->LoadFromFile("prova.txt");
}
//------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Memo1->Lines->Add("Ciao");
}

7) Shape

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Shape1->Brush->Color=clRed;
}
//-----------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Shape1->Brush->Color=clGreen;
}
//-----------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Shape1->Brush->Color=clBlue;
}
//-----------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  Shape1->Shape=stSquare;
}
//-----------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
  Shape1->Shape=stEllipse;
}
//-----------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Shape1->Shape=stCircle;
}
//-----------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
  if (ColorDialog1->Execute())
    Shape1->Brush->Color=ColorDialog1->Color;
    
}

8) Timer

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  c=0;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled=True;      
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Timer1->Enabled=False;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   c=0;
   Label1->Caption=c;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   c++;
   Label1->Caption=c;
}

9) Semaforo

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if (c>0)
    c--;
  if (c==0)
  {
    stato++;
    if (stato>2)
      stato=0;
    switch (stato)
    {
      case 0:
        c=5;
        Shape1->Brush->Color=clBlack;
        Shape2->Brush->Color=clBlack;
        Shape3->Brush->Color=clGreen;
      break;
      case 1:
        c=2;
        Shape1->Brush->Color=clBlack;
        Shape2->Brush->Color=clYellow;
        Shape3->Brush->Color=clBlack;
      break;
      case 2:
        c=5;
        Shape1->Brush->Color=clRed;
        Shape2->Brush->Color=clBlack;
        Shape3->Brush->Color=clBlack;
      break;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  stato=2;
}

10) Resistenze

TColor Colori[10]={clBlack,clMaroon,clRed,0x000080FF,clYellow,clGreen,clAqua,clFuchsia,clSilver,clWhite};
TColor ColoriTol[3]={clRed,0x003DDED6,clSilver};
int  valmoltip[8]={1,10,100,1000,10000,100000,1000000,10000000};

void __fastcall TForm1::Valore()
{
  int v;
  v=(ComboBox1->ItemIndex*10+ComboBox2->ItemIndex)*valmoltip[ComboBox3->ItemIndex];
  Label1->Caption=v;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
  Shape4->Brush->Color=Colori[ComboBox1->ItemIndex];
  Valore();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox2Change(TObject *Sender)
{
  Shape5->Brush->Color=Colori[ComboBox2->ItemIndex];
  Valore();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox3Change(TObject *Sender)
{
  Shape6->Brush->Color=Colori[ComboBox3->ItemIndex];
  Valore();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox4Change(TObject *Sender)
{
  Shape7->Brush->Color=ColoriTol[ComboBox4->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ComboBox1->ItemIndex=1;
  ComboBox2->ItemIndex=0;
  ComboBox3->ItemIndex=2;
  ComboBox4->ItemIndex=0;
  Shape4->Brush->Color=Colori[ComboBox1->ItemIndex];
  Shape5->Brush->Color=Colori[ComboBox2->ItemIndex];
  Shape6->Brush->Color=Colori[ComboBox3->ItemIndex];
  Shape7->Brush->Color=ColoriTol[ComboBox4->ItemIndex];
  Valore();
}