Вывод данных из Delphi

**EX8AB** · 02.02.2011, 05:56

Всем привет!

Дано:
1. Есть программка, написанная в Делфи7.
2. В программке используются несколько переменных (9...12), имеющих числовое значение, не превышающее 64.

Задачи:
1. Вывести эти переменные через USB-порт во внешнее устройство-интерфейс, на выходах которого будут представлены все переменные в двоичном коде с TTL-уровнями.
2. Нужна прога вывода переменных на USB-порт.
3. Нужен сам интерфейс.

Пояснения:
По п.2 Задач - ссылки на похожие исходники.
По п.3 Задач - ссылки на методы/подходы/варианты. Интерфейс должен иметь количество выходов, равное количеству перемнных (9...12). Каждый из выходов должен представлять собой "шину" из пяти проводов: дата1, дата2, дата4, дата8 и общий провод.

Вот такая задача...

**EW4DX** · 02.02.2011, 06:38

Сообщение от EX8AB

Каждый из выходов должен представлять собой "шину" из пяти проводов: дата1, дата2, дата4, дата8 и общий провод.

Такая разрядность шины не обеспечит передачу 64 значений.

**EX8AB** · 02.02.2011, 06:45

Привет, Игорь!
Во, заметил

.
Тут я чуток намудрил - хотел упростить ТЗ.
Там все шины 4-хразрядные, а две - 6-тиразрядные.
Мне важно понять принципы вывода данных из проги и преобразование их сначала из десятичной формы в двоичную - внутри тела самой проги, потом вывести значение в интерфейс для получения ТТЛ выходов...

**RX1AL** · 02.02.2011, 06:59

Сообщение от EW4DX

Такая разрядность шины не обеспечит передачу 64 значений.

В два полубайта передавать - единственный вариант. Сначала младший, а затем старший. Поскольку всего 5 линий данных,
включая землю. То есть будет так для 64-х - 01000000, 0100 - старший, а 0000 - младший.

Сообщение от EX8AB

Мне важно понять принципы вывода данных из проги и преобразование их сначала из десятичной формы в двоичную - внутри тела самой проги...

Если перевести десятичное в двоичную, код ниже:
function DecimalToBinary(var x: integer): string;
var result: string;
y: integer;
begin
result := ''; y := x;
Repeat
if (y mod 2 = 0) then result := '0' + result
else result := '1' + result;
y := y div 2;
Until y < 1;
DecimalToBinary := result;
end;

**EX8AB** · 02.02.2011, 07:11

Привет, Михаил!
Спасибо!
Хотя с этим пока сложностей не возникает.
Основная сложность пока - это вывод.
Тем не менее, большое спасибо за инфо.
А мучать вопросами ещё буду

...
Я тут Делфи пять дней назад "открыл" для себя, но основное тело проги уже почти готово.

**UA1CBM** · 02.02.2011, 08:17

А че нельзя в USB воткнуть FT232RL? На компе получим виртуальный ком порт, в который и выводить данные (примеров для рабоыт с ком портом из винды в инете навалом). С другой стороны имеем выход с ТТЛ уровнями.

**R9CD** · 02.02.2011, 08:59

WoodmanUSB

**RK3FW** · 02.02.2011, 12:06

Во всей этой задачке самое гнусное - это написание драйвера для устройства, которое будет подключено к шине USB и является получателем информации.

На сегодняшний день:
1. Без дополнительных внешних устройств проблему не решить.
2. Если есть допустройство, то к нему нужен драйвер с соответствующим API.
3. Если Ваше устройство может быть подключено к USB-шине (фактически имеет в своем составе допустройство), то ему требуется драйвер и у драйвера д/б API, либо он должен поддерживать функции типа DeviceIoControl.

Короче - исходных данных мало. Это у Вас гипотетическая задача из института, где Вам надо просто показать принцип или реальное задание на работе?

**RX1AL** · 02.02.2011, 13:23

Сообщение от EX8AB

Основная сложность пока - это вывод.
....
Я тут Делфи пять дней назад "открыл" для себя, но основное тело проги уже почти готово.

Бек, да не за что... Хочу дать вам совет, если вы только "пять дней назад" открыли для себя дельфи. Оставьте ее,
пока. Откройте для себя .NET Micro Framework и Netduino и поймете, насколько все просто и удобно. Можете здесь
почитать об этом:
http://www.microsoft.com/netmf/default.mspx - .NET Micro Framework
http://netduino.com/ - Open-source electronics platform
http://www.netduino.com/netduinoplus/specs.htm - Netduino Plus
http://netduino.com/projects/ - примеры различных проектов
Нет абсолютно никаких проблем, сами киты стоят очень дешево, среда разработки удобна, есть средства для отладки.
Будут вопросы по данному топику (см. выше), готов дать ответы, так как занимаюсь этим достаточно давно.

**EX8AB** · 03.02.2011, 07:30

Всем привет!

Сообщение от UA1CBM

А че нельзя в USB воткнуть FT232RL? На компе получим виртуальный ком порт, в который и выводить данные (примеров для рабоыт с ком портом из винды в инете навалом). С другой стороны имеем выход с ТТЛ уровнями.

Спасибоа за "наводку"! Будем посмотреть...

Сообщение от R9CD

WoodmanUSB
__________________
73! Александр.

Так же спасибо! Очень интересно, но нужно разбираться...

Сообщение от RK3FW

Короче - исходных данных мало. Это у Вас гипотетическая задача из института, где Вам надо просто показать принцип или реальное задание на работе?

Нет, это конкретная идея - связать трансивер, РА, антенный тюнер и коммутатор антенн с компом.

Сообщение от RX1AL

Хочу дать вам совет, если вы только "пять дней назад" открыли для себя дельфи. Оставьте ее,
пока. Откройте для себя .NET Micro Framework и Netduino и поймете, насколько все просто и удобно.
...
...
Будут вопросы по данному топику (см. выше), готов дать ответы, так как занимаюсь этим достаточно давно.

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

**EW4DX** · 03.02.2011, 08:26

Сообщение от EX8AB

Нет, это конкретная идея - связать трансивер, РА, антенный тюнер и коммутатор антенн с компом.

Я бы делал не так...

Исходные данные о диапазоне берем (на выбор, исходя из местных условий) - из логгера (COM порт или LPT), снимаем с гнезда трансивера или из потока обмена данными по CAT, заводим в "черную коробочку" с микроконтроллером и разводим на сколь угодно шин. При этом дополнительная прога на компе не нужна вовсе - исходные данные есть откуда взять.

А внешняя черная коробочка все-равно нужна, вот на ней и сосредотачиваем свое внимание.