Перевод кода C++ в C# (система определения диагнозов)

@wisp2907 · Регистрация: 29.03.2014

Студворк — интернет-сервис помощи студентам

Код системы определения диагнозов, в зависимости от выбора симптомов болезни написанной на C++, Помогите пожалуйста подогнать под C# хоть визуально или посоветуйте способы конвертации если такие есть.

главная форма

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
//главная форма
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit5.h"
#include "Unit8.h"
#include "Unit10.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int k=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
//пункт меню редактировать симптомы
void __fastcall TForm1::N3Click(TObject *Sender)
{
//создание и показ формы 2
Application->CreateForm(__classid(TForm2), &Form2);
Form2->Show();
}
//---------------------------------------------------------------------------
//пункт меню редактировать диагноз
void __fastcall TForm1::N4Click(TObject *Sender)
{
//создание и показ формы 5
Application->CreateForm(__classid(TForm5), &Form5);
Form5->Show();
//задание размеров ячеек
Form5->DBGrid1->Columns->Items[0]->Width = 50;
Form5->DBGrid1->Columns->Items[1]->Width = 550;
}
//---------------------------------------------------------------------------
 
//кнопка добавить симптом
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(DBLookupComboBox1->Text!="")
        {
                k++;
                if(k>1)
                        {
                        StringGrid1->RowCount++;
                        }
                StringGrid1->Cells[1][k]=DBLookupComboBox1->Text;
        }
}
//---------------------------------------------------------------------------
// кнопка удалить симптом
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int Index = StringGrid1->Selection.Top; // Текущая строка
if(StringGrid1->RowCount==2)
  {
  StringGrid1->Cells[1][1]="";
  k=0;
  }
else
  {
  for(int i=Index; i<StringGrid1->RowCount-1; i++) // С текущей строки до последней
    StringGrid1->Rows[i] = StringGrid1->Rows[i+1]; // Затереть текущую строку следующей
  StringGrid1->RowCount--; // Удалить последнюю строку
  k--;
  }
}
//---------------------------------------------------------------------------
 //пункт меню выход
void __fastcall TForm1::N6Click(TObject *Sender)
{
//закрытие формы
Form1->Close();
}
//---------------------------------------------------------------------------
 //кнопка найти
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int kol=0;
 //создание и показ формы результата
Application->CreateForm(__classid(TForm8), &Form8);
Form8->Show();
//формирование таблицы результата
Form8-> StringGrid1->Cells[1][0]="id";
Form8-> StringGrid1->Cells[2][0]="диагноз";
Form8-> StringGrid1->Cells[3][0]="% совпадения";
 
double t=StringGrid1->RowCount-1;
 
 //пункт меню справка показать
void __fastcall TForm1::N7Click(TObject *Sender)
{
//показ формы 10
Form10->Show();
}

форма симптомы

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
//---------------------------------------------------------------------------
//форма симптомы
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm3), &Form3);
Form3->Show();
 
String sql1="SELECT MAX(idsim) AS maxid from symptoms";
Form2->ADOQuery1->Close();
Form2->ADOQuery1->SQL->Clear();
Form2->ADOQuery1->SQL->Add(sql1);
Form2->ADOQuery1->ExecSQL();
Form2->ADOQuery1->Active=True;
Form3->Label2->Caption=IntToStr(ADOQuery1->FieldByName("maxid") ->AsInteger+1);
Form2->ADOQuery1->Active=False;
sql1="SELECT * from symptoms";
Form2->ADOQuery1->Close();
Form2->ADOQuery1->SQL->Clear();
Form2->ADOQuery1->SQL->Add(sql1);
Form2->ADOQuery1->ExecSQL();
Form2->ADOQuery1->Active=True;
Form2->DBGrid1->Columns->Items[0]->Width = 50;
Form2->DBGrid1->Columns->Items[1]->Width = 750; 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
String sql=Form2->ADOQuery1->SQL->Text;
String  str= ADOQuery1->FieldByName("idsim")->AsString;
String sql1="DELETE FROM symptoms WHERE idsim="+str+"";
Form2->ADOQuery1->Close();
Form2->ADOQuery1->SQL->Clear();
Form2->ADOQuery1->SQL->Add(sql1);
Form2->ADOQuery1->ExecSQL();
 
sql1=sql;
Form2->ADOQuery1->Close();
Form2->ADOQuery1->SQL->Clear();
Form2->ADOQuery1->SQL->Add(sql1);
Form2->ADOQuery1->ExecSQL();
Form2->ADOQuery1->Active=True;
 
  Form6->ADOQuery1->Active=False;
  Form6->ADOQuery1->Active=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Form2->DBGrid1->Columns->Items[0]->Width = 50;
Form2->DBGrid1->Columns->Items[1]->Width = 750;       
}

Форма диагнозы

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
//Форма диагнозы
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::Button1Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm6), &Form6);
Form6->Show();
 
String sql1="SELECT MAX(iddia) AS maxid from diagnosis";
Form5->ADOQuery1->Close();
Form5->ADOQuery1->SQL->Clear();
Form5->ADOQuery1->SQL->Add(sql1);
Form5->ADOQuery1->ExecSQL();
Form5->ADOQuery1->Active=True;
Form6->Label5->Caption=IntToStr(ADOQuery1->FieldByName("maxid") ->AsInteger+1);
Form5->ADOQuery1->Active=False;
sql1="SELECT * from diagnosis";
Form5->ADOQuery1->Close();
Form5->ADOQuery1->SQL->Clear();
Form5->ADOQuery1->SQL->Add(sql1);
Form5->ADOQuery1->ExecSQL();
Form5->ADOQuery1->Active=True;
 
Form5->DBGrid1->Columns->Items[0]->Width = 50;
Form5->DBGrid1->Columns->Items[1]->Width = 550;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button3Click(TObject *Sender)
{
String sql=Form5->ADOQuery1->SQL->Text;
String  str= ADOQuery1->FieldByName("iddia")->AsString;
String sql1="DELETE FROM diagnosis WHERE iddia="+str+"";
Form5->ADOQuery1->Close();
Form5->ADOQuery1->SQL->Clear();
Form5->ADOQuery1->SQL->Add(sql1);
Form5->ADOQuery1->ExecSQL();
 
sql1=sql;
Form5->ADOQuery1->Close();
Form5->ADOQuery1->SQL->Clear();
Form5->ADOQuery1->SQL->Add(sql1);
Form5->ADOQuery1->ExecSQL();
Form5->ADOQuery1->Active=True;
Form5->DBGrid1->Columns->Items[0]->Width = 50;
Form5->DBGrid1->Columns->Items[1]->Width = 550;
}
//---------------------------------------------------------------------------
 
String sql1="select * FROM diagnosis WHERE diagnos like'%"+Edit1->Text+"%'";
Form5->ADOQuery1->Close();
Form5->ADOQuery1->SQL->Clear();
Form5->ADOQuery1->SQL->Add(sql1);
Form5->ADOQuery1->ExecSQL();
Form5->ADOQuery1->Active=True;
if(Edit1->Text=="")
        {
        String sql1="select * FROM diagnosis";
Form5->ADOQuery1->Close();
Form5->ADOQuery1->SQL->Clear();
Form5->ADOQuery1->SQL->Add(sql1);
Form5->ADOQuery1->ExecSQL();
Form5->ADOQuery1->Active=True;
Edit1->Text="поиск";
Edit1->SelectAll();
        }
Form5->DBGrid1->Columns->Items[0]->Width = 50;
Form5->DBGrid1->Columns->Items[1]->Width = 550;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::Edit1Click(TObject *Sender)
{
Edit1->SelectAll();
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .