Private Sub Form1_Load(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles MyBase.Load
	'设置背景
        Me.BackColor = Color.Black
	'设置透明
        Me.TransparencyKey = Color.Black
end sub

        private void Form1_Load(object sender, EventArgs e)
        {
            this.BackColor = Color.Black
            this.TransparencyKey  = Color.Black 
        }

'正方形数据交换
    Private Sub RevertRectangleLeft(ByVal id As Integer)
 
        '要实现左转90度
        '先对角线转置
        Dim i, j As Integer
        For i = 1 To Me.DIMCOUNT - 1
            For j = 0 To i - 1
                '交换数据
                Dim temp As Integer
                temp = Me.Matrix3D(id)(i)(j)
                Me.Matrix3D(id)(i)(j) = Me.Matrix3D(id)(j)(i)
                Me.Matrix3D(id)(j)(i) = temp
            Next
        Next
        ''后水平翻转
        For i = 0 To Me.DIMCOUNT - 1
            '交换数据
            Dim temp As Integer
            temp = Me.Matrix3D(id)(0)(i)
            Me.Matrix3D(id)(0)(i) = Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i)
            Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i) = temp
        Next
    End Sub
 
    '正方形数据交换
    Private Sub RevertRectangleRight(ByVal id As Integer)
 
        '要实现右转90度
        '先对角线转置
        Dim i, j As Integer
        For i = 0 To Me.DIMCOUNT - 1
            For j = 0 To Me.DIMCOUNT - 1 - i - 1
                '交换数据
                Dim temp As Integer
                temp = Me.Matrix3D(id)(i)(j)
                Me.Matrix3D(id)(i)(j) = Me.Matrix3D(id)(Me.DIMCOUNT - 1 - j)(Me.DIMCOUNT - 1 - i)
                Me.Matrix3D(id)(Me.DIMCOUNT - 1 - j)(Me.DIMCOUNT - 1 - i) = temp
            Next
        Next
        ''后水平翻转
        For i = 0 To Me.DIMCOUNT - 1
            '交换数据
            Dim temp As Integer
            temp = Me.Matrix3D(id)(0)(i)
            Me.Matrix3D(id)(0)(i) = Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i)
            Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i) = temp
        Next
    End Sub

    ''' <summary>
    ''' 初始化各个面对应的边
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub InitEdge()
        '+/- 10 + 100 + 1000 + X 用于记录对应变的交换方式
        '+/- 表示交换方式，顺序和逆序
        '10 表示 x 的位置 x = 0 或 x = DIMCOUNT
        '100 表示 y 的位置 y = 0 或 y = DIMCOUNT
        '1000 表示 xy的方向 =0 y++ =1000 x++
        Edge(0) = New Integer(3) {-12, 101, 1003, -1004}
        Edge(1) = New Integer(3) {-1002, -1005, -1003, -1000}
        Edge(2) = New Integer(3) {-15, 1, 0, 4}
        Edge(3) = New Integer(3) {-10, -11, 5, -14}
        Edge(4) = New Integer(3) {1102, 1100, 1103, 1105}
        Edge(5) = New Integer(3) {-13, -1001, 2, 1104}
    End Sub
 
    ''' <summary>
    ''' 边数据交换
    ''' </summary>
    ''' <param name="id"></param>
    ''' <remarks></remarks>
    Private Sub RevertEdgeRight(ByVal id As Integer)
        '获取边数据
        Dim edges() As Integer
        edges = Me.Edge(id)
        Dim x, y, z, d As Integer
        '临时队列数组
        Dim queue() As Integer
        queue = New Integer(4 * DIMCOUNT - 1) {}
 
        Dim edge1 As Integer
 
        Dim m, i, j As Integer
        Dim count As Integer = 0
 
        '存入临时数组
        For m = 0 To 3
 
            '需要交换边
            edge1 = edges(m)
 
            '获取交换行号与列号
            If Math.Floor(Math.Abs(edge1 / 1000)) = 1 Then
                z = 1
                edge1 = edge1 Mod 1000
            Else
                z = 0
            End If
 
            If Math.Floor(Math.Abs(edge1 / 100)) = 1 Then
                y = DIMCOUNT - 1
                edge1 = edge1 Mod 100
            Else
                y = 0
            End If
 
            If Math.Floor(Math.Abs(edge1 / 10)) = 1 Then
                x = DIMCOUNT - 1
                edge1 = edge1 Mod 10
            Else
                x = 0
            End If
 
            Dim sg = Math.Sign(edge1)
 
            If sg = 0 Then
                sg = 1
            End If
 
            '获取符号
            If sg = 1 Then
                d = 0
            Else
                d = 1
            End If
 
            '存入临时数组
            For i = 0 To DIMCOUNT - 1
                If z = 0 Then
                    queue(m * DIMCOUNT + i) = _
                        Me.Matrix3D(Math.Abs(edge1))(x)(d * (DIMCOUNT - 1) + sg * i)
                Else
                    queue(m * DIMCOUNT + i) = _
                        Me.Matrix3D(Math.Abs(edge1))(d * (DIMCOUNT - 1) + sg * i)(y)
                End If
            Next
        Next
        '交换后存回
        '存入临时数组
        For m = 0 To 3
            '需要交换边
            edge1 = edges(m)
            '获取交换行号与列号
            If Math.Floor(Math.Abs(edge1 / 1000)) = 1 Then
                z = 1
                edge1 = edge1 Mod 1000
            Else
                z = 0
            End If
            If Math.Floor(Math.Abs(edge1 / 100)) = 1 Then
                y = DIMCOUNT - 1
                edge1 = edge1 Mod 100
            Else
                y = 0
            End If
 
            If Math.Floor(Math.Abs(edge1 / 10)) = 1 Then
                x = DIMCOUNT - 1
                edge1 = edge1 Mod 10
            Else
                x = 0
            End If
            '获取符号
            Dim sg = Math.Sign(edge1)
 
            If sg = 0 Then
                sg = 1
            End If
            '获取方向
            'd =  Math.Sign(edge1) == 1 ? 0 : -1
            If sg = 1 Then
                d = 0
            Else
                d = 1
            End If
            '存回
            For i = 0 To DIMCOUNT - 1
                If z = 0 Then
                    Me.Matrix3D(Math.Abs(edge1))(x)(d * (DIMCOUNT - 1) + sg * i) = _
                        queue(((1 + m) Mod 4) * DIMCOUNT + i)
                Else
                    Me.Matrix3D(Math.Abs(edge1))(d * (DIMCOUNT - 1) + sg * i)(y) = _
                        queue(((1 + m) Mod 4) * DIMCOUNT + i)
                End If
            Next
        Next
    End Sub

    ''' <summary>
    ''' 增加菱形，用于魔方侧面
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub AddPolygons()
 
        '定义点阵数组
        Dim pts() As PointF
        '绘制上边矩形
        Dim i, j As Integer
        For i = 0 To DIMCOUNT - 1
            For j = 0 To DIMCOUNT - 1
                pts = AddPolygonPath1(New Point(POSTION.X + i * CUBEH + j * POLYH, _
                                            POSTION.Y - j * POLYH))
                '获取填充内容，并绘制
                GR.FillPolygon(Me.GetColorById(2, DIMCOUNT - 1 - j, i), pts)
                GR.DrawPolygon(OUTLINE, pts)
            Next
        Next
 
        '绘制左边矩形
        For i = 0 To DIMCOUNT - 1
            For j = 0 To DIMCOUNT - 1
                pts = AddPolygonPath2(New Point(POSTION.X + DIMCOUNT * CUBEH + i * POLYH, _
                                        POSTION.Y + j * CUBEH - i * POLYH))
                '获取填充内容，并绘制
                GR.FillPolygon(Me.GetColorById(4, j, i), pts)
                GR.DrawPolygon(OUTLINE, pts)
            Next
        Next
    End Sub
 
    ''' <summary>
    ''' 绘制横向菱形，通过起点参数，获取菱形四个定点坐标
    ''' </summary>
    ''' <remarks></remarks>
    Private Function AddPolygonPath1(ByVal pt As Point) As PointF()
        Dim pts(3) As PointF
        pts(0) = pt
        pts(1) = New Point(pt.X + POLYH, pt.Y - POLYH)
        pts(2) = New Point(pt.X + CUBEH + POLYH, pt.Y - POLYH)
        pts(3) = New Point(pt.X + CUBEH, pt.Y)
        Return pts
    End Function
 
    ''' <summary>
    ''' 绘制在竖向菱形，通过起点参数，获取菱形四个定点坐标
    ''' </summary>
    ''' <param name="pt"></param>
    ''' <remarks></remarks>
    Private Function AddPolygonPath2(ByVal pt As Point) As PointF()
        Dim pts(3) As PointF
        pts(0) = pt
        pts(1) = New Point(pt.X + POLYH, pt.Y - POLYH)
        pts(2) = New Point(pt.X + POLYH, pt.Y + CUBEH - POLYH)
        pts(3) = New Point(pt.X, pt.Y + CUBEH)
        Return pts
    End Function

