'--------------------------------------------------------- 'Programın adı: Uyg_6_2.bas 'Programın işlevi: Seri Giriş/Paralel çıkış konvertörü olan '74LS164 chip'ini kullanarak PIC16F84'ün çıkış pin'i sayısını 'çoğaltan program. 'Tarih:13/03/2007 Uyarlama:1.00 Derleyici:PBP '--------------------------------------------------------- TrisB=%00000000 'PortB'yi çıkışa yönlendir. VERI var byte Basla: VERI=%10000000 'VERI içerisine 10000000 yükle Gosub Seri 'VERI içerisindekini seri olarak '74164'e gönder Pause 1000 '1 sn bekle VERI=%11111111 'VERI içerisine 11111111 yükle Gosub Seri ' "Seri" alt programına git. Pause 1000 ' 1 sn bekle VERI=%00000000 'VERI içerisine 00000000 yükle Gosub Seri pause 1000 Goto Basla Seri: 'Seri veri gönderme alt programı PortB.0=VERI.7 'VERI'nin 7 bit'i PortB.0'a gönder Pulsout PortB.1, 1 '74LS164'deki veriyi kaydır. Pause 100 ' 100 mS bekle PortB.0=VERI.6 Pulsout PortB.1, 1 Pause 100 PortB.0=VERI.5 Pulsout PortB.1, 1 Pause 100 PortB.0=VERI.4 Pulsout PortB.1, 1 Pause 100 PortB.0=VERI.3 Pulsout PortB.1, 1 Pause 100 PortB.0=VERI.2 Pulsout PortB.1, 1 Pause 100 PortB.0=VERI.1 Pulsout PortB.1, 1 Pause 100 PortB.0=VERI.0 Pulsout PortB.1, 1 Pause 100 Low PortB.1 Return '---------------------------------------------------------