TDA1524A rauscht !

Autor

Beitrag

MoD-Remseck
Schaut ab und zu mal vorbei

#1 erstellt: 19. Okt 2006, 19:52

Hallo!

Habe eine Klangregelung mit einem TDA1524A gebastelt.
Funktioniert alles wunderbar, nur rauscht das Ding nicht schlecht (auch bei Lautstärkeregelung ganz unten) und besonders die Höhen sind extrem verzerrt (kann den Treble-Regler max. bis zur Hälfte hochdrehen).
Am Eingang hängt ein Standard MP3-Player,
an den Ausgängen je ein TDA1562Q.
Hab die Schaltung auch schon ohne Endstufen mit nem einfachen Ohrhöhrer mit gleichem mangelhaftem Ergebnis getestet.

Kann mir jmd. sagen wie ich das in den Griff kriegen kann?

Gruß, Stefan

Stampede
Inventar

#2 erstellt: 19. Okt 2006, 20:25

nur rauscht das Ding nicht schlecht ... Kann mir jmd. sagen wie ich das in den Griff kriegen kann?

Eher gar nicht. Das Teil rauscht prinizpiell wie die Niagarafälle. Als Klangreglung liefert der TDA1524A mangelhafte Ergebnisse.

Gruß Stampede

MoD-Remseck
Schaut ab und zu mal vorbei

#3 erstellt: 19. Okt 2006, 21:15

Hmm das ist schlecht... hatte bisher eig. nur Positives über das IC gehört...
Niemand ne Idee was da noch möglich wäre???

Gruß, Stefan

BigEggMC
Stammgast

#4 erstellt: 19. Okt 2006, 21:25

nabend,
ich hab das ding auch mal aufgebaut, in versiedenen versionen und mit verschiedenen bauteilanordnungen, die kiste bekommst du ned ruhig.....
warum greifst du nicht auf klangregelungen mit ops und ein paar bauteilen zurück, dafür gibts genug pläne hier im forum!
und mit nem guten op kannst du dir das rauschen dann auch knicken

die rauschen nämlich nicht hörbar

viele grüße, bigeggmc

MoD-Remseck
Schaut ab und zu mal vorbei

#5 erstellt: 20. Okt 2006, 11:36

Hoi!

Schade eigentlich... hatte gelesen dieses IC sei so gut wie rauschfrei

Habe nicht so wirklich Lust nochmal was komplett neues anzufangen.
Aber was wäre denn günstig und gut, wenn ich NUR Lautstärke und Bass regeln will?

Kann mir jmd. ne Schaltung empfehlen?

Gruß, Stefan

T.f.G.
Neuling

#6 erstellt: 22. Okt 2006, 15:05

den 1524 hab ich übrigens schon mit nem conradbausatz aufgebaut,mit dem selben miesen ergebniss wie der urposter hier.
hab für die lautstärke und balance regelung was von nem TCA730 und
für die höhen und tiefenregelung was vom TCA740 gelesen.
(Zufällig bei egay drüber gestolpert

)
da ich seit tagen hier mitlese (allgemein im forum) und mehrfach hörte das der 1524 rauscht wollte ich nun mal zu den von mir genannten TCA's paar infos.
also allgemeine ob die sich besser machen und so paare erfahrungsberichte eventuell.

danke

m.f.g. T.f.G. (Tilo)

[Beitrag von T.f.G. am 22. Okt 2006, 15:07 bearbeitet]

electronicfox
Schaut ab und zu mal vorbei

#7 erstellt: 31. Jan 2009, 14:18

Es muss nicht immer ein TDA1524A sein!

Wenn man nach TDA1524A googled findet man unmengen von Schaltungen, alle gleich aufgebaut.

Mir reichte es und baute einen Klangregler mit TDA8420 auf.

Vorteile:

Keine Potis nötig, das machen die Taster.
2 Eingänge, der TDA1524A hat nur einen.
Mehr Features als der TDA1524A.
Den SDA2516-2 und TDA8420 findet man oft am Bauhof, nur keiner will die haben.
Bessere Klangeigenschaften .

Und wer steuert den TDA8420? Nur ein kleiner billiger AVR ATMEGA168 mit simpler Assembler-File.

Noch besser wäre der TDA6200 gewesen, aber ich hab nur noch 2 davon und der Original kann mit Gold aufgewogen werden.

[Beitrag von electronicfox am 31. Jan 2009, 14:19 bearbeitet]

Kay*
Inventar

#8 erstellt: 31. Jan 2009, 16:51

