Давно хочу понять как им пользоваться , но что то не получается! Помогите пожалуйста.
Я чтобы разобраться в протеусе набросал схему термометра. Датчик ТС-72.Спй пробовал и хардварный и софтварный. В конце концов попробывал пример из баскома.
Есть команда var=Spimove(byte) , uгде var - переменная, в которую счит-ся инфа из шины SPI, а Byte - константа или адрес( в моем случае это адрес регистра где храниться температура) - я так понял. Пробовал использовать SPIIN - считывание из SPI, SPIOUT - передача в SPI. Но чтото никак не работает. по SPI дебаггеру вижу, что в шину отправляется байт с адресом, а обратно или нуль или 255 идет и все(
--------------------------------------------------------------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128
'init the spi pins
Spiinit
Dim B As Byte , Bfromslave As Byte
B = &H02
Do
'send 1 byte
Bfromslave = Spimove(b)
Print Bfromslave ; " received from slave"
'as an alternative you can send data and display the last received value
' Spiout B , 1
' Print Spdr ; " received from slave"
Wait 1
Loop
End
--------------------------------------------------------------------------------------------------------------------------------------
Адрес регистра с температурой в датчике &H02(старший байт - целое значение) регистр статуса вроде не требуется особо конфигурировать! Время преобразования 150мс
пробовал этот код:
----------------------------------------------------------------------------
Dim addres as byte, temperatura as byte
addres = &h02
spiinit
spiout addres, 1 'отправляю байт адреса регистра температуры
waitms 150
Spiin temperatura, 1 'получаю значение температуры
----------------------------------------------------------------------------
Тоже не работает, вобщем сижу туплю, не пойму никак.
