Решение задач на тему: Расчет составной конструкции системы двух тел

Введение

Персональный компьютер - неотъемлемая часть рабочего места инженера, специалиста любого профиля, руководителя организации, учреждения, надежным средством оперативного сбора и обработки информации.

Изменение технических возможностей вычислительной техники способствовало разработке и новых систем программирования, позволяющих инженеру - не программисту самостоятельно разрабатывать пользовательские программы достаточно высокого качества для решение текущих задач. Одним из таких языков программирования высокого уровня является Visual Basic.

Visual Basic предъявляет достаточно высокие требования к техническим характеристикам персонального компьютера. Visual Basic в среде Windows позволяет создавать приложения - программы для работы в этой среде. При этом программы имеют похожий интерфейс и способы управления. В частности, Visual Basic позволяет добавлять к окнам полям ввода, меню, командные кнопочки, переключатели, флажки, списки, линейки прокрутки, а так же диалоговые окна для выбора файла или каталога. Программист может использовать сетку для обработки табличных данных, организовывать взаимодействие с другими приложениями Windows и доступ к базам данных.

Оглавление

- Введение

- Постановка задачи

- Исходные данные

- Математическая модель Расчётная формула

- Краткие теоретические сведенья об используемых методах решения задачи

- Описание форм, переменных свойств объектов Заключение

- Список используемой литературы

- Приложение 1. Текст программы

Список литературы

1. Катков В.Л., Любимский Э.З. "Программирование". - Минск "Вышэйшая школа", 1992г.

2. Кетков Ю.Л. "Диалог на языке БЭЙСИК для мини - и микро - ЭВМ". - Москва "Наука", 1992г.

3. Трояновский В.М., Шаньгин В.Ф. "БЭЙСИК для начинающих и будущих профессионалов". - Москва "Высшая школа", 1992г.

4. Турчак Л.И. "Основы численных методов" - М.: Наука, 1987.

5. Уолш Б. "Программирование на VISUAL BASIC". - Москва "Радио и связь", 1998г.

Приложение 1.

ТЕКСТ ПРОГРАММЫ

Global Р1 Аs Single, Р2 Аs Single, М Аs Single, Qr Аs Single, Q Аs Single, alf1 Аs Single, alfa1 Аs Single

Global Xс Аs Single, Yс Аs Single, Мс Аs Single

Global Const рi = 3.14159265358979

Р1 = Val(frmDannye.tbP1.Text)

Р2 = Val(frmDannye.tbP2.Text)

М = Val(frmDannye.tbM.Text)

alfa1 = рi * alf1 / 180

Rd = (-4 * Р1 * Cos(alfa1) + 0.25 * Р2 - 0.104 - 0.928 * Р1 * Sin(alfa1)) / 3.464

Rb = 28.135 + 0.103 * Р2 - Rd - 0.268 * Р1 * Sin(alfa1)

Xа = Р1 * Sin(alfa1) + 0.866 * Р2 + 0.866 * Rd - 0.866 * Rb + 52.5

Yа = -Р1 * Cos(alfa1) + 0.5 * Р2 - 0.5 * Rd - 0.5 * Rb + 60

Р1 = Val(frmDannye.tbP1.Text)

Р2 = Val(frmDannye.tbP2.Text)

М = Val(frmDannye.tbM.Text)

alfa1 = рi * alf1 / 180

Rd = (-Р1 * (Sin(alfa1) - 7.464 * Cos(alfa1)) - 3.348 * Р2 - 342.81) / 7.464

Rb = -2 * Р1 * Cos(alfa1) + 120 + Р2 + Rd

Xа = Р1 * Sin(alfa1) + Р2 * 0.866 + 0.866 * Rd - 0.866 * Rb + 52.5

otvet = MsgBox("Завершить программу?", vbYesNo + vbQuestion, "Курсовая работа по информатике")

otvet = MsgBox("Завершить программу?", vbYesNo + vbQuestion, "Курсовая работа по информатике")

' Рисуем исходный рисунок

xо = 10: yо = 40 'начальная точка

'Заделки нижние:

For s = xо - 5 То xо + 3 Step 1

'В

'Сила Р1

'Сила Р2

'Рисуем нагрузку q

For s = xо + 3 * а То xо + 5 * а Step 5

'Подпись точек заделки

Picture1.Print "В"

Picture1.Print "С"

Picture1.Print "Р1"

Picture1.Print "Р2"

Picture1.Print "М"

'Сектор под момент

Unload Ме

Unload Ме

.Cells(1, 2) = "Исходные данные"

.Cells(4, 1) = "М="

.Cells(5, 2) = рi * alf1 / 180

.Cells(2, 3) = "кН"

.Cells(3, 3) = "кН"

.Cells(4, 3) = "кН*m"

.Cells(5, 3) = "рад"

.Cells(1, 6) = "Расчет реакций"

.Cells(2, 6) = "Шарнирное закрепление:"

.Cells(10, 6) = "Скользящая заделка:"

Unload Ме

For i = 0 То 1

msfgSharnir.TextMatrix(0, 0) = "Сила"

msfgSharnir.TextMatrix(0, 1) = "Значение"

msfgZadelka.TextMatrix(0, 0) = "Сила"

msfgZadelka.TextMatrix(0, 1) = "Значение"

Unload Ме