【文章內(nèi)容簡介】 ng, ByVal y As Long, ByVal crColor As Long) As Long Private Sub cloud_Click() Dim Seed As Single 種子值的隨機(jī)數(shù)發(fā)生器 這個(gè)數(shù)組定義了邊界為不同的顏色 Bound = Array(10, 0, 15, 25, 30, 35, 40, 45) 這些數(shù)組定義地形 顏色的高度界限 . R = Array(0, 32, 64, 96, 128, 159, 191, 223, 255) G = Array(0, 32, 64, 96, 128, 159, 191, 223, 255) B = Array(255, 255, 255, 255, 255, 255, 255, 255, 255) 改變這些值來創(chuàng)建不同的效果。對于一個(gè)更明確海岸線，使前兩個(gè)綁定的值相同。 Seed = Timer 生成基于所述系統(tǒng)定時(shí)器地圖的種子 Randomize Seed 它應(yīng)該可以通過在這里使用他們的種子值來獲得以前的地圖 Caption = Terrain Generator Seed = amp。 Seed Generate_Heights Draw End Sub Private Sub exit_Click() Unload AerialFrame End Sub Private Sub Form_Load() Dim Seed As Single 種子值的隨機(jī)數(shù)發(fā)生器 這個(gè)數(shù)組定義了邊界 為不同的顏色 Bound = Array(10, 0, 15, 25, 30, 35, 40, 45) 這些數(shù)組定義地形顏色的高度界限 . R = Array(20, 23, 15, 20, 136, 145, 91, 88, 142) G = Array(14, 15, 85, 113, 136, 88, 55, 88, 142) B = Array(171, 199, 9, 11, 56, 41, 26, 88, 142) 改變這些值來創(chuàng)建不同的效果。對于一個(gè)更明 確 海岸線，使前兩個(gè)綁定的值相同 Seed = Timer 生成基于所述系統(tǒng)定時(shí)器地圖的種子 Randomize Seed 它應(yīng)該可以通過在這里使用他們的種子值來獲得以前的地圖 Caption = Terrain Generator Seed = amp。 Seed End Sub Private Sub Form_Click() 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 12 Generate_Heights Draw End Sub Private Sub Generate_Heights() 此生成高度值 被安置在高地?cái)?shù)組中。該高度限定，當(dāng)在地圖上繪制其中顏色被 顯示出來的方法是很難 解釋 的，生成的過程是最好的描述通過下面的圖表和說明來理解 ： 初始狀態(tài)： 1 1 1 1 i = 0狀態(tài)： 1 2 1 2 2 2 1 2 1 i = 1狀態(tài)： 1 3 2 3 1 3 3 3 3 3 2 3 2 3 2 3 3 3 3 3 1 3 2 3 1 最初，四角給出隨機(jī)高度值。然后， 對于那些半路之間的點(diǎn)的創(chuàng)建迭代高度值點(diǎn)在最后一次迭代，并在四個(gè)值的中間點(diǎn)。因此，當(dāng) i = 0時(shí)，圖中的“ 2”代表所添加的高度值，和當(dāng) i = 1 ，圖中的“ 3” 代表 補(bǔ)充 的 高 度 值。這 上面的方法 被重復(fù)，直到迭代所需數(shù)量為止。新的點(diǎn)的高度值通過取平均來確定周圍的點(diǎn)，并加上隨機(jī)位移 來得到 。將 i的值越大，位移 越小，使得第一 次迭代對具有大的影響形狀的地形，但后面的迭代不 會(huì)有大的影響 ，只產(chǎn)生輕微的變化地形的現(xiàn)狀這使得地形少 Print 鋸齒和更加圓潤使用這種方法 。 Dim i As Long 迭代計(jì)數(shù)器 Dim x As Long 協(xié)調(diào) Dim y As Long 計(jì)數(shù)器 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 13 Dim Step As Long 用于計(jì)算在主循環(huán) Dim numb As Integer Erase Heights Inistialise在每個(gè)拐角處的高度 Heights(0, 0) = Rnd * 10 Heights(0, ROW 1) = Rnd * 10 Heights(ROW 1, 0) = Rnd * 10 Heights(ROW 1, ROW 1) = Rnd * 10 主迭代循環(huán)。為解釋見上面。 numb = If numb 1 Or numb 9 Then MsgBox 親，迭代次數(shù)超出范圍嘍！ : GoTo 20 For i = 0 To numb – 1 Step = (ROW 1) / (2 ^ (i + 1)) For y = 0 To ROW 1 Step Step For x = 0 To ROW 1 Step Step If (y / Step) Mod 2 = 0 Then If Heights(x, y) = 0 Then Heights(x, y) = (Heights(x Step, y) + Heights(x + Step, y)) / 2 + (Rnd * SLOPE (SLOPE / 2)) * ((ITERATIONS i) / (i + 1)) End If Else If (x / Step) Mod 2 = 0 Then Heights(x, y) = (Heights(x, y Step) + Heights(x, y + Step)) / 2 + (Rnd * SLOPE (SLOPE / 2)) * ((ITERATIONS i) / (i + 1)) Else Heights(x, y) = (Heights(x Step, y Step) + Heights(x Step, y + Step) + Heights(x + Step, y Step) + Heights(x + Step, y + Step)) / 4 + (Rnd * SLOPE (SLOPE / 2)) * ((ITERATIONS i) / (i + 1)) End If End If Next Next Next 20 End Sub 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 14 Private Sub Draw() 繪制地形到基于高度圖的值的形式。該顯示的顏色為對應(yīng)于高度圖的值的像素是基于哪兩個(gè)高度界限的高度值之間。該在像素顯示的實(shí)際顏色來自之間的漸變邊界顏色，從而使地形融合在一起，看起來更現(xiàn)實(shí)的。高度圖還可以用于生成 3D地形。 Dim Color As Long Cls 繪制前清除表單 通過所有點(diǎn)的高度重復(fù)的地圖 For y = 0 To ROW 1 For x = 0 To ROW 1 檢查高度值對每個(gè)邊界上看到它位于 For i = 0 To UBound(Bound) If Heights(x, y) = Bound(i) Then Exit For Next If i = UBound(Bound) + 1 Then Color = RGB(R(i), G(i), B(i)) ElseIf i = 0 Then Color = RGB(R(0), G(0), B(0)) Else 計(jì)算兩個(gè)邊界顏色之間的梯度 Color = RGB(R(i) + (R(i + 1) R(i)) * ((Heights(x, y) Bound(i 1)) / (Bound(i) Bound(i 1))), G(i) + (G(i + 1) G(i)) * ((Heights(x, y) Bound(i 1)) / (Bound(i) Bound(i 1))), B(i) + (B(i + 1) B(i)) * ((Heights(x, y) Bound(i 1)) / (Bound(i) Bound(i 1)))) End If SetPixelV hdc, ScaleWidth \ 2 ROW \ 2 + x, ScaleHeight \ 2 ROW \ 2 + y, Color Next Next End Sub Private Sub Terrain_Click() Dim Seed As Single 種子值的隨機(jī)數(shù)發(fā)生器 這個(gè)數(shù)組定義了邊界為不同的顏色 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 15 Bound = Array(10, 0, 15, 25, 30, 35, 40, 45) 這些數(shù)組定義地形顏色的高度界限 R = Array(20, 23, 15, 20, 136, 145, 91, 88, 142) G = Array(14, 15, 85, 113, 136, 88, 55, 88, 142) B = Array(171, 199, 9, 11, 56, 41, 26, 88, 142) 改變這些值來創(chuàng)建不同的效果。對于一個(gè)更明確海岸線，使前兩個(gè)綁定的值相同。如果您創(chuàng)建更多的色彩邊界，地形可以變得更細(xì)致 Seed = Timer 生成基于所述系統(tǒng)定時(shí)器地圖的種子 Randomize Seed 它應(yīng)該可以通過在這里使用他們的種子值來獲得以前的地圖 Caption = Terrain Generator Seed = amp。 Seed Generate_Heights Draw End Sub 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 16 第五章 軟件實(shí)現(xiàn)效果圖 本軟 件通過 VB語言操作完成，在 window系統(tǒng)中運(yùn)行正常，具體的效果的實(shí)現(xiàn)如下面所述。 圖 51 航拍云圖運(yùn)行 界面（ 1） 點(diǎn)擊航拍云圖按鈕，調(diào)用 cloud_Click()方法， 默認(rèn) 迭代 9次獲取每個(gè)點(diǎn)的坐標(biāo)和顏色值，然后調(diào)用 SetPixelV來畫圖， 在軟件中部生成航拍云圖 。 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 17 圖 52 航拍地形圖運(yùn)行 界面（ 2） 點(diǎn)擊航拍地形圖按鈕，調(diào)用 Terrain_Click()方法，默認(rèn)迭代 9次獲取每個(gè)點(diǎn)的坐標(biāo)和顏色值，然后調(diào)用 SetPixelV來畫圖，在軟件中部生成航拍地形圖。 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 18 圖 52 修改迭代次數(shù) 航拍圖運(yùn)行 界面（ 2） 修改迭代次數(shù)，改為迭代 7次，點(diǎn)擊航拍地形圖按鈕，調(diào)用 Terrain_Click()方法，迭代 7次獲取每個(gè)點(diǎn)的坐標(biāo)和顏色值，然后調(diào)用 SetPixelV來畫圖，在軟件中部生成航拍地形圖。 由于沒有迭代完全 ， 所以很多點(diǎn)沒有被算出來并畫出來 ，這樣可以方便用戶了解本軟件的實(shí)現(xiàn)方法和過程 。 三江學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì)（論文） 19 結(jié)束語 畢業(yè)論文從下發(fā)任務(wù)書到現(xiàn)在已經(jīng)過去幾個(gè)月了，課題已經(jīng)做好了，論文也結(jié)束，馬上就要答辯了。現(xiàn)在是快要和老師同學(xué)們告別的畢業(yè)時(shí)間了。記得剛開始選課題時(shí)，老師的十個(gè)課題我 們都不曾接觸過，都沒有聽說過，感覺心里特別沒底。老師給的課題領(lǐng)域可以說是完全沒有接觸過。在熟悉課題到課題設(shè)計(jì)的過程中遇到了很多問題，尤其是在理解分形技術(shù)的應(yīng)用時(shí)，都沒有搞明白是干什么的，感覺有頭大的感受，全部都是算法，以前我們自己編寫程序時(shí)，都沒有去關(guān)注過代碼中的算法的實(shí)現(xiàn)，通過這次畢業(yè)設(shè)計(jì)后我終于理解了算法的重要性了，可以說這次的課題中主要就是對與分形算法的了解和實(shí)現(xiàn)，前面沒有理解透徹時(shí)，都感覺無從下手，特別是看了計(jì)算機(jī)圖形學(xué)后感覺自己真的是沒有理解好。雖然在沒有