Mehrere Software Pwm auf einem µC

Hallo!

Ich habe folgende Problematik, ich benötige 4 in der Frequenz frei skalierbare PWMs. Soweit habe ich es auch schon, der Bereich geht von 50Hz bis 250Hz. Dazu muss ich schon 2 timer verbraten (Timer0 und Timer1), weil Bascom immernoch den bug hat, das ich zumindest bei den mega 32 und mega 16 in meinem µC Programm den Prescaler nicht verändern kann...also man kann schon wie es sich gehört, alles programmieren, aber der µC ändert später nichts. Das muss ich nochmals an Mark schreiben. Wenn das nicht bald behoben wird muss ich Bascom in Rente schicken...

So nun zur eigentlichen Frage die momentan 4 synchron laufenden PWM Ausgänge meiner Sofr-PWM, sollen nun um unterschiedliche Verzögerungszeiten zu Kanal 1 laufen. Jeweils alle mit der selben Frequenz und Tastverhältnis, nur halt versetzt. Mit 5 Timern wüsste ich, wie man dem Ganzen beikommen könnte, aber mit den Voraussetzungen auf dem Chip hm...ehrlichgesagt, keine Ahnung.

Eine etwas aufwändiger Methode schwirrt mir noch im Kopf herum, einen Master mit 4 Slaves aufzubauen, der dann die anderen µC synchronisiert, oder halt versetzt startet und über SPI mit Daten versorgt... Ist halt ne Menge zum Aufbauen, weshalb ich das ganz gerne in einem Chip unterbringen würde.

Mal gespannt auf eure Ideen und Anregungen.

Gruß

Sven

Hallo,
theoretisch reicht doch ein Timer, diesen z.B. alle 0,1ms takten (oder wie genau die Auflösung sein soll), und dann muss man nur pro SoftPWM mitzählen, wann man einen Ausgang auf high und low setzen muss.

Was ist das Problem mit dem Prescaler, ich weiss zwar jetzt nichts von dem Bascom-Fehler, aber Du weisst, das es nur einen Prescaler für die Timer gibt, bzw. ein Prescaler ist für mehrere Timer ?!
Timer0 und 1 verwenden den gleichen Prescaler, nur Timer2 hat einen eigenen Prescaler.

Zitat:

---

Zitat von ACsenf

...weil Bascom immernoch den bug hat, das ich (...) den Prescaler nicht verändern kann...also man kann schon wie es sich gehört, alles programmieren, aber der µC ändert später nichts. Das muss ich nochmals an Mark schreiben. Wenn das nicht bald behoben wird muss ich Bascom in Rente schicken...

---

Dann solltest Du Schnarchnase mal nen Blick in die Bedienungsanleitungen der Controller werfen! :cheesy:
Der Mega32 und Mega16 bieten bei Timer0 und Timer1 nur folgende Prescale-Möglichkeiten: 0,8,64,256 und 1024
Die 16-Bit Timer hängen an diesem Prescaler mit dran wenn ich es richtig verstanden hab.
Bascom hat in diesem Zusammenhang wohl doch keinen Bug. ;)

Ich würd an Deiner Stelle vier Slaves (Tiny 13 oder sowas in der Richtung) nehmen die durch den Master Synchronisiert werden. Mit einem Controller wird das, durch die fehlende Möglichkeit Variablen parallel zu bearbeiten, nicht sauber funktionieren.

Hallo E-Nase ;-)

Das mit dem Prescaler ist mir schon bekannt, ebenso die verfügbaren Auflösungen! Und wenn man mit dem 16 Bit kleinere, wie auch größere Frequenzen erzeugen möchte, muss ich eben diesen Prescaler in meiner Software in einer If Verzweigung von z.B. 8 auf 64 umschalten, was beim 8515 einwandfrei klappt, aber eben bei diesen beiden Megas tut der Compiler nicht das richtige! Dieser Bug wurde hier auch schonmal erwähnt! Probiere es mal aus und schreibe ein Proggi, das zwei Prescalerwerten umschalten muss und dann messe mal mit einem Oszi ob das was du vorausberechnet hast auch mit der Realität übereinstimmt.
Bei klappt das jedenfalls nicht. Die idee mit den Slaves werde ich vermutlich auch umsetzen um in "Echtzeit" synchronisieren zu können.

Ich krame mal meinen Code raus mit dem es nicht ging, geht.

Gruß

Sven

hmmm... :-k
Haste die Chose schon mal alleine im Controller ausgetestet? Also ohne dat andere Codegedöns und nur die Umschaltung der Prescalerwerte?

So hier ist mein code mit den Timern, wo sich der Prescalerwert nicht ändert! Der Compiler setzt alles ohne zu murren um, aber ab 29Hz kommt nur noch Mist heraus.

Code:

---

'*******************************************************************************
'Frequenzgenerator
'Prozessor: Atmel Mega 32
'Programm: Test_Prescaler verändern
'*******************************************************************************
'$sim
$regfile = "M32DEF.DAT"
$crystal = 16000000
$baud = 9600

'-----------------------------Variablendeklaration--------------------------------
Dim Rel_flag As Bit
Dim S As String * 10

'------------------------Variablen zur Frequenzberechnung-------------------------
Dim F As Single
Dim Fein As Single
Dim Fcalc As Single
Dim Check As Single
Dim Calc As Single
Dim Pre As Integer                                          'Prescaler
Dim Presc As Integer                                        'Prescaler Uebergabewert
Dim Vorteiler As Long                                      'Prescaler berechnet
Dim Reload1 As Word
Dim Count0 As Byte
Dim Count1 As Byte
Const Fosc = 16000000                                      'Frequenz µC
Const Aufl = 65536                                          'Timeraufloesung
Dim T As Single                                            'Periode
Declare Sub Aus
Declare Sub Neue_frequenz
Declare Sub Reloadsub

'-----------------------------Portkonfiguration-----------------------------------

'Der PortC wird als Ausgang programmiert
Config Pinc.0 = Output
Config Pinc.1 = Output
Config Pinc.2 = Output
Config Pinc.3 = Output
Config Pinc.4 = Output
Config Pinc.5 = Output
Config Pinc.6 = Output
Config Pinc.7 = Output
Config Pina.7 = Output
Config Pina.6 = Output
Config Pina.5 = Output
Config Pina.4 = Output

'Der Port B und D wird als Eingang programmiert
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input                                      ' Interrupt 2 für Zuendung Slave IN sync
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Pinb.5 = Input
Config Pinb.6 = Input
Config Pinb.7 = Input
Config Pind.2 = Input                                      ' Interrupt 0 für ON/OFF
Config Pind.3 = Input                                      'Interrupt 1 Sammelinterrupt Stoerung
Config Pind.4 = Input
Config Pind.5 = Input
Config Pind.6 = Input
Config Pind.7 = Input

