Echtzeit-Stimmhöhen-Teiler

Lösung mit Mikrocontroller ATmega168

Vorverstärker LM358, ALC, Tiefpass (passiv, 2 x RC), ADC-Controller-PWM, Tiefpass, NF-Verstärker LM386

Dank xyphro habe ich nun neue Wege beschritten und die ganze Sache auf einem ATmega168 mit Bascom zum Laufen gebracht. Es ist noch nicht ganz perfekt, zeigt aber schon wo es mal hingehen könnte. Im Moment arbeite ich mit 8-Bit-Daten und 512 Byte Pufferlänge. Das Tiefpassfilter am Eingang sollte noch verbessert werden. Außerdem wäre eine höhere Auflösung gut. Vermutlich ist die MSP430-Lösung von xyphro besser in Bezug auf Klang und Störungsfreiheit.

Vorverstärker und ALC habe ich aus meiner Mini-Lichtorgel übernommen. Das Anti-Aliasing-Filter am Eingang besteht nur aus zwei RC-Gliedern und  ist noch nicht optimal. Deshalb war es wichtig, die Abtastrate möglichst hoch zu wählen. Das Ausgangsfilter ist dagegen weniger kritisch, weil die PWM-Ausgabe 32 kHz hat.

Hier ein Video zum Gerät, das ich in ein Radiogehäuse eingebaut habe:

http://youtu.be/Lfpzolm6-PE

'Bascom ATmega168, übertaktet mit 25 MHz

$regfile = "m168def.dat"
$crystal = 25000000                                         '25 MHz übertaktet
$hwstack = 16
$swstack = 16
$framesize = 32
'Baud = 9600

Dim Ringpuffer(512) As Byte
Dim Zeiger1 As Word
Dim Zeiger2 As Word
Dim Zeiger3 As Word
Dim Zeiger4 As Word
Dim Phasor As Word
Dim Fenster As Integer
Dim Dout As Integer
Dim Din As Word
Dim Dout1 As Word
Dim Dout2 As Word
Dim Df As Byte
Dim Dt As Word

Config Timer1 = Pwm , Prescale = 1 , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Start Timer1                                                'PWM 32 kHz

Config Adc = Single , Prescaler = 8 , Reference = Off
Start Adc


Config Portb = Output

Do
  Toggle Portb.0                                            'Abtastrate 19,4 kHz
  If Zeiger1 = 0 Then
    Dt = Getadc(0)
    Shift Dt , Right , 5
  End If
  Zeiger1 = Zeiger1 + 1
  Zeiger1 = Zeiger1 And 511
  Din = Getadc(1) / 4                                       'Speichern
  Ringpuffer(zeiger1 + 1) = Din
  Zeiger4 = Zeiger4 + Dt
  Phasor = Zeiger4
  Shift Phasor , Right , 7
  Zeiger2 = Zeiger1 - Phasor                                'Zeiger erhöhen
  Zeiger2 = Zeiger2 And 511
  If Phasor < 256 Then
     Fenster = Phasor
  Else
     Fenster = 512 - Phasor
  End If
  Dout1 = Ringpuffer(zeiger2 + 1) * Fenster                 '* Fenster
  Zeiger3 = Zeiger2 + 256
  Zeiger3 = Zeiger3 And 511
  Fenster = 255 - Fenster
  Dout2 = Ringpuffer(zeiger3 + 1) * Fenster
  Dout = Dout1 + Dout2
  Shift Dout , Right , 8
  Pwm1a = Dout
Loop