Создание DLL-моделей в Proteus. Описание VSM API.

[MONIKYS]

Перевёл код от Пётр_В с Бейсика на Си.
Неправильно измеряет импульс,функция PinColor.
В Temp от 0 до 127 ещё боле менее, потом резко 255.
Может кто проверить? Или у меня комп глючит или меня.
Прот 8.6. Визуал 2017.
Спасибо не проходящим мимо.

[ProtAS-13]

Может кто проверить?

Честно говоря, так и не понял, чего хотите добиться - трудно разбирать чужой, хоть и несложный, код.
К примеру, как я понял, вы пытаетесь выделить фронты сигнала, сравнивая предыдущее (из структуры ...-›OldState) и текущее состояния контакта. Не проще воспользоваться функциями isedge/isnegedge/isposedge ?
Далее, переменная Temp с типом данных BYTE. Но в коде Вы делаете проверку "if (Temp › 255)". А байт может быть больше 255? Значит эта ветка не работает.
Далее, Вы вызываете функцию PinColor из разных мест: по изменениям состояний на контактах (simulate) и по заданному интервалу (callback). Как я понимаю, Вы пытаетесь использовать callback как сторожевой таймер. Мало того, что эти события, теоретически, могут произойти одновременно, что приведет, если не к потере функциональности, так к замедлению работы Вашей модели, так он еще не выполняет своей функции, т.к. он продолжает работать даже тогда, когда сигналы на контактах продолжают поступать. Я бы попробовал перезапускать callback в функции simulate. Тут, как-то не отложилось в памяти будет ли он перезапускаться при одинаковом ID, вот заодно и проверите, и нам раскажите.
Напоследок. Проект ругается на отсутствие библиотеки 3ColLed.dll.
И еще. Посмотрите на рисунок. Правильно ли Вы генерируете тестовую последовательность. Как я понимаю, во время этого провала у Вас и происходит сброс цвета по таймауту.
Есть еще некоторые непонятки, но это я могу долго фантазировать на тему "а что же хотел сказать автор".
Поэтому, Вам стоит более подробней описать задачу, лучше сразу на почту или в личку - много времени уделить не смогу, но может помогу натолкнуть на какие-то решения.

[MONIKYS]

ProtAS-13, Я так понял вы не видели пример на Бейсике и проц с программкой на Баскоме. Вы не внимательны. Не я делал. Просто повторил код, только на Си. Меня тоже удивило вызов одной функции из разных мест. И это никак не мешает работе модели. Даже исключить вызов из callback сути не меняет. Оставляя только один вызов, только один вывод модели, нет плавного вычисления длительности импульса. У Петра работает. Плавное изменение цвета. У меня резкими скачками.
Просто посмотреть и ткнуть носом-А у вас всё не так, и я могу. С автором связаться нет возможности.
Ветка как называется? Или я ошибся?

[MONIKYS]

Изменил функцию PinColor, плавное изменение цвета.
Может кому интересно.

[ProtAS-13]

ProtAS-13, Я так понял вы не видели пример на Бейсике и проц с программкой на Баскоме. Вы не внимательны.

Почему-же, видел. Но не зная Bascom это равносильно "... видишь фигу".

Просто посмотреть и ткнуть носом-А у вас всё не так, и я могу. ... Ветка как называется? Или я ошибся?

Простите, а что Вы ожидали?
Что для ответа на Ваш вопрос люди начнут изучать малораспространенный язык?
Разбирать Ваш код "по косточкам", не понимая при этом поставленной задачи, тратя, вдобавок, свое время?
Естественно, я поверхностно глянул и описал что сразу бросилось в глаза.
Что ж, в следующий раз просто пройду мимо - мне же легче.
Только потом не удивляйтесь, что никто не отвечает на Ваши вопросы. Ага?

[MONIKYS]

ProtAS-13, Тогда смысл в этой ветке? Не понятно. Год мёртвая ветка.
Ничего сложного в Баскоме нет. Те же яйки, приготовленные по другому. Нет скобок и возможность челюстновывернутым писать родным шрифтом,а не латиницей. Кому-то нравится вместо скобок писать много буков.

[MONIKYS]

ProtAS-13, Доброго дня. В личку диалог не открывается. В чёрном списке? Ну,то такое.
Вами проделана большая работа. Снимаю шляпу. Лет шесть назад я сам инфу собирал по крупицам.
"Балуюсь" c окнами, есть идейка. Вывод графики в всплывающее окно. Результат -промах мимо окна. Не получается получить дискриптор окна.USERPOPUP.
Наткнулся на Вашу шпаргалку.
Вопрос по шпаргалке.
wHwnd в нуле, не выдаёт 1. Первый раз выдало картинку с надписями, потом нет. SPY++ не показывает наличие окна. Окно видно, а его нет.

Спасибо.

[ProtAS-13]

В личку диалог не открывается. В чёрном списке?

Это к админам. Никаких списков не веду ни "черных", ни "белых" - не имею такой привычки.

wHwnd в нуле, не выдаёт 1

Значит где-то косяк в коде. Покажите как инициализируете popup-окно, и как получаете HWND.
Нужно помнить, что к заголовку Proteus добавляет ID компонента.

SPY++ не показывает наличие окна. Окно видно, а его нет.

В SPY++ есть "прицел". Щелкните им на окне и все покажет.

[MONIKYS]

ProtAS-13, Получилось. С бубном.
Ещё. В настройках VC включить "Использовать многобайтовую кодировку".

[Пётр_В]

Далее, переменная Temp с типом данных BYTE. Но в коде Вы делаете проверку "if (Temp › 255)". А байт может быть больше 255?

В оригинальном коде переменная Temp типа Float.
А значит это выражение также вычисляется с плавающей точкой и приведение к byte некорректно.

Temp = (BYTE)(255 / ((time - Pin-›OldTime[0]) / (time - Pin-›OldTime[1])));

Вероятно есть и другие отличия.

Но не зная Bascom

Баском для микроконтроллеров. Модель для протеуса написана на PureBasic. Языки значительно отличаются.