Akvaryum için Balık Yemleme Otomasyonu

[ecel1912]

Otomasyon devresinin yapabildikleri;

1. Max. 3 olmak üzere günün istenilen saatlerinde yemleme işlemi yapılabilmektedir.
2. Haftalık olarak yemleme günleri belirlemektedir. ( Burada ki amaç haftada bir gün otomatı kapatıp balığı aç bırakmak ve ya canlı yem vermektir.
Canlının sindirimi için faydalıdır kabızlığı önler.)
3. Ayrıca tasarımda bulunan göstergeli kontrol paneli sayesinde;
a. Sistem için gerekli saat ve tarih ayarları yapılabilmektedir.
b. Günde kaç kere yemleme yapıldıgının seçili oldugunu görelebilmektedir.
c. Yemliğin günün hangi saatinde yem atacakları ayarı yapılabilmektedir.
d. Manuel yemleme ve aydınlatma ayarı işlemleri tek tuşla yapılabilmektedir.
4. Yem atma öncesinde ve sonrasında aydınlatma işlemlerini otomatik olarak yaparak yemlenme için uygun ortam sağlanması işlemi yapılabilmektedir.
(Ortam ışığına göre yemleme yapılmadan yarım saat önce balıkların normal aktivitelerini ve uyanmaları için aydınlatmayı açma,yemleme işlemi
bittikten sonra yedikleri yemleri sindirebilmeleri için yarım saat sonrada ışıkları kapama işlemini gerçeleştirir.Sindirim için yararlı olmakla
birlite balıgın yemi görmesini ve yemin suda çözülüp suyu kirletmesini engeller.)
5. Kullanıcının menüler içinde boğulmaması için set tuşu kontrolünde menü içinde hızlı atlamalar ve ilerlemeler yapabilmetedir.


Dipnot: D.E.Ü proje amaçlı çalışmamdır.(Ç)Alıntı değildir.

 

[ULAGA]

Böyle paylaşımlarda bulunmak ne kadar da gurur verici bir şey...

Sonradan inceledim de sadece HEX kodu paylaşılmış.
Ancak yine de çok teşekkürler...

 

[elektrofizikci]

Emeğine sağlık. Bende bir dönem yapmak istemiştimde uğraşamadım. Kısmet olmadı

Böyle bir sisteme ihtiyaç duyanlara tavsiyem bazı model fotokopi makinelerinin boş toner kutularını kullansınlar. İçini temizleyip, yemle doldurun. kutunun içinde toneri döken silindirik dişli bi yapı var, matkap ucu gibi. motora bağlı. motor döndükçe toneri makineye döker. toner yerine yem koyun, pic ilede bi zamanlama devresi yapın, o zamanlarda motoru çalıştırsın belirli bir süre. bu belirli süreyide balığın sayısına görede ayarlanabilir yapın, ister ayarlı dirençle zamanı ayarlanır yapın, ister butonlar koyarak balık sayısına göre tercih yapın....Benden bu kadar.. yapan olursa paylaşır umarım...

Sağlıcakla...

 

[joquas]

2 aydır uğraşıyorum kafam almıyor displayle zaman ayarı yapıcam 2 tane haznem var ve bir motor ust kapaklara deyiyor 3 sn açık kalıyor sonra diğer butona değdimi duruyor kapak kapanmıs oluyor aynı şekilde yem dökülme haznesi var ama bir türlü işin içinden çıkamıyorum bu benım bitirme tezim bozok üniversitesinde okuyorum ve işin içinden çıkamıyorum yardımcı olursanız çok sevinirim bas dosyasıda--------

TRISA=%11111111
TRISB=%00011111
PORTA=0
PORTB=0
SYMBOL MOTOR1SAG=TRISB.4
SYMBOL MOTOR1SOL=TRISB.5
SYMBOL MOTOR2SAG=TRISB.6
SYMBOL MOTOR2SOL=TRISB.7
SYMBOL SW1=TRISB.3
SYMBOL SW2=TRISB.2
SYMBOL SW3=TRISB.1
SYMBOL SW4=TRISB.0
SYMBOL ARTIR=TRISA.5
SYMBOL AZALT=TRISA.6
i VAR Byte
A VAR Byte
B VAR BYTE
C VAR BYTE
DISPLAY1 VAR BYTE
DISPLAY2 VAR BYTE


i=0
BASLA:
IF SW1!=0 THEN
   MOTOR1SAG=1
   PAUSE(3000)
ELSE
   MOTOR1SAG=0
   PAUSE(3000)
ENDIF


DEVAM:


IF ARTIR=0 THEN
   i=i+1
   PAUSE(150)
ENDIF


IF AZALT=0  THEN
  i=i-1
  PAUSE(150)
ENDIF





PAUSE(1000)
YEMLEBASLA:
For B = 0 to i
   for a = 0 to 60
      for C = 0 TO 60
       pause(1000)
       if ARTIR=0 AND AZALT=0 THEN
       GOTO DEVAM
       ENDIF
       NEXT C
       NEXT A
       NEXT B
       pause(1)


   MOTOR1SAG=1
   IF SW1=0 then
   PAUSE(3000)
  
   MOTOR1SOL=1
   if SW2=0 then
   pause(100)
   endif
   ENDIF
   pause(100)
   
   MOTOR2SAG=1
   IF SW3=0 THEN
   PAUSE(3000)
  
   MOTOR2SOL=1
   if SW4=0 then
   pause(100)
   endif
   ENDIF
   GOTO DEVAM
end

fakat çalısmıyor