SET - Revision history

Admin: Created page with "= Action = Set a bit to the value one. =
2013-02-11T22:58:00Z

Created page with "= <span class="f_Header">Action</span> = Set a bit to the value one. <span style="font-family: Arial;"> </span> <span style="font-family: Arial;"> </span> = <spa..."

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

Set a bit to the value one.

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

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

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

<span class="f_Syntax">SET</span> bit

<span class="f_Syntax">SET</span> var.x

<span class="f_Syntax">SET</span> var

 

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

= <span class="f_Header">Remarks</span> =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="488" 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="13%" style="width: 60px; border: 1px solid rgb(0, 0, 0);" |
Bit

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Bit or Boolean variable.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 60px; height: 16px; border: 1px solid rgb(0, 0, 0);" |
Var

| valign="top" style="height: 16px; border: 1px solid rgb(0, 0, 0);" |
A byte, integer, word or long variable.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 60px; border: 1px solid rgb(0, 0, 0);" |
X

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Bit of variable to set. Valid values are : 0-7 (byte, registers), 0-15 (Integer/Word) and (0-31) for a Long

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

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

When the bit is not specified, bit 0 will be set.

Also notice that the bit range is 0-255. Using a larger value on a variable will overwrite a different variable !

When you need an array of say 128 bits you can use code like this : dim ar(32) as long

You can index these variables like : SET ar(1).127 , in this case you write only to the memory of the intended variable.

 

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

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

[[RESET]] , [[TOGGLE]]

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

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

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

<br/><source lang="bascomavr">
'--------------------------------------------------------------------------------
'name : boolean.bas
'copyright : (c) 1995-2009, MCS Electronics
'purpose : demo: AND, OR, XOR, NOT, BIT, SET, RESET and MOD
'suited for demo : yes
'commercial add on needed : no
'use in simulator : possible
'--------------------------------------------------------------------------------
'This very same program example can be used in the Help-files for
' AND, OR, XOR, NOT, BIT, SET, RESET and MOD

$baud = 19200
$crystal = 16000000
$regfile = "m32def.dat"

$hwstack = 40
$swstack = 20
$framesize = 20

Dim A As Byte , B1 As Byte , C As Byte
Dim Aa As Bit , I As Integer

A = 5 : B1 = 3 ' assign values
C = A And B1 ' and a with b
Print "A And B1 = " ; C ' print it: result = 1

C = A Or B1
Print "A Or B1 = " ; C ' print it: result = 7

C = A Xor B1
Print "A Xor B1 = " ; C ' print it: result = 6

A = 1
C = Not A
Print "c = Not A " ; C ' print it: result = 254
C = C Mod 10
Print "C Mod 10 = " ; C ' print it: result = 4

If Portb.1 = 1 Then
Print "Bit set"
Else
Print "Bit not set"
End If 'result = Bit not set

Aa = 1 'use this or ..
Set Aa 'use the set statement
If Aa = 1 Then
Print "Bit set (aa=1)"
Else
Print "Bit not set(aa=0)"
End If 'result = Bit set (aa=1)

Aa = 0 'now try 0
Reset Aa 'or use reset
If Aa = 1 Then
Print "Bit set (aa=1)"
Else
Print "Bit not set(aa=0)"
End If 'result = Bit not set(aa=0)

C = 8 'assign variable to &B0000_1000
Set C 'use the set statement without specifying the bit
Print C 'print it: result = 9 ; bit0 has been set

B1 = 255 'assign variable
Reset B1.0 'reset bit 0 of a byte variable
Print B1 'print it: result = 254 = &B11111110

B1 = 8 'assign variable to &B00001000
Set B1.0 'set it
Print B1 'print it: result = 9 = &B00001001
End
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference]]