Перевод кода с Visual Basic в C++

@n3250sasha · Регистрация: 30.10.2011

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

Помогите перевести код с Visual Basic в C++

Visual Basic
1
2
3
4
5
For i = 2 To n
Line (P(i - 1).x * 10 + Line1.X1, -(P(i - 1).y) * 10 + Line2.Y1)-(P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)
If i <> n Then
Line (P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)-(P(1).x * 10 + Line1.X1, -(P(1).y) * 10 + Line2.Y1)
End If

и это

Visual Basic
1
Circle (t.x * 10 + Line1.X1, -t.y * 10 + Line2.Y1), 1, vbBlack

cpp_developer · 20.12.2011, 17:32

судя по всему, вы хотите нарисовать линию и круг, а это - здесь: Краткое руководство по работе с классом TCanvas для начинающих

@n3250sasha · 20.12.2011, 19:52 **[ТС]**

Сообщение от LK

судя по всему, вы хотите нарисовать линию и круг, а это - здесь: Краткое руководство по работе с классом TCanvas для начинающих

Как нарисовать линию и круг я знаю, а мне нада перевести код с Visual Basic на С++.

Была програма на VB

Visual Basic
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
Private Type pryama
 x As Double
 y As Double
End Type
Dim P(9) As pryama
Dim t As pryama
Dim v As Double
Dim r As Double
Dim S1 As Double
Dim S2 As Double
 
Private Sub Command1_Click()
n = InputBox("Введіт кількість кутів", "Кількість кутів", , 100, 100)
For i = 1 To n
P(i).x = InputBox("x" & i & "=", "Введення координат", , 100, 100)
P(i).y = InputBox("y" & i & "=", "Введення координат", , 100, 100)
Print "X" & i & "=  " & P(i).x; "  "; "  Y" & i & "=  " & P(i).y
Next i
For i = 2 To n
Line (P(i - 1).x * 10 + Line1.X1, -(P(i - 1).y) * 10 + Line2.Y1)-(P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)
If i <> n Then
Line (P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)-(P(1).x * 10 + Line1.X1, -(P(1).y) * 10 + Line2.Y1)
End If
Next i
End Sub
Private Sub Command2_Click()
t.x = InputBox("x=", "Введіть точку")
t.y = InputBox("y=", "Введіть точку")
Circle (t.x * 10 + Line1.X1, -t.y * 10 + Line2.Y1), 1, vbBlack
Print t.x; " "; t.y
Command4.Enabled = True
End Sub
Private Sub Command3_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim E As Double
For i = 1 To 6
a = ((P(1).x - P(i + 1).x) ^ 2 + (P(1).y - P(i + 1).y) ^ 2) ^ (1 / 2)
b = ((P(i + 2).x - P(i + 1).x) ^ 2 + (P(i + 2).y - P(i + 1).y) ^ 2) ^ (1 / 2)
c = ((P(i + 2).x - P(1).x) ^ 2 + (P(i + 2).y - P(1).y) ^ 2) ^ (1 / 2)
E = (a + b + c) / 2
S1 = S1 + (Sqr(E * (E - a) * (E - b) * (E - c)))
Next i
Label1.Caption = "S1=" & (S1)
End Sub
Private Sub Command4_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim E As Double
Dim S2 As Double
For i = 0 To 6
a = ((t.x - P(i).x) ^ 2 + (t.y - P(i).y) ^ 2) ^ (1 / 2)
b = ((P(i + 1).x - P(i).x) ^ 2 + (P(i + 1).y - P(i).y) ^ 2) ^ (1 / 2)
c = ((P(i + 1).x - t.x) ^ 2 + (P(i + 1).y - t.y) ^ 2) ^ (1 / 2)
E = (a + b + c) / 2
S2 = S2 + (Sqr(E * (E - a) * (E - b) * (E - c)))
Next i
Label3.Caption = "S2=" & (S2)
If Label3.Caption <> "" And Label4.Caption <> "" Then
Command5.Enabled = True
End If
End Sub
Private Sub Command5_Click()
If S1 = S2 Then
label6.Caption = "Точка  належить многокутнику"
End If
If S1 <> S2 Then
label6.Caption = "Точка не належить многокутнику"
End If
End Sub
Private Sub Command6_Click()
Cls
End Sub
Private Sub Command7_Click()
Hide
Formpersha.Show
End Sub

