Hie Leute,

Ich habe gerade mal ein Programm für eine Beleuchtungssteuerung geschrieben :


Code:
$regfile = "attiny2313.dat"
$crystal = 4000000

Config Portb = Output
Config Portd.0 = Input
Config Portd.1 = Input
Config Portd.2 = Input
Config Portd.5 = Output

Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
Enable Timer0
Enable Timer1
Start Timer0
Start Timer1

Dim Hochdimmen As Byte
Dim Hochdimmen2 As Byte
Dim Hochdimmen3 As Byte
Dim Hochdimmen4 As Byte
Dim Hochdimmen5 As Byte
Dim Runterdimmen As Byte
Dim Runterdimmen2 As Byte
Dim Runterdimmen3 As Byte
Dim Runterdimmen4 As Byte
Dim Runterdimmen5 As Byte


Helligkeit Alias Pwm0a
Helligkeit2 Alias Pwm0b
Helligkeit3 Alias Pwm1a
Helligkeit4 Alias Pwm1b

Do

   If Portd.0 = 1 Then

      For Hochdimmen = 1 To 255
      Helligkeit = Hochdimmen

      Next Hochdimmen

      Wait 10

      For Runterdimmen = 1 To 255
      Helligkeit = 255 - Runterdimmen

      Next Runterdimmen

   End If

   If Portd.1 = 1 Then

      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0
      Waitms 100
      Portb.0 = 1
      Waitms 100
      Portb.0 = 0

   End If

   If Portd.2 = 1 Then

      For Hochdimmen2 = 1 To 255
      Helligkeit2 = Hochdimmen2

      Next Hochdimmen2

      Waitms 40

      For Runterdimmen2 = 1 To 100
      Helligkeit2 = 255 - Runterdimmen2

      Next Runterdimmen2

      Waitms 100

      For Hochdimmen3 = 1 To 255
      Helligkeit3 = Hochdimmen3

      Next Hochdimmen3

      Waitms 40

      For Runterdimmen3 = 1 To 100
      Helligkeit3 = 255 - Runterdimmen3

      Next Runterdimmen3

      Waitms 100

      For Hochdimmen4 = 1 To 100
      Helligkeit4 = Hochdimmen4

      Next Hochdimmen4

      For Hochdimmen5 = 100 To 255
      Helligkeit2 = Hochdimmen5
      Helligkeit3 = Hochdimmen5
      Helligkeit4 = Hochdimmen5

      Next Hochdimmen

      Wait 10

      For Runterdimmen5 = 1 To 255
      Helligkeit2 = 255 - Runterdimmen5
      Helligkeit3 = 255 - Runterdimmen5
      Helligkeit3 = 255 - Runterdimmen5

   End If

Loop

End
Wenn ich jetzt auf "Compile program" klicke, steht unten in diesem Kasten :

Error : 86 Line : 10 Invalid parameter for CONFIG parameter or value [8] , in File : C:\PROGRAMME\MCS ELECTRONICS\BASCOM-AVR\SCHULPROJEKT.BAS

Error : 126 Line : 0 NEXT expected , in File :


Nun hab ich überhauptkeine Ahnung, was ich falsch gemacht habe...

Und vorallem in Line : 10 steht das gleiche wie in Line : 11 nur halt in 10 ist Timer0 und in 11 ist Timer1..

Und Line : 0 irritiert mich auch ein wenig.. Es gibt doch überhauptkeine Line : 0 ??!!


Hoffentlich könnt ihr mir helfen und mir sagen, was ich falsch gemacht habe....


Mfg Yannik