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

Вид для печати

02.02.2011, 05:56
EX8AB

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

Всем привет!

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

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

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

Вот такая задача...
02.02.2011, 06:38
EW4DX

Цитата:

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

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

Такая разрядность шины не обеспечит передачу 64 значений.
02.02.2011, 06:45
EX8AB

Привет, Игорь!
Во, заметил :).
Тут я чуток намудрил - хотел упростить ТЗ.
Там все шины 4-хразрядные, а две - 6-тиразрядные.
Мне важно понять принципы вывода данных из проги и преобразование их сначала из десятичной формы в двоичную - внутри тела самой проги, потом вывести значение в интерфейс для получения ТТЛ выходов...
02.02.2011, 06:59
RX1AL

Цитата:

Сообщение от 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;
02.02.2011, 07:11
EX8AB

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

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

WoodmanUSB
02.02.2011, 12:06
RK3FW

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

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

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

Цитата:

Сообщение от 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/ - примеры различных проектов
Нет абсолютно никаких проблем, сами киты стоят очень дешево, среда разработки удобна, есть средства для отладки.
Будут вопросы по данному топику (см. выше), готов дать ответы, так как занимаюсь этим достаточно давно.
03.02.2011, 07:30
EX8AB

Всем привет!

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Вложений: 1

Цитата:

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

При этом дополнительная прога на компе не нужна вовсе - исходные данные есть откуда взять.

В этом смысле "исходные данные" - это только "диапазон".
А у меня мысль сделать "аналог" БМЗ от 140-й...
03.02.2011, 08:38
EX8AB

...красным шрифтом выделены "переменные" из моей проги...
03.02.2011, 08:41
EX8AB

Вложений: 1

А вот "лицо" получившейся у меня программки...
03.02.2011, 08:47
EX8AB

Вложений: 1

Образец работы в режиме настройки ("Tune")...
03.02.2011, 08:48
EX8AB

Вложений: 1

Все данные сохраняются в таблицах по каждому элементу (по каждой переменной).
03.02.2011, 08:52
EX8AB

Вкратце:
1. Всего девять диапазонов (переменная "b1" - 4 двоичных разряда).
2. Каждый диапазон можно разбить на 16 поддиапазонов (перемнная "sub1" - 4 двоичных разряда).
3. Для каждого значения ['b1';'sub1'] устанавливается и сохраняется в памяти набор соответствующих значений...
07.02.2011, 14:55
EX8AB

Вложений: 7

Всем привет!
На выходных полностью переделал программу.
Вернее, сделал другой вариант.
Основное отличие - вместо таблиц (StringGrid) использовал окна ввода (Edit), сверстав из них "таблицу". Теперь загрузка (из файла *.ini) стала проще и быстрее, нажатием одной кнопки. Правда, выгрузка (если нужна перезапись) занимает больше времени.
1. Добавил фичей в поле "Выбор антенны", добавив еще и строку названия антенны (рис.1).
2. Вывод таблиц сделал на отдельной форме - 'Memory Tables' (рис.2)
3. Заполнение таблиц ("память") осуществляется нажатием 'Load' (рис.3).
4. На закладке 'Ant1' добавлены пара кнопок - для открытия и закрытия третьей формы 'Antennas' (рис.4).
5. Нажатием 'OpnAnt' вызывается форма, где можно ввести названия имеющихся у вас антенн (рис.5).
6. Нажатием 'Load Antennas' заполняется список используемых антенн, для примера ввёл условно своё "мнимое" антенное хозяйство (рис.6).
7. После этих быстрых процедур программа готова к работе (рис7).
07.02.2011, 14:58
EX8AB

Цитата:

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

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

Большое спасибо!
Но через эту ссылку вышел на другое и оно мне больше понравилось - KE-USB24A.
Два таких интерфейса позволят управлять 48 шинами, хотя мне надо 52 (Hi-Hi!).
Или добавим ещё что-то, либо от чего-то откажемся, уменьшив разрядность пары переменных.