Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Микроконтроллеры (MCU) и микропроцессоры (MPU) > Dallas Semiconductor

Автор: artem_from_minsk 14.3.2008, 23:52

Кто работает с Dallas Semiconductor откликнитесь!!!! Кто может проконсультировать как на Delphi настроить диалог с DS2450, DS2408. Вроде сделал всё как по datasheet но почему-то не работает.  Кто работал???? Может кто знает????     [email protected]

Автор: cardinal 15.3.2008, 01:26

Код в студию. Без него врятли кто-то поможет.

Автор: artem_from_minsk 15.3.2008, 12:29

А что за код??? Мне как-то нет времени для приколов.

Автор: cardinal 15.3.2008, 16:11

Код, он же исходник. Короче то, что ты сделал Цитата(artem_from_minsk @  14.3.2008,  22:52 ) роде сделал всё как по datasheet но почему-то не работает.  выкладывай.

Автор: artem_from_minsk 17.3.2008, 21:28

Цитата unit Temperature1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, iBTMEXPW, ExtCtrls, ComCtrls, Menus, StdCtrls, Grids, jpeg, TeEngine,   Series, TeeProcs, Chart; type   TForm1 = class(TForm)     MainMenu1: TMainMenu;     Close1: TMenuItem;     SaveAs1: TMenuItem;     Save1: TMenuItem;     Print1: TMenuItem;     PageControl1: TPageControl;     TabSheet1: TTabSheet;     Button1: TButton;     StringGrid2: TStringGrid;     Chart2: TChart;     Timer3: TTimer;     procedure Button2Click(Sender: TObject);     public     { Public declarations }      SHandle : longint;      StateBuf : array[0..5120] of smallint;      CRC8,CRC16 : Word;      Done : boolean;   end;   Const   LEVEL_SET  = 1;   LEVEL_STRONG_PULL_UP = $01;   PRIMED_BYTE =  2;   PRIMED_NONE =  0;   LEVEL_NORMAL =  $00; var   Form1: TForm1;  rom,rom1,rom2 : array[0..8] of smallint; implementation {$R *.dfm} procedure TForm1.Timer3Timer(Sender: TObject) ; {$J+} const   j : integer = 0; {$J-} var  tsht,tsht1, i, l, tmp1 : smallint;  cr,cpc, tmpf,tmp : Extended;  rbuf : array[0..9] of smallint ;  st : longint;  a,b,c,d: real;  str, str1: string;  romstr: string;   h,g: integer;  CRCByte,flag,z1,z2,CRC3: Byte;  PortNum,PortType:smallint; begin    TMRom(SHandle,@stateBuf,@rom2);    if (($20 and $7F )= (rom2[0] and $7F)) then        begin           for i := 7 downto 0 do           romstr := romstr + IntToHex(ROM2[i],2);         Label9.caption := 'Serial ROM ID :  ' + romstr;         end;       TMReadDefaultPort(@PortNum, @PortType);    SHandle := TMExtendedStartSession(PortNum,PortType,NIL); If (TMAccess(Shandle,@StateBuf)= 1) then   begin   CRC16 :=0;   /////   flag := TMTouchByte(SHandle,$55);   CRCByte := flag;                            /////////55   CRC16 := TMCRC(1, @CRCByte,CRC16 , 1);   ///////   flag := TMTouchByte(SHandle,$08);          /////////08   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ///////    flag := TMTouchByte(SHandle,$00);    CRCByte := flag;                                 /////00    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ////////   flag := TMTouchByte(SHandle,$00);                //////00    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ////////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    ////////////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ////////////   flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ////////   flag := TMTouchByte(SHandle,$01);                  //////01   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ///////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    ////////////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    ////////////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ////////   flag := TMTouchByte(SHandle,$00);   CRCByte := flag;                                 ///////00   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    ///////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    ////////////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    ////////////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   //////    flag := TMTouchByte(SHandle,$01);                 ///////01   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    ///////    flag := TMTouchByte(SHandle,$00);               ////////00   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    /////    flag := TMTouchByte(SHandle,$01);         /////////01   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);      ///////    flag := TMTouchByte(SHandle,$00);         /////////00   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    /////    flag := TMTouchByte(SHandle,$01);           ///////01   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$00);          ////////00   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   ///////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////     flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   //////   flag := TMTouchByte(SHandle,$01);           ///////01   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);   CRCByte := flag;   CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   /////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);    /////    flag := TMTouchByte(SHandle,$FF);    CRCByte := flag;    CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     ////////////     flag := TMTouchByte(SHandle,$AA);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     //////      flag := TMTouchByte(SHandle,$00);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);      //////      flag := TMTouchByte(SHandle,$00);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     ////////     CRC16:=0;      flag := TMTouchByte(SHandle,$3C);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     /////     flag := TMTouchByte(SHandle,$0F);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     ////////     flag := TMTouchByte(SHandle,$00);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     ////////     flag:= TMTouchByte(SHandle,$FF);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     ////////     flag:= TMTouchByte(SHandle,$FF);     CRCByte := flag;     CRC16 := TMCRC(1, @CRCByte, CRC16, 1);     st := GetTickCount + 1000;     g:=1 ;    for i := 0 to 7 do           begin             rbuf[i]:= TMTouchByte(Shandle, $FF);             CRCByte := Byte(rbuf[i]); { the byte to run through CRC8 routine }             CRC16 := TMCRC(1, @CRCByte, CRC16, 1);             if ((i+1) mod 2 =0) then             begin             tsht:=rbuf[i]*256 or rbuf[i-1];             StringGrid2.Cells[g,j] :=FloatToStr(Tsht)+'  '+FloatToStr(rbuf[i-1]);             g:=g+1;             end;         end;         flag:= TMTouchByte(Shandle, $FF);         CRCByte := flag; { the byte to run through CRC8 routine }         CRC16 := TMCRC(1, @CRCByte, CRC16, 1);   j:=j+1;   TMEndSession(Shandle);   Done := True; end; end; procedure TForm1.Button2Click(Sender: TObject);//// часовой интервал таймера var     b: integer; begin  Timer3.Enabled := True;  b:= StrToInt(Form1.Edit2.Text);   Timer1.Interval:=b*1000; end; end. Код на делфи. СКС проверял лично подсчитывает верно, а вот когда пытаюсь получить через flag, то не совподает, тоже не знаю...хотя для работы CRC не важно...это как контроль настойки контролера...но может и по этому не получается снять данные.  Если кто поможет, могу пообещать взаимную помощь.

