ASCOM Script
Previous Top Next

The program is fully compatible with ASCOM platform ver.5.0. All the methods of the ASCOM.Dome object are implemented here.  Sample VBS script that runs the dome driver is installed in Help directory.

Public Class Dome
    Public Sub New()
    Public Shared Sub RegisterASCOM(ByVal T As Type)
    Public Shared Sub UnregisterASCOM(ByVal T As Type)
#Region "IDome Members"
    Public Sub AbortSlew()
    Public ReadOnly Property Altitude() As Double
    Public ReadOnly Property AtHome() As Boolean
    Public ReadOnly Property AtPark() As Boolean
    Public ReadOnly Property Azimuth() As Double
    Public ReadOnly Property CanFindHome() As Boolean
    Public ReadOnly Property CanPark() As Boolean
    Public ReadOnly Property CanSetAltitude() As Boolean
    Public ReadOnly Property CanSetAzimuth() As Boolean
    Public ReadOnly Property CanSetPark() As Boolean
    Public ReadOnly Property CanSetShutter() As Boolean
    Public ReadOnly Property CanSlave() As Boolean
    Public ReadOnly Property CanSyncAzimuth() As Boolean
    Public Sub CloseShutter()
    Public Sub CommandBlind(ByVal Command As String)
    Public Function CommandBool(ByVal Command As String) As Boolean
    Public Function CommandString(ByVal Command As String) As String
    Public Property Connected() As Boolean
    Public ReadOnly Property Description() As String
    Public ReadOnly Property DriverInfo() As String
    Public Sub FindHome()
    Public ReadOnly Property InterfaceVersion() As Short
    Public ReadOnly Property Name() As String
    Public Sub OpenShutter()
    Public Sub Park()
    Public Sub SetPark()
    Public Sub SetupDialog()
    Public ReadOnly Property ShutterStatus() As ShutterState
    Public Property Slaved() As Boolean
    Public Sub SlewToAltitude(ByVal Altitude As Double)
    Public Sub SlewToAzimuth(ByVal Azimuth As Double)
    Public ReadOnly Property Slewing() As Boolean
    Public Sub SyncToAzimuth(ByVal Azimuth As Double)
#End Region

#Region "Swich"
    Public Property Scope() As Boolean
    Public Property CCD() As Boolean
    Public Property Light() As Boolean
    Public Property Fan() As Boolean
    Public Property All() As Boolean
#End Region

#Region "Ascom Extended Function"

    Public Sub SyncWithScope()
    Public Sub DerotateDome()
    Public Sub Wait(ByVal time)
    Public Function DomeError() As Integer
#End Region

#Region "Dome Scope Command"
    Public Function DomeConnectScope() As Boolean
    Public Function DomeScopeIsConnected() As Boolean
    Public Function DomeScopeRa() As Double
    Public Function DomeScopeDec() As Double
    Public Function DomeScopeAlt() As Double
    Public Function DomeScopeAz() As Double
#End Region

End Class