Elektrotekno.com Ana Sayfa || Pic ve diğer işlemci ve denetleyiciler ile yapılmış devreler, projeler

16f877 74hc165 port I/Q arttırmak 74hc595

Açıklama:
Elektrik, Elektronik, Haberleşme ve Otomasyon konularının ağırlıklı olarak konuşulduğu, tartışıldığı ve bilgi paylaşımı yapıldığı forumumuza hoşgeldiniz.
Şu an Tamamlanmış Elektronik Devreler, Projeler kategorisi içerisindeki Pic ve diğer işlemci ve denetleyiciler ile yapılmış devreler, projeler forumunda bulunuyorsunuz.
Bu sayfada üyelerimizin "PIC 16F84 Kullanılarak Yapılan Seri Port Kontrolü" konusundaki problem, görüş ve önerileri okuyabilir ayrıca konu hakkındaki doküman, resim, proje, devre ve programlara ücretsiz olarak ulaşabilirsiniz. Üye olduktan sonra sizler de konu hakkında sorular sorabilir ya da yorum ve paylaşım yaparak birikimlerinizi aktarabilirsiniz.
Forumdan tam olarak yararlanabilmek için üye olmayı unutmayınız!

Önceki başlık || Sonraki başlık

Kayıt: 04 Şub 2006
Mesajlar: 749
Konum: K.maraş/Elbistan
Offline

ömer

Tarih: 26 04 2008 23:19

port cogaltmakta ilgili ufakbir örnek kod karaladım umarım birilerine faydalı olur.

16f877 74hc165 port I/Q arttırmak 74hc595

Kod

low aktar: pauseus 2:high aktar


shıftın dta,clk,0,[bılgı]








ıf bılgı = 0            then  x=0  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 1            then  x=1  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 2            then  x=2  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 1+2          then  x=3  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 4            then  x=4  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 4+1          then  x=5  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 4+2          then  x=6  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 4+2+1        then  x=7  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 8            then  x=8  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 8+1          then  x=9  :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 8+2          then  x=10 :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 8+2+1        then  x=11 :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 8+4          then  x=12 :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 8+4+1        then  x=15 :pause 100:gosub  yazdır:gosub flas 


ıf bılgı = 8+4+2+1      then  x=14 :pause 100:gosub  yazdır:gosub flas 





goto basla 


 


flas:


  x=13 :pause 100:gosub  yazdır 


      return

4 Kullanıcı bu konu için theven arkadaşımıza teşekkür ettiler

16f877 74hc165 port I/Q arttırmak 74hc595

Benzer Konular

- Programlama sorunu (Tanımlama yapıldıktan sonra aynı adda farklı port tanımlama)

- 16F877 İle Müzik Kutusu
- c sharp ile seri port okutmak isteyenler buraya
- pic 16f877 ile duvar saati (baskı devreli)
- 16f877 ile yapılmış 4 adet 5x7 kayan yazı devresi
- pic 16f877 ile basınc sensör devresi
- 16f877 ile yapılmış basit volt metre ohm metre
- Pic 18F452 icin C18 de yazilmis ADC ve 74HC595 ile display etmek
- Zaman Ayarlı Paralel Port Röle Kontrol(Tavsiye Edilir)

- 16f877 ile yapılmış led ekranlı saat

- 16f877 pwm yardım

Sitemize üyelik ve içeriğin indirilmesi tamamen ücretsizdir. Sitemizde paylaşılan tüm dokümanlar (Tezler, makaleler, ders notları, sınav soru cevaplar, projeler) paylaşımcıların bireysel çalışmaları olup telif hakları kendilerine aittir ya da açık bir şekilde kamusal alana yerleştirilmiş dokümanların birer kopyalarıdır. Kişilerin bireysel çalışmalarını sitemizde yüklemesinde, sitemizde paylaşıma teşvik eden puanlama sisteminin de etkisi büyüktür. Bunlara rağmen hala size ait olan ve burada bulunmasına izin vermediğiniz dokümanlar varsa iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.