Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME

Ana Menü

demux (demultiplayer)

Başlatan captain11, 19 Mart 2009, 14:25:45

captain11

arkadaşlar.ben pc de visual basic ile paralel port ta bulunan 8 adet cıkışı sürüyorum. 74hc 4514 kullanarak bu 8 cıkışı 32 ye cıkartıyorum.merak ettiğim şey.bu 8 cıkışı daha fazla nasıl yukseltebilirim.sonucta 8 cıkıstan 256 farklı kombinasyonda cıkış sinyali gönderebiliyorum.bu cıkışları 256 ya yukseltebilirmiyim.boyle bi entegre varmı.74 hc 4514 ile en fazla 32 yapılabiliyor...programlanabilen işlemciler duydum onlarla falan mumkun olabilirmi.bilgisi olan varsa yadımcı olabilirse cok sevinirim.              burhanozalp-@hotmail.com

fractal

port çoğullanama entegreleri var. birde..
Restantum cogniscutur Quantum deligutur

drmp

DOSTUM   ARADIĞIN ŞEYİ YAPMAK MÜMKÜN AMA SANA PEK FAZLA YARDIMCI OLAMAYACAĞIM ÇÜNKÜ VİSUAL BASİC TEN ANLAMAM   AMA ELEKTRONİK KISMIYLA İLGİLİ HER TÜRLÜ YARDIMDA BULUNABİLİRİM

Murat Mert

Bu işlemi seri porttan yapsan istediğin kadar çıkış süre bilirsin. Bilgisayarsız yapmak istersen biraz farklı yine ondada seri iletişimle yapabilirsin. Oparatör panel gibi. Kolay gelsin.
[code]
Include "PROTON_4.INC"      
       
Dim VERI As Byte  'VERI 8BIT 0-255 OLARAK ATANDI
Dim KON As Bit
VERI=0 'VERI GIRISI SIFIRLANDI
KON=1

TANITIM:
HSerOut ["NOT: PC nin 1-8 sayisal tuslarina basarak PORTD nin",13,"  calistirmak istediginiz pinini secin",13]
HSerOut ["  9 Tusu butun pinleri ON yapar. 0 Tusu butun cikislari OFF yapar.",13,"  Kolay gelsin. :)",13]
HSerOut ["------------------------------",13," ** PROTON ILE SERI KONTROL **",13,"    design by muratmert4",13,"------------------------------",13]
High PORTD.1
DelayMS 1000
Low PORTD.1
GoTo GIRIS
GIRIS:
HSerOut ["** PROTON ILE SERI KONTROL **",13,"    design by muratmert4",13,"------------------------------",13]
GoTo BASLA

BASLA:
HSerIn [VERI]

If VERI=48 Then Clear PORTD
If VERI=57 Then High PORTD

If VERI = 49 Then Toggle PORTD.0
If PORTD.0=1 Then HSerOut ["KONTROL 1--ACIK",13]
If PORTD.0=0 Then HSerOut ["KONTROL 1--KAPALI",13]

If VERI=50 Then Toggle PORTD.1
If PORTD.1=1 Then HSerOut ["KONTROL 2--ACIK",13]
If PORTD.1=0 Then HSerOut ["KONTROL 2--KAPALI",13]

If VERI=51 Then Toggle PORTD.2
If PORTD.2=1 Then HSerOut ["KONTROL 3--ACIK",13]
If PORTD.2=0 Then HSerOut ["KONTROL 3--KAPALI",13]

If VERI=52 Then Toggle PORTD.3
If PORTD.3=1 Then HSerOut ["KONTROL 4--ACIK",13]
If PORTD.3=0 Then HSerOut ["KONTROL 4--KAPALI",13]

If VERI=53 Then Toggle PORTD.4
If PORTD.4=1 Then HSerOut ["KONTROL 5--ACIK",13]
If PORTD.4=0 Then HSerOut ["KONTROL 5--KAPALI",13]

If VERI=54 Then Toggle PORTD.5
If PORTD.5=1 Then HSerOut ["KONTROL 6--ACIK",13]
If PORTD.5=0 Then HSerOut ["KONTROL 6--KAPALI",13]

If VERI=55 Then Toggle PORTD.6
If PORTD.6=1 Then HSerOut ["KONTROL 7--ACIK",13]
If PORTD.6=0 Then HSerOut ["KONTROL 7--KAPALI",13]

If VERI=56 Then Toggle PORTD.7
If PORTD.7=1 Then HSerOut ["KONTROL 8--ACIK",13]
If PORTD.7=0 Then HSerOut ["KONTROL 8--KAPALI",13]

HSerOut ["-------------------------",13]
GoTo GIRIS
mert07