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

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

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

Option Explicit

Global P1 As Single, P2 As Single, M As Single, Qr As Single, Q As Single, alf1 As Single, alfa1 As Single

Global Xa As Single, Rb As Single, Rd As Single, Ya As Single, Yd As Single

Global Xc As Single, Yc As Single, Mc As Single

Global beta As Single, ugol As Single

Global i As Integer, j As Integer

Global Const pi = 3.14159265358979

Public Sub RaschetSharnir()

P1 = Val(frmDannye.tbP1.Text)

P2 = Val(frmDannye.tbP2.Text)

M = Val(frmDannye.tbM.Text)

alf1 = Val(frmDannye.tbA1.Text)

alfa1 = pi * alf1 / 180

Rd = (-4 * P1 * Cos(alfa1) + 0.25 * P2 - 0.104 - 0.928 * P1 * Sin(alfa1)) / 3.464

Rb = 28.135 + 0.103 * P2 - Rd - 0.268 * P1 * Sin(alfa1)

Xa = P1 * Sin(alfa1) + 0.866 * P2 + 0.866 * Rd - 0.866 * Rb + 52.5

Ya = -P1 * Cos(alfa1) + 0.5 * P2 - 0.5 * Rd - 0.5 * Rb + 60

End Sub

Public Sub RaschetZadelka()

P1 = Val(frmDannye.tbP1.Text)

P2 = Val(frmDannye.tbP2.Text)

M = Val(frmDannye.tbM.Text)

alf1 = Val(frmDannye.tbA1.Text)

alfa1 = pi * alf1 / 180

Rd = (-P1 * (Sin(alfa1) - 7.464 * Cos(alfa1)) - 3.348 * P2 - 342.81) / 7.464

Rb = -2 * P1 * Cos(alfa1) + 120 + P2 + Rd