я переделал на с++

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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include<math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct pryama
{
        double x,y;
};
pryama p[9],t;
double v,r,s1,s2,a,b,c,E;
int n,i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        n=StrToInt(InputBox("Введення кількості кутів","Кількість кутів",""));
        for (i=0;i<n;i++)
        {
            p[i].x=StrToFloat(InputBox("x" + IntToStr(i) + "=", "Введення координат",""));
            p[i].y=StrToFloat(InputBox("y" + IntToStr(i) + "=", "Введення координат",""));
        }
 
        for (i=1;i<n;i++)
        {
 
                /*
                как это на с++ перевести???
                For i = 2 To n
                        Line (P(i - 1).x * 10 + Line1.X1, -(P(i - 1).y) * 10 + Line2.Y1)-(P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)
                        If i <> n Then
                                Line (P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)-(P(1).x * 10 + Line1.X1, -(P(1).y) * 10 + Line2.Y1)
                        End If
                Next i
 
                */
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        t.x=StrToInt(InputBox("x=","Введіть точку",""));
        t.y=StrToInt(InputBox("y=","Введіть точку",""));
 
        /* и это на с++ нада перевести
        Circle (t.x * 10 + Line1.X1, -t.y * 10 + Line2.Y1), 1, vbBlack
         */
 
         Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
        for (i=0;i<6;i++)
        {
                a=sqrt((pow(t.x - p[i].x,2) + pow(t.y - p[i].y,2)));
                b = (pow(p[i + 1].x - p[i].x,2) + pow(p[i + 1].y - p[i].y,2));
                c = sqrt(pow(p[i + 1].x - t.x,2) + pow(p[i + 1].y - t.y,2));
                E = (a + b + c) / 2;
                s2=s2 + (pow(E * (E - a) * (E - b) * (E - c),2));
        }
 
        Label3->Caption = "S2=" + FloatToStr(s2);
        if (Label3->Caption != "" && Label4->Caption != "")
        Button5->Enabled = true;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        for (i=0;i<6;i++)
        {
                a = sqrt(pow(p[1].x - p[i + 1].x,2) + pow(p[1].y - p[i + 1].y,2));
                b = sqrt(pow(p[i + 2].x - p[i + 1].x,2) + pow(p[i + 2].y - p[i + 1].y,2));
                c = sqrt(pow(p[i + 2].x - p[1].x,2) + pow(p[i + 2].y - p[1].y,2));
                E = (a + b + c) / 2;
                s1=s1 + (pow(E * (E - a) * (E - b) * (E - c),2));
        }
       Label1->Caption = "S1=" + FloatToStr(s1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
        if (s1 = s2)
        {
                Label6->Caption = "Точка  належить многокутнику";
        }
 
        if (s1 != s2)
        {
                Label6->Caption = "Точка не належить многокутнику";
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
        Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
        Form1->Refresh();
}
//---------------------------------------------------------------------------

я не пойму как перевести

Visual Basic
1
2
3
4
5
6
For i = 2 To n
Line (P(i - 1).x * 10 + Line1.X1, -(P(i - 1).y) * 10 + Line2.Y1)-(P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)
If i <> n Then
Line (P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)-(P(1).x * 10 + Line1.X1, -(P(1).y) * 10 + Line2.Y1)
End If
Next i

и

Visual Basic
1
Circle (t.x * 10 + Line1.X1, -t.y * 10 + Line2.Y1), 1, vbBlack

У VB Line это линия,Circle-круг, а я не пойму что такое Line1.X1, Line2.X1, Line1.Y1, Line2.Y1....

cpp_developer · 20.12.2011, 19:55

координаты из структуры, наверное

@n3250sasha · 20.12.2011, 21:42 **[ТС]**

Сообщение от LK

координаты из структуры, наверное

так а на с++ в моем варианте, переделки, что нада написать???
суть задачи рисования n-угольника по координатам, нахождения площи ...

Добавлено через 1 час 45 минут
Разобрался)))
Было

Visual Basic
1
2
3
4
5
6
For i = 2 To n
Line (P(i - 1).x * 10 + Line1.X1, -(P(i - 1).y) * 10 + Line2.Y1)-(P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)
If i <> n Then
Line (P(i).x * 10 + Line1.X1, -(P(i).y) * 10 + Line2.Y1)-(P(1).x * 10 + Line1.X1, -(P(1).y) * 10 + Line2.Y1)
End If
Next i

Стало

C++
1
2
3
4
5
6
7
8
9
10
for (i=1;i<n;i++)
        {
                Canvas->MoveTo(p[i-1].x*10+p[0].x, (p[i-1].y)*10+p[1].y);
                Canvas->LineTo(p[i].x*10+p[0].x, p[i].y*10+p[1].y);
                if (i!=n)
                {
                        Canvas->MoveTo(p[i].x*10+p[0].x,p[i].y*10+p[1].y);
                        Canvas->LineTo(p[0].x*10+p[0].x,p[0].y*10+p[1].y);
                }
        }

Было

Visual Basic
1
Circle (t.x * 10 + Line1.X1, -t.y * 10 + Line2.Y1), 1, vbBlack

Стало

Visual Basic
1
Canvas->Ellipse(t.x*10+p[0].x, t.y*10+p[1].y, (t.x*10+p[0].x)+5, (t.y*10+p[1].y)+5);

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	20.12.2011, 17:32
	судя по всему, вы хотите нарисовать линию и круг, а это - здесь: Краткое руководство по работе с классом TCanvas для начинающих 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	20.12.2011, 19:55
	координаты из структуры, наверное 0