Nokia 3410 Soundelement

spence Gast #742071
Lesenswert?
• ▲
▼ 
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:


1
$crystal = 4000000

2
$regfile = "2313def.dat"

3
Config Portb = Output

4
Config Portd = Output

5
Dim Duration As Word , Pulses As Word

6
Duration = 10 : Pulses = 800

7
Speaker Alias Portd.6                    

8


9
Do

10
Sound Speaker , Duration , Pulses

11
    Pulses = Pulses - 10

12
    If Pulses < 4 Then End

13
Loop

14
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
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
spence Gast #742119
Lesenswert?
• ▲
▼ 
hm es ändert sich aber leider nichts an der lautstärke

codeschnipsel:

1
Do

2


3
 Sound Speaker , Duration , Pulses

4
 Portb.0 = Not Portd.6

5
 Pulses = Pulses - 10

6
 If Pulses < 4 Then End

7
 Portb.0 = Not Portd.6

8


9
Loop


mfg
spence
Antwort Zitieren Bearbeiten Löschen Beitrag melden
ABu Gast #742126
Lesenswert?
• ▲
▼ 
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.
Antwort Zitieren Bearbeiten Löschen Beitrag melden
spess53 Gast #742135
Lesenswert?
• ▲
▼ 
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
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren