Программа "полёт тела брошенного под углом к горизонту"

@silver_30rus · Регистрация: 19.05.2012

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

Готовая программа написана в Visual Basic 8.0, помогите пожалуйста перевести её в Visual Basic 6.0

В программе выполняются следующие классы:
1. Brosok;
2. ClassPoint;
3. ClassSaveExcel

Класс ClassPoint
Хранит данные о координатах точки, в момент времени, также угол и скорость в тот момент времени. Также содержит свойства для доступа к переменным и конструктор инициализации

VB.NET
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
Public Class ClassPoint
    Private _xPoint As Single
    Private _yPoint As Single
    Private _zPoint As Single
    Private _aPoint As Single
    Property xPoint() As Single
        Get
            Return MyClass._xPoint
        End Get
        Set(ByVal value As Single)
            MyClass._xPoint = value
        End Set
    End Property
    Property yPoint() As Single
        Get
            Return MyClass._yPoint
        End Get
        Set(ByVal value As Single)
            MyClass._yPoint = value
        End Set
    End Property
    Property zPoint() As Single
        Get
            Return MyClass._zPoint
        End Get
        Set(ByVal value As Single)
            MyClass._zPoint = value
        End Set
    End Property
    Property aPoint() As Single
        Get
            Return MyClass._aPoint
        End Get
        Set(ByVal value As Single)
            MyClass._aPoint = value
        End Set
    End Property
 
    Public Sub New(ByVal x As Single, ByVal y As Single, ByVal z As Single, ByVal a As Single)
        _xPoint = x
        _yPoint = y
        _zPoint = z
        _aPoint = a
    End Sub
End Class

Класс Brosok
Хранит данные о начальной скорости, начальном значении угла бросания и лист точек через которые пройдет траектория полета

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Brosok
    Private _Vo As Single
    Private _alfa As Single
    Private _listPoint As IList
 
    Property Vo() As Single
        Get
            Return MyClass._Vo
        End Get
        Set(ByVal value As Single)
            MyClass._Vo = value
        End Set
    End Property
    Property Alfa() As Single
        Get
            Return MyClass._alfa
        End Get
        Set(ByVal value As Single)
            MyClass._alfa = value
        End Set
    End Property
End Class

Класс ClassSaveExcel
Необходим для импорта данных в файл формата xls, соединения с
MS Excel и запуск приложения

VB.NET
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
Imports Microsoft.Office.Interop
Public Class ClassSaveExcel
    Private _excelapp As Excel.Application          'Открытие MS Excel
    Private _excelWindow As Excel.Window            'Отображение
    Private _excelcells As Excel.Range              'Создание доступа к ячейкам
    Private _excelappworkbooks As Excel.Workbooks   'Массив ссылок на книги
    Private _excelappworkbook As Excel.Workbook     'Ссылка  на объект - книгу
    Private _excelsheets As Excel.Sheets            'Список листов
    Private _excelworksheet As Excel.Worksheet      'Лист
 
    Public Sub New()
        _excelapp = New Excel.Application()
        _excelapp.Visible = True
        _excelapp.SheetsInNewWorkbook = 1
        _excelapp.Workbooks.Add(Type.Missing)
        _excelappworkbooks = _excelapp.Workbooks
        _excelappworkbook = _excelapp.Workbooks(1)
        _excelsheets = _excelappworkbook.Worksheets
        _excelworksheet = _excelsheets(1)
    End Sub
    Public Sub WriteBook(ByVal Vo As Single, ByVal alfa As Single, ByVal list As IList)
        _excelcells = _excelworksheet.Range("A1")
        _excelcells.Value = "Начальная скорость тела"
        _excelcells = _excelworksheet.Range("A2")
        _excelcells.Value = "Угол к горизонту"
        _excelcells = _excelworksheet.Range("B1")
        _excelcells.Value = Vo.ToString()
        _excelcells = _excelworksheet.Range("B2")
        _excelcells.Value = alfa.ToString()
        _excelcells = _excelworksheet.Range("A3")
        _excelcells.Value = "Время"
        _excelcells = _excelworksheet.Range("B3")
        _excelcells.Value = "Расстояние"
        _excelcells = _excelworksheet.Range("C3")
        _excelcells.Value = "Высота"
        _excelcells = _excelworksheet.Range("D3")
        _excelcells.Value = "Угол"
        Dim list1 As IList
        list1 = New ArrayList(list)
        For i = 0 To list.Count - 1
            _excelcells = _excelworksheet.Range("A" + (i + 4).ToString())
            _excelcells.Value = Math.Round(CType(list1(i), ClassPoint).xPoint, 2)
            _excelcells = _excelworksheet.Range("B" + (i + 4).ToString())
            _excelcells.Value = CType(list1(i), ClassPoint).yPoint
            _excelcells = _excelworksheet.Range("C" + (i + 4).ToString())
            _excelcells.Value = CType(list1(i), ClassPoint).zPoint
            _excelcells = _excelworksheet.Range("D" + (i + 4).ToString())
            _excelcells.Value = CType(list1(i), ClassPoint).aPoint
        Next
    End Sub
End Class

помогите плз... за ранее спасибо

@Alex77755 · 20.05.2012, 09:53

Готовая программа написана в Visual Basic 8.0

Так для справки 2008 это NET, а для него выделен отдельный раздел. там быстрей помогут

Памирыч · 20.05.2012, 11:00

Alex77755, целевой язык - VB6, поэтому тема здесь

@Alex77755 · 20.05.2012, 11:04

Да я разве спорю?
Просто у меня в VB6 это не работает:

VB.NET
1
2
3
4
5
6
7
8
   Property aPoint() As Single
        Get
            Return MyClass._aPoint
        End Get
        Set(ByVal value As Single)
            MyClass._aPoint = value
        End Set
    End Property

@silver_30rus · 20.05.2012, 12:59 **[ТС]**

так кто же переведёт??

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	20.05.2012, 11:00
	Alex77755, целевой язык - VB6, поэтому тема здесь 1

@silver_30rus 0 / 0 / 0 Регистрация: 19.05.2012 Сообщений: 3
	20.05.2012, 12:59 [ТС]
	так кто же переведёт?? 0