'Pullup einschalten nur bei PD3 noetig!
Portd.3 = 1

'Hier geben wir der Definition einen schoeneren Namen
_out Alias Portc.0
Sync Alias Portc.1
_rdy Alias Portc.2
Reserve_out Alias Portc.3
Stoerung_out Alias Portc.4
Outp Alias Portc.5
Led1 Alias Portc.6
Led2 Alias Portc.7
Led3 Alias Porta.7
Led4 Alias Porta.6
Ok Alias Porta.5
Relais Alias Porta.4

'-----------------------------Timerkonfiguration----------------------------------
'Hier wird der Timer und der Teiler festgelegt
Config Timer0 = Timer , Prescale = 64
Config Timer1 = Timer , Prescale = 8

'Hier wird das Unterprogramm festgelegt, das
'in dem eingestellten Intervall aufgerufen wird
On Timer0 Timer0_irq                                        'Nosave
On Timer1 Timer1_irq                                        'Nosave

Const Reload0 = 6
Reload1 = 30534

'Hier werden die Timer aktiviert
Enable Timer0
Enable Timer1
Enable Interrupts


Call Aus
Start Timer1

Do
  If Ischarwaiting() <> 0 Then Call Neue_frequenz
  nop
Loop

Timer0_irq:                                                '1 Pausenteil 1ms
  Timer0 = Reload0
    Outp = 0                                                'EIN
    Stop Timer0
    Waitus 500
    Outp = 1                                                'AUS
    Waitus 1000                                            '2.Pausenteil 1ms
    Led1 = 0
    Start Timer1

  Return


Timer1_irq:                                                'lange Zeit 17,5ms
    Timer1 = Reload1
    Led1 = 1
    Stop Timer1
    Start Timer0
  Return

'----------------------------Funktion Ausschalten---------------------------------

Sub Aus

Portc = &HFF                                                ' alle LEDs aus
Led1 = 1
Led2 = 1
Led3 = 1                                                    ' alle LEDs aus
Led4 = 1                                                    ' alle LEDs aus
Ok = 1
Outp = 1                                                    ' alle LEDs aus
Waitms 200

  If Rel_flag = 0 Then
      Relais = 1                                            ' alle LEDs aus
  End If

End Sub

'--------------------------Funktion Frequenzberechnung----------------------------
Sub Neue_frequenz
 Stop Timer0
 Stop Timer1
 Waitms 200

 Call Aus
 S = Inkey()
 Print "Frequenz ohne dezimale eingeben, d.h 500 entspricht 50Hz"
 Eingabe:
 Input " neue Frequenz: " , Fein

 If Fein > 500 Then
  Print "Fequenz zu Gross!!!"
  Goto Eingabe
 End If
    F = Fein / 10
    Check = Frac(f)                                        'nur Nachkommastelle
 If Check = 0.5 Or Check = 0 Then
  Print " neue Frequenz: " ; F ; "Hz"
 Else
  Print "falsche Eingabe! Nur 0,5Hz Schritte moeglich!"
  Goto Eingabe
 End If

 T = 1 / F
 T = T - 0.0025
 Fcalc = 1 / T
 Vorteiler = T * Fosc
 Vorteiler = Vorteiler \ Aufl

 If Vorteiler <= 1 Then
    Pre = 1
    Presc = Pre
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 1 And Vorteiler <= 8 Then
    Pre = 8
    Presc = Pre
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 8 And Vorteiler <= 64 Then
    Pre = 64
    Presc = Pre                                            'Prescaler
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 64 And Vorteiler <= 256 Then
    Pre = 256
    Presc = Pre                                            'Prescaler
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 256 And Vorteiler <= 1024 Then
    Pre = 1024
    Presc = Pre                                            'Prescaler
    Call Reloadsub
    Reload1 = Round(calc)
 End If


 Start Timer1
End Sub

Sub Reloadsub
'Berechnung von Reload1
 Calc = Fosc / Pre
 Calc = Calc / Fcalc
 Calc = Aufl - Calc
 Tccr1b = Tccr1b And &HF8
 Tccr1b = Tccr1b Or Presc

End Sub

---

:-k
Wenn ich es richtig sehe müllst Du durch diese Art der Prescalerumstellung nur das Kontrollregister B des Timer1 zu und schreibst schon beim ersten Umstellem &hFF da rein (weil &h08 AND &hF8 = &hFF). Das kann nicht funktionieren weil Du damit den Timer1des ATmega32 auf externe Synchronisation umstellst.
Anbei mal ein Screenshot der Registerbitbelegung von TCCR1B:
Die Bits sollten daher anders manipuliert werden. ;)

Ah gut zu wissen! Hm man sollte nicht alles glauben was man hier so geraten bekommt. Hatte diese Version halt versucht. Hatte vorher dem Prescaler eine Zahl zugewiesen, wie bei der ersten Initializiereung, das ging aber auch nicht.
Nun die große Frage...wie geht dem???

so habe es mal geändert:

Code:

---

'*******************************************************************************
'Frequenzgenerator
'Prozessor: Atmel Mega 32
'Programm: Test_Prescaler verändern
'*******************************************************************************
'$sim
$regfile = "M32DEF.DAT"
$crystal = 16000000
$baud = 9600

'-----------------------------Variablendeklaration--------------------------------
Dim Rel_flag As Bit
Dim S As String * 10

'------------------------Variablen zur Frequenzberechnung-------------------------
Dim F As Single
Dim Fein As Single
Dim Fcalc As Single
Dim Check As Single
Dim Calc As Single
Dim Pre As Integer                                          'Prescaler
Dim Presc As Byte                                          'Prescaler Uebergabewert
Dim Vorteiler As Long                                      'Prescaler berechnet
Dim Reload1 As Word
Dim Count0 As Byte
Dim Count1 As Byte
Const Fosc = 16000000                                      'Frequenz µC
Const Aufl = 65536                                          'Timeraufloesung
Dim T As Single                                            'Periode
Declare Sub Aus
Declare Sub Neue_frequenz
Declare Sub Reloadsub

'-----------------------------Portkonfiguration-----------------------------------

'Der PortC wird als Ausgang programmiert
Config Pinc.0 = Output
Config Pinc.1 = Output
Config Pinc.2 = Output
Config Pinc.3 = Output
Config Pinc.4 = Output
Config Pinc.5 = Output
Config Pinc.6 = Output
Config Pinc.7 = Output
Config Pina.7 = Output
Config Pina.6 = Output
Config Pina.5 = Output
Config Pina.4 = Output

