Разработка приложения для расчетов ОМД с использованием массивов данных, массивов элементов управления и циклических конструкций различного вида

Министерство образования и науки Украины

Приазовский государственный технический университет

Кафедра ОМД

Лабораторная работа № 4

Разработка приложения для расчетов ОМД с использованием массивов данных, массивов элементов управления и циклических конструкций различного вида

(по дисциплине: проектирование и расчет калибров)

                                                       Выполнил:

                                                                               студент гр. МО-06

                                                                      Чепурко С.В.

                                                      Проверил:

                                                                        Васекин А.В.

Мариуполь, 2010

Цель работы: разработка приложения с использованием массивов данных, массивов элементов управления и циклических конструкций различного вида.

Методика проведения

Создается форма приложения, позволяющего рассчитать основные параметры переходов при многократном волочении проволоки круглого сеченияПри этом исходными данными для расчета являются: исходный диаметр круглой заготовки, конечный диаметр проволоки, число переходов. Необходимо определить диаметры и площади заготовки перед и за каждым переходом, суммарный и частный коэффициенты вытяжки в переходах.

Public n As Integer

Const Pi = 3.141592654

Private Sub Command1_Click()

ReDim D_b(0 To n): ReDim D_m(0 To n)

ReDim Q_b(0 To n): ReDim q_m(0 To n)

ReDim M_s(0 To n)

D_n = CSng(Val(Text1.Text))

d_k = CSng(Val(Text2.Text))

Q_n = Pi * D_n ^ 2 / 4

q_k = Pi * d_k ^ 2 / 4

M_Sum = Q_n / q_k

M_Aver = M_Sum ^ (1 / (n + 1))

For i = 0 To n

Label5(i).Caption = i + 1

If i = 0 Then

D_b(i) = D_n: Q_b(i) = Q_n: M_s(i) = M_Aver

Else

D_b(i) = D_m(i - 1): Q_b(i) = Pi * D_b(i) ^ 2 / 4

M_s(i) = M_s(i - 1) * M_Aver