ISAAC - программа расчёта телескопа Ньютона или очередной "велосипед"

[angelsky]

Мои замечания на счёт работы:
В в Офис 2000 прога вылетает( )
В опен офисе я вижу что нельзя задать фокусное расстояние, кнопок нет( ). При попытке изменить в строке появляется формула и .... в наглую задаю , так другие параметры не меняются. При нажатии чёртеж , выдаёт :ошибка и пр....
Так что пока для меня эта версия неработает.

[lazyBSD]

Так что пока для меня эта версия не работает.

+1

[angelsky]

 

[INPan]

Мои замечания на счёт работы:
В в Офис 2000 прога вылетает( )
В опен офисе я вижу что нельзя задать фокусное расстояние, кнопок нет( ). При попытке изменить в строке появляется формула и .... в наглую задаю , так другие параметры не меняются. При нажатии чёртеж , выдаёт :ошибка и пр....
Так что пока для меня эта версия неработает.

Дело в том, что исходные данные задаются в верхнем блоке ячеек. Нижний блок - это вычисляемые параметры. Фокусное расстояние задать нельзя, его можно только подогнать настройкой относительного отверстия. В первой версии было наоборот, но я послушался советов форумчан и поменял местами относительное отверстие и фокусное расстояние. А вот теперь вижу, что был не прав. Надо было оставить фокусное расстояние задаваемым параметром, а относительное отверстие - расчётным.
Прошу обратить внимание: параметры будущего телескопа можно задавать только в верхнем блоке ячеек листа "Исходные данные"!
Ячейки нижнего блока содержат формулы, их менять нельзя!

[INPan]

Мои замечания на счёт работы:
В в Офис 2000 прога вылетает( )

А чем так хорош 2000 Офис? Может проще перейти на 2003?

[lazyBSD]

Ячейки нижнего блока содержат формулы, их менять нельзя!

Игорь, в оупенофис 2.3 (WinXP) оно вообще не открывается.

[lazyBSD]

PS: Еще просьба - из обших соображений переименовать как файл, так и архив латинскими буквами - при разархивации в среде Linux получаются кракозябры в имени файла.

Алексей, здесь идет речь про вторую версию программы Игоря, она на третьей странице. В ней используются макросы. С включенными макросами файл не открывается.

[lazyBSD]

unrar x ...
http://www.rarlab.com/rar_add.htm

[INPan]

Алексей, здесь идет речь про вторую версию программы Игоря, она на третьей странице. В ней используются макросы. С включенными макросами файл не открывается.

Точно, так! Без макросов нельзя. Весь смысл последней версии ISAAC в том, что макросы рисуют чертёж телескопа.
Ну, а если с макросами даже в Опенофисе не работает, то стало быть - только Офис 2003.
У нас на работе весь софт создан в MS Access97, так вот у меня стоит весь Офис 2003 и дополнительно Access97. И при этом всё работает.
Ещё раз повторюсь. Последняя версия на третьей странице темы!

[INPan]

Можно куда-нибудь одним куском выложить? На какой-нибудь файловый архив или публичный ftp - вот, например - "Zalil.ru". А на архив поставить пароль, который сообщать только тут.

Можно. Залил архив на Залил.ру. Получил вот такую инфу:

http://slil.ru/25159230

Это, как я понял, ссылка для скачивания. Не знаю только установился ли пароль ISAAC_NEWTON.

[INPan]

Убедил 7zip разархивировать таки сей архив.

OpenOffice Calc - Не работает. Валится.

Конечно завалится. Там ведь функия Бесселя работает, которая дифракционную картину считает. Она в макросе сидит. Там всего два макроса: один вышеупомянутый, второй делает чертёж.
Так что Программа корректно работает только с MS Excel 2003! А жаль! Столько трудов вложено!

[INPan]

Вы не поверите - НО ВАША ПРОГРАММА ЗАРАБОТАЛА!
Скачанная одним куском и разархивированная - работает (OpenOffice 2.3.0.5 Linux i686).

Это радует!

PS: Все работает колме "элементов конструкции" - что-то очень мелко написано и нарисовано - ничего не разобрать.

А вот это не радует!
А что, разве там масштаб нельзя увеличить до 400%?

[INPan]

Итак Программа лежит здесь http://slil.ru/25159230   Пароль ISAAC_NEWTON.

[INPan]

Вот что там видно (см. прикрепленный файл)

Мама дорогая!
Видать свойства надписи формата Офис2003 Опенофис не понимает.
Вот кусок кода макроса, который делает объект "Надпись" с вертикальным шрифтом

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Cells(2270, 222), Cells(2270, 223), Cells(2270, 224), Cells(2270, 225)).Select
Это диаметр трубы.
Может если на Vertical заменить будет нормально работать в Опенофис?

Алексей, а чертёж-то хоть нормально рисует?

[INPan]

Вот что там видно (см. прикрепленный файл). Масштаб 200%. Проблема в том, что масштаб получается разный - при 200% на других страницах все ООООЧЕНЬ большое....

Не-е, на этом листе нужно только 400%. А что, разве Опенофис не позволяет разный масштаб на листах устанавливать?

[lazyBSD]

А что, разве Опенофис не позволяет разный масштаб на листах устанавливать?

Не позволяет.

У меня программа по-прежнему не открывается при включенных макросах.

[INPan]

Ага, нормально! Только вот ориентацию текста на фотоаппарате нужно поменять. Для этого его надо разгруппировать на листе "Элементы конструкции", выделить надпись, залезть в её свойства и сделать текст вертикальным. А тот кривой фотоаппарат с "Чертежа" удалить, а новый опять сгруппировать и скоприовать на чертёж если нужно.

А кнопка "Чертёж" на листе "Исходные данные" работает?
При её нажатии заводится макрос, который удаляет чертёж и рисует новый.

[INPan]

Странно. А почему так растянуто по горизонтали!
Чертёж должен иметь соотношение сторон 2/3 как у формата А4.

[INPan]

ЗЫ: Я бы порекомендовал из общих соображений переименовать все функции латинскими буквами.

Правильное замечание! Попробую!

[INPan]

У меня ж разрешение 1280 на 800  Хотя, дело, скорее всего, не в этом.

Мне тоже так кажется. Хотя может быть и в этом.