Визначення зусиль у стержнях

Visual Basic використовує значна кількість розробників. Тільки Visual Basic застосовує у своїй практиці понад 3 мільйона чоловік.

Visual Basic – це засіб розробки програмного забезпечення, створений та підтримуваний корпорацією Microsoft, який складається з мови програмування і середовища розробки. Мова Visual Basic успадкувала дух, стиль і, частково, синтаксис свого предка – мови Бейсік, у якої є чимало діалектів. У той же час Visual Basic поєднує в собі процедури та елементи об’єктно-орієнтованих та компонентно-орієнтованих мов програмування. Середовище розробки VB містить інструменти для візуального конструювання користувальницького інтерфейсу. Visual Basic вважається потужним засобом швидкої розробки прототипів програми, розробки додатків баз даних і взагалі для компонентного способу створення програм, що працюють під управлінням операційних систем родини Microsoft Windows. Перше визнання серйозними розробниками Visual Basic отримав після виходу третьої версії – VB3. Остаточне визнання як повноцінного засобу програмування для Windows – при виході п’ятої версії – VB5. Версія VB6, що входить до складу Microsoft Visual Studio 6.0, стала по-справжньому зрілим і функціонально багатим продуктом. Після цього розробники з Microsoft суттєво змінили напрямок розвитку даної технології.

Технологія  роботи у середовищі Visual Basic базується на ідеях об’єктно-орієнтованого та візуального програмування. Ідея об’єктно-орієнтованого програмування полягає в інкапсуляції (об’єднанні) даних і засобів їх опрацювання (методів) у тип, який називається об’єктом. Прикладами об’єктів можуть бути елементи керування у вікні: кнопки, списки, текстові поля тощо. Середовище візуального програмування Visual Basic – це графічна автоматизована оболонка над об’єктно-орієнтованою версією мови Basic. Якщо у мові Basic структурними одиницями є дані та команди, то тут такою структурною одиницею є візуальний об’єкт, який називається компонентом. Автоматизація програмування досягаєтеся завдяки можливості переносити компонент на форму (у програму) з палітри компонентів і змінювати його властивості, не вносячи вручну змін до програмного коду.

Формою називають компонент, який володіє властивостями вікна Windows і призначений для розташування інших компонентів. Компоненти служать для організації діалогу з користувачем. Це кнопки, списки, текстові поля, зображення, конструктор меню тощо. Вони відображаються на екрані під час виконання програми. Проект – це сукупність файлів, з яких складається програма створена в середовищі Visual Basic.

2.6 Опис алгоритму  рішення задачі

Програма містить 6 форм:

• Form1 – головна.
• Form3 – варіант розрахунку.
• Form4 – умова.
• Form6 – розрахунок.
• Form7 – довідка.
• Form8 – довідка.

На  головній формі знаходиться три  кнопки – «Запустити проект», «Довідка», «Вихід». На формі «Варіант розрахунку»  розміщенні малюнки і мітка. Форма  «Умова» містить мітку з умовою задачі, кнопку переходу до розрахунків  та збільшений рисунок. Форма «Розрахунок» містить текстові поля для вводу та виведення значень, мітки, зображення та кнопки. В програмі використовуються такі змінні:

• alfa – кут α (вхідні данні).
• B – кут β (вхідні данні).
• G – кут γ (вхідні данні).
• F – напрям вектора (вхідні данні).
• Fi – кут Fi (вихідні данні).
• Q – кут Q (вихідні данні).
• Rbc – проекція Rbc (вихідні данні).
• Rac – проекція Rac (вихідні данні).

В програмі використовуються стандартні процедури, а саме:

• Hide – приховати форму.
• Show – показати форму.
• LoadPicture – загружає малюнок.
• ForeColor – колір переднього плану.
• RGB – окремо задає кожен колір.
• Rnd – дублює багато точок у випадкові місця.
• Picture – дозволяє задати графічний файл.
• Text – вміст текстового поля.
• Format – дає змогу встановити кількість цифр після коми.

• On Error Goto – оператор для перехоплення помилок при виконанні якої-небудь операції з наступним переходом на вказану мітку.

• Scale – установка масштабу.

• DrawWindth – встановлює ширину лінії для виведення з графічного методу.

• FontSize – розмір шрифту.
• Line – малювання лінії.
• ScaleMode – визначає, що програма буде працювати з пік селями.
• Circle – малювання дуги.
• Print – виводе данні на форму.
• Round  – округлює вказане число.
• BorderStyle – встановлює стиль рамки для об’єкта.
• BackColor  – колір фону.
• Font – повертає об’єкт шрифт.
• Cls – очищує форму.
• End – закінчує виконання програми.