Der 1524 war mal in einem Elektor-Preamp verbaut und
wurde bei korrekter Aussteurung mit 70dB Störabstand
gemessen. Allerdings wurde die "Trick"-Schaltung, im
Datenblatt Fig.3, angewendet.
Zudem muss in fast allen Fällen vor dem TDA ein
Impedanzwandler eingebaut werden (Rg kleiner 600ohm!!).

Am besten wäre es, hinter dem Tda ein konventionelles
Lautstärke-Poti zuverwenden.

TDA6200

???
nicht TEA6300 ??

Davon haben ich etliche, hätte gerne Gold dafür,

oder wenigstens eine AVR-Programm.

p.s.

http://www.hood.de/auction/32882677/tda-6200.htm
'ne Menge Gold

[Beitrag von Kay* am 31. Jan 2009, 17:17 bearbeitet]

electronicfox
Schaut ab und zu mal vorbei

#9 erstellt: 31. Jan 2009, 19:33

Versuche mal folgenden Assembler-Code, der ist für den TDA6200:

.include "m48def.inc"
.include "IIC.inc"

; Freie Register

.def speca = r24
.def specb = r25
.def vol = r26
.def bass = r27
.def treb = r28
.def sw = r29

; Sonderregister

.def decoder = r1
.def decsw = r2
.def tda8420 = r4
.def sda2516 = r5
.def tda6200 = r6
.def sw2 = r7
.def subd = r8
.def dataf = r9
.def adress = r10
.def memo = r11
.def sda2516w = r12

;**********************************************************
;* *
;* RESET *
;* *
;**********************************************************

RESET:
ldi specb, $FE
out PORTB, specb
rcalli2c_init; initialize I2C interface
ldi sw, 0xCF
ldi speca, $80
mov tda6200, speca
ldi speca, $A0
mov sda2516, speca
ldi speca, $A1
mov sda2516w, speca
rjmp READ_MEMORY

;**********************************************************
;* *
;* EEPROM auslesen *
;* *
;**********************************************************

READ_MEMORY:
ldi specb, $FC
out PORTB, specb
mov i2cadr,sda2516
rcall i2c_start
ldi i2cdata,$00
rcall i2c_do_transfer
mov i2cadr,sda2516w
rcall i2c_rep_start
clc
rcall i2c_read
mov vol,i2cdata
clc
rcall i2c_read
rcall i2c_stop
rcall Warte
mov i2cadr,sda2516
rcall i2c_start
ldi i2cdata,$02
rcall i2c_do_transfer
mov i2cadr,sda2516w
rcall i2c_rep_start
clc
rcall i2c_read
mov bass,i2cdata
clc
rcall i2c_read
rcall i2c_stop
rcall Warte
mov i2cadr,sda2516
rcall i2c_start
ldi i2cdata,$03
rcall i2c_do_transfer
mov i2cadr,sda2516w
rcall i2c_rep_start
clc
rcall i2c_read
mov treb,i2cdata
clc
rcall i2c_read
rcall i2c_stop
rcall Warte
rjmp INIT

;**********************************************************
;* *
;* Hier werden, sofern das EEPROM leer ist oder falsche *
;* Daten enthält, neu initialisiert und mit den Stammdaten*
;* geladen. *
;* *
;**********************************************************

WERK:
ldi speca, 150
mov vol, speca
ldi speca, 210
mov bass, speca
mov treb, speca
ldi speca, $10
mov sw, speca
ldi speca, $40
rcall IIC
rjmp Taste

;**********************************************************
;* *
;* Hier ist die Übertragung des I²C-Protokols *
;* *
;**********************************************************

IIC:
movi2cadr,tda6200
rcalli2c_start
movi2cdata,vol
rcalli2c_do_transfer
movi2cdata,vol
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
movi2cadr,tda6200
rcalli2c_start
movi2cdata,bass
rcalli2c_do_transfer
movi2cdata,treb
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
movi2cadr,tda6200
rcalli2c_start
movi2cdata,sw
rcalli2c_do_transfer
movi2cdata,sw2
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
rcall Warte
ldi speca, $FC
out PORTB, speca
movi2cadr,sda2516
rcalli2c_start
ldii2cdata,$00
rcalli2c_do_transfer
movi2cdata,vol
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
movi2cadr,sda2516
rcalli2c_start
ldii2cdata,$01
rcalli2c_do_transfer
movi2cdata,vol
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
movi2cadr,sda2516
rcalli2c_start
ldii2cdata,$02
rcalli2c_do_transfer
movi2cdata,bass
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
movi2cadr,sda2516
rcalli2c_start
ldii2cdata,$03
rcalli2c_do_transfer
movi2cdata,treb
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
movi2cadr,sda2516
rcalli2c_start
ldii2cdata,$08
rcalli2c_do_transfer
movi2cdata,sw
rcalli2c_do_transfer
rcalli2c_stop
rcall Warte
out PORTB, specb
ret