'Der Port B und D wird als Eingang programmiert
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input                                      ' Interrupt 2 für Zuendung Slave IN sync
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Pinb.5 = Input
Config Pinb.6 = Input
Config Pinb.7 = Input
Config Pind.2 = Input                                      ' Interrupt 0 für ON/OFF
Config Pind.3 = Input                                      'Interrupt 1 Sammelinterrupt Stoerung
Config Pind.4 = Input
Config Pind.5 = Input
Config Pind.6 = Input
Config Pind.7 = Input

'Pullup einschalten nur bei PD3 noetig!
Portd.3 = 1

'Hier geben wir der Definition einen schoeneren Namen
_out Alias Portc.0
Sync Alias Portc.1
_rdy Alias Portc.2
Reserve_out Alias Portc.3
Stoerung_out Alias Portc.4
Outp Alias Portc.5
Led1 Alias Portc.6
Led2 Alias Portc.7
Led3 Alias Porta.7
Led4 Alias Porta.6
Ok Alias Porta.5
Relais Alias Porta.4

'-----------------------------Timerkonfiguration----------------------------------
'Hier wird der Timer und der Teiler festgelegt
Config Timer0 = Timer , Prescale = 64
Config Timer1 = Timer , Prescale = 8

'Hier wird das Unterprogramm festgelegt, das
'in dem eingestellten Intervall aufgerufen wird
On Timer0 Timer0_irq                                        'Nosave
On Timer1 Timer1_irq                                        'Nosave

Const Reload0 = 6
Reload1 = 30534

'Hier werden die Timer aktiviert
Enable Timer0
Enable Timer1
Enable Interrupts


Call Aus
Start Timer1

Do
  If Ischarwaiting() <> 0 Then Call Neue_frequenz
  nop
Loop

Timer0_irq:                                                '1 Pausenteil 1ms
  Timer0 = Reload0
    Outp = 0                                                'EIN
    Stop Timer0
    Waitus 500
    Outp = 1                                                'AUS
    Waitus 1000                                            '2.Pausenteil 1ms
    Led1 = 0
    Start Timer1

  Return


Timer1_irq:                                                'lange Zeit 17,5ms
    Timer1 = Reload1
    Led1 = 1
    Stop Timer1
    Start Timer0
  Return

'----------------------------Funktion Ausschalten---------------------------------

Sub Aus

Portc = &HFF                                                ' alle LEDs aus
Led1 = 1
Led2 = 1
Led3 = 1                                                    ' alle LEDs aus
Led4 = 1                                                    ' alle LEDs aus
Ok = 1
Outp = 1                                                    ' alle LEDs aus
Waitms 200

  If Rel_flag = 0 Then
      Relais = 1                                            ' alle LEDs aus
  End If

End Sub

'--------------------------Funktion Frequenzberechnung----------------------------
Sub Neue_frequenz
 Stop Timer0
 Stop Timer1
 Waitms 200

 Call Aus
 S = Inkey()
 Print "Frequenz ohne dezimale eingeben, d.h 500 entspricht 50Hz"
 Eingabe:
 Input " neue Frequenz: " , Fein

 If Fein > 500 Then
  Print "Fequenz zu Gross!!!"
  Goto Eingabe
 End If
    F = Fein / 10
    Check = Frac(f)                                        'nur Nachkommastelle
 If Check = 0.5 Or Check = 0 Then
  Print " neue Frequenz: " ; F ; "Hz"
 Else
  Print "falsche Eingabe! Nur 0,5Hz Schritte moeglich!"
  Goto Eingabe
 End If

 T = 1 / F
 T = T - 0.0025
 Fcalc = 1 / T
 Vorteiler = T * Fosc
 Vorteiler = Vorteiler \ Aufl

 If Vorteiler <= 1 Then
    Pre = 1
    Presc = &B00000001
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 1 And Vorteiler <= 8 Then
    Pre = 8
    Presc = &B00000010
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 8 And Vorteiler <= 64 Then
    Pre = 64
    Presc = &B00000011                                    'Prescaler
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 64 And Vorteiler <= 256 Then
    Pre = 256
    Presc = &B00000100                                    'Prescaler
    Call Reloadsub
    Reload1 = Round(calc)
 End If

 If Vorteiler > 256 And Vorteiler <= 1024 Then
    Pre = 1024
    Presc = &B00000101                                    'Prescaler
    Call Reloadsub
    Reload1 = Round(calc)
 End If


 Start Timer1
End Sub

Sub Reloadsub
'Berechnung von Reload1
 Calc = Fosc / Pre
 Calc = Calc / Fcalc
 Calc = Aufl - Calc
 'Tccr1b = Tccr1b And &HF8
 Tccr1b = Presc

End Sub

---

geht aber trotzdem nicht!

Bleibe bei dem hier schonmal erwähnten...daß Bascom da einen Bug hat, lasse mich aber gerne eines Besseren belehren.

Gruß

Sven

Zitat:

---

Zitat von ACsenf

Bleibe bei dem hier schonmal erwähnten...daß Bascom da einen Bug hat, lasse mich aber gerne eines Besseren belehren.

---

Den Fehler der nichtangenommenen Veränderung des Prescalers gab es tatsächlich mal bei einer Version, ist aber schon länger behoben.

Das dies stimmt, kann man leich anhand dieses völlig fehlerfrei funktionierenden Testprogrammes überprüfen (habe jetzt nicht forenfreundlich gekürzt):

Code:

---

'Frequenzgenerator Atmega 8/168 oder M32 mit Menue - HR -  2006
'#######################################################

'$regfile = "m8def.dat"
'$regfile = "m168def.dat"
$regfile = "m32def.dat"
$crystal = 7372800
'$crystal = 14745000
'$crystal = 16000000

$baud = 9600

$hwstack = 64
$swstack = 64
$framesize = 64



'$lib "i2c_twi.lbx"                          'Hardware I2C!

'Config Lcdpin = Pin , Db4 = Pd.4 , Db5 = Pd.5 , Db6 = Pd.6 , Db7 = Pd.7 , _
'E = Pd.3 , Rs = Pd.2
'
'Config Scl = Portc.5          'für Mega8 und 168
'Config Sda = Portc.4

'Config Scl = Portd.0          'für Mega16 und 32
'Config Sda = Portd.1

'-------------------------------------------------------------------------------
$lib "Lcd_i2c.lib"                          'i2c Treiber für das LCD
Dim _lcd_e As Byte                          'Nötig für die Enable Auswahl
'Const Pcf8574_lcd = 112                      'Adresse des LCD-PCF
'Const Pcf8574_lcd = 64
Waitms 200
_lcd_e = 128                                'Für LCDs mit 1 Controller

'Config Scl = Portc.5                        'für Mega8 und 168
'Config Sda = Portc.4
Config Scl = Portc.0                        'für Mega16 und 32
Config Sda = Portc.1


