Друк

[Гість]

Ласкаво просимо, Гість. Будь ласка, увійдіть або зареєструйтеся.
24 Квітня 2024, 20:24:59

1 година 1 день 1 тиждень 1 місяць Назавжди

Увійти

[Новини]

•    Новини
•      Астрономія
•      Астрозаходи
•    Життя клуба
•      Новини
•      Проекти
•      Заходи
•      Звіти про спостереження
•      Документи
•    Статті
•      Обладнання та телескопи
•      Спостереження
•      Астрофотографія
•      Астрософт
•      Астрономія в Україні
•      Астрономи шуткують
•      Інше
•     
•      Файловий архів

Наш канал

Наші сайти

Астро-сайти

Програми

Наш канал

Наші сайти

Астро-сайти

Програми

[algon]

привет!

кто-то может написать небольшую утилиту, которую можно будет запускать с консоли и которая будет парковать через  ASCOM либо все подключенные телескопы или заранее выбранный (что проще?)

[Freedeniz]

Поясните, что значит парковать?..желательно тех задание поподробней описать.

[Lisnyk]

Паркування - переміщення монтування телескопа у певну визначену позицію, наприклад на Полярну, перед її вимкненням. Після повторного вмикання монтування не потрібно знову здійснювати її налаштування...

[algon]

Поясните, что значит парковать?..желательно тех задание поподробней описать.

даже не знаю как можно подробнее написать

создать объект Telescope для подключенной к компу монтировке
выполнить для него Park();
выход

если будет "час та надхнення" то корректно закрыть аскомовские камеры. но это не обязательно.

цель: при отключении 220в комп достнимет последний кадр и корректно все закроет. при включении привязка по звездам уже будет не нужна.

[Uterr]

а как вообще можно запарковать телескоп, если не мы его распарковывали и управляли им? у телескопа, точнее у монтировки, энкодера же нету.. тоесть мы не знаем в каком положении телескоп, когда включаем нашу утилиту для парковки

но я могу и путать 

[tlgleonid]

Насколько я понял, все данные о координатах имеет аском. Так что написание програмки при наличии монтировки для тестирования, не очень сложная задача.

[algon]

Насколько я понял, все данные о координатах имеет аском. Так что написание програмки при наличии монтировки для тестирования, не очень сложная задача.

по координатам - именно так.
монтировка не нужна. с аскомом идет эмулятор.

[Shadow]

привет!
могу  сделать на delphi либо на Visual C++
надо только более развернутое ТЗ и API ASCOM-а ..

[algon]

привет!
могу  сделать на delphi либо на Visual C++
надо только более развернутое ТЗ и API ASCOM-а ..

API
http://ascom-standards.org/Standards/Index.htm

ТЗ
утилита, выполняемая с коммандной строки. не приложение с окнами!!!!

запускаемся;
находим активный телескоп (или настраиваем что будем отключать, любой вариант. что проще);
делаем ему Park();
закрываем соединение;
выходим;

[tlgleonid]

Я так понимаю, что нужно взять вот этот визуабэйсиковский фрагмент из EQMOD и реализовать его на нормальном языке: (Во вложении хедер к библиотеке с функциями драйвера и dll эмулятора)
Как все будет работать с настоящим драйвером, я не знаю.

Public Sub ParkHome()
    Dim currentdecpos As Double
    Dim currentrapos As Double
    Dim i As Long
    Dim j As Long

    HC.TrackingFrame.Caption = HC.oLangDll.GetLangString(121) & " " & HC.oLangDll.GetLangString(178)
    gEQparkstatus = 2

    ' Save Alignment if required
    Call StarEditform.AligmentStarsPark

    PEC_StopTracking

    eqres = EQ_MotorStop(0)          ' Stop RA Motor
    If eqres <> EQ_OK Then
            GoTo Endhome
    End If
    eqres = EQ_MotorStop(1)          ' Stop DEC Motor
    If eqres <> EQ_OK Then
            GoTo Endhome
    End If

    'Wait until RA motor is stable

    Do
       eqres = EQ_GetMotorStatus(0)
       If (eqres = EQ_NOTINITIALIZED) Or (eqres = EQ_COMNOTOPEN) Or (eqres = EQ_COMTIMEOUT) Then
            GoTo Endhome
       End If
    Loop While (eqres And EQ_MOTORBUSY) <> 0
   
    'Wait until DEC motor is stable

    Do
       eqres = EQ_GetMotorStatus(1)
       If (eqres = EQ_NOTINITIALIZED) Or (eqres = EQ_COMNOTOPEN) Or (eqres = EQ_COMTIMEOUT) Then
            GoTo Endhome
       End If
    Loop While (eqres And EQ_MOTORBUSY) <> 0
   
    'Read Motor Values
   
