ASCOM Driver 0.1.4b

Supports guiding, should work within ASCOM POTH for multiple clients

Author: EorEquis

Software/OpenAstroTracker ASCOM/OpenAstroTracker ASCOM/Driver.vb

@@ -40,7 +40,7 @@ Public Class Telescope
     '
     ' Driver ID and descriptive string that shows in the Chooser
     '
-    Private Version As String = "0.1.3.1 RC1"
+    Private Version As String = "0.1.4b"
     Friend Shared driverID As String = "ASCOM.OpenAstroTracker.Telescope"
     Private Shared driverDescription As String = "OpenAstroTracker Telescope"
 
@@ -435,10 +435,9 @@ Public Class Telescope
     End Property
 
     Public ReadOnly Property CanPulseGuide() As Boolean Implements ITelescopeV3.CanPulseGuide
-        ' This will be true as we get around to pulse guiding
         Get
-            TL.LogMessage("CanPulseGuide", "Get - " & False.ToString())
-            Return False
+            TL.LogMessage("CanPulseGuide", "Get - " & True.ToString())
+            Return True
         End Get
     End Property
 
@@ -618,8 +617,9 @@ Public Class Telescope
 
     Public ReadOnly Property IsPulseGuiding() As Boolean Implements ITelescopeV3.IsPulseGuiding
         Get
-            TL.LogMessage("IsPulseGuiding Get", "Not implemented")
-            Throw New ASCOM.PropertyNotImplementedException("IsPulseGuiding", False)
+            Dim retVal As Boolean = Convert.ToBoolean(CInt(CommandString(":GIG")))
+            TL.LogMessage("isPulseGuiding Get", retVal.ToString)
+            Return retVal
         End Get
     End Property
 
@@ -643,8 +643,17 @@ Public Class Telescope
     End Sub
 
     Public Sub PulseGuide(Direction As GuideDirections, Duration As Integer) Implements ITelescopeV3.PulseGuide
-        TL.LogMessage("PulseGuide", "Not implemented")
-        Throw New ASCOM.MethodNotImplementedException("PulseGuide")
+        If Not AtPark Then
+            TL.LogMessage("PulseGuide", Direction.ToString + " " + Duration.ToString)
+            Dim dir As String, length As String, pgCmd As String = ":MG"
+            dir = Direction.ToString.Substring(5, 1)
+            length = Right("0000" + Duration.ToString, 4)
+            pgCmd = pgCmd + dir + length
+            CommandBlind(pgCmd, False)
+        Else
+            TL.LogMessage("PulseGuide", "Parked")
+            Throw New ASCOM.ParkedException("PulseGuide")
+        End If
     End Sub
 
     Public ReadOnly Property RightAscension() As Double Implements ITelescopeV3.RightAscension

Software/OpenAstroTracker ASCOM/OpenAstroTracker ASCOM/OpenAstroTracker Setup.exe

@@ -1,14 +1,15 @@
-OpenAstroTracker ASCOM driver 0.1.3.1 RC1 : 2020-04-16
+OpenAstroTracker ASCOM driver 0.1.4b : 2020-04-18
 
-The first release candidate of the OAT ASCOM Driver.  This is an early release candidate/beta, use at your own risk!
+This driver is still in a great deal of flux.  Capacitor levels of flux.  Use at your own risk!
 
 * History
 	* 0.1.3.0	2020-04-15		:		Initial release
 	* 0.1.3.1	2020-04-16		:		BUGFIX : Allow , as decimal separator where Windows regional settings use it.
+	* 0.1.4b	2020-04-18		:		CHANGE : Implement pulse guiding.
 
 * Arduino information
 	* Tested on Arduino Uno.  No other variants of Arduino have been tested.
-	* Currently built for Version V1.6.25 of the Arduino Code (As of 2020-04-15)
+	* Currently built for Version V1.6.27 of the Arduino Code (As of 2020-04-18)
 	* Uncomment #define SUPPORT_SERIAL_CONTROL in Globals.h
 	* Leave #define DEBUG_MODE in Globals.h commented.
 
@@ -34,6 +35,5 @@ The first release candidate of the OAT ASCOM Driver.  This is an early release c
 		* 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.
 	* Implementation of AltAz methods and properties
 	* Ability to set home position of mount via ASCOM
-	* ASCOM guide functionality
 	* ASCOM local server wrapper (Need help!)