|
06.02.2011, 15:24 | #11 |
Регистрация: 24.09.2009
Адрес: In HELL
Сообщений: 971
Репутация: 182
|
А купить нормальный логарифмический калькулятор что слабо !?
|
06.02.2011, 15:29 | #12 |
Регистрация: 24.09.2009
Адрес: In HELL
Сообщений: 971
Репутация: 182
|
Ищи здесь fr.newestsoft.com как найдешь юзай поиск для взломанной программы !
|
06.02.2011, 16:43 | #13 |
|
мне нужен именно 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 (b0) {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; } //--------------------------------------------------------------------------- |
|
|
Обратная связь - DeathSpell - Архив - Вверх |