;*********************************************************
;* *
;* Hier gehts los mit Abfragen, Tests, etc. *
;* *
;*********************************************************

INIT:
cpi vol, 128
brlo EE
cpi bass, 192
brlo EE
cpi treb, 192
brlo EE
cpi vol, 191
brsh EE
cpi bass, 223
brsh EE
cpi treb, 223
brsh EE
rcall IIC
ldi specb, $F7
out PORTB, specb
rjmp Taste

EE:
rjmp WERK

;*********************************************************
;* *
;* Tastenabfrage und Weiterleitung zu den Routinen *
;* *
;*********************************************************

Taste:
sbis PIND, 0
rjmp VOL_DN
sbis PIND, 1
rjmp VOL_UP
sbis PIND, 2
rjmp BASS_DN
sbis PIND, 3
rjmp BASS_UP
sbis PIND, 4
rjmp TREB_DN
sbis PIND, 5
rjmp TREB_UP
sbis PIND, 6
rjmp INPUT1
sbis PIND, 7
rjmp INPUT2
rjmp Taste

;*********************************************************
;* *
;* Stop und Sicherheitsroutine *
;* *
;*********************************************************

ADR_END:
in r20, PIND
cpi r20, 0b11111110
breq ADR_END
cpi r20, 0b11111101
breq ADR_END
cpi r20, 0b11111011
breq ADR_END
cpi r20, 0b11110111
breq ADR_END
cpi r20, 0b11101111
breq ADR_END
cpi r20, 0b11011111
breq ADR_END
cpi r20, 0b10111111
breq ADR_END
cpi r20, 0b01111111
breq ADR_END
rjmp Taste

;*********************************************************
;* *
;* Tiefenregelung *
;* *
;*********************************************************

BASS_UP:
rcall IIC
rcall Warte
inc bass
ldi speca, 223
cp bass, speca
breq BASS_DN
sbis PIND, 3
rjmp BASS_UP
rjmp ADR_END

BASS_DN:
rcall IIC
rcall Warte
dec bass
ldi speca, 192
cp bass, speca
breq BASS_UP
sbis PIND, 2
rjmp BASS_DN
rjmp ADR_END

;**********************************************************
;* *
;* Höhenregelung *
;* *
;**********************************************************

TREB_UP:
rcall IIC
rcall Warte
inc treb
ldi speca, 223
cp treb, speca
breq TREB_DN
sbis PIND, 5
rjmp TREB_UP
rjmp ADR_END

TREB_DN:
rcall IIC
rcall Warte
dec treb
ldi speca, 192
cp treb, speca
breq TREB_UP
sbis PIND, 4
rjmp TREB_DN
rjmp ADR_END

;**********************************************************
;* *
;* Quellenauswahl *
;* *
;**********************************************************

INPUT1:
ldi specb, $FB
out PORTB, specb
ldi sw, 10
rcall IIC
ldi specb, 64
mov sw2, specb
rcall IIC
rcall Warte2
ldi specb, $FB
rjmp Taste

INPUT2:
ldi specb, $F7
out PORTB, specb
ldi sw, 10
rcall IIC
ldi specb, 96
mov sw2, specb
rcall IIC
rcall Warte2
ldi specb, $F7
rjmp Taste

;**********************************************************
;* *
;* Warteschleifen *
;* *
;**********************************************************

WARTE:
ldi R21, $11

WGLOOP0:
ldi R22, $37

WGLOOP1:
ldi R23, $4E

WGLOOP2:
dec R23
brne WGLOOP2
dec R22
brne WGLOOP1
dec R21
brne WGLOOP0
ldi R21, $01

WGLOOP3:
dec R21
brne WGLOOP3
nop
ret

WARTE2:
ldi R21, $24

WGLOOP0a:
ldi R22, $BC

WGLOOP1a:
ldi R23, $C4

WGLOOP2a:
dec R23
brne WGLOOP2a
dec R22
brne WGLOOP1a
dec R21
brne WGLOOP0a
ldi R21, $01

WGLOOP3a:
dec R21
brne WGLOOP3a
nop
ret

;*********************************************************
;* *
;* Lautstärkeregelung *
;* *
;*********************************************************

VOL_UP:
rcall IIC
rcall Warte
inc vol
ldi speca, 191
cp vol, speca
breq VOL_DN
sbis PIND, 1
rjmp VOL_UP
rjmp ADR_END

