"Sensor Suhu dengan Termokopel"
postingan kali ini membahas tentang salah satu produk kami
sensor suhu dengan termokopel, menggunakan at mega 16, keluaran atmel
fasilitas yang ada di alat ini adalah
1. bisa di atur tanggal, hari, bulan dan tahunnya
2. bisa disentting jam, menit, dan detiknya
3. data disave didalam mikro sebanyak 99 buah (bisa lebih)
4. range suhu yang bisa dicapai adalah -50 C sampai 1300 C
ada dua macam termokopel yang ada, model batang dan model bundel kecil
pemilihan sensor menyesuaikan dari objek yang akan di ukur
termokopel yang kami pakai disini adalah termokopel Type K yang dapat mendeteksi suhu, mulai dari -51 celcius sampai 1300 celcius
alat ini menggunakan 2 buah penguat, serta real time clock. Kerja sistem, adalah sistem akan mendetesi suhu
suhu yang dideteksi akan disimpan pada eeprom. berapa lama jangka waktu yang digunakan untuk menyimpan data, bisa di setting dengan 4 tombol
Berikut sample code nya
$regfile = "m16def.dat"
$crystal = 12000000
Config Lcdpin = Pin , Rs = Portc.7 , E = Portc.6 , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2
Config Lcd = 16 * 2
Cursor Off , Noblink
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
$lib "I2C_TWI.LBX"
Config Twi = 100000
Const Baca = &HD1
Const Tulis = &HD0
Tombol1 Alias Pinb.0
Tombol2 Alias Pinb.1
Tombol3 Alias Pinb.2
Tombol4 Alias Pinb.3
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input
Set Portb.0
Set Portb.1
Set Portb.2
Set Portb.3
Dim Detik As Byte , Menit As Byte , Jam As Byte , Hari As Byte
Dim Tanggal As Byte , Bulan As Byte , Tahun As Byte , Control As Byte
Dim Adcnya As Word , Adc_single As Single , Adc_convert As Byte
Dim Menit_ukur As Byte , Menit_ukur_eeprom As Eram Byte , Menit_lama As Byte
Dim Jam_eeprom(99) As Eram Byte , Jam_atur(99) As Byte
Dim Menit_eeprom(99) As Eram Byte , Menit_atur(99) As Byte
Dim Detik_eeprom(99) As Eram Byte , Detik_atur(99) As Byte
Dim Nilai_eeprom(99) As Eram Byte , Nilai(99) As Byte
Dim Kondisi As Bit , Masuk As Byte , K As Byte , Z As Byte
Utama:
Cls
Do
Gosub Baca_waktu
Locate 1 , 3
Lcd "SUHU || UKUR"
Locate 2 , 1
Lcd Jam ; ":" ; Menit ; ":" ; Detik ; " "
Locate 2 , 10
Lcd Tanggal ; "/" ; Bulan ; "/" ; Tahun ; " "
If Tombol1 = 0 Then
Waitms 250
Bitwait Tombol1 , Set
Goto Suhu
End If
If Tombol4 = 0 Then
Waitms 250
Bitwait Tombol4 , Set
Goto Ukur
End If
Waitms 10
Loop.
.
.
.
.
.
bagaimana? tertarik untuk mencoba?
mari bermain dengan mikro :)
jasa pembuatan alat, skripsi, atau TA
bisa masuk di postingan kami yang ini
=>
.svg.png)
Wadaww Ngebuutt rank alexa nya, btw mana nih kotak followernya?
BalasHapusby : baskarapunya.blogspot.com
oh maaf, blum kami pasang, hehe , trima kasih sudah berkunjung, segera kami pasang :)
Hapusitu pake ic op amp mas ?
BalasHapusslamt siang mas, saya mau tanya bisa bantu jasa untuk pembuatan TA gax
BalasHapusPlease send me email at riosangkuriang24@gmail.com
salam.
Rio