В програмі використовуються нестандартна процедура, а саме:

• Vector – малюється лінія з заданим градусом.

 

2.7 Виконання  програми

Для запуску даної програми необхідно запустити файл Розрахунки.exe. Відкривається титульна екранна форма з назвою проекта. На цій формі знаходяться три кнопки: «Запустити проект» для запуску програми, «Довідка» служить для перегляду довідкової інформації та інформації про розробника, «Вихід» для завершення програми.

Після натиснення на кнопку «Запустити проект»  запускається форма «Варіант розрахунку» на якій необхідно обрати варіант (один варіант із шести).

Після вибору варіанта відкривається форма «Умова» в якій розписана умова задачі. Для переходу по форму «Розрахунки», необхідно натиснути кнопки «Перехід до розрахунків». Далі відкривається фора «Розрахунки». На цій формі користувачу необхідно ввести дані у текстові поля для подальших розрахунків. Біля текстових полів знаходяться мітки з відповідною назвою. Після введення даних, а це кут альфа, кут бета, кут гамма та напрям вектора сили F, необхідно натиснути на кнопку «Обчислити». Після натиснення на кнопку програма видасть результат – графічне зображення, яке знаходиться в системі координат, дві проекції , кут Fi та кут Q. Також на формі «Розрахунки» знаходяться кнопка «Очистити» та кнопка «Вихід». За допомогою кнопки «Очистити» можна очистити форму та ввести інші значення. Кнопки «Вихід» дозволяє вийти з програми.

 

2 ВИСНОВКИ  ТА  ПРОПОЗИЦІЇ

 

Збільшення кількості інформації для забезпечення оперативної обробки документації по довідниках та ефективної роботи з інформацією виникає необхідність в засобах автоматизації

Мова програмування Visual Basic є  функціональною мовою програмування. В процесі виконання курсового проекту, я досягла нового рівня у роботі з Visual Basic. Я вдосконалила свої навички працюючи  з графічними об’єктами. Дана мова програмування була коректно вибрана для проектування програми.

В ході розробки програми у середовищі програмування Visual Basic. Я створлила програму для користувача на замовлення.

Я пропоную крім, роботи в Visual Basic використовувати інші прикладні програми.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ДОДАТОК 1 РОЗДРУК ЛІСТИНГУ ПРОГРАМИ

 

Форма 1 – Головна

Малюнок «Запустити проект»

Private Sub Image4_Click()

Form1.Hide

Form3.Show

End Sub

Малюнок «Довідка»

Private Sub Image2_Click()

Form1.Hide

Form7.Show

End Sub

Малюнок «Вихід»

Private Sub Image3_Click()

End

End Sub

Форма 1 з обробкою подій при наведенні мишею

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image4.Picture = LoadPicture("project.gif")

Image2.Picture = LoadPicture("dovidka.gif")

Image3.Picture = LoadPicture("exit.gif")

End Sub

Малюнок з обробкою подій при наведенні

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image4.Picture = LoadPicture("project2.gif")

End Sub

Малюнок з обробкою подій при  наведенні 

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture("dovidka2.gif")

End Sub

Малюнок з обробкою подій при наведенні

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image3.Picture = LoadPicture("exit2.gif")

End Sub

Таймер 

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)

End Sub

Форма 3 – Варіант розрахунку

Малюнок, за допомогою якого переходимо на форму «Умова»

Private Sub Image1_Click()

Form3.Hide

Form4.Show

End Sub

Форма 4 – Умова

Кнопка «Перехід до розрахунків»

Private Sub Command1_Click()

Form4.Hide

Form6.Show

End Sub

Форма 6 – Розрахунок

Кнопка «Обчислити»

Private Sub Command1_Click()

Dim F, B, alfa, G  As Integer

Dim Rbc, Rac, Q, Fi, Fi1, Q1 As Double

alfa = Val(Text1.Text)

B = Val(Text2.Text)

G = Val(Text3.Text)

F = Val(Text4.Text)

On Error GoTo NumErr

If Text1.Text = alfa And Text2.Text = B And Text3.Text = G And Text4.Text = F Then

Scale (-4, 15)-(12, -15)

DrawWindth = 4

FontSize = 20

Line (-5, 0)-(3.5, 0), 0: Print "X"

Line (0, -15)-(0, 15), 0: Print "Y"

ScaleMode = 3

Fi = pi - ((grad * B) + (grad * alfa))

Fi1 = Fi * (180 / pi)

Text6.Text = (Format(Fi1, "0"))

‘Fi = 180 - (B + L)

Circle (226, 248), 100, , pi, pi + Fi