VOL_DN:
rcall IIC
rcall Warte
dec vol
ldi speca, 128
cp vol, speca
breq VOL_UP
sbis PIND, 0
rjmp VOL_DN
rjmp ADR_END

Hier noch die IIC.inc:

;**** Global I2C Constants ****

.equSCLP= 5; SCL Pin number (port C)
.equSDAP= 4; SDA Pin number (port C)

.equb_dir= 0; transfer direction bit in i2cadr

.equi2crd= 1
.equi2cwr= 0

;**** Global Register Variables ****

.defi2cdelay= r16; Delay loop variable
.defi2cdata= r17; I2C data transfer register
.defi2cadr= r18; I2C address and direction register
.defi2cstat= r19; I2C bus status register
ldi r20, 0x00
out ddrd, r20
ldi r20, 0x3F
out ddrb, r20
;**** Interrupt Vectors ****

rjmpRESET; Reset handle
;( rjmpEXT_INT0 ); ( IRQ0 handle )
;( rjmpTIM0_OVF ); ( Timer 0 overflow handle )
;( rjmpANA_COMP ); ( Analog comparator handle )

;***************************************************************************
;*
;* FUNCTION
;*i2c_hp_delay
;*i2c_qp_delay
;*
;* DESCRIPTION
;*Cristalclock 4,433MHz
;*Control SDA2516-2 with an ATMEGA8, ATMEGA48 or ATMEGA168
;*
;*SEE DOCUMENTATION !!!
;*
;* USAGE
;*no parameters
;*
;* RETURN
;*none
;*
;***************************************************************************

i2c_hp_delay:
ldii2cdelay,2
i2c_hp_delay_loop:
deci2cdelay
brnei2c_hp_delay_loop
ret

i2c_qp_delay:
ldii2cdelay,1
i2c_qp_delay_loop:
deci2cdelay
brnei2c_qp_delay_loop
ret

;***************************************************************************
;*
;* FUNCTION
;*i2c_rep_start
;*
;* DESCRIPTION
;*Assert repeated start condition and sends slave address.
;*
;* USAGE
;*i2cadr - Contains the slave address and transfer direction.
;*
;* RETURN
;*Carry flag - Cleared if a slave responds to the address.
;*
;* NOTE
;*IMPORTANT! : This funtion must be directly followed by i2c_start.
;*
;***************************************************************************

i2c_rep_start:
sbiDDRC,SCLP; force SCL low
cbiDDRC,SDAP; release SDA
rcalli2c_hp_delay; half period delay
cbiDDRC,SCLP; release SCL
rcalli2c_qp_delay; quarter period delay

;***************************************************************************
;*
;* FUNCTION
;*i2c_start
;*
;* DESCRIPTION
;*Generates start condition and sends slave address.
;*
;* USAGE
;*i2cadr - Contains the slave address and transfer direction.
;*
;* RETURN
;*Carry flag - Cleared if a slave responds to the address.
;*
;* NOTE
;*IMPORTANT! : This funtion must be directly followed by i2c_write.
;*
;***************************************************************************

i2c_start:
movi2cdata,i2cadr; copy address to transmitt register
sbiDDRC,SDAP; force SDA low
rcalli2c_qp_delay; quarter period delay

;***************************************************************************
;*
;* FUNCTION
;*i2c_write
;*
;* DESCRIPTION
;*Writes data (one byte) to the I2C bus. Also used for sending
;*the address.
;*
;* USAGE
;*i2cdata - Contains data to be transmitted.
;*
;* RETURN
;*Carry flag - Set if the slave respond transfer.
;*
;* NOTE
;*IMPORTANT! : This funtion must be directly followed by i2c_get_ack.
;*
;***************************************************************************

i2c_write:
sec; set carry flag
roli2cdata; shift in carry and out bit one
rjmpi2c_write_first
i2c_write_bit:
lsli2cdata; if transmit register empty
i2c_write_first:
breqi2c_get_ack;goto get acknowledge
sbiDDRC,SCLP; force SCL low

brcci2c_write_low; if bit high
nop;(equalize number of cycles)
cbiDDRC,SDAP;release SDA
rjmpi2c_write_high
i2c_write_low:; else
sbiDDRC,SDAP;force SDA low
rjmpi2c_write_high;(equalize number of cycles)
i2c_write_high:
rcalli2c_hp_delay; half period delay
cbiDDRC,SCLP; release SCL
rcalli2c_hp_delay; half period delay

rjmpi2c_write_bit

;***************************************************************************
;*
;* FUNCTION
;*i2c_get_ack
;*
;* DESCRIPTION
;*Get slave acknowledge response.
;*
;* USAGE
;*(used only by i2c_write in this version)
;*
;* RETURN
;*Carry flag - Cleared if a slave responds to a request.
;*
;***************************************************************************

