мне нужен именно 16 ричный. И не купленый, а созданый.
include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
#include "p16to10.h" // ---- функция перевода из 16й в 10ю систему
#include "cor_func.h" // ---- функция проверки правильность значений
//#include "cor_func_main.h" ---- начало определения ошибки введеных данных
//#include "incor_mes.h" ---- вывод сообщения об ошибке
//#include "p10to16.h" ---- функция перевода из 10й в 16ю систему
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
#include "cor_func_main.h" //см. описание в начале
int a,b,c;
if(RadioButton1->Checked
1) { a=StrToInt(Edit1->Text);};
if(RadioButton2->Checked
1) //якщо перше число в 16 системі
{String a16;
a16 = Edit1->Text;
a = func16to10(a16); // вызов функции перевода из 8ю в 10ю систему
}
if (RadioButton3->Checked
1) {b = StrToInt(Edit2->Text);}
if(RadioButton4->Checked
1) //якщо друге число в 16й системі
{String b16;
b16 = Edit2->Text;
b = func16to10(b16); // вызов функции перевода из 16й в 10ю систему
}
c=a+b;//<<---- выполняем действие в 10й системе
#include "p10to16.h"
//-----Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Label1->Caption = "Incorrect";};} //если число введенно некоректно //
//-----/\Если введено неправильное число------------------------------------//
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
int a = StrToInt(Edit1->Text);
int b = StrToInt(Edit2->Text);
int i,p;
if ((RadioButton3->Checked)
1) {i=1;} else {i=0;};
if ((RadioButton4->Checked)
1) {p=1;} else {p=0;};
if ((RadioButton1->Checked)
1)
{RadioButton3->Checked = 1;
RadioButton1->Checked = i;
RadioButton2->Checked = p;} else {
if ((RadioButton2->Checked)
1)
{RadioButton4->Checked = 1;
RadioButton1->Checked = i;
RadioButton2->Checked = p;};}
Edit2->Text = IntToStr(a);
Edit1->Text = IntToStr(b);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
#include "cor_func_main.h" //см. описание в начале
int a,b,c;
if(RadioButton1->Checked
1) { a=StrToInt(Edit1->Text);};
if(RadioButton2->Checked
1) //якщо перше число в 16 системі
{String a16;
a16 = Edit1->Text;
a = func16to10(a16); // вызов функции перевода из 8ю в 10ю систему
}
if (RadioButton3->Checked
1) {b = StrToInt(Edit2->Text);}
if(RadioButton4->Checked
1) //якщо друге число в 16й системі
{String b16;
b16 = Edit2->Text;
b = func16to10(b16); // вызов функции перевода из 16й в 10ю систему
}
c=a*b;//<<---- выполняем действие в 10й системе
#include "p10to16.h"
//-----Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Label1->Caption = "Incorrect";};} //если число введенно некоректно //
//-----/\Если введено неправильное число------------------------------------//
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{//---------------------------------------------------------------//
String edit1txt = Edit1->Text; //
int syst = 16; //
if (corfunc(edit1txt,syst)
1) { //если число введено корректно//
//----------------- ---то начинаем вычисления---------------------//
int a;
String a16;
a16 = Edit1->Text;
a = func16to10(a16); // вызов функции перевода из 16ю в 10ю систему
Edit1->Text = IntToStr(a);
//-----Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Edit1->Text = "0"; //если число введенно некоректно //
#include "incor_mes.h" //--- вывод сообщение об ошибке //
//-----/\Если введено неправильное число------------------------------------//
};}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{//---------------------------------------------------------------//
String edit1txt = Edit1->Text; //
int syst = 10; //
if (corfunc(edit1txt,syst)
1) { //если число введено корректно//
//----------------- ---то начинаем вычисления---------------------//
int c = StrToInt(Edit1->Text);
#include "p10to16RBa.h"
//};//---Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Edit1->Text = "0"; //если число введенно некоректно //
#include "incor_mes.h" //--- вывод сообщение об ошибке //
//-----/\Если введено неправильное число------------------------------------//
};}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{//---------------------------------------------------------------//
String edit2txt = Edit2->Text; //
int syst = 16; //
if (corfunc(edit2txt,syst)
1) { //если число введено корректно//
//----------------- ---то начинаем вычисления---------------------//
int b;
String b16;
b16 = Edit2->Text;
b = func16to10(b16); // вызов функции перевода из 16ю в 10ю систему
Edit2->Text = IntToStr(b);
//-----Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Edit2->Text = "0"; //если число введенно некоректно //
#include "incor_mes.h" //--- вывод сообщение об ошибке //
//-----/\Если введено неправильное число------------------------------------//
};}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton4Click(TObject *Sender)
{//---------------------------------------------------------------//
String edit2txt = Edit2->Text; //
int syst = 10; //
if (corfunc(edit2txt,syst)
1) { //если число введено корректно//
//----------------- ---то начинаем вычисления---------------------//
int c = StrToInt(Edit2->Text);
#include "p10to16RBb.h"
};//---Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Edit2->Text = "0"; //если число введенно некоректно //
#include "incor_mes.h" //--- вывод сообщение об ошибке //
};}//--/\Если введено неправильное число------------------------------------//
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
#include "cor_func_main.h" //см. описание в начале
int a,b,c;
if(RadioButton1->Checked
1) { a=StrToInt(Edit1->Text);};
if(RadioButton2->Checked
1) //якщо перше число в 16 системі
{String a16;
a16 = Edit1->Text;
a = func16to10(a16); // вызов функции перевода из 8ю в 10ю систему
}
if (RadioButton3->Checked
1) {b = StrToInt(Edit2->Text);}
if(RadioButton4->Checked
1) //якщо друге число в 16й системі
{String b16;
b16 = Edit2->Text;
b = func16to10(b16); // вызов функции перевода из 16й в 10ю систему
}
c=a-b;//<<---- выполняем действие в 10й системе
#include "p10to16.h"
//-----Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Label1->Caption = "Incorrect";};} //если число введенно некоректно //
//-----/\Если введено неправильное число------------------------------------//
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
#include "cor_func_main.h" //см. описание в начале
int a,b,c;
if(RadioButton1->Checked
1) { a=StrToInt(Edit1->Text);};
if(RadioButton2->Checked
1) //якщо перше число в 16 системі
{String a16;
a16 = Edit1->Text;
a = func16to10(a16); // вызов функции перевода из 16ю в 10ю систему
}
if (RadioButton3->Checked
1) {b = StrToInt(Edit2->Text);}
if(RadioButton4->Checked
1) //якщо друге число в 16й системі
{String b16;
b16 = Edit2->Text;
b = func16to10(b16); // вызов функции перевода из 16ю в 10ю систему
}
if (b
0) {Label1->Caption = "Деление на 0!";} else {
// /\если мы делим на 0
c=a/b;//<<---- выполняем действие в 10й системе
#include "p10to16.h"
}; //end IF b!=0
//-----Вышеперечисленные действия исполнялись есть введеное число правильное//
} //<--Коец условия //
else {Label1->Caption = "Incorrect";};} //если число введенно некоректно //
//-----/\Если введено неправильное число------------------------------------//
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton5Click(TObject *Sender)
{int c;
String c16;
c16 = Label1->Caption;
c = func16to10(c16); // вызов функции перевода из 16ю в 10ю систему
Label1->Caption = IntToStr(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton6Click(TObject *Sender)
{int c; c = StrToInt(Label1->Caption);
if (c>7) {
#include "p10to16Lab.h"
};};}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Edit1->Text = "0";
Edit2->Text = "0";
Label1->Caption = "0";
RadioButton1->Checked = 1;
RadioButton3->Checked = 1;
RadioButton5->Checked = 1;
}
//---------------------------------------------------------------------------