Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
n3250sasha
9 / 9 / 4
Регистрация: 30.10.2011
Сообщений: 80
1

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

20.12.2011, 14:39. Просмотров 1334. Ответов 4
Метки нет (Все метки)

Помогите перевести код с 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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2011, 14:39
Ответы с готовыми решениями:

Перевод с visual basic на с++ builder
Есть пара строк в коде, которые я не знаю как реализовать на с++, подскажите...

Чем C++ лучше Visual Basic?
Обращаюсь ко всем, кто программирует на C++. Кто мне может просто и ясно...

Перевести код из Visual Basic на С++ builder
Помогите перевести данный код Attribute VB_Name = &quot;Module1&quot; Public st, ser As...

Перевести код из Visual Basic на С++ builder
ктонибуть знает как перевести код из Visual Basic на С++ builder: Declare...

перевод кода с C# на C++
/// &lt;summary&gt; /// Description of MainForm. /// &lt;/summary&gt; public partial...

4
LK
Заблокирован
20.12.2011, 17:32 2
судя по всему, вы хотите нарисовать линию и круг, а это - здесь: Краткое руководство по работе с классом TCanvas для начинающих
0
n3250sasha
9 / 9 / 4
Регистрация: 30.10.2011
Сообщений: 80
20.12.2011, 19:52  [ТС] 3
Цитата Сообщение от 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....
0
LK
Заблокирован
20.12.2011, 19:55 4
координаты из структуры, наверное
0
n3250sasha
9 / 9 / 4
Регистрация: 30.10.2011
Сообщений: 80
20.12.2011, 21:42  [ТС] 5
Цитата Сообщение от 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);
0
20.12.2011, 21:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2011, 21:42

Перевод кода из Delphi на C++
Доброго вечера. Пожалуйста, помогите портировать код с Delphi на C++. Его не...

Перевод кода в с++ builder
нужна помощь в переводе кода под билдер /* mla1d.f -- translated by f2c...

Перевод кода из Delphi в C++
unit UDAL; interface uses Windows, Messages, SysUtils, Variants,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru