Bascom Error 86 und 126

**YaNnIk** · 24.05.2009, 15:29

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

**Tretsch** · 24.05.2009, 16:05

Hi,
also warum der mit dem Timer probleme hat weiß ich nicht, hab noch nie was mit nem Timer gemacht. Der andere Fehler liegt daran das du bei der letzten For-Schleife das "Next" vergessen hast.
Next expected = Next erwartet. Also irgendwo fehlt ihm eines. Und wenn ich das gerade so schnell gesehen habe ist es die letzte Schleife.

MfG Tretsch

**YaNnIk** · 24.05.2009, 16:19

Oh Okay!! Das mit dem Next war schonmal richtig..

Ich habe mal die Zeile mit dem Timer0 gelöscht.. Dann gabs keine Error Meldungen mehr.. Dann wieder reingemacht.. Und wieder den gleichen Error 86..

Hoffentlich weiß da einer Rat...

Mfg Yannik