1WRESET - Revision history

Admin: Created page with "= Action
= This statement brings the 1wire pin to the correct state, and sends a reset to the bus.
2013-02-01T12:27:50Z

Created page with "= <span class="f_Header">Action</span><br/> = This statement brings the 1wire pin to the correct state, and sends a reset to the bus. <span style="font-family: 'Arial'; col..."

New page
= <span class="f_Header">Action</span><br/> =

This statement brings the 1wire pin to the correct state, and sends a reset to the bus.

<span style="font-family: 'Arial'; color: #000000"> </span>

<span style="font-family: 'Arial'; color: #000000"> </span>

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

<span class="f_Syntax">1WRESET</span>

<span class="f_Syntax">1WRESET</span> , PORT , PIN

<span style="font-family: 'Arial'; color: #000000"> </span>

<span style="font-family: 'Arial'; color: #000000"> </span>

= <span class="f_Header">Remarks</span><br/> =
<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="text-align:left; vertical-align:top"
| style="width:16%; border: solid 1px #000000" valign="top" width="16%" |
1WRESET

| style="width:100%; border: solid 1px #000000" valign="top" width="100%" |
Reset the 1WIRE bus. The error variable ERR will return 1 if an error occurred

|- style="text-align:left; vertical-align:top"
| style="width:16%; border: solid 1px #000000" valign="top" width="16%" |
Port

| style="width:100%; border: solid 1px #000000" valign="top" width="100%" |
The register name of the input port. Like PINB, PIND.

|- style="text-align:left; vertical-align:top"
| style="width:16%; border: solid 1px #000000" valign="top" width="16%" |
Pin

| style="width:100%; border: solid 1px #000000" valign="top" width="100%" |
The pin number to use. In the range from 0-7. May be a numeric constant or variable.

|}
</div>
<span style="font-family: 'Arial'; color: #000000"> </span>

<span style="font-family: 'Arial'; color: #000000"> </span>

The global variable ERR is set when an error occurs.

There is also support for multi 1-wire devices on different pins.

<span style="font-family: 'Arial'; color: #000000"> </span>

To use this you must specify the port and pin that is used for the communication.

<span style="font-family: 'Arial'; color: #000000"> </span>

The 1wreset, 1wwrite and 1wread statements will work together when used with the old syntax. And the pin can be configured from the compiler options or with the CONFIG 1WIRE statement.

<span style="font-family: 'Arial'; color: #000000"> </span>

<span style="font-family: 'Arial'; color: #000000"> </span>

The syntax for additional 1-wire devices is :

<span style="font-family: 'Arial'; color: #000000"> </span>

1WRESET port , pin

1WWRITE var/constant ,bytes] , port, pin

var = 1WREAD( bytes) , for the configured 1 wire pin

var = 1WREAD(bytes, port, pin) ,for reading multiple bytes

<span style="font-family: 'Arial'; color: #000000"> </span>

<span style="font-family: 'Arial'; color: #000000"> </span>

= <span class="f_Header">See also</span><br/> =

[[1WREAD]] , [[1WWRITE]]

<span style="font-family: 'Arial'; color: #000000"> </span>

<span style="font-family: 'Arial'; color: #000000"> </span>

<span style="font-family: 'Arial'; color: #000000"> </span>

= <span class="f_Header">Example</span><br/> =

<source lang="bascomavr">
'--------------------------------------------------------------------------------
'name : 1wire.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrates 1wreset, 1wwrite and 1wread()
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
' pull-up of 4K7 required to VCC from Portb.2
' DS2401 serial button connected to Portb.2
'--------------------------------------------------------------------------------

$regfile = "m48def.dat"
$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

'when only bytes are used, use the following lib for smaller code
$lib "mcsbyte.lib"

Config 1wire = Portb.0 'use this pin
'On the STK200 jumper B.0 must be inserted
Dim Ar(8) As Byte , A As Byte , I As Byte

Do
Wait 1
1wreset 'reset the device
Print Err 'print error 1 if error
1wwrite &H33 'read ROM command
For I = 1 To 8
Ar(i) = 1wread() 'place into array
Next

'You could also read 8 bytes a time by unremarking the next line
'and by deleting the for next above
'Ar(1) = 1wread(8) 'read 8 bytes

For I = 1 To 8
Print Hex(ar(i)); 'print output
Next
Print 'linefeed
Loop

'NOTE THAT WHEN YOU COMPILE THIS SAMPLE THE CODE WILL RUN TO THIS POINT
'THIS because of the DO LOOP that is never terminated!!!

'New is the possibility to use more than one 1 wire bus
'The following syntax must be used:
For I = 1 To 8
Ar(i) = 0 'clear array to see that it works
Next

1wreset Pinb , 2 'use this port and pin for the second device
1wwrite &H33 , 1 , Pinb , 2 'note that now the number of bytes must be specified!
'1wwrite Ar(1) , 5,pinb,2

'reading is also different
Ar(1) = 1wread(8 , Pinb , 2) 'read 8 bytes from portB on pin 2

For I = 1 To 8
Print Hex(ar(i));
Next

'you could create a loop with a variable for the bit number !
For I = 0 To 3 'for pin 0-3
1wreset Pinb , I
1wwrite &H33 , 1 , Pinb , I
Ar(1) = 1wread(8 , Pinb , I)
For A = 1 To 8
Print Hex(ar(a));
Next
Print
Next
End
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference]]