'    currentrapos = Delta_RA_Map(EQ_GetMotorValues(0))
'    currentdecpos = Delta_DEC_Map(EQ_GetMotorValues(1))

    gTrackingStatus = 0
   
    currentrapos = EQ_GetMotorValues(0)
    currentdecpos = EQ_GetMotorValues(1)
   
    gRAEncoderlastpos = currentrapos
    gDECEncoderlastpos = currentdecpos
   
    writelastpos   ' Save current position
   
    gRAEncoderUNPark = RAEncoder_Home_pos
    gDECEncoderUNPark = gDECEncoder_Home_pos
   
    writeUnpark
   
    i = Abs(currentrapos - RAEncoder_Home_pos)
    j = Abs(currentdecpos - gDECEncoder_Home_pos)
   
    ' Slew Both motors to the home position
   
    If i <> 0 Then
        If currentrapos < RAEncoder_Home_pos Then
            eqres = EQ_StartMoveMotor(0, 0, 0, i, GetSlowdown(i))
        Else
            eqres = EQ_StartMoveMotor(0, 0, 1, i, GetSlowdown(i))
        End If
    End If
   
    If j <> 0 Then
        If currentdecpos < gDECEncoder_Home_pos Then
            eqres = EQ_StartMoveMotor(1, 0, 0, j, GetSlowdown(j))
        Else
            eqres = EQ_StartMoveMotor(1, 0, 1, j, GetSlowdown(j))
        End If
    End If

   
    HC.Add_Message (HC.oLangDll.GetLangString(5035))
    HC.ParkTimer.Enabled = True
    ' No need to wait at this point - return control to main routine
   
    HC.Frame15.Caption = HC.oLangDll.GetLangString(146) & " " & HC.oLangDll.GetLangString(50)
    Call writeRAlimit
    Call SetParkCaption

Endhome:

End Sub

[LifeIsGood]

Леня, все намного проще. VB Script для этого дела вполне достаточно, а он есть на любой Win32 машине. Другой вопрос как получить доступ к уже активному телескопу минуя POTH. Это может быть невозможно

[algon]

Да там есть метод Park(). По идее он знает куда надо повернуть телескоп. Этого должно быть достаточно.

Basic в любой реинкарнации не хочется...

[tlgleonid]

Метод Park() я видел, но почему-то в EQMOD он не используется.

[Thomas]

Судя из архива что прислал tlgleonid есть готовая dll'ка с довольно хорошим описанием. + есть описание метода на VBasic выше. Вызывать dll хоть с Visual C++, хоть с делфи не такая уж сложная задача (писал как-то dll на C++ и вызывал с Delphi). Не могу понять в чем проблема, надо взять и попробовать. 

[LifeIsGood]

Я вас умоляю Вам шашечки или ехать? Или это религиозное? Это же не проект, требующий поддержки 100 программистов по всему миру. Хотя можно конечно это все написать используя какой-нить супер-пупер инструментарий за хххх$

Вот скрипт паркующимй скоп

dim objTelescope
set objTelescope = wscript.CreateObject("POTH.Telescope")
objTelescope.Connected = True
objTelescope.Park
objTelescope.Connected = False


Проблема в том, что скоп должен быть настроен через ПОС. Проблема в организации подобного для произвольного активного скопа.
Для EQMod такое тоже должно сработать, так как он работает подобно хабу.

[algon]

Я вас умоляю Вам шашечки или ехать? Или это религиозное? Это же не проект, требующий поддержки 100 программистов по всему миру. Хотя можно конечно это все написать используя какой-нить супер-пупер инструментарий за хххх$

это я вас умоляю кто у нас платит ХХХХ...
ну это тоже не критично, но че-то хочется грузить сотни килобайт ненужного кода.

dim objTelescope
set objTelescope = wscript.CreateObject("POTH.Telescope")
objTelescope.Connected = True
objTelescope.Park
objTelescope.Connected = False

пасибо!
проблема как раз в том что собрать это у меня нечем можно было бы обойтись максимом но он врядли получит сигнал что винда в hibernate уходит.
ставить себе среду разработки чтобы скомпилировать десяток строк не хочется, но, похоже, придется

произвольный не обязательно. можно конткретный, но как его указать?

[LifeIsGood]

Поэтому и предложил VB Script
Его не нужно устанавливать. Создать файлик ParkScope.vbs в него записать указанный текст. И давжды на нем КЛИКНУТЬ! 

[Thomas]

Поэтому и предложил VB Script
Его не нужно устанавливать. Создать файлик ParkScope.vbs в него записать указанный текст. И давжды на нем КЛИКНУТЬ! 

+1 

[tlgleonid]

А есть уверенность в том, что этот скриптик сработает правильно с EQMOD? Похоже, что там есть использование дополнительной математики, связанной с алгоритмами выравнивания по N звездам и PEC и идет пересчет данных в связи с этим.

[LifeIsGood]

Метод Park() за это и отвечает.