| Вопрос: Запись в порт сигнала | Добавлено: 14.01.06 23:35 |
Автор вопроса:  DDF
|
|
Я пытаюсь пообщаться с устройством, в описании устройства написанно примерно такое: ...Выводим команду "Чтение блокнотной памяти" (команда 0BEh)...
Я пробую с помощью MS comm control: Connect.Output = "010H", ничего не выходит, чувствую не то делать. Подскажите пожалустя, как его туда записать? |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 14.01.06 23:41 |
COM? LPT? USB? PCI 
|
||
|
Номер ответа: 2 Автор ответа: DDF Вопросов: 2 Ответов: 14 |
Профиль | | #2 | Добавлено: 15.01.06 00:15 |
|
Прошу прощения, не сообщил, что порт: СОМ
Просто я думал, что MS comm control работает только с СОМ портом |
||
|
Номер ответа: 3 Автор ответа: Victor ICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #3 | Добавлено: 15.01.06 02:58 |
|
Попробуй так
Open "COM1" for binary as #1
put 1,,&H010H% Close #1 Я так пытался выводить сигналы через LPT. Принтер при этом с ума сходить начинал, а на осциллографе, который я совал в LPT, ничего не появлялось. 
|
||
|
Номер ответа: 4 Автор ответа: DDFВопросов: 2 Ответов: 14 |
Профиль | | #4 | Добавлено: 15.01.06 20:15 |
| Виктор, почему надо записывать &H010H%, у меня там ведь 010H, а у вас символов больще? | ||
|
Номер ответа: 5 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #5 | Добавлено: 18.01.06 16:27 |
|
DDF
Вообще-то сначала надо установить настройки порта, типа этого: MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1 MSComm1.PortOpen = True а уж после этого что-то от него требовать
как видишь, здесь всё предельно просто! |
||
|
Номер ответа: 6 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #6 | Добавлено: 18.01.06 16:30 |
|
DDF
кстати, не знаю, что у тя там за дивайс, но можно отправлять и строковой параметр |
||
|
Номер ответа: 7 Автор ответа: DDFВопросов: 2 Ответов: 14 |
Профиль | | #7 | Добавлено: 18.01.06 17:50 |
|
В качестве девайса микросхема DS18B20 сеть MicroLan (датчик температуры), засылаю я ему вроде так:
Private Sub Command1_Click() 'Install and open com port Connect.CommPort = 2 Connect.Settings = "9600,N,8,1" 'Connect.InputLen = 0 Connect.PortOpen = True End Sub Private Sub Command2_Click() Connect.Output = "F" Connect.Output = "0" Connect.Output = "h" End Sub Private Sub Command3_Click() Connect.PortOpen = False End Sub Private Sub Command4_Click() If Connect.PortOpen = True Then Mstk.Text = "Ïîñëàí ñèãàíë ïðîâåðêè;" + "Connect=" + Str(Connect.PortOpen) + ";Âðåìÿ-" + Str(Time) Else Mstk.Text = "Îøèáêà: íåò ïîäêëþ÷åíèÿ ïîðòîâ;" + "Connect=" + Str(Connect.PortOpen) + ";Âðåìÿ-" + Str(Time) End If End Sub Private Sub Command5_Click() 'Connect.Handshaking = 3 If Connect.InBufferCount Then 'Readp.Text = Connect.InBufferCount 'Readp.SelStart = Len(Readp) Readp.SelText = Connect.Input End If End Sub Private Sub Command6_Click() Connect.Output = "33H" End Sub Private Sub Command7_Click() Connect.Output = "55H" End Sub Private Sub Command8_Click() Connect.Output = "010H" End Sub Private Sub Command9_Click() Connect.Output = Text1.Text End Sub Private Sub Timer1_Timer() 'If Connect.CommEvent = 2 Then 'Connect.Handshaking = 3 If Connect.InBufferCount Then 'Readp.Text = Connect.InBufferCount 'Readp.SelStart = Len(Readp) Mstk.Text = "Signal!" + "Connect=" + Str(Connect.PortOpen) + ";Âðåìÿ-" + Str(Time) Readp.Text = Connect.Input End If 'End If End Sub Т.е. портя я открываю событием command1, а потом уже в разном виде пытаюсь туда что то заслать и постоянно считываю инфу м порта посредством таймера, но датчик того, что нужно не отвечает. Может быть сигналы 010H надо не текстом засылать? |
||
|
Номер ответа: 8 Автор ответа: DDFВопросов: 2 Ответов: 14 |
Профиль | | #8 | Добавлено: 18.01.06 17:53 |
| Что то событие вызываемое нажатием кнопки Comand4 как то глючно отправилось, но его можно выкинуть из кода, оно для проверке немного в другой проге. | ||
|
Номер ответа: 9 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #9 | Добавлено: 18.01.06 18:46 |
|
DDF
Насколько я знаю, при работе с таким устройством как у тебя нужен коммутатор, для того, чтобы датчик адекватно воспринимал команды. Возможно,что скорее всего,поэтому датчик и даёт левую инфу о его состоянии.Некоторые умельцы сами делают коммутатор
|
||
|
Номер ответа: 10 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #10 | Добавлено: 18.01.06 18:55 |
|
DDF
Да и вообще,там может быть целый ряд причин, к примеру разный размер передаваемых и получаемых данных.У меня дома есть классный линк по работе с такими устройствами завтра принесу,если не забуду
|
||
|
Номер ответа: 11 Автор ответа: DDFВопросов: 2 Ответов: 14 |
Профиль | | #11 | Добавлено: 18.01.06 20:49 |
|
Если под словом комутатор имеется в виду эл. схема, то она собрана и она работает с програмулиной, которую я скачал в инете, она все измеряет и передает все данные верные. За окном сегодня показывала -25 ))) (это Волгоградская обл.- день), но та программа мне не подходит, так я сабораюсь контролировать температуру прибора и она должна записываться в мою програму. Я смогу завт hf дать ссылки на pdf по датчику и на странку где я взял схему и программу.
Линк почитать не откажусь, поэтому прошу прислать. |
||
|
Номер ответа: 12 Автор ответа: DDFВопросов: 2 Ответов: 14 |
Профиль | | #12 | Добавлено: 19.01.06 00:01 |
|
Вот эта сьранка, там можно найти все про что выше я говорил:
http://evm.wallst.ru/main/therm/ds1820.htm |
||
|
Номер ответа: 13 Автор ответа: SurokВопросов: 36 Ответов: 106 |
Профиль | | #13 | Добавлено: 19.01.06 03:03 |
|
я много раз встречаю подобные заиси чисел..
Ï обьясните, это от балды так данные педставлены? |
||
|
Номер ответа: 14 Автор ответа: SurokВопросов: 36 Ответов: 106 |
Профиль | | #14 | Добавлено: 19.01.06 03:03 |
|
я много раз встречаю подобные заиси чисел..
Ï обьясните, это от балды так данные педставлены? |
||
|
Номер ответа: 15 Автор ответа: SurokВопросов: 36 Ответов: 106 |
Профиль | | #15 | Добавлено: 19.01.06 03:04 |
|
я много раз встречаю подобные заиси чисел..
Ï обьясните, это отбалды так данные педставлены? |
||