Текст программы формы Статика

Dim tc1(6, 3) As String, Ft As Integer

Private Sub Form_Load()

Set Obj = FormStatica

VvodDannych

tc1(1, 1) = "Точка": tc1(1, 2) = "X": tc1(1, 3) = "Y"

tc1(2, 1) = "O": tc1(3, 1) = "A": tc1(4, 1) = "B":

tc1(5, 1) = "D": tc1(6, 1) = "C"

End Sub

Private Sub Command1Statica_Click()

Dim rx As Integer, ry As Integer, i As Integer

Dim ax As Single, ay As Single

ry = 380: rx = 1.6 * ry

Scale (0, ry)-(rx, 0)

Statica

MSFlexGrid1Static.ColAlignment(0) = 2

MSFlexGrid1Static.ColWidth(0) = 1000

MSFlexGrid1Static.ColAlignment(0) = 2

For i = 1 To 2

MSFlexGrid1Static.ColAlignment(i) = 2

Next i

For i = 1 To 3

MSFlexGrid1Static.Col = i - 1

MSFlexGrid1Static.Row = 0

MSFlexGrid1Static.Text = tc1(1, i)

Next i

For i = 2 To 6

MSFlexGrid1Static.Col = 0

MSFlexGrid1Static.Row = i - 1

MSFlexGrid1Static.Text = tc1(i, 1)

Next i

For i = 1 To 5

MSFlexGrid1Static.Col = 1

MSFlexGrid1Static.Row = i

ax = Format(X(i), "###")

MSFlexGrid1Static.Text = Str$(ax)

MSFlexGrid1Static.Col = 2

ay = Format(Y(i), "###")

MSFlexGrid1Static.Text = Str$(ay)

Next i

End Sub

************************************************************

' Rem построение механизма в статике

Public Sub Statica()

Cls

Ft = Val(TextStatic.Text)

fi = Ft / 180 * pi

Raschet

Postroenie

Psopor

End Sub

'***************************************************

Private Sub Command2Statica_Click()

Unload Me

End Sub

Текст программы формы Динамика

Dim TT As Integer

Dim TT1 As Integer, Scor As Double, FlagDin As Byte

Dim inf1(200) As Integer, inf2(200) As Integer

Private Sub ComDinEnd_Click()

If FlagDin = 1 Then

MsgBox "Остановите механизм", , "Динамика"

Exit Sub

Else

Unload Me

End If

End Sub

Private Sub Form_Click()

Unload Me

End Sub

Private Sub Form_Load()

Dim beep1 As Integer, i As Integer

For i = 1 To 200: inf1(i) = i: inf2(i) = 201 - i: Next i

Set Obj = FormDinamic

VvodDannych

HScroll1Dinamic.Value = 50

Scor = HScroll1Dinamic.Value * 100

ComDinStop.Cancel = False

FlagDin = 1

End Sub

'************************************************************

Rem построение механизма в динамике

Private Sub Dinamica()

Dim beep1 As Integer, i As Integer

Cls

dx = 0.3: beep1 = 0

dinam2:

Scor = HScroll1Dinamic.Value * 100

If Option1Dinamic = True Then

For fi = 0 To pi2 Step dx

Cls

beep1 = beep1 + 1

Scor = HScroll1Dinamic.Value * 100

If Scor <= 2 Or Scor / 100 > 148 Then

MsgBox "Предельная скорость", , "Динамика"

GoTo dinam1

End If

If ComDinStop.Cancel = True Then FlagDin = 0: Exit Sub

TT = 0: TT1 = 0:

Raschet

Postroenie

Psopor

If CheckDinam = Checked Then

If beep1 = 5 Then

Beep

End If

End If

While TT < Scor

Timer1_Timer

TT = TT + TT1

DoEvents

Wend

For i = 1 To 200

If Int(TT / 100) = inf1(i) Then

TextDinamic1.Text = inf2(i)

End If

Next i

If beep1 = 5 Then beep1 = 0

Next fi

End If

If Option2Dinamic = True Then

For fi = 2 * pi To Ft / 180 * pi Step (-dx)

Cls

beep1 = beep1 + 1

Scor = HScroll1Dinamic.Value * 100

If Scor <= 2 Or Scor / 100 > 148 Then

MsgBox "Предельная скорость", , "Динамика"

GoTo dinam1

End If

If ComDinStop.Cancel = True Then FlagDin = 0: Exit Sub

TT = 0: TT1 = 0

Raschet

Postroenie

Psopor

If CheckDinam = Checked Then

If beep1 = 5 Then

Beep

End If

End If

While TT < Scor

Timer1_Timer

TT = TT + TT1

DoEvents

Wend

For i = 1 To 200

If Int(TT / 100) = inf1(i) Then

TextDinamic1.Text = inf2(i)

End If

Next i

If beep1 = 5 Then beep1 = 0

Next fi

End If

GoTo dinam2

dinam1:

HScroll1Dinamic.Value = 50

TextDinamic1.Text = HScroll1Dinamic.Value

End Sub

'**************************************************************************

Private Sub ComDinStart_Click()

Dim rx As Integer, ry As Integer

ry = 380: rx = 1.6 * ry

Scale (0, ry)-(rx, 0)

Dinamica

End Sub

Private Sub ComDinStop_Click()

ComDinStop.Cancel = True

End Sub

Rem Таймр

Private Sub Timer1_Timer()

Static TimerTimes As Integer

TimerTimes = TimerTimes + 1

If TimerTimes = 2 Then

TimerTimes = 0

Else

TT1 = TimerTimes

Exit Sub

End If

End Sub