XProfan

Español

p.specht

Graycode hilft manchmal, Vereinfachungsmöglichkeiten en elekronischen Steuerschaltungen a erkennen, como se de Schritt a Schritt jeweils sólo 1 bit ändert. Dummerweise hay aber igual mehrere Graycodes, wobei manche z.B. en Drehgebern eingesetzt voluntad (Se puede el Lichtschranken-Schaltkulisse entonces en un einzigen, zusammenhängenden Stück erzeugen).

Kompilieren Marca Separación

Título de la ventana "Bin2Gray y Gray2Bin"
' Binärcode después de Graycode y zurückwandeln
' (CL) Copyleft 2013-06 by P. Pájaro carpintero
' Q: https://de.wikipedia.org/wiki/Gray-Code
cls:font 2:Windowstyle 1048
var v$=mkstr$("0",32):declarar gray&

whileloop 0,20000000

    locate 10,23:imprimir right$(v$+bin$(&Loop),32)
    gray&=bin2gray(&Loop)
    locate 14,23:imprimir right$(v$+bin$(gray&),32)
    locate 18,23:imprimir right$(v$+bin$(gray2bin(gray&)),32)
    waitinput 400

endwhile

waitinput
end

proc Bin2Gray

    parámetros bin&
    volver xor(bin&,bin&\2)

ENDPROC

proc Gray2Bin

    parámetros Gray&
    declarar i&,k&

    whileloop 31,0,-1:i&=&Loop

        k&=k& | XOR((((1 <<(&Loop+1)) & k&)>>1),(1<<&Loop) & Gray&)

    endwhile

    volver k&'Binär

ENDPROC