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


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 "16f877 74hc165 port I/Q arttırmak 74hc595" 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!

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

Kayıt: 04 Şub 2006
Mesajlar: 730
Konum: K.maraş/Elbistan
Offline
ömer
Tarih: 27 04 2008 00: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

2 Kullanıcı bu konu için ömer arkadaşımıza teşekkür ettiler




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


Benzer Konular

- usb ve seri port kitap isteği

- Windows c sharp la yazılmış seri port test yazılımı
- c# ile paralel port kontrolü
- PIC16F877P ile Web Arayüzü Com Port Eternet
- 16f877 ile ks0108 entegreli 128x64 glcd sürmek
- 16f877 brushless motor control made easy
- 16f877 li Periyodik Cetvel
- 16f877 voltmetre ve ampermetre
- mini sumo robot 16F877

- sizce 16f877 kitaplardan hangisi daha iyi




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 için iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.
Powered by phpBB | Translated by phpBB Türkiye | Ads by Google Adsense | Design by Crazy Bat based
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71