Svetelektro.com

Svetelektro.com

Meno:
Heslo:
SVETELEKTRO • DS2413 komunikacia

DS2413 komunikacia

Moderátori: psichac, Moderátori

DS2413 komunikacia

Odoslaťod smotek7 » 15 Sep 2011, 17:50

ahojte,
nemate niekto kus kodu v bascome ako komunikovat z DS2413
popripade v Cku.
staci ovladanie led.
z datasitu mi to nieje uplne jasne
ani google nepomohol
smotek7
Pokročilý člen
Pokročilý člen
Príspevky: 521
Vek: 40.16
Založený: 08.08.2011
Bydlisko: PN
Karma: 4

Odoslaťod jenda23 » 15 Sep 2011, 18:06

V bascomu by to šlo, koukni jak komunikujou s DS18B20 todle je dost podobný. Reset, obdržíš potvrzovací puls, pošleš adresu CCh, dál F5h, následně vyčítáš 3 datový bajty, odesíláš reset a obdržíš povrzovák. To je vše. Takže by to mohlo vypoadat nějak takhle

.
.
.
.

1Wreset
1wwrite &HCC
1wwrite &HF5

For I = 1 To 3

ctene_byty(i) = 1wread()

Next

1Wreset


a pokud jich bude víc na sběrnici použiješ instrukci 1wsearch
Lokomotiva je jako žena.Je jich stovky typů a každej z nich je jinej,každá z nich je svým způsobem krásná.Když jí chceš aspoň trochu poznat jsou to stovky hodin času.Nejde s ní být aniž bys jí bezmezně miloval,je nemožný jí znát do poslední skulinky
jenda23
Obrázok používateľa
Ultimate člen
Ultimate člen
Príspevky: 5419
Vek: 29.24
Založený: 27.06.2008
Bydlisko: Česká Třebová
Paragraf: 23
Karma: 62

Odoslaťod smotek7 » 15 Sep 2011, 18:24

DS18B20 mam rozchodene, aj viac na jednej zbernici
potreboval by som vedet ake byty poslat ked chcem na tom DS2413
aktivovat vystupi
smotek7
Pokročilý člen
Pokročilý člen
Príspevky: 521
Vek: 40.16
Založený: 08.08.2011
Bydlisko: PN
Karma: 4

Odoslaťod jenda23 » 15 Sep 2011, 19:22

Na adrese F5h najdeš status pro vstup a na adrese 5Ah sou výstupy...
Lokomotiva je jako žena.Je jich stovky typů a každej z nich je jinej,každá z nich je svým způsobem krásná.Když jí chceš aspoň trochu poznat jsou to stovky hodin času.Nejde s ní být aniž bys jí bezmezně miloval,je nemožný jí znát do poslední skulinky
jenda23
Obrázok používateľa
Ultimate člen
Ultimate člen
Príspevky: 5419
Vek: 29.24
Založený: 27.06.2008
Bydlisko: Česká Třebová
Paragraf: 23
Karma: 62

Odoslaťod smotek7 » 15 Sep 2011, 19:54

prave som nasiel toto

'----------------------------------------------------------------------------------
' {$STAMP BS2p}
' {$PBASIC 2.5}

'1-wire Dallas DS2413 Dual addressable switch
'This program reads PIOB state (button) and set PIOA LED accordingly
'4.7K pullup on OWpin
'button with 10k·pullup on DS2413 PIOB (pin 4)
'LED on DS2413 PIOA (pin 6)


