汉诺塔实现步骤.docVIP

汉诺塔实现步骤 一、创建工作空间和应用（略） 二、创建结构体对象（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