Mengakses Cold Junction Compensation MAX6675 thermocouple K Type

Mengakses Cold Junction Compensation MAX6675 thermocouple K Type

           Pada kesempatan kali ini akan dibahas mengenai bagaimana cara mengakses module cold junction compensation dengan menggunakan BASCOM AVR, module yang digunakan menggunakan IC MAX6675 yang mana didalamnya telah terdapat ADC, sehingga cara mengaksesnya tidaklah menggunakan tegangan output namun menggunakan digital, berikut skematik yang digunakan.

1. Minimum System ATMega16

2. Program BASCOM AVR

$regfile = "m16def.dat"
$crystal = 12000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2

Config Spi = Soft , Din = Pind.2 , Dout = Portd.3 , Ss = None , Clock = Portd.4

Config Pind.4 = Output
Config Pind.3 = Output
Config Pind.2 = Input

Sck Alias Portd.4
Cs Alias Portd.3
So Alias Pind.2

Dim Maxdata As Word

Cs = 1
Sck = 0

Portd.2 = 1

Cls
Cursor Off

Locate 1 , 1
Lcd "Suhu = "

Do
Cs = 0
Shiftin So , Sck , Maxdata , 0 , 16
Cs = 1
Shift Maxdata , Right , 3
Maxdata = Maxdata / 4
Locate 1 , 8
Lcd Maxdata ; " " ; "oC"
Waitms 800
Loop

End


3. HASIL VIDEO