Nokia 3410 Soundelement

[spence (Gast)]

Hi @ all!

Habe ein Nokia 3410 in seine Einzelteile zerlegt und das zugehörige 
Soundelement aus langeweile an nen 2313 gehängt und mit Bascom folgenden 
Code geschrieben:

$crystal = 4000000
$regfile = "2313def.dat"
Config Portb = Output
Config Portd = Output
Dim Duration As Word , Pulses As Word
Duration = 10 : Pulses = 800
Speaker Alias Portd.6                    

Do
Sound Speaker , Duration , Pulses
    Pulses = Pulses - 10
    If Pulses < 4 Then End
Loop
End

Das Element gibt es mit einer relativ leisen Lautstärke aus. Wer jedoch 
die 3410-Klingeltöne kennt, kann mir beipflichten, dass diese erheblich 
lauter sind. Was hab ich falsch gemacht? Verwendet Nokia vielleicht 
einen Verstärker oder nen Spannungsverdoppler?


MfG

spence

[spess53 (Gast)]

Hi

Dann schliess mal das Teil an 2 Portpins an und steuere die gegenläufig 
an.

MfG Spess

[spence (Gast)]

Meinst du so:


Portd.6------*----------(BEEP)----------+
             |                          |
Portb.0------+                          |
                                        |
                                        |
                                       GND

???

mfg

spence

[spence (Gast)]

oder Variante 2:

Portd.6------------(BEEP)----------Portb.0

[spess53 (Gast)]

Hi

Variante 2.

MfG Spess

[Lord Maul (Gast)]

Und was soll das bringen ?

[spess53 (Gast)]

Hi

Die 4-fache Leistung.

MfG Spess

[spence (Gast)]

hm es ändert sich aber leider nichts an der lautstärke

codeschnipsel:

Do

 Sound Speaker , Duration , Pulses
 Portb.0 = Not Portd.6
 Pulses = Pulses - 10
 If Pulses < 4 Then End
 Portb.0 = Not Portd.6

Loop

mfg
spence

[Lord Maul (Gast)]

>Die 4-fache Leistung

Haha ! Ich lach mich kaputt ...

Und wodurch soll die Leistung herkommen ???

[spess53 (Gast)]

Hi

Bin kein Bascom User. Du musst die Polarität BEIDER Portpins ändern.
Also Portb.0 = 0
     Portd.6 = 1

nächster Zustand:

     Portb.0 = 1
     Portd.6 = 0

und wieder von vorn.

MfG Spess

[ABu (Gast)]

Kenn mich mit BASCOM nich aus aber das müsste denk ich etwas anders 
Programmiert werden:


do
  PIN 1  = 0
  PIN 2  = 1

  Warten

  PIN 1 = 1
  PIN 2 = 0

  Warten

loop

dadurch liegt einmal an der einen Seite + und an der andern GND
danach andersrum -> also doppelte Spannund am Speaker -> vierfache 
Leistung

viell. fehlt dem Speaker aber einfach der Resonanzkörper.

Gruß A.Bu.

[spence (Gast)]

Cool, das funktioniert ja richtig gut.

Danke!

mfg
spence

[TheMason (Gast)]

>viell. fehlt dem Speaker aber einfach der Resonanzkörper.

das denke ich eher.

[spess53 (Gast)]

Hi

Kein Resonanzkörper. Eher eine Schallwand. Nimm mal ein halbwegs steifes 
Plattenmaterial(5x5cm oder grösser) mit einem Loch in der Grösse der 
Schallaustrittsöffnunng. Das klebst du mit doppelseitigen Klebeband(auch 
mit Loch) auf das Teil.

MfG Spess