Kod aplikacji
Dim r As Integer Dim fi As Double Dim krok As Double Dim pos As Double
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick If r = 1 Then
If linSt.X2 < linT.X1 Then linSt.X1 = linSt.X1 + 5 linSt.X2 = linSt.X2 + 5 End If
krok = 50 * 0.1 * pos
ovlK.Left = ovlK.Left + krok linS.X1 = linS.X1 + krok
linS.X2 = 50 * Math.Cos(fi) + linS.X1 linS.Y2 = 50 * Math.Sin(fi) + linS.Y1
fi = fi + 0.1 End If
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnStart.Click If r = 0 Then
r = 1
btnStart.Text = "Stop"
Else r = 0
btnStart.Text = "Start"
End If End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load fi = -Math.PI / 2
ovlK.Left = 50 ovlK.Top = 300 pos = 1
End Sub
Private Sub hPos_Scroll(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hPos.Scroll pos = (100 - hPos.Value) / 100
End Sub