View source

== (**COPIED FROM ENGLISH PAGE**) === <span class="f_Header">Action</span> =

Returns the Gray-code of a variable.

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

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

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

var1 =&nbsp;<span class="f_Syntax">Bin2gray</span>(var2)

<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="597" 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: 74px; border: 1px solid rgb(0, 0, 0);" | 
var1

| valign="top" width="100%" style="width: 514px; border: 1px solid rgb(0, 0, 0);" | 
Variable that will be assigned with the Gray code.

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

| valign="top" width="100%" style="width: 514px; border: 1px solid rgb(0, 0, 0);" | 
A variable that will be converted.

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

Gray code is used for rotary encoders. Bin2gray() works with byte , integer, word and long variables.

The data type of the variable that will be assigned determines if a byte, word or long conversion will be done.

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

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

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

[[GRAY2BIN]]&nbsp;,&nbsp;[[ENCODER]]

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

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

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

Depending on the data type of the target variable the following routine will be called from mcs.lbx:

_grey2Bin for bytes , _grey2bin2 for integer/word and _grey2bin4 for longs.

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

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

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

<br/><source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : graycode.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show the Bin2Gray and Gray2Bin functions
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$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
 
'Bin2Gray() converts a byte,integer,word or long into grey code.
'Gray2Bin() converts a gray code into a binary value
 
Dim B As Byte ' could be word,integer or long too
 
Print "BIN" ; Spc(8) ; "GREY"
For B = 0 To 15
Print B ; Spc(10) ; Bin2gray(b)
Next
 
Print "GREY" ; Spc(8) ; "BIN"
For B = 0 To 15
Print B ; Spc(10) ; Gray2bin(b)
Next
 
End
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference/de]]