Gast
#50596
Hallo Männers! Ich habe das PRG geschrieben, um einen GENAUEN 1 Hz Impuls zu erhalten. Wenn ich es in den Chip lade, scheint es auch zu gehen. ABER: Wenn ich es in Bascom simuliere, muss ich mich 2 mal rasieren, bevor ein Pegelwechsel an PB2 stattfindet. FRAGE: Was kann man tun, damit die Simulation in Echtzeit läuft?? ....und sind meine Gedankengänge richtig, wenn ich die Quarzfrequenz durch 256 teile, müssten es dann als Takt für Timer1 15625 Hz sein. Dann lade ich den Timer mit 49911 vor, damit er ab da bis 65536 hochzählt und dann den Interrupt auslöst. Das wäre dann nochmal eine Teilung durch 15625 und das eine Hertz wäre fertig. Ist das richtig so?? Mit freundlichen Grüßen Paul 'Das Programm soll 1Hz-Impulse an PB2 erzeugen '--------------------------------------------------------- $Regfile = "2313def.dat" 'AT90S2313-Deklarationen $crystal = 4000000 'Quarz: 4 MHz Ddrb.2 = 1 'Pin PB2 auf Ausgang setzen Dim fToggle As Bit Dim W As Word On Timer1 Ontimer1 'Interrupt-Routine für Timer1Overflow Config Timer1 = Timer , Prescale = 256 'Takt: Quarz/256 Enable Timer1 'Timer1-Overflow-Interrupt einschalten Enable Interrupts 'Interrupts global zulassen '--------------------------------------------------------- Do 'Hauptschleife Loop '--------------------------------------------------------- Ontimer1: 'Interrupt-Routine Timer1 = 49911 'Timer 1 voreinstellen W = Timer1 fToggle = Not fToggle 'Toggle-Bit invertieren Portb.2 = Ftoggle 'Leuchtidiot als Anzeige Return