Adjusting Play Back Speed

[zeak]

So I have noticed that the play back speed stops adjusting after the default x4. Eg. set custom speed to slow by x10 wont slow it that much.

also trying to use the hotkeys to speed up or slow down only seems to speed up.

[Steve]

Hi Zeak,
I haven't experienced this before.

Consider this line: 1 | X | X | 100 | Mouse Movement
The mouse movement occurs after a 100 ms delay.

If the playback speed is adjusted it is against the time value of the macro line.

The code syntax might help clear this up for you:
   Private Function PlaybackSpeed(ByVal intSpeed As Integer) As Integer
       Dim boolPositive As Boolean
       Try
           If intPlayback >= 1 Then
               boolPositive = True

               PlaybackSpeed = intSpeed / intPlayback
           ElseIf intPlayback = -1 Then
               boolPositive = False
               PlaybackSpeed = intSpeed * 2
           ElseIf intPlayback = -2 Then
               boolPositive = False
               PlaybackSpeed = intSpeed * 2
           ElseIf intPlayback = -3 Then
               boolPositive = False
               PlaybackSpeed = intSpeed * 3
           ElseIf intPlayback = -4 Then
               boolPositive = False
               PlaybackSpeed = intSpeed * 4
           Else
               If intPlayback < -4 Then
                   boolPositive = False
                   PlaybackSpeed = intSpeed * Math.Abs(intPlayback)
               End If
           End If
       Catch ex As Exception
           boolRunErrors = True
           strErrorBack = " - Playback Speed: Failed to adjust the current playback value [" & intSpeed & "] to the new value [" & intSpeed & " x " & intPlayback & " ].  ERROR: " & ex.Message
           Return intSpeed
       End Try

       Dim strTitle() As String
       strTitle = (Split(Me.Text, " (", 2))
       If boolPositive = True Then
           SetText_metext(strTitle(0) & " (/" & intPlayback & ")")
       Else
           SetText_metext(strTitle(0) & " (x" & Math.Abs(intPlayback) & ")")
       End If

       If intPlayback = 0 Then
           If strTitle.Count > 1 Then
               SetText_metext(strTitle(0))
           End If
       End If

       If PlaybackSpeed < 0 Then
           Return 0
       End If


       Return PlaybackSpeed
   End Function

[zeak]

Ok, thanks for clearing that up, I was wondering why it wasn't speeding up on the conditions I had. Had you looked into what I said about the hotkeys?