@@ -40,7 +40,7 @@ Public Class Telescope
40
40
'
41
41
' Driver ID and descriptive string that shows in the Chooser
42
42
'
43
- Private Version As String = "0.1.3.1 RC1 "
43
+ Private Version As String = "0.1.4b "
44
44
Friend Shared driverID As String = "ASCOM.OpenAstroTracker.Telescope"
45
45
Private Shared driverDescription As String = "OpenAstroTracker Telescope"
46
46
@@ -435,10 +435,9 @@ Public Class Telescope
435
435
End Property
436
436
437
437
Public ReadOnly Property CanPulseGuide() As Boolean Implements ITelescopeV3.CanPulseGuide
438
- ' This will be true as we get around to pulse guiding
439
438
Get
440
- TL.LogMessage( "CanPulseGuide" , "Get - " & False .ToString())
441
- Return False
439
+ TL.LogMessage( "CanPulseGuide" , "Get - " & True .ToString())
440
+ Return True
442
441
End Get
443
442
End Property
444
443
@@ -618,8 +617,9 @@ Public Class Telescope
618
617
619
618
Public ReadOnly Property IsPulseGuiding() As Boolean Implements ITelescopeV3.IsPulseGuiding
620
619
Get
621
- TL.LogMessage( "IsPulseGuiding Get" , "Not implemented" )
622
- Throw New ASCOM.PropertyNotImplementedException( "IsPulseGuiding" , False )
620
+ Dim retVal As Boolean = Convert.ToBoolean( CInt (CommandString( ":GIG" )))
621
+ TL.LogMessage( "isPulseGuiding Get" , retVal.ToString)
622
+ Return retVal
623
623
End Get
624
624
End Property
625
625
@@ -643,8 +643,17 @@ Public Class Telescope
643
643
End Sub
644
644
645
645
Public Sub PulseGuide(Direction As GuideDirections, Duration As Integer ) Implements ITelescopeV3.PulseGuide
646
- TL.LogMessage( "PulseGuide" , "Not implemented" )
647
- Throw New ASCOM.MethodNotImplementedException( "PulseGuide" )
646
+ If Not AtPark Then
647
+ TL.LogMessage( "PulseGuide" , Direction.ToString + " " + Duration.ToString)
648
+ Dim dir As String , length As String , pgCmd As String = ":MG"
649
+ dir = Direction.ToString.Substring( 5 , 1 )
650
+ length = Right( "0000" + Duration.ToString, 4 )
651
+ pgCmd = pgCmd + dir + length
652
+ CommandBlind(pgCmd, False )
653
+ Else
654
+ TL.LogMessage( "PulseGuide" , "Parked" )
655
+ Throw New ASCOM.ParkedException( "PulseGuide" )
656
+ End If
648
657
End Sub
649
658
650
659
Public ReadOnly Property RightAscension() As Double Implements ITelescopeV3.RightAscension
0 commit comments