I2cinit                                      'I2C Initialisierung
'-------------------------------------------------------------------------------
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto      'Für Analogtastatur


'Config Portd.4 = Output                      'Test LED-Port

'Config Pina.0 = Input                        'Für analog_key
'Keyboard Alias Pina.0                        'Aliasname
'Porta.0 = 1                                  'Pullup Widerstand ein

'-------------------------------------------------------------------------------
Const Pcf8591 = 144                          'DA-AD-Wandler auf Basis
Const Eeprom2 = 166                          'Eeprom2 auf Basis
Const Eeprom1 = 174                          'Eeprom1 oder Ram auf Basis
Const Eeprom0 = 160                          'externes Chip Card Eeprom0
Const Pcf8574_1 = 64                        'Portext. auf Basis
Const Tda8444 = 78                          'DA-Wandler auf Extension-Platine
Const Pcf8574_lcd = 112                      'Portextension für LCD
Const Pcf8583_rtc = 162                      'RTC auf Extension-Platine

Const Max520 = 94                            'für MAX520 (extern)
Const Keyboard = 0                          'ADC-Nr.

Config Timer1 = Timer , Prescale = 8
Stop Timer1
On Timer1 Timer_irq Nosave

Enable Timer1
Enable Interrupts                            'Interrupts erlauben



Config Adc = Single , Prescaler = Auto
Config Pinb.1 = Output



Config Pinb.4 = Input                        'Für Frequenzzählung
Portb.4 = 1                                  'Pullup Widerstand ein
Flow_in Alias Pinb.4

Config Pinc.2 = Output                      'Ausgang  für beeper
Beep Alias Portc.2

Config Pinb.0 = Output                      'Ausgang  für Frequenz

Declare Sub Beep_alarm()
Declare Sub Beep_confirm()
Declare Sub Analog_key_wait()                'Resultat in Taste

Declare Function Analog_key() As Byte
Declare Function Adjust_value_
(byval Up_down As Word , Byval Schritt As Byte)as Word

Declare Function Timer_test() As Word

Dim Timervorgabe As Word
'Timervorgabe = 19456                        'für 20Hz bzw 10 Hz an PB0
'Timervorgabe = 34816                        'für 30Hz bzw 15 Hz an PB0
Timervorgabe = 56320                        'für 100Hz bzw 50 Hz an PB0

Dim Value As Word At &H100
Dim Value_low As Byte At &H100 Overlay
Dim Value_high As Byte At &H101 Overlay
Dim Address As Word At &H102
Dim Address_low As Byte At &H102 Overlay
Dim Address_high As Byte At &H103 Overlay


Dim I As Integer
Dim N As Integer
Dim Hertz_word As Word
Dim Count As Byte
Dim Temp As Word
Dim Schritt As Byte

Dim Command As Byte
Dim Taste As Byte
Dim Counter_ds As Word


Dim Menue_current As Byte
Dim Wert As Byte

'-------------------------------------------------------------------------------

Call Beep_alarm()                            'Bin wach -)
Cls
Cursor Off
Lcd "  FREQUENZGEN."
'Locate 2 , 1
'Lcd " MEGA8 - Control"
Wait 3
Start Timer1
'------------------------------------------------------------------------------
Beep_confirm
Cls
Menue:
Menue_current = 1

Menue_1:

Taste = Analog_key()
Waitms 100

If Taste = 32 Then
Menue_current = Menue_current + 1
End If

If Taste = 33 Then
Menue_current = Menue_current - 1
End If

If Menue_current > 8 Then Menue_current = 1
If Menue_current < 1 Then Menue_current = 8

If Taste = 10 Then Goto Execute
'-------------------------------------------------------------------------------
Select Case Menue_current                    'aktuelle Auswahl anzeigen

  Case 1
    Locate 1 , 1
    Lcd " 10 Hz          "
  Case 2
    Locate 1 , 1
    Lcd " 50 Hz          "
  Case 3
    Locate 1 , 1
    Lcd " 100 Hz        "
  Case 4
    Locate 1 , 1
    Lcd " 1 kHz          "
  Case 5
    Locate 1 , 1
    Lcd " 10 kHz        "
  Case 6
    Locate 1 , 1
    Lcd " 20 kHz        "
  Case 7
    Locate 1 , 1
    Lcd " 50 kHz        "
  Case 8
    Locate 1 , 1
    Lcd " FREE          "



End Select
    Taste = 255
Goto Menue_1

'-------------------------------------------------------------------------------
Execute:                                    'aktuellen Menuepunkt ausführen
Cls

Select Case Menue_current
  Case 1
          Cls
          Disable Timer1
          Config Timer1 = Timer , Prescale = 8
          Timervorgabe = 19456              'für 20 bzw. 10 Hz
          Enable Timer1

  Case 2
          Cls
          Disable Timer1
          Config Timer1 = Timer , Prescale = 8
          Timervorgabe = 56320              'für 100 bzw. 50 Hz
          Enable Timer1
          Cls
  Case 3
          Cls
          Disable Timer1
          Config Timer1 = Timer , Prescale = 1
          Timervorgabe = 28672              'für 200 bzw. 100 Hz
          Enable Timer1
          Cls
  Case 4
          Cls
          Disable Timer1
          Config Timer1 = Timer , Prescale = 1
          Timervorgabe = 61850 + 32          'für 2000 bzw. 1000 Hz
          Enable Timer1
          Cls
  Case 5
          Cls
          Disable Timer1
          Config Timer1 = Timer , Prescale = 1
          Timervorgabe = 65167 + 32          'für 20000 bzw. 10000 Hz
          Enable Timer1
          Cls
  Case 6
          Cls
          Disable Timer1
          Config Timer1 = Timer , Prescale = 1
          Timervorgabe = 65352 + 32          'für 40000 bzw. 20000 Hz
          Enable Timer1
          Cls
  Case 7
          Cls
          Disable Timer1
          Config Timer1 = Timer , Prescale = 1
          Timervorgabe = 65462 + 32          'für 100kHz bzw. 50kHz  bei Toggle
          Enable Timer1
          Cls
  Case 8
          Cls                                'zur Ermittlung der maximal
          Locate 2 , 2                      'erziebaren Frequenz
          Lcd " free running"
          Disable Timer1
          Do
          Set Portb.0
          nop
          nop
          Reset Portb.0
          nop
          nop
          Loop
          Enable Timer1



End Select

Goto Menue_1
'-------------------------------------------------------------------------------

End                                          'Hauptprogramm Ende

'-------------------------------------------------------------------------------


'-------------------------------------------------------------------------------


Sub Beep_alarm()
          Sound Beep , 200 , 450
          Sound Beep , 200 , 250
End Sub
'-------------------------------------------------------------------------------

