强势发布：再做VBA汉诺塔动画演示

aoe1981

35楼成功的sleep版截图如下：

aoe1981

35楼sleep成功版附件参数：

快慢调节1参数范围：0.0001,0.001,0.01,0.1,1,2,3,4,5,6,7,8,9,10,20,50,100　　作用：sleep停顿时间设置，值越大，动画演示效果越慢。

快慢调节2参数范围：1,2,3,4,5,6,7,8,9,10,16,20,32,50,64,100,128,256　　作用：sleep停顿间歇次数设置，值越小，动画演示效果越慢。

aoe1981

35楼sleep成功版附件延时处置相关代码：
Public Sub DongHua(jp$, n1%, m1%, m2%) '动画（金片、金片序号、开始针、到达针）
Dim i&, zy%, tj1&, tj2& '左右、调节
tj1 = aoe.Range("b2").Value
tj2 = aoe.Range("b3").Value
aoe.Shapes(jp).Select
With Selection.ShapeRange
    For i = .Top To zb2(1, 2) - 30 Step -1 '金片上移
        .IncrementTop -1
       If i Mod tj2 = 0 Then DoEvents: Sleep tj1
    Next i
    If zb2(m1, 1) < zb2(m2, 1) Then zy = 1 Else zy = -1
    For i = WorksheetFunction.Min(zb2(m1, 1), zb2(m2, 1)) To WorksheetFunction.Max(zb2(m1, 1), zb2(m2, 1)) - 1
        .IncrementLeft zy '金片左右平移（须注意植树问题在此的应用，否则效果会偏差，此问题极隐蔽，极不易测试察觉）
       If i Mod tj2 = 0 Then DoEvents: Sleep tj1
    Next i
    For i = zb2(1, 2) - 30 To zb2(1, 4) - (hjj + h) * (jps(m2) + 1) '金片下移
        .IncrementTop 1
       If i Mod tj2 = 0 Then DoEvents: Sleep tj1
    Next i
End With
End Sub
与原来对比，干脆取消了YanShi延时子过程。

aoe1981

1楼与35楼附件已更新至不显示图形对象控制点……

在此，感谢大侠wcymiss的热心指点！！！

aoe1981

终于找到了在2003中运行时，移动金片产生偏差的原因了，利用35楼附件，修改后的附件如下：
汉诺塔动画演示（sleep版2003）.rar (43.61 KB, 下载次数: 92)

2014-12-9 15:26 上传

点击文件名下载附件

原因是：2003中每移动一步产生的坐标偏移量是0.75单位，这个我在之前就以发现，但好多次都没有测试成功，原因是循环变量　i　都定义成了整型，全被四舍五入了，现在终于发现了，把循环变量全定义成了双精度型的，不想测试成功了……有点激动，具体修改代码如下：

Public Sub DongHua(jp$, n1%, m1%, m2%) '动画（金片、金片序号、开始针、到达针）
Dim i#, zy%, tj1&, tj2& '左右、调节
tj1 = aoe.Range("b2").Value
tj2 = aoe.Range("b3").Value
With aoe.Shapes(jp)
    For i = .Top To zb2(1, 2) - 30 Step -0.75 '金片上移
        .IncrementTop -1
        If i Mod tj2 = 0 Then DoEvents: Sleep tj1
    Next i
    If zb2(m1, 1) < zb2(m2, 1) Then zy = 1 Else zy = -1
    For i = WorksheetFunction.Min(zb2(m1, 1), zb2(m2, 1)) To WorksheetFunction.Max(zb2(m1, 1), zb2(m2, 1)) - 1 Step 0.75
        .IncrementLeft zy '金片左右平移（须注意植树问题在此的应用，否则效果会偏差，此问题极隐蔽，极不易测试察觉）
        If i Mod tj2 = 0 Then DoEvents: Sleep tj1
    Next i
    For i = zb2(1, 2) - 30 To zb2(1, 4) - (hjj + h) * (jps(m2) + 1) Step 0.75 '金片下移
        .IncrementTop 1
        If i Mod tj2 = 0 Then DoEvents: Sleep tj1
    Next i
End With
End Sub

aoe1981

不过这个0.75的处理，还是很糟糕的一件事情，在最后还是会带来一些偏差的，图如下：


因此，本帖附件中最佳的还是在2010中进行演示的好，除非在2003中还有其他的更好的解决办法……

e表格学习

aoe1981 发表于 2014-11-29 08:28
　　本附件，支持比较大的任意n阶汉诺塔的直观动画演示，如图：
　　

经测试，阶数最高为1023！（2010版）

ghoob

非常赞同您的观点。递归应用似乎还是很普遍，学点递归，可能一时难以创造性地应用，但大概可以看懂，也是极好的
青蛙过河也可以这样吗？

jsgj2023

来学习一下!