Контроллер КФ.

[MAKsutik]

Ваня есть просьба, если не напряжно, сделай в своей программе управления FW кнопку "ночной режим" которая будет менять цвет окна программы например на темно красный (или предоставить цветовую гамму пользователю, для самостоятельного выбора цвета).
Не знаю как дипскайщикам я снимаю планеты и приходится большую часть времени сидеть под монитором, утром глаза вылазят, думаю фитча будет очень полезна не только мне.

[Ivan7enych]

Ваня есть просьба, если не напряжно, сделай в своей программе управления FW кнопку "ночной режим" которая будет менять цвет окна программы например на темно красный (или предоставить цветовую гамму пользователю, для самостоятельного выбора цвета).

Во всех виндах есть стандартный способ изменить цвета всех окон. Выбирай хоть темнозеленыне, хоть темнокрасные цвета. Зачем программу эти засорять?

Есть способ еще проще - запускаешь максимдл и нажимаешь кнопку с красной луной.

[MaxMan]

Ваня... я знаю что Юрчик хочет. Попробую своими словами донести его мысли. 
Он тащится от твоей программки и хочет что-бы она была безупречна. Ему совсем не проблематично включать ночной режим в любом планетарии или в максиме.  Просто если софт специализированный, то логично предположить что спец.функции уже должны быть там встроены. А так как Юра у нас перфекционист и фактически является активным пользователем/тестером этого софта - он естественно хочет до тебя донести все эти ньюансы.
Естественно если это требует кардинальной переделки программы и на это времени нет - понятное дело что лучше забить.   

[Ivan7enych]

Имен нету на кнопках в программе написано 1)Filter1,2) Flter2,3) Filter3
У меня же 1)L,2)Red,3)Green

Повозился пол-дня, победил это дело. Пересоберу исходники дома и выложу результат. Передача массивов из С++ в COM в формате VBScript - редкостная и слабоописаная гадость...

[Ivan7enych]

Он тащится от твоей программки и хочет что-бы она была безупречна.

Да я понимаю. Внешний вид окон зависит и от версии виндов и от выбраного стиля. Там можно долго копаться...

Потом, для меня намного важнее совместимый со всем софтом аском плагин.

[MAKsutik]

Имен нету на кнопках в программе написано 1)Filter1,2) Flter2,3) Filter3
У меня же 1)L,2)Red,3)Green

Повозился пол-дня, победил это дело. Пересоберу исходники дома и выложу результат. Передача массивов из С++ в COM в формате VBScript - редкостная и слабоописаная гадость...

Ваня, супер!!! Жду не дождусь

[Ivan7enych]

Имен нету на кнопках в программе написано 1)Filter1,2) Flter2,3) Filter3
У меня же 1)L,2)Red,3)Green

Повозился пол-дня, победил это дело. Пересоберу исходники дома и выложу результат. Передача массивов из С++ в COM в формате VBScript - редкостная и слабоописаная гадость...

Ваня, супер!!! Жду не дождусь

Забери аском плагин и проверь у себя. У меня правда программа из под отладчика заработала, а сама по себе падает. Правда на этом компе аском платформа старая.

[MAKsutik]

Ваня если правильно понял качать вот это http://qhy.narod.ru/FWF/AIFilterWheelascom.zip ?
Вечером обкатаю, отпишусь.
Еще вопрос, вижу на скрин шоте у тебя только 6 фильтров, колесо то на 9 фильтров?

[Ivan7enych]

Еще вопрос, вижу на скрин шоте у тебя только 6 фильтров, колесо то на 9 фильтров?

То колесо может и на 9, а мое на 6.

[MAKsutik]

Ваня, проверил пока с Lucam Recorder, видит все 9фильтров, работает.
Имен так и нет, но устроит и так, главное что работает.
По позже попробую законектить с программой Торсена.

[MAKsutik]

Ваня еще вопрос, поставил термометр DS1631 че то нечего не меряет, прошивка поддерживает 1631?
Если да то подскажи в чем может быть причина.

[Ivan7enych]

Имен так и нет, но устроит и так, главное что работает.

Аском платформу поставь свежую, должно заработать.

Ваня еще вопрос, поставил термометр DS1631 че то нечего не меряет, прошивка поддерживает 1631?
Если да то подскажи в чем может быть причина.

У 1631 и 1624 чуть разный набор команд. Раньше я в прошивке переключал на то или другое. Сейчас и те и те должны работать.
Скомпилируй прошивку из нынешних исходников.

[MAKsutik]

Аском платформу поставь свежую, должно заработать.

аском 6 стоит

[MAKsutik]

У 1631 и 1624 чуть разный набор команд. Раньше я в прошивке переключал на то или другое. Сейчас и те и те должны работать.
Скомпилируй прошивку из нынешних исходников.

Если правильно понял в исходнике поддержка 1631 есть

#ifdef _DS1624

   #define startCMD    0xEE
   #define configByte  0x0A

#else

   #define startCMD    0x51
   #define configByte  0x0C

#endif

[Ivan7enych]

У 1631 и 1624 чуть разный набор команд. Раньше я в прошивке переключал на то или другое. Сейчас и те и те должны работать.
Скомпилируй прошивку из нынешних исходников.

Если правильно понял в исходнике поддержка 1631 есть

Почти попал. Это и было переключение между 2-мя типами датчиков. Сейчас оно не работает, т.к. опрашиваются оба типа сразу.

Код: [Выделить]

readyFlag = get_temperature_ready_flag(i);

if( readyFlag & 4 )
temperature_start(i, 0x51);
else
temperature_start(i, 0xEE);

[MAKsutik]

Ваня так что делать с термометром? 2 микросхемы 1631 не работают, прошивка последняя.

[Ivan7enych]

Ваня так что делать с термометром? 2 микросхемы 1631 не работают, прошивка последняя.

У меня все нормально с ними, позавчера паял - работают с разу.
Ножки А0,А1,А2 на ноль замкнул? Питание на микруху подал? SDA и SCL не перепутал?

[MAKsutik]

Да все правильно распаял, ладно ткну осцилографом посмотрю что на шинах.
Засада что то последнее время, купил 4шт атмега 16, не одна не захотела работать от внутреннего генератора, все только с кварцем, не захотел мучатся с коррекцией.

[MAKsutik]

Ваня прости    что тормашил тебя, нашел проблему, шину данных и тактовую местами попутал

[Ivan7enych]

Ваня прости    что тормашил тебя, нашел проблему, шину данных и тактовую местами попутал

Во-во. Ошибки обычно в самых глупых местах.

С атмегами странно, я покупал и впаял наверное десяток в фокусеры - все бегают без кварца.

Для FireCapture должен сгодиться скрипт от Wei Leong http://firecapture.wonderplanets.de/help/filterwheel.html
В котором имя фокусера заменено на "CustomFocuser.FilterWheel"

Код: [Выделить]

alert = function(s){WScript.Echo(s)};
var arg = WScript.arguments(0);
var F = new ActiveXObject("CustomFocuser.FilterWheel");
F.Connected = true;
F.Position = (arg);
alert("Filterwheel position is now " + arg.toUpperCase());
F.Connected = false;