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.
Code:
 ...
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?