13:20


Для обсуждения статей приглашаю на Форум
Каталог статей
меню

Профиль
Гость


Группа:
Гость
Время:13:20

Гость, мы рады вас видеть. Пожалуйста зарегистрируйтесь или авторизуйтесь!


Категории раздела
Измерения [7]
Звук [10]
Автоматика [9]
Интерфейсы [8]
Видео [1]
Программы [25]
Разное [12]
Для дома [7]
Источники питания [3]
Программирование [11]

Облако тегов

Статистика





Мы вконтакте

Приветствую Вас, Гость · RSS 25.08.2019, 13:20

Главная » Файлы » Измерения

Измеряем температуру с помощью MAX6675

   Микросхема MAX6675 измеряет температуру от 0 до 1024 градуса  с разрешением 0.25 градуса. На борту внутренняя компенсация холодного спая для термопары К-типа и SPI интерфейсом. В продаже есть вот таким набором.

   Протокол считывания предельно прост: Прижимаем ножку CS к земле на SCK подаем тактовый сигнал и по спадающему фронту с ножки SO забираем наши биты. (см. диаграмму).




   После получения 15 бит извлекаем температуру, данные находятся в битах 3 - 14. Второй бит можно применять для контроля термопары, если бит равен 1 то термопара отключена или оборвана.



Формат данных




Привожу небольшой пример работы с микросхемой, в среде Bascom AVR.



'------------------------------------------------ Конфигурация портов ------------------------------------------------

MAX6675_miso Alias Portd.5 : Config MAX6675_miso = input                        ' чтение данных
MAX6675_sck Alias Portd.6 : Config MAX6675_sck = Output                          ' стробирование
MAX6675_cs Alias Portd.7 : Config MAX6675_cs = Output                              ' выбор=0
MAX6675_data Alias Pind.5

'------------------------------------------------------------------------------------------------------------------------------

' Declare Sub MAX6657_get_T( температура)
' Если Err = 1 - обрыв термопары

Declare Sub MAX6657_get_T(t_data as single )

'------------------------------------------------------------------------------------------------------------------------------
Dim TData as single

Do

Call MAX6657_get_T( TData )
If Err=1 then
    Print "Термопара отсутствует"
else
    Print "Температура = " ; TData 
End if
Wait 1

Loop
End


'------------------------------------------------------------------------------------------------------------------------------
Sub MAX6657_get_T(t_data as single )
   
    Local temp_data as word
    Temp_data = 0

    MAX6675_cs = 0
    Shiftin MAX6675_data , MAX6675_sck , temp_data , 1 , 16 , 10
    MAX6675_cs = 1 

    if temp_data.2 = 1 then err = 1 else err = 0
    shift temp_data , right , 3
    t_data = temp_data * 0.25
 
End sub
    



Для скачивания файлов:
Войдите или Зарегистрируйтесь


[ Сообщить о нерабочей ссылке ]
Категория: Измерения | Добавил: Yuriy | Теги: MAX6675, термопара, измерение
Просмотров: 236 | | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск

Поиск Datasheet


Топ пользователей
Yuriy
Добавил статей: 63
Количество постов: 54

Sanyok
Добавил статей: 5
Количество постов: 0

snyfer
Добавил статей: 4
Количество постов: 2

4RESTER
Добавил статей: 1
Количество постов: 0

Аватар не выбран Arses
Добавил статей: 1
Количество постов: 0


Новое на сайте

 Bootloader


 LG FLATRON E2350V-PN


 Аудио Модуль USB TF Рад...


 Битовые операции И, ИЛИ...


 Учебник DipTrace для на...


 Samsung LE32R81B


 Коды ошибок


 Заправка и сброс картри...


 Сервисное меню телевизо...


 Изучаем Arduino - инст...


 Микросхемы EEPROM


 500 схем для радиолюбит...


 302 новые профессиональ...


 Сварочный инвертор. Тео...


 В копилку радиолюбителя


 В копилку радиолюбителя...


 Видеокарта GeForce 210


 Видеокарта Nvidia Gefor...


 Пульт для Сhallenger ch...


 Ноутбук Acer MS2277


 Осциллограф С1-65а



На форуме

БП ATOM IPS


Манчестер кодирование


Меню BAS


Контроллер теплых полов


Програмный Uart для BOO...


Простое шифрование данн...


433Mhz TX & RX



Опрос
Какой раздел для Вас наиболее интересен?

Всего ответов: 22

Галерея

Copyright Elektron © 2019

Яндекс цитирования Проверка PR и ТИЦ