View Single Post
  #6  
Old 25-09-2016, 10:28 PM
troypiggo's Avatar
troypiggo (Troy)
Bust Duster

troypiggo is offline
 
Join Date: Nov 2008
Location: Brisbane, Australia
Posts: 4,846
Thanks so much guys. You're right, the answer was to set RA=(LST-6hrs). Assume it would be plus 6hrs if Northern Hemisphere, and Dec should be 90 instead of -90.

Here's the very basic script. Please excuse any odd coding practices - I'm not a programmer. Test it first yourself with finger on the mount control "all stop" button at the ready, just in case. It worked for me tonight, but LST was more than 6. I just added the little if/then in case less than 6 to avoid negative RA, but that bit is untested.

Code:
' ####################
' temma_park.vbs
' Script to park at RA=(LST-6), DEC=-90
' by Troy Piggins
' #########################

Option Explicit

' #########################
Dim objChooser,objScope,strScopeProgID
Set objChooser=WScript.CreateObject("ASCOM.Utilities.Chooser")
objChooser.DeviceType="Telescope"
strScopeProgID=objChooser.Choose(strScopeProgID)
' connect to ASCOM, unpark, and start tracking
Set objScope=WScript.CreateObject(strScopeProgID)
objScope.Connected=True

If objScope.AtPark Then
  objScope.Unpark
End If

If Not objScope.Tracking Then
  objScope.Tracking=True
End If

Dim hmsLST,hmsRAPark,degDecPark

hmsLST=objScope.SiderealTime
if hmsLST<6 then
  hmsLST=hmsLST+24
end if

hmsRAPark=hmsLST-6
degDecPark=-90

objScope.SlewToCoordinates hmsRAPark,degDecPark
objScope.Tracking=False
objScope.Park
objScope.Connected=False
WScript.Echo "Done."
Reply With Quote