-
Notifications
You must be signed in to change notification settings - Fork 0
/
MountClass.vb
30 lines (24 loc) · 847 Bytes
/
MountClass.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Imports System.Math
Public Class MountClass
Public Device As ASCOM.DriverAccess.Telescope
Public Connected As Boolean
Public Function Connect(ByVal selectedTelescope As String) As Boolean
Try
Device = New ASCOM.DriverAccess.Telescope(selectedTelescope)
Device.Connected = True
Catch ex As Exception
MainForm.Logging("Failed to connect to mount " + selectedTelescope + ".")
Device.Connected = False
Return False
End Try
Connected = True
MainForm.Logging("Connected to mount " + selectedTelescope + ".")
Return True
End Function
Public Sub Disconnect()
Device.Connected = False
Device = Nothing
Connected = False
MainForm.Logging("DisConnected from mount.")
End Sub
End Class