Halt, Park, Additional Logging, Test App UI improvements

Author: EorEquis

Software/Arduino code/OpenAstroTracker/b_setup.ino

@@ -11,7 +11,7 @@ DayTime HACorrection;
 void setup() {
 
   //Serial.begin(38400);
-  Serial.begin(9600);
+  Serial.begin(57600);
   //BT.begin(9600);
 
 #ifdef DEBUG_MODE

Software/OpenAstroTracker ASCOM/OAT PC Control/My Project/AssemblyInfo.vb

@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers 
 ' by using the '*' as shown below:
 
-<Assembly: AssemblyVersion("6.4.0.0")> 
-<Assembly: AssemblyFileVersion("6.4.0.0")> 
+<Assembly: AssemblyVersion("0.1.0.0")> 
+<Assembly: AssemblyFileVersion("0.1.0.0")> 

Software/OpenAstroTracker ASCOM/OAT PC Control/frmMain.Designer.vb

@@ -117,6 +117,36 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ToolTipPark.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>106, 17</value>
+  </metadata>
+  <metadata name="ToolTipHalt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>488, 17</value>
+  </metadata>
+  <metadata name="ToolTipSlewAsync.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>339, 17</value>
+  </metadata>
+  <data name="btnSlewAsync.ToolTip" xml:space="preserve">
+    <value>Slews the mount to the selected coordinates.
+
+This is an asynchronous call, meaning control returns to the application
+immediately, without waiting for a response from the mount.
+
+This functionality is not yet implemented.
+</value>
+  </data>
+  <metadata name="ToolTipSlew.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>222, 17</value>
+  </metadata>
+  <data name="btnSlewSync.ToolTip" xml:space="preserve">
+    <value>Slews the mount to the selected coordinates.
+
+This is a synchronous call, meaning control does not 
+return to the application until the mount returns a response.
+
+This will likely change in near future to block until
+slew is finished.</value>
+  </data>
   <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>

Software/OpenAstroTracker ASCOM/OAT PC Control/frmMain.resx

@@ -30,16 +30,17 @@ Public Class frmMain
             driver.Connected = True
             updateValues()
 
-            'nud_Decd.Value = CInt(txtMountDec.Text.Substring(0, 2))
-            'nud_Decm.Value = CInt(txtMountDec.Text.Substring(4, 2))
-            'nud_Decs.Value = CInt(txtMountDec.Text.Substring(8, 2))
+            nud_Decd.Value = CInt(txtMountDec.Text.Substring(0, 2))
+            nud_Decm.Value = CInt(txtMountDec.Text.Substring(4, 2))
+            nud_Decs.Value = CInt(txtMountDec.Text.Substring(8, 2))
 
-            'nud_RAh.Value = CInt(txtMountRA.Text.Substring(0, 2))
-            'nud_RAm.Value = CInt(txtMountRA.Text.Substring(4, 2))
-            'nud_RAs.Value = CInt(txtMountRA.Text.Substring(8, 2))
+            nud_RAh.Value = CInt(txtMountRA.Text.Substring(0, 2))
+            nud_RAm.Value = CInt(txtMountRA.Text.Substring(4, 2))
+            nud_RAs.Value = CInt(txtMountRA.Text.Substring(8, 2))
 
+            lblVersion.Text = driver.Action("Telescope:getFirmwareVer","")
 
-            ' Timer1.Enabled = True
+            'Timer1.Enabled = True
         End If
         SetUIState()
 
@@ -146,4 +147,18 @@ Public Class frmMain
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         updateValues()
     End Sub
+
+    Private Sub btnPark_Click(sender As Object, e As EventArgs) Handles btnPark.Click
+        If btnPark.Text = "Park" Then
+            driver.Park()
+            btnPark.Text = "Unpark"
+            btnSlewSync.Enabled = False
+            btnHalt.Enabled = False
+        Else
+            driver.Unpark()
+            btnPark.Text = "Park"
+            btnSlewSync.Enabled = True
+            btnHalt.Enabled = True
+        End If
+    End Sub
 End Class