google.com, pub-6980195464912582, DIRECT, f08c47fec0942fa0

!

500 90 =10 PR=3
5000 .
2000 .
!
!
!

. . CAD\CAM\CAE\PLM. !

, ! .



:" "

1 2 2

1

:

tbc (2007-07-01 15:56:35)

0

2

:

Public vel
Private Sub Command1_Click()
Picture1.Scale (-100, 100)-(100, -100)
Picture1.Visible = True
Timer1.Enabled = True '
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
    Case 0
        vel = 100000000
    Case 1
        vel = 10000000
    Case 2
        vel = 1000000
    Case 3
        vel = 100000
    Case 4
        vel = 10000
End Select
End Sub

Private Sub Timer1_Timer()
Dim n As Long, radian As Single
Timer1.Enabled = False '

For radian = 6.28 To 0 Step -0.01 ' 0 6.28
Picture1.DrawWidth = 5
Picture1.Cls '
Picture1.FillColor = QBColor(4)
Picture1.Circle (0, 0), 2, QBColor(4)
Picture1.Line (0, 0)-(x, y), QBColor(3)
Picture1.Line (0, 50 + y)-(x, y), QBColor(6) '
Picture1.Circle (0, 50 + y), 2, QBColor(4)

x = 12 * Cos(radian * 10)
y = 12 * Sin(radian * 10)

Picture1.FillColor = QBColor(1)
Picture1.Circle (x, y), 3, QBColor(1)

Picture1.DrawWidth = 1
'
Picture1.Circle (0, 0), 40.5, QBColor(7), 3.2, 6.2
'
Picture1.Line (-25, 0)-(-25, 80 - y / 10), QBColor(8)
Picture1.Line (-24, 80 - y / 10)-(-26, 80 - y / 10), QBColor(8)
Picture1.Circle (-25, 0), 3, QBColor(1)
'Image1.Visible = True
Picture1.Line (25, 0)-(25, 80 + y / 10), QBColor(8)
Picture1.Line (24, 80 + y / 10)-(26, 80 + y / 10), QBColor(8)
Picture1.Circle (25, 0), 3, QBColor(1)

'
Picture1.Line (0 - 10, 40 + y)-(0 + 10, 40 + y), QBColor(8)
Picture1.DrawWidth = 3
Picture1.Line (0 - 10, 40 + y)-(0 - 10, y + 65), QBColor(8)
Picture1.Line (0 + 10, 40 + y)-(0 + 10, y + 65), QBColor(8)
Picture1.Line (0 - 10, 65 + y)-(0 + 10, y + 65), QBColor(8)
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False

If y < 0 And x < 0 Then
Image2.Visible = True
Label1.Caption = " "
End If
If y > 0 And x < 0 Then
'Image2.Visible = True
Label1.Caption = ""
End If
If y < 0 And x > 0 Then
Image3.Visible = True
Label1.Caption = " "
End If
If y > 0 And x > 0 Then
Image3.Visible = True
Label1.Caption = " "
End If
If y >= 11 Then
Image1.Visible = True
Label1.Caption = " "
End If

For n = 0 To vel: Next n '

Next radian

'Timer1.Enabled = True '
End Sub

0