/**
 * 0.曾经...
 */
public class Singleton
{
	public static Singleton ins = new Singleton();
 
	private Singleton()
	{
	}
}
 
/**
 * 1.直接初始化对象，适合小对象的单例，无需同步
 */
public class Singleton
{
	private static Singleton ins = new Singleton();
 
	public static Singleton getInstance()
	{
		return this.ins;
	}
 
	private Singleton()
	{
	}
}
 
/**
 * 2.强制同步，线程安全，运行时控制同步，速度较慢
 */
public class Singleton
{
	private static Singleton ins = null;
 
	public synchronized static Singleton getInstance()
	{
		if (null == this.ins)
		{
			this.ins = new Singleton();
		}
		return this.ins; 
	}		
 
	private  Singleton()
	{
	}
}
 
/**
 * 3.方法1的改进方法，只有在第一次使用时才创建对象
 */
public class Singleton
{
	private static Singleton ins = null;
 
	static
	{
		ins = new Singleton();
	}
 
	public static Singleton getInstance()
	{
		return this.ins;
	}
 
	private Singleton()
	{
	}
}
 
 
/**
 * 4.两次比较算法，手动控制同步
 */
public class Singleton
{
	private static Singleton ins = null;
 
	public static Singleton getInstance()
	{
 
		if (null == this.ins)
		{
			//再次比较
			if (this.ins == Singleton.getInstance())
			{
				this.ins = new Singleton();
			}
		}
 
		return this.ins;
	}
 