Circle (226, 248), 120, 255, pi + Fi, pi + Fi + (grad * G)

Circle (226, 248), 110, vbBlue, pi + Fi + (grad * G), 2 * pi

Q=180-(Fi+G)

Q = pi - (Fi + (grad * G))

Q1 = Q * (180 / pi)

Text7.Text = (Format(Q1, "0"))

Rbc = -(F * Sin(Q)) / Sin(Fi)

Text5.Text = (Format(Rbc, "0.00"))

Rac = -Rbc * Cos(Fi) + F * Cos(Q)

Text8.Text = (Format(Rac, "0.00"))

x0 = 226

y0 = 248

amin = 180 + Fi1

Call Vector(x0, y0, amin, r + 80)

Print "Rbc"

asec = 180 + Fi1 + G

Call Vector(x0, y0, asec, r + 80)

Print "F"

Label10 = "Fi"

Label11 = "Q"

Label6 = "Rac"

Else: Exit Sub

NumErr:  MsgBox "Введіть  дані", 0 + 16 + 0 + 0, "Помилка"

End If

If Rbc < 0 Then

Label9 = "Знак - (мінус) показує, що сила Rbc направлена в протилежну сторону."

End If

End Sub

Процедура «Вектор»

Sub Vector(x0 As Integer, y0 As Integer, a As Integer, L As Integer)

Dim X, Y As Integer

X = Round(x0 + L * Cos(a * grad))

Y = Round(y0 - L * Sin(a * grad))

Line (x0, y0)-(X, Y)

End Sub

Кнопка «Очистити»

Private Sub Command2_Click()

Form6.Cls

Text1.Text = alfa

Text3.Text = G

Text4.Text = F

Text5.Text = Rbc

Text6.Text = Fi1

Text7.Text = Q1

Text8.Text = Rac

If Label9 = "Знак - (мінус)  показує, що сила Rbc направлена в протилежну сторону."Then

Label9 = " "

End If

If Label10 = "Fi" Then

Label10 = " "

End If

If Label11 = "Q" Then

Label11 = " "

End If

If Label6 = "Rac" Then

Label6 = " "

End If

End Sub

Кнопка «Вихід»

Private Sub Command3_Click()

End

End Sub

Форма 7 – Довідка

Кнопка «На головну форму»

Private Sub Command1_Click()

Form7.Hide

Form1.Show

End Sub

Кнопка «Далі»

Private Sub Command2_Click()

Form7.Hide

Form8.Show

End Sub

Форма 8 – Довідка

Кнопка «На попередню»

Private Sub Command1_Click()

Form8.Hide

Form7.Show

End Sub

Кнопка «На головну форму»

Private Sub Command2_Click()

Form7.Hide

Form1.Show

End Sub

 

ДОДАТОК 2 СХЕМА АЛГОРИТМУ  ПРОГРАМИ

Форма 1 – Головна

Малюнок «Запустити проект»

Малюнок «Довідка»

Малюнок «Вихід»

 

Форма 1 з обробкою подій при наведенні мишею

Малюнок з обробкою подій при  наведенні 

 

Малюнок з обробкою подій при  наведенні 

Малюнок з обробкою подій при  наведенні

 

 

 

 

 

 

 

 

 

Таймер

Форма 3 – Варіант розрахунку

Малюнок, за допомогою якого переходимо на форму «Умова»

Форма 4 – Умова

Кнопка «Перехід до розрахунків»

 

 

 

* Label1.ForeColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)

Форма 6 – Розрахунок

Кнопка «Обчислити»

 

* Text1.Text = alfa And Text2.Text = B And Text3.Text = G And Text4.Text = F

 

 

 

 

 

 

 

 

 

 

* Label9 = "Знак – (мінус) показує, що сила Rbc направлена в протилежну сторону."

Процедура «Вектор»

Кнопка «Очистити»

 

* Label9 = "Знак - (мінус)показує, що сила Rbc направлена в протилежну сторону."

** Label10 = "Fi"

Кнопка «Вихід»

 

 

 

 

 

 

 

 

 

* Label11 = "Q"

** Label6 = "Rac"

 

ДОДАТОК 3 РОЗДРУК  РЕЗУЛЬТАТІВ РОБОТИ ПРОГРАМИ

 

Форма 1 – Головна

 

Таблиця 3.1 – Таблиця властивостей

№ з/р	Елемент	Властивість	Значення
1	Form	Name	Form1
		Caption	Головна
		BackColor	&H00C0FFFF&
2	Label	Name	Label1
		Caption	Курсовий проект
		ForeColor	&H00404080&
		Font	Times New Roman
3	Label	Name	Label2
		Caption	на тему:
		ForeColor	&H00404080&