|
Svet elektronike Revija za prave elektronike
|
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
trippp Mojster
Pridružen/-a: Pet Nov 2006 17:43 Prispevkov: 25
|
Objavljeno: Tor Jan 09, 2007 5:27 pm Naslov sporočila: 1-wire ds2433 4kbit EEPROM |
|
|
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 Datasheet sem ze predelal pocez in celo mislil, da ga znam uporabiti...pa ne gre
ce ima kdo kaksen prime bi se priporocal Tudi s kaksno drobtinico bom vec, kot happy
lahko tudi kaksen primer na ds1820 eepromu...vse bo prav prislo
hvala! |
|
Nazaj na vrh |
|
|
trippp Mojster
Pridružen/-a: Pet Nov 2006 17:43 Prispevkov: 25
|
Objavljeno: Tor Jan 09, 2007 7:38 pm Naslov sporočila: |
|
|
No po se malo raziskovanja sem prisel do naslednjega zakljucka 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
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 |
|
|
|
|
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
|