Sub Beep_confirm()
          Sound Beep , 200 , 450
End Sub
'-------------------------------------------------------------------------------

Sub Analog_key_wait()
Wait_ana_key:
Taste = Analog_key()
If Taste = 255 Then Goto Wait_ana_key
End Sub

'------------------------------------------------------------------------------
'Diese Unterfunktion fragt die Tastatur am analogen Port ab
Function Analog_key() As Byte
  Local Ws As Word
  Analog_key = 255
  Start Adc
  Ws = Getadc(keyboard)
  If Ws < 900 Then
      Select Case Ws
        Case 0 To 100
            Analog_key = 32
        Case 400 To 600
            Analog_key = 33
        Case 650 To 850
            Analog_key = 10
      End Select
      Call Beep_confirm()
  End If
Waitms 100
End Function
'-------------------------------------------------------------------------------

Function Adjust_value(byval Up_down As Word , Byval Schritt As Byte)

Cls

Adj1:
Locate 2 , 1
Lcd Up_down ; "  "
Taste = Analog_key()
If Taste = 32 Then Up_down = Up_down + Schritt
If Taste = 33 Then Up_down = Up_down - Schritt
If Taste = 10 Then
  Adjust_value = Up_down
  Exit Sub
End If

Goto Adj1

End Function
'-------------------------------------------------------------------------------
Timer_irq:

$asm
push R24
push R25
push R26
push R27
push XH
push XL
in R24, SREG
push R24
$end Asm
Timer1 = Timervorgabe
Toggle Portb.0
$asm
pop R24
Out Sreg , R24
pop XL
pop XH
pop R27
pop R26
pop R25
pop R24
$end Asm


Return
'-------------------------------------------------------------------------------

---

Das Beispiel ist mit Absicht "Klein Fritzchen mäßig" strukturiert.

Grüße
Henrik

Hallo!

Hier nochmal mein Code zu deinem Beispiel, so hatte ich es übrigens auch schonmal und funktioniert bei meinem 8515 wunderbar!
Habe es eben extra nochmal durch den Simulator gejagt. Da kann man schön sehen, daß die Berechnungen richtig sind und sogar das Register korrekt gesetzt wird. Aber in Realität passiert eben genau das nicht!

Anbei nochmal mein Code

Code:

---

'*******************************************************************************
'Frequenzgenerator
'Prozessor: Atmel Mega 32
'Programm: Test_Prescaler verändern
'*******************************************************************************
'$sim
$regfile = "M32DEF.DAT"
$crystal = 16000000
$baud = 9600

'-----------------------------Variablendeklaration--------------------------------
Dim Rel_flag As Bit
Dim S As String * 10

'------------------------Variablen zur Frequenzberechnung-------------------------
Dim F As Single
Dim Fein As Single
Dim Fcalc As Single
Dim Check As Single
Dim Calc As Single
Dim Pre As Integer                                          'Prescaler
Dim Presc As Byte                                          'Prescaler Uebergabewert
Dim Vorteiler As Long                                      'Prescaler berechnet
Dim Reload1 As Word
Dim Count0 As Byte
Dim Count1 As Byte
Const Fosc = 16000000                                      'Frequenz µC
Const Aufl = 65536                                          'Timeraufloesung
Dim T As Single                                            'Periode
Declare Sub Aus
Declare Sub Neue_frequenz
Declare Sub Reloadsub

'-----------------------------Portkonfiguration-----------------------------------

'Der PortC wird als Ausgang programmiert
Config Pinc.0 = Output
Config Pinc.1 = Output
Config Pinc.2 = Output
Config Pinc.3 = Output
Config Pinc.4 = Output
Config Pinc.5 = Output
Config Pinc.6 = Output
Config Pinc.7 = Output
Config Pina.7 = Output
Config Pina.6 = Output
Config Pina.5 = Output
Config Pina.4 = Output

'Der Port B und D wird als Eingang programmiert
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input                                      ' Interrupt 2 für Zuendung Slave IN sync
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Pinb.5 = Input
Config Pinb.6 = Input
Config Pinb.7 = Input
Config Pind.2 = Input                                      ' Interrupt 0 für ON/OFF
Config Pind.3 = Input                                      'Interrupt 1 Sammelinterrupt Stoerung
Config Pind.4 = Input
Config Pind.5 = Input
Config Pind.6 = Input
Config Pind.7 = Input

'Pullup einschalten nur bei PD3 noetig!
Portd.3 = 1

'Hier geben wir der Definition einen schoeneren Namen
_out Alias Portc.0
Sync Alias Portc.1
_rdy Alias Portc.2
Reserve_out Alias Portc.3
Stoerung_out Alias Portc.4
Outp Alias Portc.5
Led1 Alias Portc.6
Led2 Alias Portc.7
Led3 Alias Porta.7
Led4 Alias Porta.6
Ok Alias Porta.5
Relais Alias Porta.4

'-----------------------------Timerkonfiguration----------------------------------
'Hier wird der Timer und der Teiler festgelegt
Config Timer0 = Timer , Prescale = 64
Config Timer1 = Timer , Prescale = 8

'Hier wird das Unterprogramm festgelegt, das
'in dem eingestellten Intervall aufgerufen wird
On Timer0 Timer0_irq                                        'Nosave
On Timer1 Timer1_irq                                        'Nosave

Const Reload0 = 6
Reload1 = 30534

'Hier werden die Timer aktiviert
Enable Timer0
Enable Timer1
Enable Interrupts


Call Aus
Start Timer1

Do
  If Ischarwaiting() <> 0 Then Call Neue_frequenz
  nop
Loop

Timer0_irq:                                                '1 Pausenteil 1ms
  Timer0 = Reload0
    Outp = 0                                                'EIN
    Stop Timer0
    Waitus 500
    Outp = 1                                                'AUS
    Waitus 1000                                            '2.Pausenteil 1ms
    Led1 = 0
    Start Timer1

  Return


Timer1_irq:                                                'lange Zeit 17,5ms
    Timer1 = Reload1
    Led1 = 1
    Stop Timer1
    Start Timer0
  Return

'----------------------------Funktion Ausschalten---------------------------------

Sub Aus

Portc = &HFF                                                ' alle LEDs aus
Led1 = 1
Led2 = 1
Led3 = 1                                                    ' alle LEDs aus
Led4 = 1                                                    ' alle LEDs aus
Ok = 1
Outp = 1                                                    ' alle LEDs aus
Waitms 200

  If Rel_flag = 0 Then
      Relais = 1                                            ' alle LEDs aus
  End If

End Sub

