powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста написать код
6 сообщений из 6, страница 1 из 1
Помогите пожалуйста написать код
    #39364497
kernelinux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Исследовать изменение значения траектории снаряда, вылетающего из орудия под углом  с начальной скоростью V0. Координаты точек х и у задаются уравнениями: х = V0 cost; y = V0 sint – gt2/2, где g = 9,8 м/с2 – ускорение свободного падения:
1. при изменении времени t от начального значения t0 до конечного значения tk. с шагом t;
2. при изменении угла  от начального значения 0 до конечного значения k. с шагом  и при изменении времени t от начального значения до конечного значения с шагом dt.
в Visual Basic
...
Рейтинг: 0 / 0
Помогите пожалуйста написать код
    #39364534
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Помогите пожалуйста написать код
    #39364554
kernelinux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub CommandButton1_Click()
Const pi As Single = 3.1415926
Dim x As Single, y As Single, alpha As Single, v0 As Single
Dim t0 As Single, tk As Single, t As Single, dt As Single
t0 = InputBox("Введите t0")
tk = InputBox("Введите tk")
dt = InputBox("Введите dt")
v0 = InputBox("Введите v0")
alpha = InputBox("Введите alpha")
For t = t0 To tk Step dt
y = v0 * Sin(alpha) * t - (g * t ^ 2) / 2
x = v0 * Cos(alpha) * t
Next t
MsgBox "  y= " & Format(y, "0.000") & "x= " & Format(x, "0.000")
End Sub


Модератор: Учимся использовать тэги оформления кода - FAQ
Я не понимаю как вывести на экран данные в таблицу, вроде такого
значение X Значение Y Значения t(собственно они и изменяются, меняя при этом значения X Y) так сказать шаг
12 15 18
22 1 4
...
Рейтинг: 0 / 0
Помогите пожалуйста написать код
    #39364557
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Смотря что подразумевается под "выводом на экран". Способов много, например в MSFlexGrid. Все зависит от того, какие способы вывода на экран вы проходили.
...
Рейтинг: 0 / 0
Помогите пожалуйста написать код
    #39364565
kernelinux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

Проходили print, List1.AddItem( это не особо понимаю)
а хочется что бы получилось так, как на картинке
...
Рейтинг: 0 / 0
Помогите пожалуйста написать код
    #39364572
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На картинке простой текстбокс.
Собирайте результат в цикле в обычную текстовую переменную, разделяя строки vbCrLf, а потом кладите полученный результат в текстбокс (не забудьте включить для текстбокса многострочность)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста написать код
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]