用二級VB編寫Hanoi塔問題動態(tài)演示程序的演示

　　3.2 盤子移動的實現(xiàn)

　　盤子的移動過程主要有兩種類型的移動，一種是垂直移動(包括自上而下和自下而上)，另一種是水平移動(包括從左至右和從右至左)。盤子移動過程程序?qū)崿F(xiàn)的主要思想是將每一次盤子從原位置移動到目標位置的路線分割成足夠多的子路徑，每個子路徑的距離足夠小，盤子從某子路徑一端移動至另一端通過兩個步驟來實現(xiàn)：第一步將原位置上的套友丈�设謮舄form窗體背景色Form1。

　　BackColor，以達到將盤子從原位置移開的顯示效果;第二步在盤子將要到達的新位置重新繪制該盤子，從而達到盤子移動到另一端的顯示效果。

　　例如某個用Form1.Line (4000, i)-( 4000 +400), i + 200)語句繪制的長為400像素、寬為200像素的盤子需要從矩形左上角坐標為(4000, i)的位置垂直向上移動到下一位置，則可能將該矩形在原位置重新繪制成窗體背景色，在矩形左上角坐標為(4000, i-stepC)位置重新繪制一個矩形來達到將該矩形從位置(4000, i)移動到位置(4000, i-stepC)的目的，其中stepC是移動步長，也即子路徑的長度。stepC值不能設(shè)置的過大，如果設(shè)置的太大，則盤子移動過程中將會出現(xiàn)不連續(xù)的移動效果。盤子移動過程程序?qū)崿F(xiàn)的核心代碼如下：

　　Dim i As Integer, j As Integer, k As Integer 'i、k表示縱坐標，j表示橫坐標

　　Form1.Caption = "漢諾塔問題-第" & n & "個盤子正在移動…"

　　'向上移動到first柱子頂端

　　For i = baseCoordinateY(pillarnum(getone)) To 600 - 210 Step -stepC

　　'把矩形本次移動前的圖形擦掉

　　Form1.Line ((pillarnum(getone) * 4000 - (n * 400) / 2), i)-((pillarnum(getone) * 4000 + (n * 400) / 2), i + 200), Form1.BackColor, BF

　　fixpillar (getone)

　　Form1.Line ((pillarnum(getone) * 4000 - (n * 400) / 2), i - stepC)-((pillarnum(getone) * 4000 + (n * 400) / 2), i - stepC + 200), , BF

　　delay

　　Next i

　　'當(dāng)前i =600-200-stepC，此時i值表示盤子的當(dāng)前縱坐標

　　'向左、右平移到third柱子頂端

　　If pillarnum(getone) < pillarnum(putone) Then

　　'向右移

　　For j = (pillarnum(getone) * 4000 - (n * 400) / 2) To (pillarnum(putone) * 4000 - (n * 400) / 2) - stepC Step stepC

　　Form1.Line (j, i)-(j + n * 400, i + 200), Form1.BackColor, BF

　　Form1.Line (j + stepC, i)-(j + stepC + n * 400, i + 200), , BF

　　delay

　　Next j

　　Else

　　'向左移

　　For j = (pillarnum(getone) * 4000 - (n * 400) / 2) To (pillarnum(putone) * 4000 - (n * 400) / 2) + stepC Step -stepC

　　Form1.Line (j, i)-(j + n * 400, i + 200), Form1.BackColor, BF

　　Form1.Line (j - stepC, i)-(j - stepC + n * 400, i + 200), , BF

　　delay

　　Next j

　　End If

　　'向下移動到third柱子底端

　　For k = i To baseCoordinateY(pillarnum(putone)) - 210 - stepC Step stepC

　　'把矩形本次移動前的圖形擦掉

　　Form1.Line ((pillarnum(putone) * 4000 - (n * 400) / 2), k)-((pillarnum(putone) * 4000 + (n * 400) / 2), k + 200), Form1.BackColor, BF

　　fixpillar (putone)

　　Form1.Line ((pillarnum(putone) * 4000 - (n * 400) / 2), k + stepC)-((pillarnum(putone) * 4000 + (n * 400) / 2), k + stepC + 200), , BF

　　delay

　　Next k

　　'最后在柱子底端再補畫一次高度為210的矩形，

　　'因為k循環(huán)最后一次執(zhí)行循環(huán)體時，k值未必正好等于循環(huán)終值baseCoordinateY(pillarnum(putone)) - 210 - stepC,

　　'所以要補一個上沿縱坐標為baseCoordinateY(pillarnum(putone)) - 210 - stepC矩形

　　Form1.Line ((pillarnum(putone) * 4000 - (n * 400) / 2), k)-((pillarnum(putone) * 4000 + (n * 400) / 2), k + 200), Form1.BackColor, BF

　　fixpillar (putone)

　　Form1.Line ((pillarnum(putone) * 4000 - (n * 400) / 2), baseCoordinateY(pillarnum(putone)) - 210)-((pillarnum(putone) * 4000 + (n * 400) / 2), baseCoordinateY(pillarnum(putone)) - 210 + 200), , BF

　　'更新各柱子最面一個盤子上沿的縱坐標

　　baseCoordinateY(pillarnum(getone)) = baseCoordinateY(pillarnum(getone)) + 210

　　baseCoordinateY(pillarnum(putone)) = baseCoordinateY(pillarnum(putone)) - 210

　　End Sub

　　Private Function pillarnum(ch As String) As Integer

　　pillarnum = Asc(ch) + 1 - Asc("A")

　　End Function

　　Private Sub fixpillar(pillarABC As String)

　　'縱坐標減10只是為了顯示時看的效果更好一些，其實是不應(yīng)該減的，減了后柱子底端縱坐標與底線上沿縱坐標就不一致了

　　If pillarnum(pillarABC) < 3 Then

　　Form1.Line (pillarnum(pillarABC) * 4000 - 5, 700)-(pillarnum(pillarABC) * 4000 + 5, hLevel - 10), vbBlack, BF '修補柱子

　　Else

　　Form1.Line (pillarnum(pillarABC) * 4000 - 5, 700)-(pillarnum(pillarABC) * 4000 + 8, hLevel - 10), vbBlack, BF '修補柱子

　　End If