汉诺塔实现步骤

汉诺塔实现步骤

一、创建工作空间和应用（略）

二、创建结构体对象（str_disk）其中str_表示structure, disk就是圆盘.

三、创建用户对象（u_tower）

其中u_表示UserObject,选PB Object中的custom visual.

(1)操作界面

(2)设计控件

(3)控件名称

(4)部分控件不可见

(5)声明实例变量

其中roundrectangle irr_disk[14]定义栈空间(空栈)

int ii_count栈顶指针(栈内盘子数)

(6)编写constructor事件代码

作用:在空栈中放置栈元素(盘子)

//将14个圆角矩形控件对象加到数组中

//即初始化栈

//其结果数组元素irr_disk[1]-- irr_disk[14] 分别对应存放的是对象rr_1--rr_14。

int li_index

int li_array_limit

int li_control_index

int li_control_limit

string rr_name

drawobject ldo_temp

li_array_limit = upperbound (irr_disk[])//返回数组维界

li_control_limit = upperbound (control[])//

返回控件数组维界

//将控件数组里的隐藏矩形，放置在定义的实例对象数组中。

For li_control_index = 1 to li_control_limit //对控件数组的每个元素

ldo_temp = control[li_control_index]

rr_name= ldo_temp.classname()

li_index=dec(right(rr_name,len(rr_name)-3)) If li_index>=1 and li_index<= li_array_limit Then

irr_disk[li_index] = ldo_temp

End If

Next

思考:要将irr_disk[1]中放置rr_1对象,能不能这样处理

irr_disk[1]=rr_1?为什么?

(7)编写函数的操作方法

(8)编写adddisk函数（压栈）

//注意形式参数的引用方式

public subroutine adddisk (str_disk astr_disk);

//局部变量

int li_x//盘子的x坐标

int li_y//盘子的y坐标

//针上盘子数加1（栈顶指针加1）

ii_count++//u_tower成员

//only 14 rectangles were predefined.

If ii_count > 14 Then

Messagebox("Peg Error","Error only 14 disk are allowed")

ii_count --

Return

End If

//(图)计算盘子位置

//(式)计算盘子位置

li_y = r_base.y - ((irr_disk[ii_count].height+ 5)*ii_count) li_x = rr_pole.x + (rr_pole.width / 2) - (astr_disk.size / 2)

//盘子宽度和颜色由实参提供

irr_disk[ii_count].width = astr_disk.size

irr_disk[ii_count].fillcolor = astr_disk.color

irr_disk[ii_count].visible = true

irr_disk[ii_count].x = li_x

//(图)产生向下的效果

//(代码)产生向下的效果

irr_disk[ii_count].y = rr_pole.y + irr_disk[ii_count].height

do while irr_disk[ii_count].y < li_y

If irr_disk[ii_count].y + irr_disk[ii_count].height> li_y Then irr_disk[ii_count].y = li_y

Else

irr_disk[ii_count].y = irr_disk[ii_count].y&

+ irr_disk[ii_count].height

irr_disk[ii_count].visible = true

irr_disk[ii_count].show()

yield()

End If

loop

(9)编写removedisk函数（弹栈）

//注意形式参数的引用方式

public subroutine removedisk (ref str_disk as_disk);

//确保针上没有盘子时不做该操作

If ii_count <= 0 Then return

//产生向上的效果

do while irr_disk[ii_count].y > rr_pole.y + irr_disk[ii_count].height

If irr_disk[ii_count].y &

- (irr_disk[ii_count].height) <&

rr_pole.y &

+ irr_disk[ii_count].height Then

irr_disk[ii_count].y = rr_pole.y&

+ irr_disk[ii_count].height

Else

irr_disk[ii_count].y = irr_disk[ii_count].y&

- (irr_disk[ii_count].height)

irr_disk[ii_count].visible = true

irr_disk[ii_count].show()

yield()//放在循环中，发现信息消息会立即响应，否则等该程序执行完了，才会响应消息队列中的事件。

End If

loop

//盘子的大小和颜色有实参带出

as_disk.size = irr_disk[ii_count].width

as_disk.color = irr_disk[ii_count].fillcolor

//移去一个盘子，并对针上盘子数减1

//hide it

irr_disk[ii_count].visible = False

//one less disk now

ii_count --

(10) resetpeg 函数（置栈空）

//清除所有盘子

public subroutine resetpeg ();

str_disk lstr_disk

do while ii_count > 0

removedisk(lstr_disk)

loop

四、主窗口对象（W_towers_hanoi）

(1)原设计界面

(2)简化控件

(3)简化界面

(4)设计编辑掩码控件（EditMask）em_disks

