1WSEARCHFIRST/de

From MCS Wiki AVR
< 1WSEARCHFIRST(Difference between revisions)
Jump to: navigation, search
(→Siehe auch)
 
(5 intermediate revisions by one user not shown)
Line 17: Line 17:
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
  
−
= <span class="f_Header">Remarks</span><br/> =
+
= <span class="f_Header">Beschreibung</span><br/> =
 
<div style="text-align: left;  text-indent: 0px;  padding: 0px 0px 0px 0px;  margin: 0px 0px 0px 4px">
 
<div style="text-align: left;  text-indent: 0px;  padding: 0px 0px 0px 0px;  margin: 0px 0px 0px 4px">
 
{| style="border: solid 2px #000000;  border-spacing:0px;  border-collapse: collapse" border="1" cellpadding="1" cellspacing="0" width="604"
 
{| style="border: solid 2px #000000;  border-spacing:0px;  border-collapse: collapse" border="1" cellpadding="1" cellspacing="0" width="604"
Line 32: Line 32:
  
 
| style="width:100%;  border: solid 1px #000000" valign="top" width="100%" |  
 
| style="width:100%;  border: solid 1px #000000" valign="top" width="100%" |  
−
Der Name des PORT PINx Registers wie z.B. PINB oder PIND..
+
Der Name des PORT PINx Registers wie z.B. PINB oder PIND.
  
 
|- style="text-align:left;  vertical-align:top"
 
|- style="text-align:left;  vertical-align:top"
Line 53: Line 53:
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
  
−
I would advice to use a byte array as shown in the example.
 
 
Am besten ist es, ein Byte-Array zu verwenden, wie im Code-Beispiel gezeigt.  
 
Am besten ist es, ein Byte-Array zu verwenden, wie im Code-Beispiel gezeigt.  
  
Line 98: Line 97:
 
= <span class="f_Header">Siehe auch</span><br/> =
 
= <span class="f_Header">Siehe auch</span><br/> =
  
−
[[1WWRITE]] , [[1WRESET]] , [[1WREAD|1WREAD ]], [[1WSEARCHNEXT]] , [[1WIRECOUNT]], [[Using the 1 WIRE protocol|Using the 1wire protocol]]
+
[[CONFIG 1WIRE]] , [[1WWRITE]] , [[1WRESET]] , [[1WREAD|1WREAD ]] , [[1WSEARCHNEXT]] , [[1WIRECOUNT]] , [[1WVERIFY]] , [[Using the 1 WIRE protocol|Using the 1wire protocol]]
  
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
Line 106: Line 105:
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
 
<span style="font-family: 'Arial';  color: #000000">&nbsp;</span>
  
−
= <span class="f_Header">Example</span><br/> =
+
= <span class="f_Header">Beispiel</span><br/> =
  
 
<source lang="bascomavr">
 
<source lang="bascomavr">
Line 118: Line 117:
 
'--------------------------------------------------------------------------------
 
'--------------------------------------------------------------------------------
 
   
 
   
−
 
+
 
$regfile = "m48def.dat"
 
$regfile = "m48def.dat"
 
$crystal = 4000000
 
$crystal = 4000000
 
   
 
   
−
 
−
$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
 
 
   
 
   
−
 
+
$hwstack = 32 'Grundeinstellung 32 für den Hardware Stack
−
Config 1wire = Portb.0 'use this pin
+
$swstack = 10 'Grundeinstellung 10 für den Software Stack
−
'On the STK200 jumper B.0 must be inserted
+
$framesize = 40 'Grundeinstellung 40 für den Frame Space
 
   
 
   
−
 
+
−
'The following internal bytes are used by the scan routines
+
Config 1wire = Portb.0 'Angabe des Pins
−
'___1w_bitstorage , Byte used for bit storage :
+
'Am STK200 muß Jumper B.0 gesteckt sein
−
' lastdeviceflag bit 0
+
−
' id_bit bit 1
+
'Folgende Bytes werden von der Scan-Routine benötigt
−
' cmp_id_bit bit 2
+
'___1w_bitstorage , Byte zur Speicherung von Bits :
−
' search_dir bit 3
+
' lastdeviceflag Bit 0
 +
' id_bit Bit 1
 +
' cmp_id_bit Bit 2
 +
' search_dir Bit 3
 
'___1wid_bit_number, Byte
 
'___1wid_bit_number, Byte
 
'___1wlast_zero, Byte
 
'___1wlast_zero, Byte
 
'___1wlast_discrepancy , Byte
 
'___1wlast_discrepancy , Byte
−
'___1wire_data , string * 7 (8 bytes)
+
'___1wire_data , String * 7 (8 Bytes)
 
   
 
   
−
 
+
−
'[DIM variables used]
+
'[DIM benutzte Variablen]
−
'we need some space from at least 8 bytes to store the ID
+
'Mindestens 8 Bytes zur Speicherung der ID werden gebraucht
 
Dim Reg_no(8) As Byte
 
Dim Reg_no(8) As Byte
 
   
 
   
−
'we need a loop counter and a word/integer for counting the ID's on the bus
+
'ein Schleifenzähler und ein Word/Integer für die Anzahl der IDs am Bus
 
Dim I As Byte , W As Word
 
Dim I As Byte , W As Word
 
   
 
   
−
 
+
−
'Now search for the first device on the bus
+
'Suchen des ersten Teilnehmers am Bus
 
Reg_no(1) = 1wsearchfirst()
 
Reg_no(1) = 1wsearchfirst()
 
   
 
   
−
 
+
−
For I = 1 To 8 'print the number
+
For I = 1 To 8 'Ausgabe der ID im Hex-Format
 
  Print Hex(reg_no(i));
 
  Print Hex(reg_no(i));
 
Next
 
Next
 
Print
 
Print
 
   
 
   
−
 
+
 
Do
 
Do
−
'Now search for other devices
+
'Suche nach anderen Teilmnehmern
 
Reg_no(1) = 1wsearchnext()
 
Reg_no(1) = 1wsearchnext()
 
For I = 1 To 8
 
For I = 1 To 8
Line 169: Line 167:
 
Next
 
Next
 
Print
 
Print
−
Loop Until Err = 1
+
Loop Until Err = 1 'Schleife bis zum ersten Fehler am Bus
 
   
 
   
−
 
+
−
'When ERR = 1 is returned it means that no device is found anymore
+
'Wenn ERR = 1 ist, wurde kein weiterer Teilnehmer gefunden
−
'You could also count the number of devices
+
'Man kann auch die Anzahl der Teilnehmer am Bus zählen lassen
 
W = 1wirecount()
 
W = 1wirecount()
−
'It is IMPORTANT that the 1wirecount function returns a word/integer
+
'Es ist WICHTIG zu beachten, daß die 1wirecount-Function ein Word/Integer zurückgibt
−
'So the result variable must be of the type word or integer
+
'Die Ergebnis-Variable muß vom Typ Word oder Integer sein
−
'But you may assign it to a byte or long too of course
+
'Man kann sie natürlich in eine Byte-oder Long-Variable übertragen
 
Print W
 
Print W
 
   
 
   
−
 
+
−
'as a bonus the next routine :
+
'als Bonus die nächste Routine :
−
' first fill the array with an existing number
+
' zuerst das Array mit einer existierenden ID füllen
 
Reg_no(1) = 1wsearchfirst()
 
Reg_no(1) = 1wsearchfirst()
−
' unremark next line to chance a byte to test the ERR flag
+
' um ein Byte zu ändern und das Err-Flag zu testen, nächste Zeile auskommentieren
 
'Reg_no(1) = 2
 
'Reg_no(1) = 2
−
'now verify if the number exists
+
'jetzt eine Prüfung, ob die ID existiert
 
1wverify Reg_no(1)
 
1wverify Reg_no(1)
 
Print Err
 
Print Err
−
'err =1 when the ID passed n reg_no() does NOT exist
+
'err =1 wenn die ID, welche mit Reg_no() übergeben wurde, nicht existiert
−
' optinal call it with pinnumber line 1wverify reg_no(1),pinb,1
+
'optionaler Aufruf mit Angabe der Pinnummer: 1wverify reg_no(1),pinb,1
 
   
 
   
−
 
+
−
'As for the other 1wire statements/functions, you can provide the port and pin number as anoption
+
'wie bei den anderen 1-Wire Befehlen/Funktionen, wird die Angabe von Port und Pinnummer unterstützt
−
'W = 1wirecount(pinb , 1) 'for example look at pin PINB.1
+
'W = 1wirecount(pinb , 1) 'als Beispiel am Pin PINB.1
 
End
 
End
 
</source><br/>{{Languages}}
 
</source><br/>{{Languages}}
  
 
[[Category:BASCOM_Language_Reference/de]]
 
[[Category:BASCOM_Language_Reference/de]]

Latest revision as of 19:29, 1 March 2013

Contents

Funktion

Liest die erste ID vom 1-wire-Bus in ein Variablen-Array

 

 

Syntax

var2 = 1WSEARCHFIRST()

var2 = 1WSEARCHFIRST( port , pin)

 

 

Beschreibung

var2

Eine Variable oder Array mit mindestens 8 Byte Länge, in welche die 8-Byte-ID von 1. 1wire-Gerät am Bus übertragen wird.

port

Der Name des PORT PINx Registers wie z.B. PINB oder PIND.

pin

Die Pin-Nummer im Bereich von 0-7. Darf eine numerische Konstante oder Variable sein.

 

Die 1wireSearchFirst() Funktion muss einmal aufgerufen werden, um den ID-Suchprozess zu starten. Nach der 1wireSearchFirst() Funktion können fortlaufend zusätzliche IDs mit der 1wSearchNext Funktion gesucht werden.

 

Ein String kann nicht zur Übertragung der Werte vom Bus benutzt werden, da eine Null als Wert in einem String als Ende-Zeichen interpretiert wird.

 

Am besten ist es, ein Byte-Array zu verwenden, wie im Code-Beispiel gezeigt.

 

Die 1wsearchfirst Funktion benötigt 4 Bytes SRAM.

___1w_bitstorage , Byte zur Speicherung von Bits :

lastdeviceflag Bit 0

id_bit Bit 1

cmp_id_bit Bit 2

search_dir Bit 3

___1wid_bit_number, Byte

___1wlast_zero, Byte

___1wlast_discrepancy , Byte

 

 

 

ASM

Folgende Assembler-Routinen werden von der mcs.lib aufgerufen.

_1wire_Search_First : (ruft auf _1WIRE, _ADJUST_PIN , _ADJUST_BIT_ADDRESS)

Übergebene Parameter : R24 : Pin-Nummer, R30 : Port , X : Adresse des Ziel-Arrays

Rückgabewert: keiner.

 

 

Siehe auch

CONFIG 1WIRE , 1WWRITE , 1WRESET , 1WREAD , 1WSEARCHNEXT , 1WIRECOUNT , 1WVERIFY , Using the 1wire protocol

 

 

 

Beispiel

'--------------------------------------------------------------------------------
'name : 1wireSearch.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrates 1wsearch
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'--------------------------------------------------------------------------------
 
 
$regfile = "m48def.dat"
$crystal = 4000000
 
 
$hwstack = 32 'Grundeinstellung 32 für den Hardware Stack
$swstack = 10 'Grundeinstellung 10 für den Software Stack
$framesize = 40 'Grundeinstellung 40 für den Frame Space
 
 
Config 1wire = Portb.0 'Angabe des Pins
'Am STK200 muß Jumper B.0 gesteckt sein
 
'Folgende Bytes werden von der Scan-Routine benötigt
'___1w_bitstorage , Byte zur Speicherung von Bits :
' lastdeviceflag Bit 0
' id_bit Bit 1
' cmp_id_bit Bit 2
' search_dir Bit 3
'___1wid_bit_number, Byte
'___1wlast_zero, Byte
'___1wlast_discrepancy , Byte
'___1wire_data , String * 7 (8 Bytes)
 
 
'[DIM benutzte Variablen]
'Mindestens 8 Bytes zur Speicherung der ID werden gebraucht
Dim Reg_no(8) As Byte
 
'ein Schleifenzähler und ein Word/Integer für die Anzahl der IDs am Bus
Dim I As Byte , W As Word
 
 
'Suchen des ersten Teilnehmers am Bus
Reg_no(1) = 1wsearchfirst()
 
 
For I = 1 To 8 'Ausgabe der ID im Hex-Format
 Print Hex(reg_no(i));
Next
Print
 
 
Do
'Suche nach anderen Teilmnehmern
Reg_no(1) = 1wsearchnext()
For I = 1 To 8
 Print Hex(reg_no(i));
Next
Print
Loop Until Err = 1 'Schleife bis zum ersten Fehler am Bus
 
 
'Wenn ERR = 1 ist, wurde kein weiterer Teilnehmer gefunden
'Man kann auch die Anzahl der Teilnehmer am Bus zählen lassen
W = 1wirecount()
'Es ist WICHTIG zu beachten, daß die 1wirecount-Function ein Word/Integer zurückgibt
'Die Ergebnis-Variable muß vom Typ Word oder Integer sein
'Man kann sie natürlich in eine Byte-oder Long-Variable übertragen
Print W
 
 
'als Bonus die nächste Routine :
' zuerst das Array mit einer existierenden ID füllen
Reg_no(1) = 1wsearchfirst()
' um ein Byte zu ändern und das Err-Flag zu testen, nächste Zeile auskommentieren
'Reg_no(1) = 2
'jetzt eine Prüfung, ob die ID existiert
1wverify Reg_no(1)
Print Err
'err =1 wenn die ID, welche mit Reg_no() übergeben wurde, nicht existiert
'optionaler Aufruf mit Angabe der Pinnummer: 1wverify reg_no(1),pinb,1
 
 
'wie bei den anderen 1-Wire Befehlen/Funktionen, wird die Angabe von Port und Pinnummer unterstützt
'W = 1wirecount(pinb , 1) 'als Beispiel am Pin PINB.1
End

Languages   English • Deutsch  
Retrieved from "http://wiki.mcselec.com/bavr/index.php?title=1WSEARCHFIRST/de&oldid=4194"
Personal tools
Namespaces
Variants
Actions
Navigation
In other languages
Language