roboforum.ru
Технический форум по робототехнике.
Помогите разобраться с Ke-USB24A
Помогите разобраться с Ke-USB24A
И так скажу сразу я полный нюб в этом деле так что не судите строго:) в общем загвоздка такая решил прикупить модуль Ke-USB24A а вот возник вопрос с теми же светодиодами как заставить их мигать с определенной частотой ?
Последний раз редактировалось Intr 28 ноя 2009, 14:20, всего редактировалось 1 раз.
Re: Помогите разобраться с Ke-USB24A
Видимо для этого надо написать соответствующую программу на ПК, управляющую выходами этого модуля... 
Re: Помогите разобраться с Ke-USB24A
опишите задачу ЦИФРАМИ.Intr писал(а): модуль Ke-USB24A а вот возник вопрос с теми же светодиодами как заставить их мигать с определенной частотой ?
Re: Помогите разобраться с Ke-USB24A
Тут есть документы
http://www.kernelchip.ru/Ke-USB24A.php
При установке драйвера модуля создается виртуальный com-порт. В него нужно слать команды управления модулем, приведенные в документах, имеющихся на указанной страничке.
Как работать с com-портом зависит от ОС и среды разработки ПО. Для Delphi удобно использовать компонент TBComPort. С ним поставляются хорошие примеры, которые можно быстренько под свои нужды переделать.
http://www.kernelchip.ru/Ke-USB24A.php
При установке драйвера модуля создается виртуальный com-порт. В него нужно слать команды управления модулем, приведенные в документах, имеющихся на указанной страничке.
Как работать с com-портом зависит от ОС и среды разработки ПО. Для Delphi удобно использовать компонент TBComPort. С ним поставляются хорошие примеры, которые можно быстренько под свои нужды переделать.
Re: Помогите разобраться с Ke-USB24A
Все всем спасибо разобрался сам путем простого таймера в программе в самом модуле нет его так что решил сделать через программу 
Re: Помогите разобраться с Ke-USB24A
Надеюсь мы увидим исходнички проекта ?
Re: Помогите разобраться с Ke-USB24A
да там и исходников то и не нужно обычное зацикливание посылки данных на модуль а там он уже все выдает грубо говоря совершенно ничего сложного в любом учебнике можно найти
Re: Помогите разобраться с Ke-USB24A
Опять в УЧЕБНИКЕ !
Спарашиваете на форуме, а когда вас спросили поделится найденым решением ( которое ОЧЕВИДНО прямо у вас подрукой !!! ) пишите "в любом учебнике" - прикольно
Спарашиваете на форуме, а когда вас спросили поделится найденым решением ( которое ОЧЕВИДНО прямо у вас подрукой !!! ) пишите "в любом учебнике" - прикольно
Re: Помогите разобраться с Ke-USB24A
Вот и охота ваши именно исходники посмотреть
Re: Помогите разобраться с Ke-USB24A
- Код: Выделить всё • Развернуть
procedure TForm1.Button3Click(Sender: TObject);
var
buffer: string;
CRbyte: Shortint;
LFbyte: Shortint;
NumberWritten : DWORD;
begin
Button4.Enabled:=True;
Button3.Enabled:=False;
Stop:=False;
while not(Stop) do
begin
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
buffer := '$KE,WR,22,1' + Char(CRbyte) +
Char(LFbyte);
WriteFile(CommHandle, PChar(buffer)^, Length(buffer), NumberWritten, nil);
sleep(30);
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
buffer := '$KE,WR,22,0' + Char(CRbyte) +
Char(LFbyte);
WriteFile(CommHandle, PChar(buffer)^, Length(buffer), NumberWritten, nil);
sleep(30);
Application.ProcessMessages;
end
end;
написано на delphi с остальным думаю разберетесь использовал исходники с pcports.ru и статьей по циклам interface.ru/home.asp?artId=22517 с таймером ппц почему то происходит комп виснет и все тут
Re: Помогите разобраться с Ke-USB24A
Вот видите и нюансы есть ! Спасибо за код - возможно кому-то пригодится.
Re: Помогите разобраться с Ke-USB24A
всмысле этот код подвешивает эвм?
Re: Помогите разобраться с Ke-USB24A
этим у меня не вешается нормально работает уже часов 8 и ничего не глючит а вот как цикл в таймере включаю так все компу хана
Но правда тут нет очистки буфера так что может и у меня все нормально работает а у кого то все же лагать будет
Но правда тут нет очистки буфера так что может и у меня все нормально работает а у кого то все же лагать будет
Re: Помогите разобраться с Ke-USB24A
Тут фрагментик прихватизазии CommHandle видеть желательно. Возможно синхронная или асинхронная работа с портом.
Re: Помогите разобраться с Ke-USB24A
- Код: Выделить всё • Развернуть
procedure TForm1.Button1Click(Sender: TObject);
begin
PortString := '\\.\COM' + Edit1.Text;
CommHandle := CreateFile(PChar(PortString), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING,
0, 0);
if (CommHandle = INVALID_HANDLE_VALUE) then
begin
MessageDlg('Error. Can`t Open port', mtError, [mbOK], 0);
end
else
begin
GetCommState(CommHandle, DCB);
DCB.BaudRate := CBR_9600; // FORMALLY, CONNECT BAUD DOESN`T MATTER (Virtual Com Port)
DCB.Parity := NOPARITY;
DCB.ByteSize := 8;
DCB.StopBits := OneStopBit;
CommTimeOuts.ReadIntervalTimeout := 0;
CommTimeOuts.ReadTotalTimeoutMultiplier := 0;
CommTimeOuts.ReadTotalTimeoutConstant := 1000;
CommTimeOuts.WriteTotalTimeoutMultiplier := 0;
CommTimeOuts.WriteTotalTimeoutConstant := 1000;
SetCommTimeouts(CommHandle, CommTimeOuts);
SetCommState(CommHandle, DCB);
MessageDlg('Port Open Ok', mtInformation, [mbOK], 0);
end
end;
все что есть )