Alat detektor telur busuk ini benar2 ide yang sangat kreatif, memang jika dilihat dari prinsip kerja dan komponen yang dibutuhkan, alat ini tergolong sederhana namun bisa bermanfaat bagi orang banyak, seperti kasus di pasar atau di toko2 yang menjual telur, kita sebagai pembeli tidak tahu apakah telur yang dijual tersebut masih baru, sudah matang, atau sudah busuk, cara konvensional yang dipakai oleh ibu2 rumah tangga dalam memilih telur yaitu dengan menerawang ke langit, ya itu memang cara lain namun bagaimana jika itu dimalam hari yang gelap ?, nah teknologi yang simple namun berefek besar inilah yang bisa menjawabnya.
Prinsip kerja dari detektor telur busuk yaitu terdapat sebuah led putih atau kuning yang bisa memancarkan cahaya hingga tembus ke permukaan telur, biasanya LED yang dipakai yaitu super bright dan jumlahnya ada dua atau tiga buah agar didapat pancara sinar yang menyeluruh ke telur. kemudian sensor untuk mengkap cahayanya dipakai sensor photodioda, sensor ini sangat efektif sekali untuk urusan menerima cahaya pantul atau mendeteksi cahaya, sensor ini dipakai karena fokus deteksi photodioda tertuju pada satu arah atau satu titik yaitu titik tengah, jika telur yang dideteksi adalah telur normal atau telur baru maka cahaya dari LED akan bisa tembus ke permukaan telur dibelakangnya, sehingga photodioda dapat mendeteksi adanya cahaya pada kulit telur, namun jika telur tersebut busuk maka cahaya tidak dapat tembus ke permukaan telur karena adanya penghalang dibagian tengah telur, entah itu karena busuk atau karena matang. berikut ilustrasi dan skemanya.
Ilustrasi jika telur masih bagus
Ilustrasi jika telur sudah busuk
a. Minimum System ATMega16
b. Skematik Rangkaian Phodioda dan Led
c. Program bascom AVR
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
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 Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Cahaya As Word
Cls
Cursor Off
Start Adc
Do
Cahaya = Getadc(0)
If Cahaya > 1000 Then
Upperline
Lcd "TELUR BUSUK"
Else
Upperline
Lcd "TELUR BAGUS"
End If
Loop
$crystal = 12000000
$baud = 9600
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 Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Cahaya As Word
Cls
Cursor Off
Start Adc
Do
Cahaya = Getadc(0)
If Cahaya > 1000 Then
Upperline
Lcd "TELUR BUSUK"
Else
Upperline
Lcd "TELUR BAGUS"
End If
Loop
No comments:
Post a Comment