'--------------------------Funktion Frequenzberechnung----------------------------
Sub Neue_frequenz
 Stop Timer0
 Stop Timer1
 Waitms 200

 Call Aus
 S = Inkey()
 Print "Frequenz ohne dezimale eingeben, d.h 500 entspricht 50Hz"
 Eingabe:
 Input " neue Frequenz: " , Fein

 If Fein > 500 Then
  Print "Fequenz zu Gross!!!"
  Goto Eingabe
 End If
    F = Fein / 10
    Check = Frac(f)                                        'nur Nachkommastelle
 If Check = 0.5 Or Check = 0 Then
  Print " neue Frequenz: " ; F ; "Hz"
 Else
  Print "falsche Eingabe! Nur 0,5Hz Schritte moeglich!"
  Goto Eingabe
 End If

 T = 1 / F
 T = T - 0.0025
 Fcalc = 1 / T
 Vorteiler = T * Fosc
 Vorteiler = Vorteiler \ Aufl

 If Vorteiler <= 1 Then
    Pre = 1
    Call Reloadsub
    Disable Timer1
    Config Timer1 = Timer , Prescale = 1
    Reload1 = Round(calc)
    Enable Timer1
 End If

 If Vorteiler > 1 And Vorteiler <= 8 Then
    Pre = 8
    Call Reloadsub
    Disable Timer1
    Config Timer1 = Timer , Prescale = 8
    Reload1 = Round(calc)
    Enable Timer1
 End If

 If Vorteiler > 8 And Vorteiler <= 64 Then
    Pre = 64
    Call Reloadsub
    Disable Timer1
    Config Timer1 = Timer , Prescale = 64
    Reload1 = Round(calc)
    Enable Timer1
 End If

 If Vorteiler > 64 And Vorteiler <= 256 Then
    Pre = 256
    Call Reloadsub
    Disable Timer1
    Config Timer1 = Timer , Prescale = 256
    Reload1 = Round(calc)
    Enable Timer1
 End If

 If Vorteiler > 256 And Vorteiler <= 1024 Then
    Pre = 1024
    Call Reloadsub
    Disable Timer1
    Config Timer1 = Timer , Prescale = 1024
    Reload1 = Round(calc)
    Enable Timer1
 End If


 'Start Timer1
End Sub

Sub Reloadsub
'Berechnung von Reload1
 Calc = Fosc / Pre
 Calc = Calc / Fcalc
 Calc = Aufl - Calc

End Sub

---

Mich würde es brennend interessieren, warum das nicht klappt??? Vielleicht packt mal jemand das programm auf seinen Chip.

Gruß

Sven

So hatte eben mein o.g. Proggi mal für mein At90S8515 Board geändert mit dem selben Ergebnis wie auf dem Mega32 :shock:

habe dann nochmal ein altes Progg ausgegraben, das auch den Prescaler wert umschaltet und das funzt einwandfrei...

Code:

---

'16-bit Timer als Rechteckgenerator
'mit Voreinstellung
'Achtung: bei kleinen Zeiten ist die Zeit zur Rettung der Register nicht zu vernachlässigen
'Nosave bringt, wenn möglich eine starke Verbesserung
'$sim
$regfile = "8515DEF.DAT"
$crystal = 4000000

'Hier werden die Variablen deklariert
Dim Zaehler As Byte , Timervorgabe1 As Word , A As Byte

'Hier werden die Variablen definiert

Readeeprom A , 1                                            'read byte back
If A = 255 Then
  A = 10
End If
Zaehler = 0


'Hier wird der Timer und der Teiler festgelegt
Config Timer0 = Timer , Prescale = 1024
Config Timer1 = Timer , Prescale = 8

'Der Portc wird als Ausgang programmiert
Config Pinc.0 = Output
Config Pinc.2 = Output
Config Pinc.3 = Output
Config Pinc.4 = Output
Config Pinc.5 = Output
Config Pinc.7 = Output
Config Pind.7 = Input                                      'Taster_up
Config Pind.6 = Input                                      'Taster_down
Config Pind.4 = Input                                      'Taster_store

Config Debounce = 40                                        'Tastenentprellung 25ms
'Interne Pullup Widerstände einschalten
Portd.7 = 1
Portd.6 = 1
Portd.4 = 1

'Hier geben wir der Definition einen schöneren Namen
Led0 Alias Portc.0
Led2 Alias Portc.2
Led3 Alias Portc.3
Led4 Alias Portc.4
Led5 Alias Portc.5
Led7 Alias Portc.7


'Hier wird das Unterprogramm festgelegt, das
'in dem eingestellten Intervall aufgerufen wird
On Timer0 Timer0_irq
On Timer1 Timer1_irq

'Diese Vorgabe wurde berechnet um die genaue Intervallfrequenz zu erreichen
Const Timervorgabe0 = 61
Timervorgabe1 = 45536

'Hier werden die Timer aktiviert
Enable Timer1
Enable Timer0
Enable Interrupts

