Киевский клуб любителей астрономии "Астрополис"

astromagazin.net
* *
Ласкаво просимо, Гість. Будь ласка, увійдіть або зареєструйтеся.
17 Жовтня 2018, 10:48:34

Увійти

Автор Тема: софтинка для зеркалки с диззерингом.. под ДОС ))))  (Прочитано 827 раз)

0 Користувачів і 1 Гість дивляться цю тему.

Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

долго смотрел на старый ноутбук Р-1 и придумал ему применение - управлять затвором кенона через ЛПТ-порт, для сьемок без гидирования на обьективы, т.к. так и не осилил допаять и отладить програмируемый пультик.

попросил друга - он накидал мне на паскале примитивную програмку
которая из *.dat файла смотрела сколько экспозиций с какими паузами
 и сколько раз нужно снять.. интерфейса никакого и т.п..

Мне вбивание в файл этих данных быстро надоело и я засел за паскаль..
В результате через 2 дня родилось чудовисче которое может рулить
фотиком и делать заданные юзером подвижки монтировки между
экспозициями (6 разных подвижек, потом цикл подвижек повторяется),
вручную можно крутить монтировку и щелкать затвором.

Не знаю кому оно сейчас вообще нужно ;D, писал тупо для себя, но мало-ли, может кому пригодится.

в архиве есть исходники - не пугайтесь, паскаль 2 дня знаю :gigi: :gigi:



картинки:
1.окно запуска - выбор контактов порта под управление
2. режим ручного управления с клавиатуры.
3. режим програмного управления. экспозиция в процессе.


ЗЫ. может я что-то не так сделал но чем быстрее проц тем быстрее проходит секунда экспозиции :lol:
поэтому в файле s.dat есть строка куда нужно записать поДобранное опытным путем значение. у меня оно около 2100.

остальные строки этого файла - цвета некоторых элементов программы. значения от 0 до 16.
« Останнє редагування: 02 Лютого 2010, 23:22:16 від stepan »
Записаний

Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

картинки
Записаний

Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

,,,
Записаний

Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

,,,
Записаний

Thomas

  • Offline Offline
  • Повідомлень: 2307
  • Благодарностей: 1
  • Натер зеркало - получи +1 в карму

Цитувати
case i0 of

  0 : mir:= 0;

  1 : mir:= 1;

  2 : mir:= 2;

  3 : mir:= 3;

  4 : mir:= 4;

  5 : mir:= 5;

  6 : mir:= 6;

  7 : mir:= 7;

  8 : mir:= 8;

  9 : mir:= 9;

 10 : mir:= 10;

end;
А не проще ли просто mir := i0 ?

И сразу скажу вам надо разделить код от графики. Через неделю вы будете полдня разбираться что наваяли.
Записаний
Телескоп Алькор производства НПЗ
Телескоп-самопал D=150mm, F=1250, ГЗ - сфера собственного изготовления
Canon EOS 350D, Canon EF 24-85 USM, Юпитер 37 MC

Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

 :gigi:
та мне все равно. она работает и делает что нужно - нечего там через неделю лазить. :)

ну и я же предупреждал чтоб не пугались :gigi:

и кстати насчет mir := i0 - оно не должно быть больше 10 и я тогда еше не знал как это записать правильно ;D
Записаний

Sergey07

  • Клуб Астрополис
  • Offline Offline
  • Повідомлень: 2103
  • Благодарностей: 196
  • Бывший boris07

Что бы не подбирать опытным путём секунды нужно использоасть системное время - прямая дорога к использованию модуля DOS (команда gettime). 
Записаний
Sky-Watcher MaxView 127SP NEQ5-GoToStar
Nikula (8-32)*x50


Sergey07

  • Клуб Астрополис
  • Offline Offline
  • Повідомлень: 2103
  • Благодарностей: 196
  • Бывший boris07

так же там есть програмка DIZGRAPH.EXE которая по идее рисует смещения звезд после диззеринга, но почему то она запускается только из папки с компилятором паскаля.. из других папок нехотит >:(
хз короче. не знаю как побороть.
Уже не поммню ДОС. Возможно нужно прописать путь (path ) к компилятору Паскаля или его библиотекам в config.sys или autoexec.bat
Записаний
Sky-Watcher MaxView 127SP NEQ5-GoToStar
Nikula (8-32)*x50


Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

Что бы не подбирать опытным путём секунды нужно использоасть системное время - прямая дорога к использованию модуля DOS (команда gettime). 
спасибо за подсказку - теперь знаю какую команду юзать. а то в лит-ре по паскалю сам черт ногу сломит, особенно новичек :)

я почему то думал что миллисекунды (команда DELAY) на любом компе одинаковые... А вышло не так :hz:
Записаний

Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

Что бы не подбирать опытным путём секунды нужно использоасть системное время - прямая дорога к использованию модуля DOS (команда gettime). 

Цитувати
...в полночь происходит сброс часов в 0;
:(
Записаний

logrus

  • Offline Offline
  • Повідомлень: 681
  • Благодарностей: 14
  • Максим

так же там есть програмка DIZGRAPH.EXE которая по идее рисует смещения звезд после диззеринга, но почему то она запускается только из папки с компилятором паскаля.. из других папок нехотит >:(
хз короче. не знаю как побороть.
Чтобы турбо-паскалевская программка, созданная с использованием модуля Graph, могла работать где угодно, вместе с ней необходимо распространять *.bgi и *.chr файлы.
Записаний

Sergey07

  • Клуб Астрополис
  • Offline Offline
  • Повідомлень: 2103
  • Благодарностей: 196
  • Бывший boris07

Что бы не подбирать опытным путём секунды нужно использоасть системное время - прямая дорога к использованию модуля DOS (команда gettime). 

Цитувати
...в полночь происходит сброс часов в 0;
:(
Думаю, это можно обойти либо изменением системного времени, либо каким-нибуть условием. (постараюсь на досуге подумать)
Записаний
Sky-Watcher MaxView 127SP NEQ5-GoToStar
Nikula (8-32)*x50


logrus

  • Offline Offline
  • Повідомлень: 681
  • Благодарностей: 14
  • Максим

Условие простое: если вторая отметка времени меньше первой, то прибавить 24 часа ко второй отметке.
Записаний

Серега

  • Offline Offline
  • Повідомлень: 6279
  • Благодарностей: 370

так же там есть програмка DIZGRAPH.EXE которая по идее рисует смещения звезд после диззеринга, но почему то она запускается только из папки с компилятором паскаля.. из других папок нехотит >:(
хз короче. не знаю как побороть.
Чтобы турбо-паскалевская программка, созданная с использованием модуля Graph, могла работать где угодно, вместе с ней необходимо распространять *.bgi и *.chr файлы.

спасибо - заработало :up:

сменил архивчик во вложении.


и инфа по файлу diz.dat - порядок заполнения

значения в секундах времени.
Записаний

vvv2007

  • Offline Offline
  • Повідомлень: 2335
  • Благодарностей: 0

:gigi:
та мне все равно. она работает и делает что нужно - нечего там через неделю лазить. :)
ну и я же предупреждал чтоб не пугались :gigi:
и кстати насчет mir := i0 - оно не должно быть больше 10 и я тогда еше не знал как это записать правильно ;D
В таком случае все равно неверно. При i0>10 и i0<0, mir может быть каким угодно.
Записаний
Sky-Watcher BD2001P, Sky-Watcher ED80 OTA PRO, SW 1206, EQ-6 SynTrek, БПЦ2 7х50, Canon 400Da, QHY-5, Logitech 9000Pro