i2c_get_ack:
sbiDDRC,SCLP; force SCL low
cbiDDRC,SDAP; release SDA
rcalli2c_hp_delay; half period delay
cbiDDRC,SCLP; release SCL

i2c_get_ack_wait:
sbisPINC,SCLP; wait SCL high
;(In case wait states are inserted)
rjmpi2c_get_ack_wait

clc; clear carry flag
sbicPINC,SDAP; if SDA is high
sec;set carry flag
rcalli2c_hp_delay; half period delay
ret

;***************************************************************************
;*
;* FUNCTION
;*i2c_do_transfer
;*
;* DESCRIPTION
;*Executes a transfer on bus. This is only a combination of i2c_read
;*and i2c_write for convenience.
;*
;* USAGE
;*i2cadr - Must have the same direction as when i2c_start was called.
;*see i2c_read and i2c_write for more information.
;*
;* RETURN
;*(depends on type of transfer, read or write)
;*
;* NOTE
;*IMPORTANT! : This funtion must be directly followed by i2c_read.
;*
;***************************************************************************

i2c_do_transfer:
sbrsi2cadr,b_dir; if dir = write
rjmpi2c_write;goto write data

;***************************************************************************
;*
;* FUNCTION
;*i2c_read
;*
;* DESCRIPTION
;*Reads data (one byte) from the I2C bus.
;*
;* USAGE
;*Carry flag - If set no acknowledge is given to the slave
;*indicating last read operation before a STOP.
;*If cleared acknowledge is given to the slave
;*indicating more data.
;*
;* RETURN
;*i2cdata - Contains received data.
;*
;* NOTE
;*IMPORTANT! : This funtion must be directly followed by i2c_put_ack.
;*
;***************************************************************************

i2c_read:
roli2cstat; store acknowledge
; (used by i2c_put_ack)
ldii2cdata,0x01; data = 0x01
i2c_read_bit:; do
sbiDDRC,SCLP; force SCL low
rcalli2c_hp_delay;half period delay

cbiDDRC,SCLP;release SCL
rcalli2c_hp_delay;half period delay

clc;clear carry flag
sbicPINC,SDAP;if SDA is high
sec;set carry flag

roli2cdata; store data bit
brcci2c_read_bit; while receive register not full

;***************************************************************************
;*
;* FUNCTION
;*i2c_put_ack
;*
;* DESCRIPTION
;*Put acknowledge.
;*
;* USAGE
;*(used only by i2c_read in this version)
;*
;* RETURN
;*none
;*
;***************************************************************************

i2c_put_ack:
sbiDDRC,SCLP; force SCL low

rori2cstat; get status bit
brcci2c_put_ack_low; if bit low goto assert low
cbiDDRC,SDAP;release SDA
rjmpi2c_put_ack_high
i2c_put_ack_low:; else
sbiDDRC,SDAP;force SDA low
i2c_put_ack_high:

rcalli2c_hp_delay; half period delay
cbiDDRC,SCLP; release SCL
i2c_put_ack_wait:
sbisPINC,SCLP; wait SCL high
rjmpi2c_put_ack_wait
rcalli2c_hp_delay; half period delay
ret

;***************************************************************************
;*
;* FUNCTION
;*i2c_stop
;*
;* DESCRIPTION
;*Assert stop condition.
;*
;* USAGE
;*No parameters.
;*
;* RETURN
;*None.
;*
;***************************************************************************

i2c_stop:
sbiDDRC,SCLP; force SCL low
sbiDDRC,SDAP; force SDA low
rcalli2c_hp_delay; half period delay
cbiDDRC,SCLP; release SCL
rcalli2c_qp_delay; quarter period delay
cbiDDRC,SDAP; release SDA
rcalli2c_hp_delay; half period delay
ret

;***************************************************************************
;*
;* FUNCTION
;*i2c_init
;*
;* DESCRIPTION
;*Initialization of the I2C bus interface.
;*
;* USAGE
;*Call this function once to initialize the I2C bus. No parameters
;*are required.
;*
;* RETURN
;*None
;*
;* NOTE
;*PORTC and DDRC pins not used by the I2C bus interface will be
;*set to Hi-Z (!).
;*
;* COMMENT
;*This function can be combined with other PORTC initializations.
;*
;***************************************************************************

i2c_init:
clri2cstat; clear I2C status register (used
; as a temporary register)
outPORTC,i2cstat; set I2C pins to open colector
outDDRC,i2cstat
ret