Quantcast
Channel: MCS Electronics Forum
Viewing all articles
Browse latest Browse all 20599

Share your working BASCOM-AVR code here : ISD1700 in SPI Mode with ATMega8 : REPLY

$
0
0
the sound quality is good, very more than toys applications! ISD has an Audio/AUX output also. this is better for high quality project, switch between Audio and AUX mode is possible with set and reset AUD/AUX bit in the APC2 register. i put "write ACP2" subroutine below (there is in the attached file above too). and the other hand we can play voice on the phone line with a good quality without any noise! [code:1:6979037955] '-------------------------------------------------------------------------- 'Write APC2 Sub Wr_apc2 ' --------------------------------------------------------------------------------------------- '| APC Byte1:| Bit7 | Bit6 | Bit5 | Bit4 | Bit3 | Bit2 | Bit1 | Bit0 | '| APC Byte1:| AUD/AUX | SPI_FT | SE_Editing | Mix_Input | Monitor_Input | VOL2 | VOL1 | VOL0 | ' --------------------------------------------------------------------------------------------- ' --------------------------------------------------------------------------------------- '| APC Byte2:| (Bit7~Bit4 are Ignore) | Bit3 | Bit2 | Bit1 | Bit0 | '| APC Byte2:| (Bit7~Bit4 are Ignore) | EOM_Enable | vAlert | PU_Analog_Output | PWM_SPK | ' --------------------------------------------------------------------------------------- If Rdy = 0 Then Rd_status N = 3 D(1) = &H65 : D(2) = &HC0 : D(3) = &H0C Spi_txrx Waitms 200 If D(1).0 = 0 Then 'Check CMD-Err Waitms 200 Print "Write APC2..." Rdy = 0 Clr_int Else Waitms 200 Print "occur an err in Write APC2, Retry..." Print 'Clr_int 'Wr_apc2 End If Print "APC Byte1: AUD/AUX SPI_FT SE_Editing Mix_Input Monitor_Input VOL2 VOL1 VOL0" Print "APC Byte1: " ; D(3).7 ; " " ; D(3).6 ; " " ; D(3).5 ; " " ; D(3).4 ; " " ; D(3).3 ; " " ; D(3).2 ; " " ; D(3).1 ; " " ; D(3).0 Print Print "APC Byte2: EOM_Enable vAlert PU_Analog_Output PWM_SPK" Print "APC Byte2: " ; D(4).3 ; " " ; D(4).2 ; " " ; D(4).1 ; " " ; D(4).0 Print End Sub [/code:1:6979037955]

Viewing all articles
Browse latest Browse all 20599


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>