Гостевая книга - Персональный сайт

76. Константин (26.10.2004 10:32)

Пробовал просканировать ИК пульт от телевизора, с помощью 3Д анализатора ЛПТ.
Нужно определить кодировку и коды команд.
Увидел только беспорйдочные импульсы. менял скорость, нучего не получилось.
это вообще возможно с помощью твоей программы ?

Ответ: Здравствуйте Константин.
Конечно Вы увидите импульсы - ноли и единицы. При этом коды содержатся в комбинациях 1/0. Прошу не забывать что программа - это многоканальный ЛОГИЧЕСКИЙ 1/0 осциллограф а не декодер команд.А проанализировать полученную информацию - это уже зависит от умения и навыков оператора, равно как и при работе с осциллографом...

75. Вадим (12.10.2004 17:52)

Привет!
Что-то давно не обновлялись "истории". Будет ли продолжение?

Ответ: Увы, реально очень мало времени... Но, надеюсь, что будет.

74. Михаил (11.10.2004 19:35)

Сайт с реально полезными вещами. Которые вы слелали и не пожалели выложить на сайте для общего пользования.
Спасибо!!

Ответ: Михаил, спасибо за отзыв.

73. ЕЛИСЕЕВ ЮРИЙ ВЛАДИВОСТОК (09.10.2004 15:31)

ПРИВЕТСТВУЮ ЗЕМЛЯКОВ.ПРИШЕЛ РЕЙСА.ПРОЧИТАЛ ВАШУ СТРАНИЧКУ,КОНЕЧНО ЗДОРОВО.ВСЕГО ВАМ ХОРОШЕГО 73
ЮРИЙ ЕЛИСЕЕВ UAOLKM/MM

Ответ: Здравствуйте Юрий!
Рад встретить земляков!

72. сергей (09.10.2004 09:55)

здравствуйте Валерий
В MiniFAQ к проекту LPTWDMIO вы говорите о
прилагаемом архиве LPTWDMIO_3.zip но в LPTWDMIO.zip
его нет
где можно найти исходник драйвера на асме

Ответ: Здравствуйте Сергей!
Наверное, занаете "Бензин ваш - идеи наши"
Я не являюсь автором LPTWDMIO, но только показую как наиболее эффективно использовать его в программах и предлагаю уже готовые решения для облегчения труда начинающими. Поэтому здесь только Делфи. Зайдите на домашнюю страницу в MiniFAQ и скачайте там что Вас интересует.

71. Алексей (09.10.2004 00:44)

Валерий!
Но хотя бы часть исходника для реализации
управления из РС периферией по LPT
Просто задается регулируемый генератор импульсов через схему на реле или эл.магнит.
Я никак не могу понять как из программы РС замкнуть реле,допустим чтобы оно щелкнуло 5-10 раз.
И тд.

Ответ: for i:= 1 to N do где N - это число указывающее счётчику сколько раз надо повторять цикл. Например такой код:

----------------------------------------------------
for i:= 1 to 10 do
begin
ButtonPin2; //-- выдаёт импульсы на Pin2
Sleep(1000); //--приложение засыпает на заданный интервал (мсек) - задержка, скорость выдачи импульсов
Application.ProcessMessages; //--Обработка всей очереди сообщений
end;

--------------------------------------------------
десять раз устанавливает / снимает логическую 1 на ножке Pin2 LPT разъёма. А именно: пять раз устанавливает 1 и пять раз 0 . Поэтому, если нам требуется отправить десять единиц (положительных импульсов), необходимо число циклов умножить на два : for i:= 1 to N*2 do где N = 10.

70. Алексей (07.10.2004 01:07)

Привет Валерий!!!
Хорошо все описал про LPT.
Еще допустим хотелось бы узнать побольше.
И исходников на Дельфи посмотреть.
Допустим такое устройство.
Из программы РС идет управление на реле или электромагниты.
Нужно регулировать кол-во импульсов и скваженность этих импульсов.
Задавать очередность срабатываия эл.магнитов
Частоту импульсов срабатывания (примерно 100-6000)
Вот как это будет выглядеть в исходнике.
Больно хорошо вы описываете принцип работы исходника.

Ответ: Здравствуйте Алексей!
Спасибо за отзывы.
Ваша задумка не сложна, я думаю Вам не трудно будет реализовать ёё. К сожалению я просто не в состоянии физически рассмотреть все исходники и проекты в письмах посетителей сайта! По возможности стараюсь кратко ответить всем, но в пределах своих возможностей.

Удачи!

69. Oleg (07.10.2004 00:06)

Здравствуйте Валерий. После полного перехода на ХР, я потерял возможность управлять своим LPT из своих программ, так, как это было на 98-ом. Ранее подолгу искал в сети, но безрезультатно. После загрузки Вашего исходника и компиляции ехе-шника я увидел свой LPT послушным и ожившим и теперь я могу окончательно не вспоминать добрым словом 98-ой. Не могу передать словами, насколько я Вам благодарен. С уважением Олег. г.Николаев.