'Hier ist die Programmhauptschleife
Do
 'Hauptprogramm
  Gosub Taster_up
  Gosub Taster_down
  Gosub Taster_store

  If A = 0 Then
  A = 1
  Elseif A = 1 Then
  Config Timer1 = Timer , Prescale = 256                  'Ausgabe 0,5Hz
  Timervorgabe1 = 49911
  Elseif A = 2 Then
  Config Timer1 = Timer , Prescale = 256                  'Ausgabe 1Hz
  Timervorgabe1 = 57724
  Elseif A = 3 Then
  Config Timer1 = Timer , Prescale = 256                  'Ausgabe 1,5Hz
  Timervorgabe1 = 60328
  Elseif A = 4 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 2Hz
  Timervorgabe1 = 49911
  Elseif A = 5 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 2,5Hz
  Timervorgabe1 = 53036
  Elseif A = 6 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 3Hz
  Timervorgabe1 = 55119
  Elseif A = 7 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 3,5Hz
  Timervorgabe1 = 56607
  Elseif A = 8 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 4Hz
  Timervorgabe1 = 57724
  Elseif A = 9 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 4,5Hz
  Timervorgabe1 = 58592
  Elseif A = 10 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 5Hz
  Timervorgabe1 = 59286
  Elseif A = 11 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 5,5Hz
  Timervorgabe1 = 59854
  Elseif A = 12 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 6Hz
  Timervorgabe1 = 60327
  Elseif A = 13 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 6,5Hz
  Timervorgabe1 = 60728
  Elseif A = 14 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 7Hz
  Timervorgabe1 = 61072
  Elseif A = 15 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 7,5Hz
  Timervorgabe1 = 61369
  Elseif A = 16 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 8Hz
  Timervorgabe1 = 61630
  Elseif A = 17 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 8,5Hz
  Timervorgabe1 = 61859
  Elseif A = 18 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 9Hz
  Timervorgabe1 = 62064
  Elseif A = 19 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 9,5Hz
  Timervorgabe1 = 62247
  Elseif A = 20 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 10Hz
  Timervorgabe1 = 62411
  Elseif A = 21 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 10,5Hz
  Timervorgabe1 = 62559
  Elseif A = 22 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 11Hz
  Timervorgabe1 = 62695
  Elseif A = 23 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 11,5Hz
  Timervorgabe1 = 62818
  Elseif A = 24 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 12Hz
  Timervorgabe1 = 62932
  Elseif A = 25 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 12,5Hz
  Timervorgabe1 = 63036
  Elseif A = 26 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 13Hz
  Timervorgabe1 = 63132
  Elseif A = 27 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 13,5Hz
  Timervorgabe1 = 63221
  Elseif A = 28 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 14Hz
  Timervorgabe1 = 63304
  Elseif A = 29 Then
  Config Timer1 = Timer , Prescale = 64                    'Ausgabe 14,5Hz
  Timervorgabe1 = 63381
  Elseif A = 30 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 15Hz
  Timervorgabe1 = 48869
  Elseif A = 31 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 15,5Hz
  Timervorgabe1 = 49407
  Elseif A = 32 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 16Hz
  Timervorgabe1 = 49911
  Elseif A = 33 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 16,5Hz
  Timervorgabe1 = 50384
  Elseif A = 34 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 17Hz
  Timervorgabe1 = 50830
  Elseif A = 35 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 17,5Hz
  Timervorgabe1 = 51250
  Elseif A = 36 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 18Hz
  Timervorgabe1 = 51647
  Elseif A = 37 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 18,5Hz
  Timervorgabe1 = 52023
  Elseif A = 38 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 19Hz
  Timervorgabe1 = 52378
  Elseif A = 39 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 19,5Hz
  Timervorgabe1 = 52716
  Elseif A = 40 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 20Hz
  Timervorgabe1 = 53036
  Elseif A = 41 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 20,5Hz
  Timervorgabe1 = 53341
  Elseif A = 42 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 21Hz
  Timervorgabe1 = 53631
  Elseif A = 43 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 21,5Hz
  Timervorgabe1 = 53908
  Elseif A = 44 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 22Hz
  Timervorgabe1 = 54172
  Elseif A = 45 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 22,5Hz
  Timervorgabe1 = 54425
  Elseif A = 46 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 23Hz
  Timervorgabe1 = 54666
  Elseif A = 47 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 23,5Hz
  Timervorgabe1 = 54897
  Elseif A = 48 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 24Hz
  Timervorgabe1 = 55119
  Elseif A = 49 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 24,5Hz
  Timervorgabe1 = 55332
  Elseif A = 50 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 25Hz
  Timervorgabe1 = 55536
  Elseif A = 51 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 25,5Hz
  Timervorgabe1 = 55732
  Elseif A = 52 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 26Hz
  Timervorgabe1 = 55920
  Elseif A = 53 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 26,5Hz
  Timervorgabe1 = 56102
  Elseif A = 54 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 27Hz
  Timervorgabe1 = 56277
  Elseif A = 55 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 27,5Hz
  Timervorgabe1 = 56445
  Elseif A = 56 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 28Hz
  Timervorgabe1 = 56607
  Elseif A = 57 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 28,5Hz
  Timervorgabe1 = 56764
  Elseif A = 58 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 29Hz
  Timervorgabe1 = 56915
  Elseif A = 59 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 29,5Hz
  Timervorgabe1 = 57061
  Elseif A = 60 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 30Hz
  Timervorgabe1 = 57203
  Elseif A = 61 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 30,5Hz
  Timervorgabe1 = 57339
  Elseif A = 62 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 31Hz
  Timervorgabe1 = 57471
  Elseif A = 63 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 31,5hz
  Timervorgabe1 = 57599
  Elseif A = 64 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 32Hz
  Timervorgabe1 = 57723
  Elseif A = 65 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 32,5Hz
  Timervorgabe1 = 57844
  Elseif A = 66 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 33Hz
  Timervorgabe1 = 57960
  Elseif A = 67 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 33,5Hz
  Timervorgabe1 = 58073
  Elseif A = 68 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 34Hz
  Timervorgabe1 = 58183
  Elseif A = 69 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 34,5Hz
  Timervorgabe1 = 58289
  Elseif A = 70 Then
  Config Timer1 = Timer , Prescale = 8                    'Ausgabe 34,5Hz
  Timervorgabe1 = 58393

  End If

Loop

Taster_store:
'Debounce Pina.0 , 1 , Pr 'try this for branching when high(1)
  Debounce Pind.4 , 1 , Aus_store , Sub                    'Taster offen
  Debounce Pind.4 , 0 , Ein_store , Sub                    'Taster gedrückt

Return

Taster_up:
'Debounce Pina.0 , 1 , Pr 'try this for branching when high(1)
  Debounce Pind.7 , 1 , Aus_up , Sub                        'Taster offen
  Debounce Pind.7 , 0 , Ein_up , Sub                        'Taster gedrückt

Return

Taster_down:
'Debounce Pina.0 , 1 , Pr 'try this for branching when high(1)
  Debounce Pind.6 , 1 , Aus_down , Sub                      'Taster offen
  Debounce Pind.6 , 0 , Ein_down , Sub                      'Taster gedrückt

Return

Ein_store:
  Led7 = 0
  Writeeeprom A , 1                                        'store at first position

Return

Aus_store:
  Led7 = 1
Return

'Unterprogramm Rückstellen mit Taste Down
Ein_down:
  If A > 0 Then
      Decr A
  Else
      A = 255
  End If

Return

'Unterprogramm Ausgaberoutine Taste Down
Aus_down:

Return

'Unterprogramm Rückwärtszählen mit Taste Up
Ein_up:
  If A <= 255 Then
  Incr A
  Else
  A = 0
  End If

Return

'Unterprogramm Ausgaberoutine Taste Up
Aus_up:

Return

'Dies ist der Programmteil, der in dem gewählten
'Intervall aufgerufen wird
Timer0_irq:
  Timer0 = Timervorgabe0

'Beliebige IRQ-Routine
'Dabei sollte man darauf achten das diese nicht mehr Zeit
'benötigt, als das Intervall zuläßt
  If Zaehler < 100 Then
      Toggle Led4
      Incr Zaehler
  Elseif Zaehler > 100 And Zaehler < 255 Then
      Led4 = 1
      Incr Zaehler
  Elseif Zaehler < 255 Then
      Incr Zaehler
  Else
      Toggle Led3
      Zaehler = 0
  End If

'Der Zustand der LED wir umgekehrt, wodurch sich blinken in der halben Frequenz ergibt
'Hohe Frequenzen sind natürlich nicht mehr sichtbar
  Toggle Led2

  Return

Timer1_irq:
  Timer1 = Timervorgabe1

