Membuat Alat Detektor Telur Busuk

Membuat Alat Detektor Telur Busuk

         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