Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Aladin
0 / 0 / 0
Регистрация: 17.05.2011
Сообщений: 5
#1

Перевод из Visual Basic в С++ - C++

16.10.2011, 19:14. Просмотров 853. Ответов 1
Метки нет (Все метки)

Здравствуйте. Прошу вашей помощи. Так как я VB не изучал.
Можите помочь перевести из Visual Basic в С++

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
80
81
Sub ВолновоеУравнениеЯвнаяСхема()
Dim x() As Double, y() As Double, ynp1() As Double, ynm1() As Double
Dim h As Double, tau As Double, r As Double, a As Double
Dim hPr As Double, tauPr As Double, Tmax As Double, L As Double
Dim nn As Long, mm As Long, MPr As Long, a1 As Double, a2 As Double
Dim n As Long, m As Long, ngr As Integer
Dim t As Double, rr As Double, pi As Double
pi = Atn(1) * 4
’ Исходные данные для задачи
L = 1
a = 1 ’ Это скорость распространения волны
Tmax = 0.5 ’ Верхняя граница временной координаты
h = 0.01 ’ Это шаг по пространственной координате
r = 1 ’Параметр сетки
tau = r * h ’Это шаг по временной координате
hPr = 0.1 ’Шаг для вывода значений сеточной функции по координате x
tauPr = 0.1 ’ Это шаг вывода графиков по временной координате
’NPr = CLng(Tmax / tauPr) + 1 ’Число графиков
MPr= CLng(hPr/h) ’Через столько точек выводить результаты по оси Ox
mm = CLng(L/h) ’ Количество ячеек сетки по оси Ox
nn = CLng(Tmax/tau) ’Количество ячеек сетки по оси Ot
ReDim x(mm), y(mm), ynp1(mm), ynm1(mm) ’Размерность массивов
For m = 0 To mm
x(m) = h * m
’Подстановка начальных условий
’Нулевой временной слой
ynm1(m) = Sin(pi * x(m))
’Первый временной слой
y(m) = ynm1(m) + tau * 0.5 * Cos(0.5 * pi * x(m))
Next m
Dim NameSh As String ’Имя листа для вывода результатов и графиков
NameSh = "ВолновоеУравнение"
Sheets(NameSh).Select
Cells.Clear ’Очистить рабочий лист
Cells(1, 1) = "t\x"
Cells(2, 1) = "t=0"
ngr = 1 ’Номер текущего графика
For m = 0 To mm Step MPr
Cells(1, m \ MPr + 2) = CDbl(Format(x(m), "#0.00"))
Cells(ngr + 1, m \ MPr + 2) = CDbl(Format(ynm1(m), "#0.00"))
Cells(1, m \ MPr + 2).Interior.Color = RGB(220, 90, 220)
Next m
a1 = 2 * (1 - r ^ 2)
a2 = r ^ 2
For n = 2 To nn
t = tau * n
For m = 1 To mm - 1
ynp1(m) = a1 * y(m) + a2 * (y(m + 1) + y(m - 1)) - ynm1(m)
Next m
Call ГраничныеУсловияВолновое(ynp1, t, h, mm)
’Переставить активные временные слои для следующей итерации
For m = 0 To mm
ynm1(m) = y(m)
y(m) = ynp1(m)
Next m
’Записать решение на данном временном слое а
’Записываются с шагом tauPr
If Abs((ngr) * tauPr - t) < tau / 10 Then
ngr = ngr + 1
Cells(ngr + 1, 1) = "t=" + Format(t, "#0.00")
For m = 0 To mm Step MPr
Cells(ngr + 1, m \ MPr + 2) = CDbl(Format(y(m), "#0.00"))
Next m
End If
Next n
Range("a1:a" + Trim(Str(ngr + 1))).Interior.Color = _
RGB(220, 90, 220)
Dim NameDiagr As String ’Название диаграммы
NameDiagr = "Волновое уравнение"
Call ПостроитьГрафики(ngr, CInt(mm / MPr), NameSh, _
NameDiagr, 0, 1, 0, 1)
End Sub
Sub ГраничныеУсловияВолновое(ynp1() As Double, _
t As Double, h As Double, mm As Long)
Dim pi As Double
pi = Atn(1) * 4
ynp1(0) = 0 ’Левая граница
’Правая граница
ynp1(mm) = (ynp1(mm - 1) + h * _
0.1 * Sin(2 * pi * t)) / (1 + h)
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2011, 19:14
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Visual Basic в С++ (C++):

Перевод кода с visual basic на C++ - C++
Здравствуйте!Помогите, пожалуйста, перевести задачу о распределении инвестиций с visual basic на C++. 1. ReDim B(0 to M) 2. ...

Какую среду программирования лучше выбрать для обучения языку C++ ? Visual Studio,Visual Basic или Visual C++? - C++
И напишите,чем рекомендуемая вами среда программирования лучше других? Насколько я понял из Википедии они все поддерживают язык...

Перевод из Basic в С++ - C++
Нужна помощь в переводе двух простых программ с Basic на с++ Написать программу ввода массива целых чисел. Из элементов введенного...

Перевод из Basic на язык С. - C++
Помогите пожалуйста кто-нибудь, переведите с Basic на язык С READ n, x DIM p(20), z(20) m0=0: m1=0: m2=0: m3=0 PRINT &quot;s1 ...

Перевод кода с Basic - C++
Нужно переписать программу из Basic в C++ Тексты программ нужно перепечатывать внутрь сообщения!

C++, C# и Visual Basic - C++
Присмотрелся я к C# и Visual Basic. Сделал такой вывод. В этих языках вообще напрочь отсутствует такое понятие как прототип функции. Не...

1
admsasha
17 / 17 / 4
Регистрация: 11.06.2011
Сообщений: 238
17.10.2011, 11:38 #2
Так это VBA. Он работает с Excel (судя по range). Сомневаюсь, что тут так просто переведешь на C++
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2011, 11:38
Привет! Вот еще темы с ответами:

Visual basic C++ - C++
Всем привет я начинающий прогер. Вот читал Шилда 2-е издание до массивов ( читав массивы что-то запутался и решил поискать задачки на...

из Visual Basic в С++..маленький вопросик - C++
как Dim a As Double Dim b As Integer записать на с++???

Из Visual basic в С++. Схема Халецкого - C++
Вот задачка на basic: Sub Eq_Sol(a() As Double, b() As Double, x() As Double, n As Integer) Dim L(1 To 20, 1 To 20), R(1 To 20, 1...

Переделать код из Visual Basic в С++ - C++
Здравствуйте, помогите пожалуйста переделать код с Visual Basic в Visual C++ Dim i As Double Dim Date0 As Date Private Sub...


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

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

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