Ответ: Олег, спасибо за отзыв. Удачи!

68. IGOR (04.10.2004 02:29)

ОЧЕНЬ понравилась ваша страничка!! много в ней интересных вещей.
Скачал с нее по моему все что скачевается распечатал и изучаю 3 дня.Сам я отношусь к выше упомянутым работникам зубила и дрели и собираюсь сделать с ними то что вы и предлагаете.
А дело в том что была у меня 486 а на ней плата портов на 8255 на ISA шине,
(была да сдохла).И прога под нее нечто вроде вашей DAT .Есть исходник в котором приходилось корректировать задержки и менять тайминги,потом F9 и т.д написана в TP-70,MS-DOS.хотел переписать на LPT-порт(2 бита на вывод, 1 на ввод).Вот и не получилось,порт $378,выходные пин 98765432,входные11,10,12,13,15,понятно,как изменить регистр тоже понял а контрольные17,16,14,1 не понял чего да как(вроде выходные?)и как указать пины тоже вопрос.Ане работает все равно.Пытался под 98 ,но то ли знаний не хватает то ли практики.
ВОООТ!!
НЕ могли бы вы помочь мне с ней? или объяснить на уровне начинающего.Запутался я совсем по моему.Прогу прилагаю
PODBOR.PAS :MY_PROG.BAS :WRITE_P.PAS а как отправить?

Ответ: Здравствуйте Игорь.
Внимательно изучите раздел: http://valery-us4leh.narod.ru/XpCoding/xp01.html

Работа с регистром контроля (с поощью шаблона проекта XpCoding):

procedure TForm1.Button2Click(Sender: TObject);
begin
{записуем число 8 ($8) в базовый порт, регистры контроля - 2, в результате на 0 и 1 бите повятся единицы – смотрите в XP LPT }

Lpt.WritePort (GetCurrentPort,2,$8);

end;

Чтобы установить / снять бит (Pin)регистра контроля:

{ ----------------- регистры контроля --------------- }

procedure TForm1.Button9Click(Sender: TObject);

begin

ButtonPin1;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

ButtonPin14;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

ButtonPin16;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

ButtonPin17;

end;

67. Alex (03.10.2004 12:59)

Cамые клевые истории!

66. Иван (30.09.2004 19:57)

Пожалуй, это дико интересно. Во всяком случае спасибо
за подборку описаний портов. Иван.

65. Сергей (25.09.2004 13:22)

Привет. Все это очень здорово, но скачать LPT HARD ANALYZER просто невозможно, а надо бы. Помоги.
Сергей

Ответ: Здравствуйте Сергей!
Файл лежит на сервере, просто Вы попали в час пик, когда на ибольшаЯ нагрузка, тем более выходной. Такое бывает, что качается очень медленно. Попробуйте ночью часа в два - три или через другого провайдера.
Если получиться пишите, а если нет могу выслать Вам на email.

Или попробуте скачать по этой ссылке:
http://www.pccontrol.nm.ru/dlpt.zip

64. Силаев Андрей (23.09.2004 10:58)

Привет Валерий. Недавно занялся программированием COM портов. Посылал байт в COM порт следующим образом:
function WriteCommand(Command: TCommandType): Boolean;
//посылка команды в COM порт
var
Am: Integer;
Transmit: array [0..255] of Char;
begin
Am := 1;
Transmit[0] := CommandToChar(Command);
WriteFile(CommHandle, Transmit, Am, Am, @Ovr);
end; { WriteCommand }

Но что интересно - это то, что первый раз функция
WriteFile выдает результат False, а второй раз True, т.е. как бы выполнилась.

Что это может быть такое? Вернее из-за чего?
Желательно чтобы Вы ответили на мой e-mail. Заранее благодарен Вам за это.
И удачи в программировании и в Ваших иследованиях!

63. ROMAN (22.09.2004 20:15)

Валерій!
Я использую трансивер АНГАРА и мне уже пол года не даєт спать думка_ что єсли там стоит синтезатор, то им можно управлять с компа. Но для меня как гуманитария слово бит - єто от слова "бита" , хотя в принцепе управления синтезатором АНГАРИ разобрался.С програмированиєм игрался только на бейсике. Что посоветуєте сделать в етой ситуации. Может какието принципи - я поработаю над проблемой с братом програмистом.Дуже вдячний. З повагою Роман.us5wcx@bigmir.net

Ответ: Здравствуйте Роман!
Внимательно просмотрите на сайте проект "XPCoding" и Вам, с братом, не составит особого труда осуществить задуманное. Удачи!

62. Лев (18.09.2004 19:35)

Молодец, мужик, помог инфой, сэкономил кучу времени. Спасибо.

		Пятница, 26.04.2024
	Мой сайт