TDA7318 I2C protokolü yardım

[samil134]

Merhaba arkadaşlar.

Ev tipi mini stüdyom için dijital mixer yapmak gibi bir projem var. Bu projemin bir paçası olan TDA7318 ile 4 kanal, ton kontrolü vs.. işlemleri yapan bir kontrol katına ihtiyacım var.

Entegrenin DataSheetini inceledim. I2C protokolü kullandığını gördüm.

Data sheetten örnek verecek olursam,

Proton kullanmaktayım. Proton ile ilgili I2C örneklerini araştırdığımda sürekli farklı komutlar kullanıldığını gördüm.

BUSIN,BUSOUT, HSIN,HSOUT,SERIN,SEROUT...

sıkıntım şu ki, örneklere bakarak TDA7318'i çalıştıracak bir sonuca ulaşamadım.

Proton üzerinde TDA7318'in adresine ulaşacak, bunun yanında hiç olmazsa volume kontrolü yapacak bir iki satır koda ihtiyacım var.

Ne yapmam gerekir, ne şekilde bir yol izlemeliyim?

Yardımlarınız için teşekkürler.

 

[samil134]

hala deniyorum ama sonuç yine başarısız

Device = 16F877
XTAL 20
'**********************************************************
                    
             
ADCON1 = 7
define ic2_slow 1
DEFINE I2C_HOLD 1

Declare LCD_DTPIN PORTB.0    
Declare LCD_ENPIN PORTB.5
Declare LCD_RSPIN PORTB.4
Declare LCD_INTERFACE 4 
Declare LCD_LINES 2 

Symbol SCL	= PORTD.7
Symbol SDA	= PORTD.6
Dim adress As Byte
adress=%10001000
PORTA=0
TRISA = %00010 'Set portA as o/p pin 1 i/p
TRISC = %11111111 'set ports as i/p

Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"merhaba"


MAIN:


If PORTC = %00000001 Then GoSub ONE

GoTo MAIN


ONE:
I2COut SDA,SCL,%10001000,[%01011000] 

DelayMS 100
 Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"Volume=0"

DelayMS 3000

I2COut SDA,SCL,adress,[%10100000] 
DelayMS 100
 Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"RF =0"

DelayMS 3000

I2COut SDA,SCL,adress,[%01000000] 
DelayMS 100
 Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"ST1 Gain=18"

DelayMS 3000

I2COut SDA,SCL,adress,[%01100000] 
DelayMS 100
 Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"Bass -14"

DelayMS 3000

I2COut SDA,SCL,adress,[%01101111] 
DelayMS 100
 Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"Bass 0"

DelayMS 3000

I2COut SDA,SCL,adress,[%01101000] 
DelayMS 100
 Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"Bass 14"

DelayMS 5000

 Cls
Print $FE,1,"7318Test  "

Print $FE,$C0,"bitti"

DelayMS 3000
Return



GoTo MAIN
End