Друк

[Гість]

Ласкаво просимо, Гість. Будь ласка, увійдіть або зареєструйтеся.
25 Травня 2022, 10:02:52

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

Увійти

[Новости]

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

Наш канал

Наши сайты

Астро-сайты

Программы

Наш канал

Наши сайты

Астро-сайты

Программы

[Серега]

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

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

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

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

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



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


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

остальные строки этого файла - цвета некоторых элементов программы. значения от 0 до 16.

[Серега]

картинки

[Серега]

,,,

[Серега]

,,,

[Thomas]

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 ?

И сразу скажу вам надо разделить код от графики. Через неделю вы будете полдня разбираться что наваяли.

[Серега]

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

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

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

[Sergey07]

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

[Sergey07]

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

Уже не поммню ДОС. Возможно нужно прописать путь (path ) к компилятору Паскаля или его библиотекам в config.sys или autoexec.bat

[Серега]

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

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

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

[Серега]

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

...в полночь происходит сброс часов в 0;

[logrus]

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

Чтобы турбо-паскалевская программка, созданная с использованием модуля Graph, могла работать где угодно, вместе с ней необходимо распространять *.bgi и *.chr файлы.

[Sergey07]

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

...в полночь происходит сброс часов в 0;

Думаю, это можно обойти либо изменением системного времени, либо каким-нибуть условием. (постараюсь на досуге подумать)

[logrus]

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

[Серега]

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

Чтобы турбо-паскалевская программка, созданная с использованием модуля Graph, могла работать где угодно, вместе с ней необходимо распространять *.bgi и *.chr файлы.

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

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


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

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

[vvv2007]

та мне все равно. она работает и делает что нужно - нечего там через неделю лазить.
ну и я же предупреждал чтоб не пугались
и кстати насчет mir := i0 - оно не должно быть больше 10 и я тогда еше не знал как это записать правильно

В таком случае все равно неверно. При i0>10 и i0<0, mir может быть каким угодно.