Skip to content

Commit f843156

Browse files
committed
ASCOM Driver 0.1.4b
Supports guiding, should work within ASCOM POTH for multiple clients
1 parent 48545b8 commit f843156

File tree

3 files changed

+21
-12
lines changed

3 files changed

+21
-12
lines changed

Software/OpenAstroTracker ASCOM/OpenAstroTracker ASCOM/Driver.vb

Lines changed: 17 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ Public Class Telescope
4040
'
4141
' Driver ID and descriptive string that shows in the Chooser
4242
'
43-
Private Version As String = "0.1.3.1 RC1"
43+
Private Version As String = "0.1.4b"
4444
Friend Shared driverID As String = "ASCOM.OpenAstroTracker.Telescope"
4545
Private Shared driverDescription As String = "OpenAstroTracker Telescope"
4646

@@ -435,10 +435,9 @@ Public Class Telescope
435435
End Property
436436

437437
Public ReadOnly Property CanPulseGuide() As Boolean Implements ITelescopeV3.CanPulseGuide
438-
' This will be true as we get around to pulse guiding
439438
Get
440-
TL.LogMessage("CanPulseGuide", "Get - " & False.ToString())
441-
Return False
439+
TL.LogMessage("CanPulseGuide", "Get - " & True.ToString())
440+
Return True
442441
End Get
443442
End Property
444443

@@ -618,8 +617,9 @@ Public Class Telescope
618617

619618
Public ReadOnly Property IsPulseGuiding() As Boolean Implements ITelescopeV3.IsPulseGuiding
620619
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
623623
End Get
624624
End Property
625625

@@ -643,8 +643,17 @@ Public Class Telescope
643643
End Sub
644644

645645
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
648657
End Sub
649658

650659
Public ReadOnly Property RightAscension() As Double Implements ITelescopeV3.RightAscension
Binary file not shown.

Software/OpenAstroTracker ASCOM/README.md

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,15 @@
1-
OpenAstroTracker ASCOM driver 0.1.3.1 RC1 : 2020-04-16
1+
OpenAstroTracker ASCOM driver 0.1.4b : 2020-04-18
22

3-
The first release candidate of the OAT ASCOM Driver. This is an early release candidate/beta, use at your own risk!
3+
This driver is still in a great deal of flux. Capacitor levels of flux. Use at your own risk!
44

55
* History
66
* 0.1.3.0 2020-04-15 : Initial release
77
* 0.1.3.1 2020-04-16 : BUGFIX : Allow , as decimal separator where Windows regional settings use it.
8+
* 0.1.4b 2020-04-18 : CHANGE : Implement pulse guiding.
89

910
* Arduino information
1011
* Tested on Arduino Uno. No other variants of Arduino have been tested.
11-
* Currently built for Version V1.6.25 of the Arduino Code (As of 2020-04-15)
12+
* Currently built for Version V1.6.27 of the Arduino Code (As of 2020-04-18)
1213
* Uncomment #define SUPPORT_SERIAL_CONTROL in Globals.h
1314
* Leave #define DEBUG_MODE in Globals.h commented.
1415

@@ -34,6 +35,5 @@ The first release candidate of the OAT ASCOM Driver. This is an early release c
3435
* You are welcome to play with the PC Control code included in "OAT PC Control" in this branch, but be aware it's not ready for prime time yet.
3536
* Implementation of AltAz methods and properties
3637
* Ability to set home position of mount via ASCOM
37-
* ASCOM guide functionality
3838
* ASCOM local server wrapper (Need help!)
3939

0 commit comments

Comments
 (0)