Meyve bahçesindeki ısının 1 derecenin altına düşmesi durumunda ağaçların altında ateş yakıp ortamdaki sıcaklığın 0 derecenin altına düşmesini önleyerek meyveleri dondan korur. Ateş yakıldığı anda da devredeki mikrodenetleyiciye yüklü telefon numarasını arayarak bahçe sahibini durumdan haberdar eder.

Ses kayıt modülü:Kayıt Modu: REC butonuna basarak kart üzerindeki RECLED ledi yandıktan sonra kart ses kaydına başlayacaktır. Kayıt süresince REC butonunu basılı kalmalıdır. Kayıt sonrasında REC butonunu bırakınız.
Çalma Modu: Kartın 3 ayrı kayıt çalma modu bulunmaktadır. PLAYE butonuna bir kere basılıp bırakıldığında kayıt bitene veya güç kesilene kadar kayıt çalınacaktır. PLAYL butonuna basılı tutulduğu sürece kayıt çalınacaktır. Bırakıldığında ise duracaktır. REPEAT anahtarı sağa kaydırıldığında tekrar modu açılacak ve anahtar eski konumuna getirilene veya güç kesilene kadar kayıt çalınacaktır.
FT Modu: FT modu aktif edildiğinde mikrofondan alınan ses direk olarak hoparlöre aktarılarak çalınacaktır.
Bu modların hiç biri beraber çalışmamaktadır. Beraber çalıştırılmaya çalışıldığında karta zarar verebilirsiniz.
Hoparlör çıkışına bir amplifikatör devresi bağlanarak, daha güçlü hoparlörler de kullanılabilir.
Mikrodenetleyici programı:program don877
main:
adcon1=7 'analog girisleri dijital giris yap
trisa=%11111111 'a portunu giris yap
trisb=%00000000 'b portunu çıkış yap
trisc=%00000000 'c portunu çıkış yap
trisd=%00000000 'd portunu çıkış yap
don:
portb=%00000000 ' b portunu sifirla
portc=%00000000 ' c portunu sifirla
portd=%00000000 ' d portunu sifirla
if porta.0=1 'a portunun sıfıncı pini 1 ise
then
portb=%00000111 'b portunun sifirinci pinini 1 yap (330 ohmluk direnci hatta bagla, gazi ver, atesleme yap)
delay_ms (2000) ' 2 saniye bekle
'ILK RAKAMIN GONDERİLMESİ BASLADI (0)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'ILK RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'IKINCI RAKAMIN GONDERİLMESI BURADA BASLADI (5)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'IKINCI RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'UCUNCU RAKAMIN GONDERİLMESİ BASLADI (4)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'UCUNCU RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'DORDUNCU RAKAMIN GONDERİLMESİ BASLADI (4)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'DORDUNCU RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'BESİNCİ RAKAMIN GONDERİLMESİ BASLADI (3)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'BESİNCİ RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'ALTINCI RAKAMIN GONDERİLMESİ BASLADI (4)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'ALTINCI RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'YEDINCI RAKAMIN GONDERİLMESİ BASLADI (2)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'YEDINCI RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'SEKIZINCI RAKAMIN GONDERİLMESİ BASLADI (0)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'SEKIZINCI RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'DOKUZUNCU RAKAMIN GONDERİLMESİ BASLADI (1)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'DOKUZUNCU RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'ONUNCU RAKAMIN GONDERİLMESİ BASLADI (3)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'ONUNCU RAKAMIN GONDERİLMESİ BURADA BITTI
delay_ms (500) '1/2 saniye bekle
'ONBIRINCI RAKAMIN GONDERİLMESİ BASLADI (8)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
portb=%00000000
delay_ms (100)
portb=%00000001
delay_ms (100)
'ONBIRINCI RAKAMIN GONDERİLMESİ BURADA BITTI
portb=%00001001 'ses kayıt devresini calistir
delay_ms (30000) '1/2 DAKIKA BEKLE
portb=%00000000
delay_ms (2000) ' 2 saniye bekle
end if
goto don
end.