Druckbare Version
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...
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
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 ...