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

　　3.2 盤子移動(dòng)的實(shí)現(xiàn)

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

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

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

　　Dim i As Integer, j As Integer, k As Integer 'i、k表示縱坐標(biāo)，j表示橫坐標(biāo)

　　Form1.Caption = "漢諾塔問題-第" & n & "個(gè)盤子正在移動(dòng)…"

　　'向上移動(dòng)到first柱子頂端

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

　　'把矩形本次移動(dòng)前的圖形擦掉

　　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，此時(shí)i值表示盤子的當(dāng)前縱坐標(biāo)

　　'向左、右平移到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

　　'向下移動(dòng)到third柱子底端

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

　　'把矩形本次移動(dòng)前的圖形擦掉

　　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

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

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

　　'所以要補(bǔ)一個(gè)上沿縱坐標(biāo)為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

　　'更新各柱子最面一個(gè)盤子上沿的縱坐標(biāo)

　　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)

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

　　If pillarnum(pillarABC) < 3 Then

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

　　Else

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

　　End If