Page 1 of 1

LED-Lichtsensor

PostPosted: Mon Jan 26, 2015 5:38 pm
by warafu
Hallo,
ich habe das Programm LED-Lichtsensor von der Buch-CD nicht verändert.
Beim compilieren kommt immer folgende Fehlermeldung:
Error: 202 Line: 1 .EQU not found, probably using functions that are not supported by the selected chip [UBRR]
Error: 202 Line: 1 .EQU not found, probably using functions that are not supported by the selected chip [UCR]
Was kann ich machen?

Volker

Re: LED-Lichtsensor

PostPosted: Tue Jan 27, 2015 7:49 am
by ag
Hallo Volker,

ich finde auf mein CD zur Basiskurs BASCOM-AVR unter Kap. 4 Unterverzeichnis T13LEDSensor das Programm LEDSensor.bas. Die Zeile 1 enthält kein .EQU:

Code: Select all
'LED-Sensorleuchte
'K an PB4
'A über 1 k an PB3
'LED leuchtet bei Dunkelheit

$regfile = "attiny13.dat"
$crystal = 1200000
Baud = 9600
Dim D As Integer
Dim N As Byte
Dim Mini As Byte
Dim Maxi As Byte
Dim T As Integer

'Baud = 9600
Config Adc = Single , Prescaler = Auto
Start Adc
Open "comb.1:9600,8,n,1,INVERTED" For Output As #1

Do
  N = 0
  Ddrb.3 = 1
  Portb.3 = 0
  Ddrb.4 = 0
  Portb.4 = 1
  'Laden
  Portb.4 = 1
  'Freigeben
  Portb.4 = 0
  Do
    N = N + 1
    If N > 11 Then
      N = 11
      Ddrb.4 = 1
    End If
    Waitms 1
  Loop Until Pinb.4 = 0
  Put #1 , N
  If N > 10 Then
    Ddrb.3 = 1
    Portb.3 = 1
    Ddrb.4 = 1
    Portb.4 = 0
    Waitms 1000
  End If
  If N < 11 Then
    Ddrb.3 = 1
    Portb.3 = 0
    Ddrb.4 = 0
    Portb.4 = 0
  End If
  Waitms 50
Loop
End


Bitte entweder näher spezifizieren, welches Buch und welches Buch-CD du meinst und wo darin das Programm sich befindet, oder aber poste dein Code hier damit wir wissen um was es sich handelt.

Viele Grüße,

Re: LED-Lichtsensor

PostPosted: Tue Jan 27, 2015 10:01 am
by warafu
Ich habe den Fehler gefunden: ich hatte vor dem Baud=9600 ein $ stehen. Ohne $ gibt es keine Fehlermeldung.
Gruß
Volker