Emiatt nem akartam új témát nyitni.
I2c-n akarok elérni egy accelerometer chipet (itt a doksija) de az első írás közben megáll a program futása (gondolom nem válaszol a slave) Probáltam I2csend-del is de úgy sem ment. Tudna valaki segíteni?
Vagy lehet hogy megdöglött a chip?
Itt a code:
Kód: Egész kijelölése
$regfile = "ATtiny45.dat"
$crystal = 1200000
$hwstack = 32
$swstack = 16
$framesize = 40
Ddrb = &B00000100 'Portb.2 - kimenet
Portb = &B11111011 'Bemenetek felhúzása
Config Sda = Portb.3
Config Scl = Portb.4
Dim B1 As Eram Byte
Dim B2 As Eram Byte
Dim B3 As Eram Byte
Dim B4 As Eram Byte
Dim B5 As Eram Byte
Dim B0 As Byte
Const Slave = &H20
Portb.2 = 1
I2cinit
I2cstart
I2cwbyte Slave , 0 '***EZEN A SORON ÁLL MEG***
I2cwbyte 0
I2cstop
Waitms 100
I2cstart
I2cwbyte Slave
I2cwbyte 0
I2crbyte B0 , Ack
B1 = B0
I2crbyte B0 , Ack
B2 = B0
I2crbyte B0 , Ack
B3 = B0
I2crbyte B0 , Ack
B4 = B0
I2crbyte B0 , Nack
B5 = B0
I2cstop
End