(5)编写窗口函数wf_movedisk

//递归，将ai_disk个盘子从auo_startpeg针，借助于auo_midpeg，移到auo_endpeg针。

//一、形式参数

public subroutine wf_movedisk (int ai_disk, u_tower auo_startpeg, u_tower auo_midpeg, u_tower auo_endpeg);

//二、声明局部变量

str_disk lstr_disk

//该结构有两个成员：size和color

//三、仅一个盘子，直接移动，结束递归。

If ai_disk = 1 Then

auo_startpeg.removedisk(lstr_disk)

auo_endpeg.adddisk(lstr_disk)

//请注意局部变量lstr_disk的作用

Else

//四、大于一个盘子时，递归调用

wf_movedisk(ai_disk - 1, auo_startpeg, auo_endpeg, auo_midpeg)

wf_movedisk(1, auo_startpeg, u_tower, auo_endpeg)

wf_movedisk(ai_disk - 1, auo_midpeg, auo_startpeg, auo_endpeg)

End If

(6)cb_start 的Clicked代码

//一、声明局部变量

int li_disk// li_disk盘子数

int li_index//li_index盘子序号

int li_size

str_disk lstr_disk //结构变量。成员size和color。

long ll_rc

//二、取盘子数目

//how many disks used in this example

li_disk = Integer(em_disks.text)//从掩码控件（微调框）中读盘子数

If li_disk > 14 Or li_Disk < 1 Then

MessageBox("Peg Error", "Error! Only 14 disks are allowed.", Exclamation!)

Return

End If

//三、环境复位

//此按钮是双控按钮，在“开始”和“取消”间切换

//test if this is a start or cancel button

If this.text = "C&ancel" Then//表示汉诺塔在运行状态，此时该按钮的作用是取消运行。

ib_cancel = True//全局变量。

return

Else //否则，汉诺塔开始运行。

ib_cancel = False

this.text = "C&ancel"

End If

//reset all 3 pegs

// 3针复位，将三针上的盘子全部移走。

uo_peg_c.resetpeg()

uo_peg_b.resetpeg()

uo_peg_a.resetpeg()

//四、显示待移动的盘子

//第一针上创建n个盘子，至下而上，从大到小

//set up the first peg with the # of disks requested. Add the disk with a random color and the largest disk on the botton

For li_index = li_disk to 1 step - 1

lstr_disk.size = 170 + li_index * 60 //disk size即盘子的宽度变化，最小的230

lstr_disk.color = Rgb(rand(255),rand(255),rand(255)) //random disk color

uo_peg_a.adddisk(lstr_disk) //place the disk on the peg

Next

//disable buttons during the execution

//使“关闭”按钮失效

cb_close.enabled = false

//五、递归调用

//This starts the recursive routine

wf_movedisk(li_disk,uo_peg_a,uo_peg_b,uo_peg_c)//重点关注

//使“关闭”按钮有效

cb_close.enabled = true

//reset text back to "start"

this.text = "&Start"

(7)cb_close 的Clicked代码

Close(parent)

五、增加移动细节的记录

(1)主界面加listbox控件

控件名：lb_step

(2) listbox控件的属性

(3) 修改窗口函数wf_movedisk

原代码（灰）：

//一、形式参数（在界面设置，不是代码部分）

public subroutine wf_movedisk (int ai_disk, u_tower auo_startpeg, u_tower auo_midpeg, u_tower auo_endpeg);

//二、声明局部变量

str_disk lstr_disk

//该结构有两个成员：size和color

//三、仅一个盘子，直接移动，结束递归。

If ai_disk = 1 Then

//增加移动的步骤序列

ii_step++//

//将步骤写入列表框

li_currow = lb_step.Additem(string(ii_step) + ". " +&

mid(auo_startpeg.classname(),4) + " --> " + mid(auo_endpeg.classname(),4))

lb_step.SetTop(li_currow)//列表框函数：

//滚动列表框使该列表项可见.

//别忘了，去添加实例变量ii_step,和局部变量li_currow

auo_startpeg.removedisk(lstr_disk)

auo_endpeg.adddisk(lstr_disk)

//请注意局部变量lstr_disk的作用

Else

//四、大于一个盘子时，递归调用

wf_movedisk(ai_disk - 1, auo_startpeg, auo_endpeg, auo_midpeg)

wf_movedisk(1, auo_startpeg, u_tower, auo_endpeg)

wf_movedisk(ai_disk - 1, auo_midpeg, auo_startpeg, auo_endpeg)

End If

六、增加单步移动控制窗口

(1)主界面加复选框checkbox控件(cbx_sstep)

(2)单步窗口对象（W_towers_single_step）