Друк

[Гість]

Ласкаво просимо, Гість. Будь ласка, увійдіть або зареєструйтеся.
02 Жовтня 2024, 16:22:26

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

Увійти

[Новини]

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

Наш канал

Наші сайти

Астро-сайти

Програми

Наш канал

Наші сайти

Астро-сайти

Програми

[LifeIsGood]

Хочу только уточнить, что я этот скрипт не пробовал дома. 

[Thomas]

Так же возможно что при вызове с консоли, а не с Explorer потребуется указать интерпретатор VBasic.

что-то типа такого
vb.exe somescript.bas

[LifeIsGood]

Да нет, не надо. Главное расширение VBS использовать

[algon]

Так же возможно что при вызове с консоли, а не с Explorer потребуется указать интерпретатор VBasic.

что-то типа такого
vb.exe somescript.bas

vb.exe есть в XP по-умолчанию?

[LifeIsGood]

Создайте файл что-то типа 1.vbs с текстом
msgbox "Hello world"

И дважды кликните иди запустите с консоли (cmd?). Сразу станет все понятно.

[Thomas]

Я просто предположил 
В линухах просто интерпретатор нужно указывать. Привычка.

[tlgleonid]

Хочу только уточнить, что я этот скрипт не пробовал дома. 

А можно и не пробовать. Поскольку он явно оторван от драйвера и создает лишь новый объект. Что бы реально управлять телескопом, нужно делать так, как делают программы-планетарии.

[algon]

Создайте файл что-то типа 1.vbs с текстом
msgbox "Hello world"

И дважды кликните иди запустите с консоли (cmd?). Сразу станет все понятно.

ух ты!
пасибо!
этого более чем достаточно

[LifeIsGood]

Ой Леня...
Ты пробовал работать с объектом POTH (или EQMod) с помощью ASCOM? Эти объекты разрешают множественное одновременное подключение к ним. Из программы планетария, программы автогидирования и еще чего нибудь полезного.

algon, окошка с Hello World оказалось достаточно? 

[algon]

algon, окошка с Hello World оказалось достаточно? 

ага, мне уже нравится
не знал что такое уже возможно.

плохо, попробовать смогу только через неделю.
напишу что получилось.

[tlgleonid]

Ой Леня...
Ты пробовал работать с объектом POTH (или EQMod) с помощью ASCOM? Эти объекты разрешают множественное одновременное подключение к ним.

Естественно. Но для того, что бы что-то сделать, нужно сначала подключиться, а в твоем скрипте нет этого подключения. Поскольку я не очень знаком с особенностями визуал-басика, то сейчас на си экспериментирую с эмулятором. Пусть algon идет проверит твой скрипт (результат мне уже известен), а я буду копать с другой стороны.

[algon]

Ой Леня...
Ты пробовал работать с объектом POTH (или EQMod) с помощью ASCOM? Эти объекты разрешают множественное одновременное подключение к ним.

Естественно. Но для того, что бы что-то сделать, нужно сначала подключиться, а в твоем скрипте нет этого подключения. Поскольку я не очень знаком с особенностями визуал-басика, то сейчас на си экспериментирую с эмулятором. Пусть algon идет проверит твой скрипт (результат мне уже известен), а я буду копать с другой стороны.

Леня, у меня не получится проверить ближайшую неделю. Если что-то накопаешь - расскажи.

[LifeIsGood]

Ты с чем его опробовал?

"нужно сначала подключиться"
Ты про это?
objTelescope.Connected = True

[tlgleonid]

Все, Денис.
Я понял. Нужно указывать полное имя того драйвера, который используешь. В моем случае (с эмулятором) скрипт выглядит так:

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

[tlgleonid]

Что бы добиться универсальности, лучше написать, например на дельфях, нормальную программу. Тогда можно парковать скоп по какому-либо событию (нарпример, заряд батареи на ноуте упал ниже 20%). В приложении работающая софтина (добавил туда еще наведение по координатам):

исходный код:
uses comobj;

{$R *.DFM}


var MyTelescope: variant;

procedure TForm1.Button1Click(Sender: TObject);
begin
if MyTelescope.AtPark then
   begin
   MyTelescope.UnPark;
   Button1.Caption:='Парковать';
   end
   else
   begin
   MyTelescope.Park;
   Button1.Caption:='Распарковать';
   end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  V: variant;
begin
  V := CreateOleObject('DriverHelper.Chooser');
  V.devicetype:='Telescope';
  Edit4.text:=V.Choose(Edit4.text);
  if Edit4.text='' then exit;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if Edit4.text='' then exit;
if not VarIsEmpty(MyTelescope) then
  begin
     MyTelescope.connected:=false;
     MyTelescope:= Unassigned;
     Button5.Caption:='Подключиться к телескопу';
     Button1.Enabled:=false;
     end
  else
     begin
     MyTelescope:= CreateOleObject(Edit4.text);
     MyTelescope.connected:=true;
     Edit5.Text:=MyTelescope.Description+'  '+MyTelescope.DriverVersion;
     Button5.Caption:='Отключиться от телескопа';
     if MyTelescope.AtPark then Button1.Caption:='Распарковать' else Button1.Caption:='Парковать';
     Button1.Enabled:=true;
     end;
end;

[tlgleonid]

Попробовал ради интереса повесить MyTelescope.Park на Destroy. Если винда валится, то приложение успевает сделать парковку телескопа. (В эмуляторе, конечно). Так что теперь можно конкретизировать задачу.

[algon]

Что бы добиться универсальности, лучше написать, например на дельфях, нормальную программу. Тогда можно парковать скоп по какому-либо событию (нарпример, заряд батареи на ноуте упал ниже 20%).

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

За помощь пасибо, буду пробовать.

[tlgleonid]

А что за камеры используются?
Просто мне кажется, что можно пойти намного дальше простой утилиты и написать софтину, которая будет по определенному плану снимать заданные участки неба с учетом условий (зари, пятен засветки, особенностей ланшафта и закрытости горизонта) и выполнять программу на ночь. В случае пропадания питания она будет всю технику садить, а в случае восстановления (если ее поместить в автозагрузку) снова все запускать и продолжать снимать недоснятое.
Или такое уже есть и я велосипед изобретаю?

[algon]

А что за камеры используются?
Просто мне кажется, что можно пойти намного дальше простой утилиты и написать софтину, которая будет по определенному плану снимать заданные участки неба с учетом условий (зари, пятен засветки, особенностей ланшафта и закрытости горизонта) и выполнять программу на ночь. В случае пропадания питания она будет всю технику садить, а в случае восстановления (если ее поместить в автозагрузку) снова все запускать и продолжать снимать недоснятое.
Или такое уже есть и я велосипед изобретаю?

потестировал... VBS с головой хватает. софт упса паркует монтировку.

всем большое спасибо за помощь!

по поводу программы.
такие планировщики уже есть, правда стоят дорого. и для фото дипская в наших условиях они особо не нужны, т.к. времени одной ночи хватает не больше чем на один объект.

панораму может снимать автоматически как максим, так и софт в комплекте eqmod-а. больше всего времени уходит на первоначальную установку. с учетом того, что всем оборудованием я управляю удаленно, извините,  лежа в теплой комнате на диване, то очень хочется, в случае каких-то проблем с питанием, иметь возможность как можно быстрее продолжить съемку без необходимости выходить на улицу

камеры - орионовская гидкамера и SSDS pro (которая 6МП) + qhy2pro + meade dsi pro как запасной гид. Все, кроме qhy, нормально поднимается после некорректного отключенния. максимум что можно захотеть от них - еще скачать кадр, если питание теряется во время экспозиции.