LED-Lichtsensor

ATMega-Controller in BASIC programmieren

LED-Lichtsensor

Postby warafu » Mon Jan 26, 2015 5:38 pm

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
warafu
 
Posts: 2
Joined: Mon Jan 26, 2015 5:24 pm

Re: LED-Lichtsensor

Postby ag » Tue Jan 27, 2015 7:49 am

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,
Ag
ag
 
Posts: 531
Joined: Thu Jan 02, 2014 10:37 am

Re: LED-Lichtsensor

Postby warafu » Tue Jan 27, 2015 10:01 am

Ich habe den Fehler gefunden: ich hatte vor dem Baud=9600 ein $ stehen. Ohne $ gibt es keine Fehlermeldung.
Gruß
Volker
warafu
 
Posts: 2
Joined: Mon Jan 26, 2015 5:24 pm


Return to BASCOM-AVR-Kurs

Who is online

Users browsing this forum: No registered users and 1 guest