-
-
Frequnezausgabe mit bascom
kann mir bitte jemand erklären wie ich es hinbekomme mit bascon eine spezifische frequenz am OC1A auszugeben ???
ok pwm und dtmf hab ich hinbekommen nur diese sind ja schon vorgegeben ..
die Frequenzen die ich augeben möchte liegen alle zwischen
500 und 2500 hz ..
also dürfte das von der geschwindigkeit ein AT90S8535 mit 8 mhz packen ...
Gruß Sme
-
ok hat sich erledigt habs mit dem tool von hier hinbekommen ...
mann war ich blöd...
-
Erfahrener Benutzer
Robotik Einstein
Könntest du kurz beschreiben, wie du es gemacht hast, ich hätte es mit einem Timer und Interrupt gemacht, ist aber relativ Resourcenfressend. Gibt es da bessere Lösungen?
MFg Moritz
-
Genau so der prozessor mu ja nix anderes tun als Frequnezen ausgeben...
Hier mal der Quelltext
$regfile = "8535def.dat"
$crystal = 7372800
$baud = 9600
Config Timer0 = Timer , Prescale = 64
Config Pinc.2 = Output
Tonausgabe Alias Portc.3
On Timer0 Timer_irq
Dim Timervorgabe As Byte
Enable Timer0
Enable Interrupts
Do
For Timervorgabe = 0 To 255
Timervorgabe = 184
Waitms 100
Next Timervorgabe
Loop
Timer_irq:
Timer0 = Timervorgabe
Toggle Tonausgabe
Return
-
ups fehler im quelltext
$regfile = "8535def.dat"
$crystal = 7372800
$baud = 9600
Config Timer0 = Timer , Prescale = 64
Config Pinc.2 = Output
Tonausgabe Alias Portc.3
On Timer0 Timer_irq
Dim Timervorgabe As Byte
Enable Timer0
Enable Interrupts
Do
For Timervorgabe = 0 To 255
Waitms 100
Next Timervorgabe
Loop
Timer_irq:
Timer0 = Timervorgabe
Toggle Tonausgabe
Return
-
Erfahrener Benutzer
Robotik Einstein
Wenn ich mich nicht täusche, dann kommt da jetzt ein immer höher werdender Ton raus, der ständig wiederholt wird?! Oder?
Aber ist schon OK, es ist auch mit dem Timer-Int gelöst.
MFG Moritz
-
ja genau den entgültigen quelltext habe ich leider noch nicht fertig ...
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen