Nie jestem wstanie uruchomić pamięci 24c04 z at90s2313, programik jest następujący
Declare Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
Declare Sub Read_eeprom(byval Adres As Byte , Value As Byte)
Const Addressw = 160                                       
Const Addressr = 161                                        
Dim B1 As Byte , Adres As Byte , Value As Byte             
Print "zapis"
Call Write_eeprom(1 , 5)
Call Write_eeprom(2 , 5)
Call Write_eeprom(3 , 5)
Call Write_eeprom(4 , 5)                                    
Print "odczyt"
Call Read_eeprom(1 , Value) : Print "1:" ; Value            
Call Read_eeprom(2 , Value) : Print "2:" ; Value            
Call Read_eeprom(3 , Value) : Print "3:" ; Value            
Call Read_eeprom(4 , Value) : Print "4:" ; Value            
End
Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
    I2cstart                                                
    I2cwbyte Addressw                                       
    I2cwbyte Adres                                         
    I2cwbyte Value                                        
    I2cstop                                               
    Waitms 10                                               
End Sub
Sub Read_eeprom(byval Adres As Byte , Value As Byte)
   I2cstart                                                 
   I2cwbyte Addressw                                        
   I2cwbyte Adres                                           
   I2cstart                                                 
   I2cwbyte Addressr                                       
   I2crbyte Value , Nack                                   
   I2cstop                                                  
End Sub
program zwraca wartość ''0" 
w bascomie ustawilem
SDA -> portb.4
SDL -> portb.3
kostka 24c04 podłaczona następująco
piny 1,2,3,4 (A0,A1,A2) ->zwarte do masy (adresy W/R 160/161)
pin 7 (TST) wisi w powietrzu
Jest roznica pomiedzy pamieciami EEPROM roznych producentow?
Np. pomiedzy kostka st24c04 a at24c04, chodzi mi o adsresowanie,
oraz wyprowadzenia.
			
Aktyw Forum
Zarejestruj się na forum.ep.com.pl i zgłoś swój akces do Aktywu Forum. Jeśli jesteś już zarejestrowany wystarczy, że się zalogujesz.
Sprawdź punkty Zarejestruj sięProblem z 24c04
Moderatorzy:Jacek Bogusz, robertw, k.pawliczak, Moderatorzy
tak SDA-SDA oraz SCL-SCL, uc nie widzi 24c04,szukam za pomoca programiku->
Dim Adres As Byte
Print "badanie ukladu"
For Adres = 150 To 200 Step 2
I2cstart
I2cwbyte Adres
I2cstop
If Err = 0 Then
Print "uklad=" ; Adres
Wait 1
Else
Print "pod " ; Adres ; " nie ma"
Waitms 500
End If
Next Adres
end
po zaprogramowaniu 2313 zupelny brak reakcji,program staje
po wykonaniu Print "badanie ukladu"
nie mam rezystorów podciagajacych 4.7k, czy to moze byc tym spowodowane?
			Dim Adres As Byte
Print "badanie ukladu"
For Adres = 150 To 200 Step 2
I2cstart
I2cwbyte Adres
I2cstop
If Err = 0 Then
Print "uklad=" ; Adres
Wait 1
Else
Print "pod " ; Adres ; " nie ma"
Waitms 500
End If
Next Adres
end
po zaprogramowaniu 2313 zupelny brak reakcji,program staje
po wykonaniu Print "badanie ukladu"
nie mam rezystorów podciagajacych 4.7k, czy to moze byc tym spowodowane?
Kto jest online
Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 30 gości

