Töne erzeugen, ZVEI Geber mit Mega8

[Halvar]

Ja super, läuft !
Jetzt mit dem Quarz bekomme ich eine sehr genaue Frequenz hin.

Ich habe den Speaker (8Ohm, 0,25W) über einen 100Ohm Widerstanddirekt an PinB1 angeschlossen.

Nun ärgert mich das Programm an anderer Stelle:
ich möchte einen Zahlenwert übergeben, und demnach die Töne aus einer Tabelle holen.

 ...
Dim A As Byte

Dim Ton1 As Word

A = 9

Ton1 = Lookup(a , Freq)

Call Frequency_set(ton1)

end

Freq:
Data 1000 , 1060 , 1160 , 1270 , 1400 , 1530 , 1670 , 1830 , 2000 , 2200 , 2400 , 2600

Der Code ist hier unvollständig, gekürzt auf das wesentliche was ich hinzu gefügt habe!

Über die Variable A bestimme ich eine Ziffer zwischen 0 und 9.
In der Tabelle wird Ton1 der Wert zugeteilt, den A bestimmt.
Das ganze geht aber nicht, also Ton1 einthält nicht 2200.

Was mache ich falsch?

[Halvar]

Arghhhhh, ich hab das % vergessen

Freq:
Data 1000% , 1060% , 1160% , 1270% , 1400% , 1530% , 1670% , 1830% , 2000% , 2200% , 2400% , 2600%

[python_rocks]

Ich habe den Speaker (8Ohm, 0,25W) über einen 100Ohm Widerstanddirekt an PinB1 angeschlossen.

Hallo Halvar!

Das wird der ATmega8 wahrscheinlich nicht lange durchhalten.

5 V / 108 Ohm = 0,046 A

Der ATmega8 kann maximal 0,040 A an einem Ausgang aushalten ohne Schaden zu nehmen.

mfg
Gerold
:-)

[Halvar]

Grins, Ok, ich bastel auch noch einen Transi dazwischen. Sicher ist sicher.
Später schließ ich den Mega8 ja an einen hochohmigen Mikrofoneingang an, also kann ich den Kondensator auch jetzt schon mit rein basteln.

Vielen Dank für deine Tips, Gerold, und einen schönen Sonntag!