Quelltext anzeigen

= <span class="f_Header">Funktion</span> =

Reads the content from the DATA EEPROM and stores it into a variable.

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Syntax</span> =

<span class="f_Syntax">READEEPROM</span>&nbsp;var , address

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Remarks</span> =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 81px; border: 1px solid rgb(0, 0, 0);" | 
Var

| valign="top" width="100%" style="width: 514px; border: 1px solid rgb(0, 0, 0);" | 
The name of the variable that must be stored

|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 81px; border: 1px solid rgb(0, 0, 0);" | 
Address

| valign="top" width="100%" style="width: 514px; border: 1px solid rgb(0, 0, 0);" | 
The address in the EEPROM where the data must be read from.

|}
</div>
<span style="font-family: Arial;">&nbsp;</span>

This statement is provided for backwards compatibility with BASCOM-8051.

You can also use the ERAM variable instead of READEEPROM&nbsp;:

<span style="font-family: Arial;">&nbsp;</span>

Dim V as Eram Byte 'store in EEPROM

Dim B As Byte &nbsp;'normal variable

B = 10

V = B &nbsp; 'store variable in EEPROM

B = V &nbsp; 'read from EEPROM

<span style="font-family: Arial;">&nbsp;</span>

When you use the assignment version, the data types must be equal!

According to a data sheet from ATMEL, the first location in the EEPROM with address 0, can be overwritten during a reset so don't use it.

<span style="font-family: Arial;">&nbsp;</span>

You may also use ERAM variables as indexes. Like&nbsp;:

Dim ar(10) as Eram Byte

<span style="font-family: Arial;">&nbsp;</span>

When you omit the address label in consecutive reads, you must use a new READEEPROM statement. It will not work in a loop:

<span style="font-family: Arial;">&nbsp;</span>

Readeeprom B , Label1

Print B

<span style="font-family: Arial;">&nbsp;</span>

Do

Readeeprom B

Print B Loop

Until B = 5

<span style="font-family: Arial;">&nbsp;</span>

This will not work since there is no pointer maintained. The way it will work&nbsp;:

<span style="font-family: Arial;">&nbsp;</span>

ReadEEprom B , Label1 ' specify label

ReadEEPROM B ' read next address in EEPROM

ReadEEPROM B ' read next address in EEPROM

&nbsp;

OR

&nbsp;

Dim Next_Read as Integer

Dim In_byte as Byte

Dim Eerom_position as Integer

&nbsp;

Eerom_position = 20 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Set the start read point in eerom

For Next_Read = 1 To 5 Step 1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Set up the bytes to be read from eeprom

Readeeprom In_byte , eeprom_position &nbsp; &nbsp; &nbsp; &nbsp; ' Use a variable as the pointer to eeprom location

Call another_sub_routine &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'

Incr Chr_pos_font &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Now set pointer for next eeprom data byte

Next



&nbsp;

<span style="font-family: Arial;">&nbsp;</span>

In the XMEGA, you need to set the mode to mapped&nbsp;:&nbsp;[[CONFIG EEPROM|CONFIG EEPROM]]&nbsp;= MAPPED.

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Siehe auch</span> =

[[WRITEEEPROM]]&nbsp;,&nbsp;[[$EEPROM]]

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Assembler</span> =

NONE

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Beispiel</span> =

<br/><source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : eeprom2.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows how to use labels with READEEPROM
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' BAudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
 
'Zunächst einmal Variablen dimensionieren:
Dim B As Byte
Dim Yes As String * 1
 
'Benutzung von readeeprom und writeeprom :
'readeeprom var, address
 
'Eine neue Option ist, ein Label für die Adresse zu benutzen.
'Da die Daten in einer externen Datei sind und nicht im Programm sollten die EEPROM Daten
'als erstes spezifiziert werden. Dies steht im Gegensatz zu den normalen DATA Zeilen welche
'am Endes des Programms spezifiziert werden!!
 
'Zunächst dem Compiler mitteilen, dass wir das EEPROM nutzen wollen um die Daten zu speichern:
$eeprom
 
'Die erzeugte EEP-Datei ist eine Binär-Datei.
'Benutzen Sie $EEPROMHEX um eine Intel Hex-Datei für die Benutzung mit AVR Studio zu erzeugen.
'$eepromhex
 
'LAbel festlegen:
Label1:
Data 1 , 2 , 3 , 4 , 5
Label2:
Data 10 , 20 , 30 , 40 , 50
 
'Zurückschalten zu normalen DATA-Zeilen für den Fall, dass solche verwendet werden:
$data
 
'Der Code oben erzeugt keinen richtigen Object-Code.does not generate real object code
 
'Benutzung der neuen Label Option
Readeeprom B , Label1
Print B 'Ausgabe einer 1
'Nachfolgende Reads lesen die nächsten Werte
'Beim ersten Mal muss das Label angegeben werden damit die Startadresse bekannt ist.
Readeeprom B
Print B 'Ausgabe einer 2
 
Readeeprom B , Label2
Print B 'Ausgabe: 10
Readeeprom B
Print B 'Ausgabe: 20
 
'Funktioniert auch beim Schreiben:
'aber weil es Überschneidungen mit dem Programm geben kann fügen wir hier ein Stop ein.
Input "Ready?" , Yes
B = 100
Writeeeprom B , Label1
B = 101
Writeeeprom B
 
'read it back
Readeeprom B , Label1
Print B 'Ausgabe: 100
'Nachfolgende Reads nächsten den nächsten Wert
'Beim ersten Mal muss das Label angegeben werden damit die Startadresse bekannt ist.
Readeeprom B
Print B 'Ausgabe: 101
End
 
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference/de]]