如何利用vb繪製小蜜蜂圖案?

我們知道計算機程式不但可以設計一些疑難問題的求解問題,還可以利用它繪製一些優美的圖案,不過要繪製優美的圖案還必須有足夠的數學基礎才行,因為它要結合數學中的函式問題,今天小編在這裡就跟大家交流一下利用vb程式開發小蜜蜂圖案的問題,現在就把它的繪製過程跟大家做一彙報,僅供參考。

如何利用vb繪製小蜜蜂圖案

工具/原料

vb6

方法/步驟

啟動vb6.0,開啟vb程式後,執行檔案-新建工程命令,在開啟的視窗中選擇標準exe選項,雙擊該選項進行開啟進入窗體介面。

如何利用vb繪製小蜜蜂圖案

調節窗體的大小使其大小合適,選擇該窗體修改startupposition屬性值為2-螢幕中心,同時修改borderstyle屬性值為0-none。

如何利用vb繪製小蜜蜂圖案

在工具箱裡雙擊picturebox控制元件,在窗體上出現一個picturebox1控制元件,調整其大小和位置。使其充滿整個窗體,並把整個窗體全部覆蓋。

如何利用vb繪製小蜜蜂圖案

從工具箱裡拖拽兩個按鈕到picturebox1上面,調整按鈕的大小和位置,選擇commmand1修改caption屬性為繪圖,修改commmand2修改caption屬性值為退出。

如何利用vb繪製小蜜蜂圖案

雙擊commmand1進行程式碼程式設計區域,書寫commmand1的點選事件過程,接著輸入程式碼,程式碼的功能是定義區域,並且要畫出座標軸。程式碼如下:

Picture1.Scale (-10, 10)-(10, -10)

Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)

Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)

Picture1.Line (0, 10)-(-0.125, 9.5), RGB(0, 0, 255)

Picture1.Line (0, 10)-(0.125, 9.5), RGB(0, 0, 255)

Picture1.Line (10, 0)-(9.5, 0.125), RGB(0, 0, 255)

Picture1.Line (10, 0)-(9.5, -0.125), RGB(0, 0, 255)

如何利用vb繪製小蜜蜂圖案

接著要繼續編寫程式碼,程式碼要完成繪圖功能,繪製這樣一個圖案需要不斷描點,儘量使點的數量足夠多,這樣就連線成線了,所有必須使用for語句,程式碼如下

For t = -360 To 360 Step 0.001

x = 2 * (Cos(t * 360) + Cos(3 * t * 360))

y = 2 * (Sin(t * 360) + Sin(5 * t * 360))

Picture1.PSet (x, y)

Next t

如何利用vb繪製小蜜蜂圖案

在編寫程式的同時還要不斷的進行除錯,以便發現錯誤及時進行糾正,點選執行按鈕,檢視程式執行情況。

如何利用vb繪製小蜜蜂圖案

根據錯誤提示修改錯誤,上面錯誤的原因是變數未定義,在vb中變數要遵循先定義後使用的原則,不然的話就會出現類似的錯誤,及時糾正可以避免錯誤數的累加。對於使用中的變數進行定義。

如何利用vb繪製小蜜蜂圖案

點選執行按鈕進行編譯執行,如果沒有錯誤的話,程式會通過出現視窗介面。

如何利用vb繪製小蜜蜂圖案

現在還有另外一個按鈕沒有處理,雙擊退出按鈕,進入程式碼區域,物件中選擇commmand2,過程中選擇click事件,然後輸入 end程式碼即可,此程式碼就一句但是它的功能很強大,那就是退出應用程式。

如何利用vb繪製小蜜蜂圖案

再次點選執行按鈕進行功能測試,不斷進行除錯直至沒有錯誤通過為止,這樣繪製小蜜蜂就大功告成了。

如何利用vb繪製小蜜蜂圖案

執行檔案-儲存工程命令,在彈出的視窗中輸入名稱為小蜜蜂圖案,找到一個合適的位置點選儲存,程式會有提示先儲存工程然後再儲存窗體,缺一不可,不然再次開啟程式時就不能正確執行。

如何利用vb繪製小蜜蜂圖案

相關問題答案