READ/de
From MCS Wiki AVR
< READ(Difference between revisions)
(→Remarks) |
(→Example) |
||
| (One intermediate revision by one user not shown) | |||
| Line 41: | Line 41: | ||
<span style="font-family: Arial;"> </span> | <span style="font-family: Arial;"> </span> | ||
| − | = <span class="f_Header"> | + | = <span class="f_Header">Siehe auch</span> = |
[[DATA]] , [[RESTORE]] | [[DATA]] , [[RESTORE]] | ||
| Line 49: | Line 49: | ||
<span style="font-family: Arial;"> </span> | <span style="font-family: Arial;"> </span> | ||
| − | = <span class="f_Header"> | + | = <span class="f_Header">Beispiel</span> = |
<br/><source lang="bascomavr"> | <br/><source lang="bascomavr"> | ||
| Line 61: | Line 61: | ||
'----------------------------------------------------------------------------------------- | '----------------------------------------------------------------------------------------- | ||
| − | $regfile = "m48def.dat" ' | + | $regfile = "m48def.dat" ' Mikrocontroller |
| − | $crystal = 4000000 ' | + | $crystal = 4000000 ' Taktfrequenz |
| − | $baud = 19200 ' | + | $baud = 19200 ' Baudrate |
$hwstack = 32 ' default use 32 for the hardware stack | $hwstack = 32 ' default use 32 for the hardware stack | ||
$swstack = 10 ' default use 10 for the SW stack | $swstack = 10 ' default use 10 for the SW stack | ||
| Line 71: | Line 71: | ||
Dim S As String * 15 | Dim S As String * 15 | ||
Dim L As Long | Dim L As Long | ||
| − | Restore Dta1 ' | + | Restore Dta1 'Zeiger auf gespeicherte Daten setzen |
| − | For Count = 1 To 3 ' | + | For Count = 1 To 3 'Für jedes Datenelement |
Read B1 : Print Count ; " " ; B1 | Read B1 : Print Count ; " " ; B1 | ||
Next | Next | ||
| − | Restore Dta2 ' | + | Restore Dta2 'Zeiger aud Datentabelle setzen |
| − | For Count = 1 To 2 ' | + | For Count = 1 To 2 'Für jedes Datenelement |
Read A : Print Count ; " " ; A | Read A : Print Count ; " " ; A | ||
Next | Next | ||
| Line 106: | Line 106: | ||
Dta3: | Dta3: | ||
Data "Hello" , "World" | Data "Hello" , "World" | ||
| − | ' | + | 'Zu beachten: Integer-Werte (>255 or <0) müssen mit einem %-Zeichen enden. |
| − | ' | + | 'Auch zu beachten: Der Datentyp muss dem Datentyp der Variablen im READ-Befehl entsprechen. |
| − | + | ||
Dta4: | Dta4: | ||
Data 123456789& | Data 123456789& | ||
| − | ' | + | 'Zu beachten: LONG-Werte müssen mit einem &-Zeichen enden. |
| − | ' | + | 'Auch zu beachten: Der Datentyp muss dem Datentyp der Variablen im READ-Befehl entsprechen. |
| − | + | ||
</source><br/>{{Languages}} | </source><br/>{{Languages}} | ||
[[Category:BASCOM Language Reference/de]] | [[Category:BASCOM Language Reference/de]] | ||
Latest revision as of 23:41, 5 March 2013
Contents |
Funktion
Liest einen Wert und weist ihn der Variablen zu.
Syntax
READ var
Anmerkungen
|
var |
Variable der der Wert zugewiesen wird. |
Es ist am besten, die DATA Zeilen am Ende des Programms zu schreiben.
Siehe auch
Beispiel
'----------------------------------------------------------------------------------------- 'name : readdata.bas 'copyright : (c) 1995-2005, MCS Electronics 'purpose : demo : READ,RESTORE '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 Dim A As Integer , B1 As Byte , Count As Byte Dim S As String * 15 Dim L As Long Restore Dta1 'Zeiger auf gespeicherte Daten setzen For Count = 1 To 3 'Für jedes Datenelement Read B1 : Print Count ; " " ; B1 Next Restore Dta2 'Zeiger aud Datentabelle setzen For Count = 1 To 2 'Für jedes Datenelement Read A : Print Count ; " " ; A Next Restore Dta3 Read S : Print S Read S : Print S Restore Dta4 Read L : Print L 'long type 'demonstration of readlabel Dim W As Iram Word At 8 Overlay ' location is used by restore pointer 'note that W does not use any RAM it is an overlayed pointer to the data pointer W = Loadlabel(dta1) ' loadlabel expects the labelname Read B1 Print B1 End Dta1: Data &B10 , &HFF , 10 Dta2: Data 1000% , -1% Dta3: Data "Hello" , "World" 'Zu beachten: Integer-Werte (>255 or <0) müssen mit einem %-Zeichen enden. 'Auch zu beachten: Der Datentyp muss dem Datentyp der Variablen im READ-Befehl entsprechen. Dta4: Data 123456789& 'Zu beachten: LONG-Werte müssen mit einem &-Zeichen enden. 'Auch zu beachten: Der Datentyp muss dem Datentyp der Variablen im READ-Befehl entsprechen.
| Languages | English • Deutsch |
|---|