'Hier könnte nun ihre beliebige IRQ-Routine stehen
'Dabei sollte man darauf achten das diese nicht mehr Zeit
'benötigt, als das Intervall zuläßt

'Der Zustand der LED wir umgekehrt, wodurch sich blinken in der halben Frequenz ergibt
'Hohe Frequenzen sind natürlich nicht mehr sichtbar
  Toggle Led0

  Return

---

Jetzt kapier ich gar nix mehr...da muss irgendwo nen Fehler hängen...sehs abba net

Zitat:

---

Zitat von ACsenf

Mich würde es brennend interessieren, warum das nicht klappt??? Vielleicht packt mal jemand das programm auf seinen Chip.

---

Packe mal die beiden ISRs ganz an das Ende des Codes. Soweit ich mich dunkel erinnern kann, gab es bei ISRs "mittendrin" bei mir schon mal Schwierigkeiten. Irgendwo steht diese Empfehlung auch in den Tiefen der Bascom Dokumentationen. Ist aber ein Schuss ins Blaue.

Apropos Ende: Ein END am Ende Der Programmhauptschleife kann auch nicht schaden.

Ich kann Dir nur versichern, daß mein gepostetes Beispiel und auch einige andere in denen ich Prescale umkonfiguriere sowohl auf M8, M168, M32 und M128 ohne Schwierigkeiten korrekt laufen. An einem Fehler im Compiler liegt es also mit Sicherheit nicht.

Deinen Code kann ich bei mir im Augenblick nicht ausprobieren, ist alles belegt.

Grüße
Henrik

Hi Henrik!

Habs korrigiert. Funktioniert trotzdem nicht. D.h. die Version mit schreiben inTCCR1B übernimmts nicht. Und nach deinem Beispiel kommen nun nur noch mHz raus...ich glaube ich gebs auf...

Zitat:

---

Zitat von ACsenf

Hi Henrik!

Habs korrigiert. Funktioniert trotzdem nicht. D.h. die Version mit schreiben inTCCR1B übernimmts nicht. Und nach deinem Beispiel kommen nun nur noch mHz raus...ich glaube ich gebs auf...

---

Also wie Du siehst, geht es ja bei richtiger Programmierung. Mir fallen in Deinem Code (auch wenn er ohne meckern compiliert wird) reichlich syntaktische Fehler auf. Subs ohne leere Klammern, wenn keine Parameter übergeben werden, gehöhren mit dazu. Auch lädt der Code mit seiner leicht spaghettiförmigen Struktur nicht eben zur Untersuchung ein :-).

Sind denn Deine Stacks ausreichend bemessen? Setze alle drei mal gleich auf 128. Du gehst nicht gerade schonend mit den Ressourcen um.

Fang doch mal klein an, meide zunächst Single, beschränke Dich auf das Wesentliche. Dann schrittweise erweitern und immer wieder im realen System, nicht im Simulator zwischenprüfen.

Sonst wird das nix. Und schimpfe nicht auf Bascom, das findet nicht jeden Fehler, den der Programmierer macht. Andere Hochsprachen auch nicht.

Grüße
Henrik

Hmm ... ich hab eigentlich was gegen Basecom und werde daher hier sicherlich nicht die Lösung in nem Basiclisting liefern. Allerdings hab ich mal nen paar Denkansätze zu diesem Problem.

1. generell benötigt man nur einen Timer für dieses Problem.
2. nehmen könnte man z.B. den Timer 1 des Mega 32 (so einer sollte doch genommen werden oder)
3. diesen Timer betreibt man in dem Fall wohl am bestem im Mode 4 - CTC -> Datenblatt Seite 107
4. Die Frequenz wird in dem Fall über das Register OCR1A geändert ... höherer Wert -> kleinere Frequenz
5. Eine Bereichswahl wäre z.B. über den Prescaler möglich ... höherer Wert -> kleinerer Frequenzbereich
6. Das Tastverhältniss würde ich in einem Register (einer Variable) speichern .. für deinen Fall dürfte 128 der richtige Wert sein.
7. die 3 Offsetwerte für die Phasenverschiebung in 3 weitere Register ( Variablen)
8. des weiteren ist noch eine Variable als PWM Zähler notwendig ... (Wertebereich: 8 Bit)
9. in der ISR des Timers wir die PWM inklusive der Offsets verarbeitet
10. in der Hauptschleife werden die Frequenz, der Frequenzbereich, das Tastverhältniss sowie die Offsetwerte angepasst.
11. ansonsten kann ich nur empfehlen mal nen Blick in den Angehängten PAP für die ISR zu werfen.

Grüße, da Hanni.

Hallo Hanni!

Bin gerade an der Soft-PWM dran.

Danke erstmal für deine Ideen! Klar braucht man nur einen Timer!
Wie ich den Timer konfiguriere, denke ich weiß ich. Allerdings hängt der PWM-Zähler in unmittelbarem Zusammenhang mit der gewünschten PWM-Frequenz. Wenn man eine Soft PWM macht gibt man nicht mit dem Timer eine Frequenz vor und macht dann nen Zähler dazu...
Man wählt eine Timerauflösung und inkrementiert einen PWM- Zähler, durch die Timerauflösung und die gewünschte Frequenz ergibt sich die mögliche Schrittweite, oder liege ich da falsch?
In deinem Struktogramm ist grundlegender Denkfehler, wenn man den Offset jedesmal dazuaddiert, erhältst du 4 verschiedene Frequenzen, ausserdem muss der PWM Zähler weiterzählen können als nötig, wodurch es auch noch Probleme gibt. Aber die Idee an sich hat mir den entscheidenden Tipp gegeben :)
Der Offset muss dazu verwendet werden um die 3 anderen PWM-Zähler mit einem Delay zu starten.
Wenns klappt hau ich heut abend mal den Code hier rein.

Gruß

Sven

Zitat:

---

Zitat von ACsenf

In deinem Struktogramm ist grundlegender Denkfehler, wenn man den Offset jedesmal dazuaddiert, erhältst du 4 verschiedene Frequenzen

---

nicht 4 Frequenzen sondern 4 verschiedenene Puls Pausenverhälnisse ... ist mir auch grad beim durchguggn noch mal klar geworden ...

Aber ich freue mich, das es dir zumindest den Denkanstoß gegeben hat, der dir fehlte :D

Zitat:

---

Zitat von ACsenf

Allerdings hängt der PWM-Zähler in unmittelbarem Zusammenhang mit der gewünschten PWM-Frequenz

---

Ja und nein ... der PWM Zähler beeinflusst nur die Auflösung der PWM, also in wievielen Schritten du die einstellen kannst und hat damit sicherlich (allerdings nur indirekt) einen Einfluss auf die Frequenz.