Общероссийская неделя "Астрономия на тротуаре" - 15-17 апреля
0 Пользователей и 1 Гость просматривают эту тему.
Public Sub PulseGuide(ByVal Direction As GuideDirections, _ ByVal Duration As Long) Dim d As String Me.CommandBlind "RG" ' Assure we're in Guide rate Select Case Direction Case guideNorth: d = "n" Case guideSouth: d = "s" Case guideEast: d = "e" Case guideWest: d = "w" End Select Me.CommandBlind "M" & d g_Util.WaitForMilliseconds Duration Me.CommandBlind "Q" & d g_Util.WaitForMilliseconds 200 Me.CommandBlind "Q" & d End Sub
Проверил сейчас с ASCOM - наведение проводится по двум осям.