	private Singleton()
	{
	}
}

    '全局变量，保存需要转换的数据
    Private val As Byte
 
    ''' <summary>
    ''' 核心算法，使用递归实现一个Byte的字节中心转置
    ''' </summary>
    ''' <param name="a"></param>
    ''' <remarks></remarks>
    Private Sub fun(ByVal a As Byte)
        If a = 0 Then
            Exit Sub
        End If
        '11 - > 11
        '00 - > 00
        '10 - > 01
        '01 - > 10
        '算法在于排除11和00的情况，01和10反转
        '排除and之后全是0的情况
        If (val And a) <> (CByte(128 / a) And val) Then
            '其中一个为0，另一个必为1 ， 全1的情况自然排除
            If (val And a) = 0 Or (CByte(128 / a) And val) = 0 Then
                '进行位运算
                val = CByte(val Xor (a + CByte(128 / a)))
            End If
        End If
        '递归调用
        fun(a / 2)
    End Sub

//C语言实现一个Byte的字节中心转置
#include <STDIO.H>
#include <MATH.H>
 
#define BYTE 8
//#define INTEGER 16
 
#define LENGTH BYTE
//#define LENGTH INTEGER
 
//求出算子，用于参数传递
#define ARGUMENT pow(2 , (LENGTH / 2 - 1))
//#define ARGUMENT 1 << ( LENGTH/2 -1 ) 
 
#define HIGHT 0x80	/*1000 0000*/
//#define HIGHT 0x8000	/*1000 0000 0000 0000*/
 
unsigned short val = 0;
//unsigned int val = 0;
 
int fun(int a){
	//a为空，返回
	if (0 == a) {
		return 0;
	}
	//'11 - > 11
	//'00 - > 00
	//'10 - > 01
	//'01 - > 10
	//'算法在于排除11和00的情况，01和10反转
	//'排除and之后全是0的情况
	if ( (val & a) != ((HIGHT / a) & val) ){
		//其中一个为0，另一个必为1 ， 全1的情况自然排除
		if ( 0 == (val & a) || 0 == ((HIGHT / a) & val) ) {
			//进行位运算
			val = val ^ ((HIGHT / a) + a);
		}
	}
	fun(a / 2);
	//func(a >> 1);
	return 1;
}
 
int main(int argc , char * args[]) {
	//输入
	scanf("%d", &val);
	//递归调用
	fun(ARGUMENT);
	//输出
	printf("%d", val);
	return 0;
}

//初始化数字键盘
function initNum(line){
  var strHtml = "";
  var arr = new Array()
  if(line < 1 || line > 10){
    return;
  }
  //编制随机数组
  while(arr.length < 10){
    //取0-9之间的整数
    var num = Math.floor(10*Math.random());
    //遍历数组找到空位
    var flag = false;
    for(var i=0 ; i < arr.length ;i++){
        if(arr[i] == num){
            flag = true;
            break;
        }
    }
    if(!flag){
        arr[arr.length] = num;
    }
  }

//定义全局容器ID
var OBJID = "layerDisplay";
 
//对象选择器
function $(obj) {
  return document.getElementById(obj);
}
 
//加载键盘控件
function load() {
  var id = OBJID;
  //控制内部HTML
  $(id).innerHTML = "";
  //重新加载空间库
  $(id).innerHTML = getControl();
  //显示
  $(id).style.display = "block";
}
 
//隐藏
function hide(){
  var id = OBJID;
  $(id).style.display = "none";
}
 
//获取控件
function getControl(){
  var strHtml = "";
  //初始化键盘
  strHtml += initNum(5);
  //OK按钮
  strHtml += "<input type=\"button\" id=\"btnReload\" name=\"btnReload\" value=\"Rest\" class=\"command\" onclick=\"load()\"/>";
  //隐藏按钮 
  strHtml += "<input type=\"button\" id=\"btnHide\" name=\"btnHide\" value=\"Hide\" class=\"command\" onclick=\"hide()\"/>";
  //设置按钮并显示
  return strHtml;
}
 
function addNum(obj){
  var strVal = null;
  //空对象
  if(null == obj){
    return;
  } 
  //空字符串,或不合法字符串
  strVal = obj.value;
  if("" == strVal 
      || 0 == strVal.length) {
    return;
  } 
  //追加字符
  $("txtDisplay").value += strVal
  //
  load()
}
 
//初始化数字键盘
function initNum(line){
  var strHtml = "";
  var arr = new Array()
  if(line < 1 || line > 10){
    return;
  }
  //编制随机数组
  while(arr.length < 10){
    //取0-9之间的整数
    var num = Math.floor(10*Math.random());
    //遍历数组找到空位
    var flag = false;
    for(var i=0 ; i < arr.length ;i++){
        if(arr[i] == num){
            flag = true;
            break;
        }
    }
    if(!flag){
        arr[arr.length] = num;
    }
  }
 
  //输出按钮列表
  for(var i = 9; i >= 0 ; i --) {
     strHtml += '<input type=\"button\" class=\"number\" value=\"'
             + arr[i]
             + '\" onclick = \"addNum(this)\" />';
          //控制换行
     if(0 == (i % line)){
        strHtml += '<br />';
     }
  }
  return strHtml