2.Схема алгоритма программы.
3.Исходный текст программ.
//---------------------------------------------------------------------------
#include<vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Button15->Enabled = false;
Button16->Enabled = false;
Button17->Enabled = false;
Button18->Enabled = false;
Button14->Enabled = false;
Button13->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(CheckBox1->Checked)Edit1->Text = StrToInt(Edit1->Text);
else Edit1->Text = "0x"+IntToHex(Edit1->Text.ToInt(),4);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 3;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 4;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 5;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 6;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 7;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 8;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 9;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 'A';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button16Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 'B';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button17Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 'C';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button18Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 'F';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button13Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 'D';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + 'E';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::HexClic(TObject *Sender)
{
if(CheckBox1->Checked)
{
Edit1->Text = "0x";
Button15->Enabled = true;
Button16->Enabled = true;
Button17->Enabled = true;
Button18->Enabled = true;
Button14->Enabled = true;
Button13->Enabled = true;
}
else
{
Edit1->Text = "";
Button15->Enabled = false;
Button16->Enabled = false;
Button17->Enabled = false;
Button18->Enabled = false;
Button14->Enabled = false;
Button13->Enabled = false;
}
}
//---------------------------------------------------------------------------