Kazalo po Svet elektronike forumu Svet elektronike
Revija za prave elektronike
 
AlbumAlbum   Pomoč pogostih vprašanjPomoč pogostih vprašanj   IščiIšči   Seznam članovSeznam članov   Skupine uporabnikovSkupine uporabnikov   Registriraj seRegistriraj se 
 Tvoj profilTvoj profil   Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil   PrijavaPrijava 

1-wire ds2433 4kbit EEPROM

 
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Digitalna elektronika
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
trippp
Mojster


Pridružen/-a: Pet Nov 2006 17:43
Prispevkov: 25

PrispevekObjavljeno: Tor Jan 09, 2007 5:27 pm    Naslov sporočila: 1-wire ds2433 4kbit EEPROM Odgovori s citatom

Pozdravljeni...

Nekaj sem ze delal na 1-wire protokolu z bascomom(standardno branje temp z ds1820). Sedaj pa bi rad stopil stopnicko vise na te eepromcke pa nikjer ne najdem uporabnega primera za pisanje in branje Sad Datasheet sem ze predelal pocez in celo mislil, da ga znam uporabiti...pa ne gre Sad

ce ima kdo kaksen prime bi se priporocal Smile Tudi s kaksno drobtinico bom vec, kot happy Smile

lahko tudi kaksen primer na ds1820 eepromu...vse bo prav prislo Smile

hvala!
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo
trippp
Mojster


Pridružen/-a: Pet Nov 2006 17:43
Prispevkov: 25

PrispevekObjavljeno: Tor Jan 09, 2007 7:38 pm    Naslov sporočila: Odgovori s citatom

No po se malo raziskovanja sem prisel do naslednjega zakljucka Smile Deluje

Prilagam kar komplet kodo, ce bo komu kdaj prav prislo...stvar je samo za en eeprom na 1-wire avtobusu. Ce je se kaj drugega se seveda spusti skip ROM in izda match ROM Smile

LP
Citiram:
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 4800

Config 1wire = Portb.7

Dim Ar( 8 ) As Byte
Dim Ep( 8 ) As Byte
Dim Epdata(512) As Byte

Dim Yesno As String * 1
Dim I As Integer




1wreset ' Reset bus to start

' Write to ScratchPad (2 bytes to 0026 and 0027)
1wwrite &HCC ' Skip ROM
1wwrite &H0F ' Write ScratchPad
1wwrite &H26 ' Target address 0026H
1wwrite &H00 ' Target address 2 00 27H
1wwrite 5 , 1 ' one byte of data
1wwrite 8 , 1 ' second byte of data
1wreset ' Reset the bus to complete

' Read from ScratchPad (2 bytes from 0026 and 0027)
1wwrite &HCC ' Skip ROM
1wwrite &HAA ' Read ScratchPad
Ep(1) = 1wread() ' Read Target Address start offset 0026H
Ep(2) = 1wread() ' Read Target Address stop offset 00 27H
Ep(3) = 1wread() ' Read E/S
Ep(4) = 1wread() ' Read first data byte
Ep(5) = 1wread() ' Read second data byte
Print Ep(1) ; "-" ; Ep(2) ; "-" ; Ep(3)
Print Ep(4)
Print Ep(5)
1wreset ' Reset the bus to complete

' Write data from ScratchPad to EEPROM
1wwrite &HCC ' Skip ROM
1wwrite &H55
' Authorization code
1wwrite Ep(1)
1wwrite Ep(2)
1wwrite Ep(3)
' Wait 5ms to write EEPROM
Waitms 100
1wreset ' Reset the bus to complete

Do
Input "Berem EEPROM? (y/n)" , Yesno
If Yesno = "y" Then
1wreset ' REset the bus to start
1wwrite &HCC ' Skip ROM
1wwrite &HF0 ' Read from EEPROM to ScratchPad
1wwrite &H26 ' Start memory address 00026
1wwrite &H00 ' End memory address 0000H
For I = 0 To 10
Epdata(i) = 1wread()
Next
1wreset ' Complete all
For I = 0 To 10
Print Epdata(i)

Next

End If
Loop
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Digitalna elektronika Časovni pas GMT + 1 ura, srednjeevropski - zimski čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
You cannot attach files in this forum
You cannot download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group