ds1626 atmega32 vel

[tetye]

sziasztok!
ujjab problémába ütköztem.
van egy ds1626 os hömérő chipem ill 2db de nem tudom milyen protokolt használ hogy lehet lekérdezni... esetleg valaki találkozott már vele? tudtok hozzá rutint?

[nobody_hun]

sziasztok!
ujjab problémába ütköztem.
van egy ds1626 os hömérő chipem ill 2db de nem tudom milyen protokolt használ hogy lehet lekérdezni... esetleg valaki találkozott már vele? tudtok hozzá rutint?

3wire soros:
http://www.maxim-ic.com/quick_view2.cfm/qv_pk/3728

http://datasheets.maxim-ic.com/en/ds/DS1626-DS1726.pdf

[tetye]

köszi de az adatlapja meg van...
nekem ahogy irtam egy rutin kellene bascomban amivel fel tudom ébreszteni a szenzort..

[Hooligan01]

Megnéztem, szerintem az adatlap magáért beszél.

Meg sem próbálsz _SAJÁT_ dolgot írni? Abból tanul az ember...

[tetye]

annyira azért nem értek hozzá hogy én irjam meg..
iic elvilag meg az 1 wire is elég egyszerü mégis alig boldogulok vele...ált. ahoz is Robitol kérek segitséget. csak ezzel nem akarom már fárasztani..

[Hooligan01]

tetye!

Az adatlap alapján irtam, elméletileg működőképes...
Remélem a többi része világos a dolognak.

Kód: Egész kijelölése

$crystal = 16000000
$regfile = "M32def.dat"

Dq Alias Portb.0
Clk Alias Portb.1
Rst Alias Portb.2
Config Clk = Output
Config Rst = Output
Reset Rst

Dim Read_conf As Byte
Dim Write_conf As Byte
Dim Sw_por As Byte
Dim Read_temp As Byte
Dim Start_conv As Byte
Dim Stop_conv As Byte

Read_conf = &HAC
Write_conf = &H0C
Read_temp = &HAA
Start_conv = &H51
Stop_conv = &H22
Sw_por = &H54

Dim Convert As Bit
Dim Ds1626_config As Byte

Dim Temperature As Word At &H100
Dim Temp_lo As Byte At &H100 Overlay
Dim Temp_hi As Byte At &H101 Overlay

Declare Sub Ds_write(byval Adat As Byte)


'///////////////////////////////////////////////////////////////////////////////

'--------------
Init:
Call Ds_write(sw_por)                                       'sw reset

Do
nop                                                         'ide kerül a programod
Loop


'///////////////////////////////////////////////////////////////////////////////
Read_config:
'-----------
Set Rst
   Call Ds_write(read_conf)
         Config Dq = Input
            Shiftin Dq , Clk , Ds1626_config , 3

               If Ds1626_config.7 = 1 Then                  'konverzó vizsgálata
                  Set Convert                               'konverzió kész
               Else
                  Reset Convert                             'konverzió folyamatban
               End If
Reset Rst

Return

'///////////////////////////////////////////////////////////////////////////////
Write_config:
'------------
Set Rst
   Call Ds_write(write_conf)
      Call Ds_write(ds1626_config)

Reset Rst
Return

'///////////////////////////////////////////////////////////////////////////////
Read_temperature:
'----------------
Set Rst
   Call Ds_write(read_temp)
      Config Dq = Input
         Shiftin Dq , Clk , Temperature , 3 , 12            '12 bit olvasása a temperature regiszterbe
Reset Rst
Return

'///////////////////////////////////////////////////////////////////////////////
Start_convert:
'-------------
Set Rst
   Call Ds_write(start_conv)
Reset Rst
Return

'///////////////////////////////////////////////////////////////////////////////
Stop_convert:
'-------------
Set Rst
   Call Ds_write(stop_conv)
Reset Rst
Return

'///////////////////////////////////////////////////////////////////////////////

Sub Ds_write(byval Adat As Byte)
'--------------------------------
Config Dq = Output
   Shiftout Dq , Clk , Adat , 3
End Sub
'///////////////////////////////////////////////////////////////////////////////

[tetye]

huh
köszi szépen amint tudom ki is probálom