Автор: cardinal 17.3.2008, 21:50

С чем подключены DS2450 и DS2408? Как подключены?

Автор: artem_from_minsk 18.3.2008, 18:41

Цитата С чем подключены DS2450 и DS2408? Как подключены?  Подключены через 1wire к DS1990A а потом через 1wire-USB уже к компу. Cхемы пока найти не могу, если нужно могу сбросить.

Автор: cardinal 18.3.2008, 20:24

То есть у тебя есть какое-то устройство, с которым ты должен наладить связь по USB? Где описание устройства?

Автор: artem_from_minsk 19.3.2008, 10:43

Описание??? Ладно, понятно, вижу для тебя это ново.... Наверное ты мне не поможешь. Как разберусь со своими проблемами, отпишу.

Автор: cardinal 19.3.2008, 14:35

Если так мало информации о твоем устройстве и пример на Delphi, то не помогу. Зайди в раздел Delphi, чтоли тогда...

Автор: Mazzi 19.3.2008, 14:59

Если получаешь неправильный CRC, то значит у тебя обмен проходит неверно. Могу предположить, что не соблюдаются временные параметры сигналов. (передача/приём идут слишком быстро или слишком медленно) Посмотри обмен запоминающим осциллографом, и проанализируй. У меня были подобные проблемы. Решение - вынес обмен во внешний однокристальный контроллер.

Автор: artem_from_minsk 21.3.2008, 00:14

Ладно мужики, нашёл в чём ошибка. Да могла быть и во времени..приём/ передача, но не в этом...СRC конечно и нужен, но лишь для контроля.....Хотя СRC вроде не совпадает, но работает верно...А кому интересны схемы устройств смотрите на www.elin.ru

Автор: artem_from_minsk 26.5.2008, 20:20

Всем спасибо.Все свободны.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)