Hallo, Suche jemand der einem Anfänger in einfachen Schritte bei der Entwicklung eines Frequenzgenerators hilft, habe schon einige Versuchem mit Timer unternommen, allerdings komme ich nicht über Frequenz von ca 4 Khz hinaus. Habe zwar schon einige fertige Programm gefunden , allerdings habe ich die nicht durchschauen können.
Mir geht es aber in der Hauptsache um das Verständnis.
Das war mein letzter Test:
Code:
$regfile "m32def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.6 , Db7 = Portc.7 , Rs = Portc.5 , E = Portc.4
D e f i n i t i o n d e r V a r i a b l e n
Dim Taktwert As Byte
D e f i n i t i o n d e r P in 's
Portb = &B00011110
Ddra = &B11111111
T i m e r 0
Config Timer0 = Timer , Prescale = 1
Enable Timer0
On Timer0 Timer_null
Enable Interrupts
H a u p t p r o g r a m m
Do
If Pinb.1 = 0 Then Taktwert = Taktwert + 1
If Pinb.2 = 0 Then Taktwert = Taktwert -1
Gosub Anzeige
Waitms 50
Loop
U n t e r r o u t í n e A n z e i g e
Anzeige:
Cls
Locate 1 , 1
Lcd "Taktwert=" ; Taktwert
Locate 2 , 9
Lcd "V.FG6A"
Waitms 100
Return
U n t e r r o u t i n e T i m e r 0
Timer_null:
Timer0 = Taktwert
Toggle Porta.0
Return
Lesezeichen