40 Khz Frequenz erzeugen Ultraschallsender

[izaseba]

hier, versuchmal die 4 Zeilen Assembler in Dein Programm einzufügen:

push r16
ldi r16,26
out TCCR2,r16
ldi r16,25
out OCR2,r16
pop r16

zum ausschalten

push r16
clr r16
out TCCR2,r16
pop r16

Wie man Assembler in Basic einfügt, kann ich Dir nicht sagen, es soll aber sehr einfach sein.
Du mußt es nicht in einer Schleife laufen lassen einmal ausgeführt und Du hast am PB3 ein Takt von 40 kHz
Achso, vergiß nicht PB3 als Ausgang zu konfigurieren,

Gruß Sebastian

[Rofo88]

@izaseba

Ich glaube nicht das Bascom sich sehr freuen wird wenn man R16 so im Programm verändert. Also besser vorher ein Push R16 und danach ein POP R16.

[izaseba]

@rofo88,
Du hast recht, ich weiß nicht, welche Register man gefahrlos überschreiben kann, ich habe es oben geändert
Was mir noch einfällt, ich glaube gelesen zu haben, daß man die Register direkt beschreiben kann z.B

TCCR2 = 26
OCR2 = 25

Wenn das stimmt, wäre es noch einfacher

Gruß Sebastian

[Lenox]

So habs mal mit dem Assembler code versucht:

$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb.3 = Output

$asm
push r16
ldi r16,26
out TCCR2,r16
ldi r16,25
out OCR2,r16
pop r16
$end Asm

Do
Loop

Leider hab ich nur 4µS bzw 8 pro Periode.

PS: ja das geht, mit dem direkt beschreiben.

[Lenox]

So habs grad nochmal mit der Interrupt Methode probiert, hatte doch tatsächlich vergessen den Ausgang zu definieren (danke für den Tipp).

Aber da kommt ich auch nur auf 6 µS aber das kann man Oskar liegen, ich weiß einfach nicht wie ich den Variables Poti einstellen muss :/
Ist ein Hameg HM 312.

[izaseba]

??? was heißt jetzt nur6µs oder 8 µs ?
bei 6 µs hättest Du 166 kHz und bei 8 125 ?
Oder versteh ich was falsch ?

Normal müßte der Assemblerschnipsel klappen weil
16000000/8/25 ergibt sehr genau 80kHz und da der Pin bei jedem Compare Match getoggelt wird hättest Du 40 kHz...
Komisch, das muß ich mal auf AvrStudio werfen, moment, ich verjage meine Frau von ihrem Winrechner

Gruß Sebastian

[Lenox]

Ja ist halt zu schnell.
Aber das Problem ist das ich bei meinem Oskar die x-Achse mit einem Poti justieren kann, deshalb ist die Messung sehr ungenau, es könnten genauso 20µS sein...

Ich hab dem Verkäufer (Ratber) mal ne PM geschrieben, aber werd mir wohl mal die Manual ziehn.
Wäre aber trotzdem schön wenn das mal einer im Simulator checken könnte.

[izaseba]

Tja, das mit dem Emulator war wohl Griff ins Klo Jäger wurde zum Gejagtem ist nix mit Win Rechner, aber ich lass mich nicht so schnell entmutigen, habe eben meinen Frequenzzähler angeworfen, der Zeigt am PB3 etwas über 39 kHz, das Ding ist aber noch nicht richtig kalibiert.
Mithin würde ich eher sagen, es liegt am Oscar und der PB3 wirklich 40 kHz generiert
Schalte da einen Transistor dran und teste, ob es klappt

Gruß Sebastian

[Lenox]

So hab mir grad die ganze Manual reingezogen, das Poti muss ganz nach rechts auf Anschlag, also war meine Messung total fürn **** ;D

Übrigens wird die Röhre des hamegs mit 40Khz betrieben *g*

Ich messe jetzt etwa 13,8 µS =)

Vielen Dank!
Jetzt muss ich "nurnoch" das Signal für eine bestimmt Zeit senden.

Also war für das aktivieren:

push r16
ldi r16,26
out TCCR2,r16
ldi r16,25
out OCR2,r16
pop r16

und für das deaktivieren:

push r16
clr r16
out TCCR2,r16
pop r16

oky so? weil ich versteh davon echt keine Zeile

[izaseba]

Ja,ja, wer viel misst...

Ja genau so ist das der erste Schnipsel schaltet 40 kHz am PB3 ein, der zweite schaltet den ab, Du kannst dazwischen ein wait**** einbauen, dann kriegst Du einen 40 kHz Impuls ....

oky so? weil ich versteh davon echt keine Zeile

Dann soltest Du mal hin und wieder in das Dattenblatt schauen, weil die Lösung manchmal trivial ist

Gruß Sebastian