OWpin··········· CON·· 15························· ' 1-Wire bus
OW_FERst········ CON·· %0001······················ ' Front-End Reset
OW_BERst········ CON·· %0010······················ ' Back-End Reset
OW_BitMode······ CON·· %0100
OW_HighSpd······ CON·· %1000
PIOR············ CON·· $F5························ ' PIO access read
PIOW············ CON·· $5A························ ' PIO access write
ReadROM········· CON·· $33························ ' read ID, serial num, CRC
MatchROM········ CON·· $55························ ' look for specific device
SkipROM········· CON·· $CC
ON1············· CON·· %11111101·················· ' output 1 ON
ON2············· CON·· %11111110·················· ' output 2 ON
ONF2············ CON·· %00000001·················· ' output 2 OFF
OFF12··········· CON·· %11111111·················· ' output 1 & 2 OFF
MSEC············ CON·· 100························ ' pause
command········· VAR·· Byte······················· ' data sent to DS2413
info············ VAR·· Byte······················· ' data received from DS2413
ButtonState····· VAR·· info.BIT2·················· ' Button state
i··············· VAR·· Nib
' -----[ Main Code ]------------------------------------------------------------
'
DEBUG CLS
DO
· GOSUB Read_data············································ ' read DS2413 DIO-A state
· IF ButtonState = 0 THEN
··· command = ON2
··· ' command = info & ON2
··· GOSUB Write_Data········································· ' write DS2413 DIO-B state
··· DEBUG HOME, "ON ", CR
· ELSE
··· command = OFF12
··· GOSUB Write_Data········································· ' write DS2413 DIO-B state
··· DEBUG HOME, "OFF", CR
· ENDIF
· PAUSE MSEC
LOOP
' -----[ Subroutines ]----------------------------------------------------------
'
Write_Data:
· info=0
· OWOUT OWpin, OW_FERst, [SkipROM, PIOW, command , ~command]· ' send commande
· OWIN OWpin, 0, [info]
· IF info = $AA THEN········································· ' get confirmation byte
··· DEBUG "confirmation... ", "ACK: ", HEX info
· ELSEIF info = $FF THEN
··· DEBUG "confirmation... ", "NAK: ", HEX info
· ELSE
··· DEBUG "confirmation... ", "???: ", HEX info
· ENDIF
· info=0
· OWIN OWpin, OW_BERst, [info]······························· ' get PIO status
· DEBUG "··· Status: ", BIN4 info, CR
RETURN
Read_data:
· info=0
· OWOUT OWpin, OW_FERst, [SkipROM, PIOR]····················· ' send PIO ACCESS READ
· OWIN OWpin, OW_BERst, [info]······························· ' get PIO status
RETURN
'-----------------------------------------------------------------------------------

niesom si isty ci chapem dobre tento riadok
OWOUT OWpin, OW_FERst, [SkipROM, PIOW, command , ~command]

moze to byt takto

1wreset
1wwrite &HCC
1wwrite &H5A
1wwrite &%11111101 naprikald ked chcem zapat jeden pin
dalej mi neni jasne co je ~command
OWIN by mal bit asi prijem
cize
premenna = 1wread (1)

nasledne ten test ci to prebehlo OK

otestovat to este neviem lebo mi DS nedorazil
len si to chcem nachystat aby som potom netapal
smotek7
Pokročilý člen
Pokročilý člen
Príspevky: 521
Vek: 40.16
Založený: 08.08.2011
Bydlisko: PN
Karma: 4

Re: DS2413 komunikacia

Odoslaťod smotek7 » 24 Sep 2011, 00:25

trochu ma to vytrapilo ale takto mi to funguje

1wreset
1wwrite &HCC
1wverify Dsid4(1)
1wwrite &H5A
1wwrite &B11111100
1wwrite &B00000011
Info = 1wread(1)
1wreset
Nemusím vedeť váhu elektrónu ak chcem zaspájkovať tranzistor.
smotek7
Pokročilý člen
Pokročilý člen
Príspevky: 521
Vek: 40.16
Založený: 08.08.2011
Bydlisko: PN
Karma: 4


Naspäť na Bascom

Kto je prítomný

Užívatelia prezerajúci si toto fórum: Žiadny registrovaný používateľ a 2 hostí.

Forums ©
Autor stránky je Ondrej Závodský(zawin), o graficky design sa stará Ľuboš Fabo(BUFU).

TOPlist

Powered by Copyright © UNITED-NUKE CMS. All Rights Reserved.
Čas potrebný k spracovaniu stránky 0.26 sekúnd