Hallo,

Ich beschäftige mich noch nicht allzulange mit AVR´s und finds ganz interessant. Ich habe im net eine .doc Datei gefunden "AVR_HowTo.docx". Dort sind lektionen und bestimmte Dinge erklärt.

Habe nun Folgen Code aus dem Tutorial und wollte diesen an einen Tiny2313 anpassen.

Code:
$regfile = "8535def.dat"
$crystal = 4000000

config portb = input
portb.0 = 1                   'Pullup
portb.1 = 1                   'Pullup


config timer2 = PWM , PRESCALE = 1 , PWM = ON , COMPARE PWM = CLEAR UP
OCr2 = 100                    'Anfangswert auf 100/256
enable timer2

do
       debounce Pinb.0 , 0 , Increment , sub
       debounce Pinb.1 , 0 , Decrement , sub
loop

sub increment
  if ocr2 < 246 then
      ocr2 = ocr2 + 10
  end if
end sub

sub decrement
  if ocr2 > 9 then
      ocr2 = ocr2 - 10
  end if
end sub
Hier der Klagliche versuch mit dem geänderten Code von mir.

Code:
$regfile = "2313def.dat"
$crystal = 8000000

config portb = input
portb.0 = 1                   'Pullup
portb.1 = 1                   'Pullup


Config Timer1 = Pwm , Prescale = 1 , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up ,
Ocr1a = 100                                                 'Anfangswert auf 100/256
Enable Timer1

do
       debounce Pinb.0 , 0 , Increment , sub
       debounce Pinb.1 , 0 , Decrement , sub
loop

sub increment
  If Ocr1a < 246 Then
      Ocr1a = Ocr1a + 10
  end if
end sub

sub decrement
  If Ocr1a > 9 Then
      Ocr1a = Ocr1a - 10
  end if
end sub
Das mit den Subroutinen ist mir noch ein bischen schleierhaft und was der Compiler mit "Declare Sub"? meint? Dazu wollte ich das Register von "OCR2" auf "OCR1A" ändern, denn nur diesen ausganz will ich per Verändern.

Vllt schaut sich jemand den Code an und kann mir vllt weiterhelfen?