Rf kontolü ile dijital ses arttırıp azaltmak için yardım...

Başlatan erdogan2734, 11 Haziran 2012, 11:29:45

erdogan2734

   Sevgili arkaddaşlar öncelikle herkese Merhaba.
Yeni bir proje ile yine yeniden karşınızdayım. Rf alıcı verici devresi ile Pre amfi devresinin sesini azaltıp arttırmak istiyorum. Yani dijital olarak ses volume ayarı yapmak isityorum. Rf alıcı ve verici kontrolü yaptım ve hazırda çalışan rf devrem var. Tek yapmam gereken yanılmıyorsam programda bir değişiklik yapmak ve devreyi kurmak. Bununla ilgili bana örnek devre,entegre verip tavsiyelerde bulunursanız çok sevinirim.
   İyi çalışmlar saygılar...
Bildiğim tek şey henüz hiç bir şey bilmediğim...

hkalaycioglu

dijital potansiyometreler var ds1868 100k 50k lık degısık tıplerı var bunlardan kullanabılırsın pıcbasıcde program ile kontrol edilebiliyor forumdada vardı

erdogan2734

Alıntı yapılan: hkalaycioglu - 11 Haziran 2012, 11:42:52
dijital potansiyometreler var ds1868 100k 50k lık degısık tıplerı var bunlardan kullanabılırsın pıcbasıcde program ile kontrol edilebiliyor forumdada vardı
Hocam bu işi ds1868 ile çözeceğiz anlaşılan. Forumda epey baktım ancak bu entegrenin devre şemasını bulamadım. Sizin de vakti zamanında bu entegre ile uğraştığınızı gördüm eğer elinizde devre şeması yada örnek kodlar varsa paylaşırsanız çok sevinirim. Yok sa yine ETE hocamıza danışacağız oda zamanında uğraşmış bu entegre ile. Şimdiden teşekkür ederim.
Bildiğim tek şey henüz hiç bir şey bilmediğim...

erdogan2734

RAW    VAR   BYTE
ZAMAN  VAR   WORD
RST    VAR   PORTA.0
CLK    VAR   PORTA.2
BILGI  VAR   PORTA.1
TUSA   VAR   PORTB.0
TUSB   var   PORTB.1
KONUM  VAR   BYTE
I      VAR   BYTE
STK    VAR   BYTE

TRISA=%00000000
TRISB=%00000011

PORTB=0
PORTA=0
ZAMAN=0
STK=1
'ADCON1 = %00000010 'AN0 VE AN1 Analog,Ref =VDD
PAUSE 500
konum=0
raw=0
I=0

BASLA:
IF TUSA=0 THEN
IF I=1 THEN BASLA
if konum=255 then basla
konum=konum+1:I=1:GOTO CIK
ENDIF

IF TUSb=0 THEN
IF I=1 THEN BASLA
if konum=0 then basla
konum=konum-1:I=1:GOTO CIK
ENDIF

IF RAW<>KONUM THEN GOSUB POTYAZ
I=0
CIK: GOTO BASLA

POTYAZ: 
HIGH RST : PAUSE 1
HIGH BILGI
PULSOUT CLK,1
SHIFTOUT BILGI,CLK,1,[KONUM]
SHIFTOUT BILGI,CLK,1,[KONUM]
LOW RST: PAUSE 1
RAW=KONUM
RETURN
end

Üstteki ete hocamızın programını kullandım. Simülasyonda sorunsuz çalışıyor. Umarım reelde de çalışır deneyip paylaşacağım.


Devre ve program sorunsuz çalışıyor arkadaşlar...
Bildiğim tek şey henüz hiç bir şey bilmediğim...