Электроника и автоматика на МК

Мир не без добрых людей, всё супер, порадовало что главная прога в дельфи, короче БОЛЬШОЕ спасибо!

А когда продолжение выйдет? И вообще побольше бы таких визуальных уроков для начинающих)

Admin если можно выложите прогу на Делфи и хекс , прикупил 4550 хочу попробывать выйдет или нет .А так сразу будет виден результат . Пожайлуста если не трудно .

HEX файл и терминал - можно скачать здесь. Единственное - это передавать нужно измеренное напряжение, а в исходниках проги на delphi выводить его на label.caption

Собрал USB вольтметр по видео ролику на чипе PIC18F4450. В Proton скомпилировалось на ура. Но меня не устраивает то, что значения выдаются с двумя знаками после запятой (например: 2.49 вольт). Пытался расширить до 3-4 знака после запятой - не вышло. Команда ROUND в Delphi не срабатывает - все равно выдает два знака после запятой. Может кто подскажет, как сделать, чтобы выводило 3-4 знака после запятой в Delphi (например: 2.5000 вольт).
 
P.S. Сам вольтметр я беру как стартовую точку. Дальше буду переводить вольты в необходимые значения (например: в значения альфа). Я работаю в хим. лаборатории и хочу подключить старый прибор к компу. Бошка на том приборе показывает значения альфа. Снимает эта бошка (замерял тестером) вольты (милливольты). Сам пересчет я сделаю в Delphi, но раздвинуть значения от 2 до 3-4 знаков после запятой - не получается. Помогите пожалуйста.

А в строке №67 в proton не пробовали написать не DEC2, а DEC4 или DEC5? Там даже комментарий есть

Пробовал. Тогда пишет не 2.49, а 2.0049 (если поставить DEC4).

В Delphi сомнительно, хотя и возможно.
За вывод данных отвечает Edit1 (выделено красным цветом). А именно - @FBufferIn. Никакие манипуляции с @FBufferIn ни к чему не приводят. Либо выдает ошибку, либо выдает целое число (например: 2, а ни 2.4900), либо выдает 2.0049. Других вариантов получить не удалось. Как я писал уже в приведущем посте команда ROUND тут не катит совсем, т.к. у нее совсем другие параметры (double и float). В какой-нибудь проге можно было ввести команду:
b:= ROUND(a * 10000/10000);
Edit1.Text:= FloatToStr(b);
т.е. получили бы число с четырьмя знаками после запятой (например: 2,4536844 округлилось бы до 2,4537).
Здесь такой номер не проходит.
 
P.S. Программирование в Delphi - я любитель, а не крутой спец. Где-то получается и не плохо, а где-то полный профан - как в этой проге вольтметра.

Сорри! Не удалось вставить весь код программы на Дельфи. Он есть в видео.

Есть еще вопрос. Спаянная USBха (то бишь вольтметр) определяется как USB устройство (если подключить к другому компу) или нужны драйвера? И если нужны, то где их брать - из Protius? Там в одной из папок какие-то имеются.

У кого-нибудь есть монтажная схема вольтметра, о котором говорится в здешнем видео (Build_USB_Voltmetr.rar)? Выложите пожалуйста.

Просмотрел еще раз bas файл в Протоне, сравнил с другим (с другого сайта) USB вольтметром. Проблемка всетки в BAS файле. Там все необходимые настройки. USB вольтметр с другого сайта (на 18F2550) выдает данные в проге с тремя знаками после запятой. Попробую заминить коды. Может что и получится.

Может у кого есть толковая схема этого вольтметра? В Протеусе питание 5 вольт берется с компа. Куда припаивать щупы не понятно.

Спасибо за помощь. В общем, это не более чем игрушка для Proton и Proteus. Реальной схемы-сборки нету. Жаль.

Спаял по Протиуской схеме. Чип прошился нормально в программаторе. А вот сама сборка не определяется компом как устройство вообще. Пишет, что не может опознать подключенное устройство.